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

UseIndef in IndefArt

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 16:16:34 +03:00
parent a9a3d48c7f
commit d24bf91330
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/turkish/NounTur.gf
View File

@@ -9,7 +9,8 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
s =
case det.useGen of {
NoGen => \\c => det.s ++ cn.s ! det.n ! c ;
YesGen a => \\c => det.s ++ cn.gen ! det.n ! a
YesGen a => \\c => det.s ++ cn.gen ! det.n ! a ;
UseIndef => \\c => det.s ++ cn.s ! det.n ! Nom
} ;
a = agrP3 det.n
} ;
@@ -36,7 +37,7 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
OrdSuperl a = {s = \\n,c => "en" ++ a.s ! n ! c} ;
DefArt = {s = []; useGen = NoGen} ;
IndefArt = {s = []; useGen = NoGen} ;
IndefArt = {s = []; useGen = UseIndef} ;
UseN n = n ;

2
src/turkish/ResTur.gf
View File

@@ -34,7 +34,7 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
| VInfinitive
;
UseGen = NoGen | YesGen Agr;
UseGen = NoGen | YesGen Agr | UseIndef ;
oper
Verb : Type = {