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

Work on the Dat and Gen cases of ComplN2

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-21 17:11:59 +03:00
parent f19459929c
commit 99c70256ca
1 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
src/turkish/NounTur.gf
View File

@@ -1,12 +1,12 @@
--# -path=.:../abstract:../common:../../prelude --# -path=.:../abstract:../common:../../prelude
concrete NounTur of Noun = CatTur ** open ResTur, Prelude in { concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude in {
flags optimize=all_subs ; flags optimize=all_subs ;
lin lin
DetCN det cn = { DetCN det cn = {
s = \\c => det.s ++ cn.s ! det.n ! c ; s = \\c => det.s ++ cn.s ! det.n ! c ;
a = agrP3 det.n a = agrP3 det.n
} ; } ;
@@ -40,15 +40,27 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
UseN2 n = n; UseN2 n = n;
ComplN2 f x = ComplN2 f x =
case f.c.c of { let
Nom => {s = \\n, c => x.s ! Gen ++ f.s ! n ! Acc }; h : Harmony = {vow = f.harmony.vow; con = f.harmony.con}
Acc => {s = \\_,_ => "TODO"}; in
Gen => {s = \\_,_ => "TODO"}; case f.c.c of {
Dat => {s = \\_,_ => "TODO"}; Nom => {s = \\n, c => x.s ! Gen ++ f.s ! n ! Acc };
Loc => {s = \\_,_ => "TODO"}; Acc => {s = \\_,_ => "TODO"};
Ablat => {s = \\_,_ => "TODO"}; Gen => {
Abess _ => {s = \\_,_ => "TODO"} s =
}; \\n, c =>
x.s ! Gen ++ f.gen ! n ! {n = Sg; p = P3}
++ BIND ++ (caseSuffixes ! c).st ! h.con ! h.vow
};
Dat => {
s = \\n, c =>
x.s ! Gen ++ f.gen ! n ! {n = Sg; p = P3}
++ datSuffixN.st ! h.con ! h.vow
};
Loc => {s = \\_,_ => "TODO"};
Ablat => {s = \\_,_ => "TODO"};
Abess _ => {s = \\_,_ => "TODO"}
};
AdjCN ap cn = { AdjCN ap cn = {