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

Tentative version of ConjS

Browse Source
This commit is contained in:
krangelov
2020-04-14 11:08:40 +02:00
parent 4a50152e17
commit 31a09ec2f3
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/turkish/ConjunctionTur.gf
View File

@@ -2,7 +2,10 @@ concrete ConjunctionTur of Conjunction =
CatTur ** open ResTur, HarmonyTur, Coordination, Prelude, Predef in {
lin
ConjS _ _ = variants {} ;
ConjS conj ss = {
s = linCoord []!conj.sep ++ ss.s!conj.sep ++ conj.s ++ ss.s!4;
subord = linCoord []!conj.sep ++ ss.subord!conj.sep ++ conj.s ++ ss.subord!4;
} ;
ConjNP conj ss = {
s = \\c => linCoord []!conj.sep ++ ss.s!c!conj.sep ++ conj.s ++ ss.s!c!4;
@@ -10,6 +13,13 @@ concrete ConjunctionTur of Conjunction =
a = conjAgr {n=conj.n; p=P3} ss.a
} ;
BaseS x y = {s = table {4 => y.s; _ => x.s};
subord = table {4 => y.subord; _ => x.subord};
} ;
ConsS x xs = {s = table {4 => xs.s!4; t => x.s++linCoord bindComma!t++xs.s!t};
subord = table {4 => xs.subord!4; t => x.subord++linCoord bindComma!t++xs.subord!t} ;
} ;
BaseNP x y =
{s = \\c=>table {4 => y.s!c; _ => x.s!c};
a = conjAgr x.a y.a;
@@ -78,10 +88,8 @@ concrete ConjunctionTur of Conjunction =
ConsRS _ _ = variants {} ;
BaseRS _ _ = variants {} ;
ConsS _ _ = variants {} ;
BaseS _ _ = variants {} ;
lincat
[S] = {s,subord : Ints 4 => Str} ;
[Adv] = {s : Ints 4 => Str} ;
[AdV] = {s : Ints 4 => Str} ;
[NP] = {s : Case => Ints 4 => Str; h : Harmony; a : Agr} ;