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

Implement AdvCN

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-23 15:15:59 +03:00
parent 9d4a8009c8
commit 80ad54000c
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/turkish/NounTur.gf
View File

@@ -78,4 +78,10 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
s = \\n,c => ap.s ! Sg ! Nom ++ cn.s ! n ! c; s = \\n,c => ap.s ! Sg ! Nom ++ cn.s ! n ! c;
gen = \\n, a => ap.s ! Sg ! Nom ++ cn.gen ! n ! a gen = \\n, a => ap.s ! Sg ! Nom ++ cn.gen ! n ! a
} ; } ;
-- lin CN = {s : Number => Case => Str; gen : Number => Agr => Str} ;
AdvCN cn adv = {
s = \\n, c => adv.s ++ cn.s ! n ! c;
gen = \\n, a => adv.s ++ cn.gen ! n ! a
} ;
} }

6
src/turkish/StructuralTur.gf
View File

@@ -42,7 +42,7 @@ concrete StructuralTur of Structural = CatTur **
mkPron "siz" "sizi" "size" "sizin" "sizde" "sizden" "sizli" "sizsiz" Pl P2 ; mkPron "siz" "sizi" "size" "sizin" "sizde" "sizden" "sizli" "sizsiz" Pl P2 ;
with_Prep = with_Prep =
mkPrep "ile" Nom ; mkPrep [] (Abess Pos) ;
-- ...den sonra -- ...den sonra
after_Prep = after_Prep =
@@ -74,9 +74,9 @@ concrete StructuralTur of Structural = CatTur **
-- ... ile ...nin arasında -- ... ile ...nin arasında
between_Prep = between_Prep =
mkPrep "arasında" Gen ; mkPrep "arasındaki" Gen ;
and_Conj = ss "ve" ; and_Conj = ss "ile" ;
or_Conj = ss "veya" ; or_Conj = ss "veya" ;