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
concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude in {
flags optimize=all_subs ;
lin
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
} ;
@@ -40,15 +40,27 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
UseN2 n = n;
ComplN2 f x =
case f.c.c of {
Nom => {s = \\n, c => x.s ! Gen ++ f.s ! n ! Acc };
Acc => {s = \\_,_ => "TODO"};
Gen => {s = \\_,_ => "TODO"};
Dat => {s = \\_,_ => "TODO"};
Loc => {s = \\_,_ => "TODO"};
Ablat => {s = \\_,_ => "TODO"};
Abess _ => {s = \\_,_ => "TODO"}
};
let
h : Harmony = {vow = f.harmony.vow; con = f.harmony.con}
in
case f.c.c of {
Nom => {s = \\n, c => x.s ! Gen ++ f.s ! n ! Acc };
Acc => {s = \\_,_ => "TODO"};
Gen => {
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 = {