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 = s =
case det.useGen of { case det.useGen of {
NoGen => \\c => det.s ++ cn.s ! det.n ! c ; 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 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} ; OrdSuperl a = {s = \\n,c => "en" ++ a.s ! n ! c} ;
DefArt = {s = []; useGen = NoGen} ; DefArt = {s = []; useGen = NoGen} ;
IndefArt = {s = []; useGen = NoGen} ; IndefArt = {s = []; useGen = UseIndef} ;
UseN n = n ; UseN n = n ;

2
src/turkish/ResTur.gf
View File

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