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

word order in Scand and Ger coordinated Inv

Browse Source
This commit is contained in:
aarne
2011-08-03 14:37:49 +00:00
parent e60b4e97c0
commit 930d9ab752
2 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/german/ConjunctionGer.gf
View File

@@ -24,8 +24,15 @@ concrete ConjunctionGer of Conjunction =
-- These fun's are generated from the list cat's.
BaseS = twoTable Order ;
ConsS = consrTable Order comma ;
BaseS x y = { -- twoTable Order ;
s1 = x.s ;
s2 = table {Inv => y.s ! Main ; o => y.s ! o}
} ;
ConsS x xs = { -- consrTable Order comma ;
s1 = \\o => x.s ! Inv ++ comma ++ xs.s1 ! case o of {Inv => Main ; _ => o} ;
s2 = xs.s2
} ;
BaseAdv = twoSS ;
ConsAdv = consrSS comma ;
BaseNP x y = twoTable PCase x y ** {a = conjAgr x.a y.a} ;

10
lib/src/scandinavian/ConjunctionScand.gf
View File

@@ -29,8 +29,14 @@ incomplete concrete ConjunctionScand of Conjunction =
-- These fun's are generated from the list cat's.
BaseS = twoTable Order ;
ConsS = consrTable Order comma ;
BaseS x y = { -- twoTable Order ;
s1 = x.s ;
s2 = table {Inv => y.s ! Main ; o => y.s ! o}
} ;
ConsS x xs = { -- consrTable Order comma ;
s1 = \\o => x.s ! Inv ++ comma ++ xs.s1 ! case o of {Inv => Main ; _ => o} ;
s2 = xs.s2
} ;
BaseAdv = twoSS ;
ConsAdv = consrSS comma ;
BaseNP x y = twoTable NPForm x y ** {a = conjAgr x.a y.a} ;