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

Start working on ComplN2

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-21 15:59:44 +03:00
parent 639f544fa4
commit 3b6663bb6d
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/turkish/NounTur.gf
View File

@@ -37,6 +37,20 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
UseN n = n ;
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"}
};
AdjCN ap cn = {
s = \\n,c => ap.s ! Sg ! Nom ++ cn.s ! n ! c
} ;