GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-30 10:28:53 -06:00
Code Issues Packages Projects Releases Wiki 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

18
src/turkish/NounTur.gf
View File

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