msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

StructuralGer started

Browse Source
This commit is contained in:
aarne
2006-01-15 11:08:19 +00:00
parent f48c35dbe2
commit 1d60c8943f
4 changed files with 579 additions and 391 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lib/resource-1.0/german/TensedGer.gf
View File

@@ -1,10 +1,10 @@
--concrete TensedGer of Tensed = CatGer, TenseX ** open ResGer in {
--
-- flags optimize=all_subs ;
--
-- lin
-- UseCl t a p cl = {s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! ODir} ;
-- UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
-- UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
--
--}
concrete TensedGer of Tensed = CatGer, TenseX ** open ResGer in {
flags optimize=all_subs ;
lin
UseCl t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
}