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

Implement ComplSlash

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 12:36:27 +03:00
parent 7bc30b77f4
commit 7f98c3198e
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/turkish/CatTur.gf
View File

@@ -10,7 +10,7 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
CN = {s : Number => Case => Str; gen : Number => Agr => Str} ; CN = {s : Number => Case => Str; gen : Number => Agr => Str} ;
NP = {s : Case => Str ; a : Agr} ; NP = {s : Case => Str ; a : Agr} ;
VP = Verb ; VP = Verb ;
VPSlash = VP ** {c2 : Prep} ; VPSlash = VP ** {c : Prep} ;
Pron = ResTur.Pron ; Pron = ResTur.Pron ;
Det = {s : Str; n : Number; useGen : UseGen} ; Det = {s : Str; n : Number; useGen : UseGen} ;

5
src/turkish/VerbTur.gf
View File

@@ -2,5 +2,10 @@ concrete VerbTur of Verb = CatTur ** open ResTur in {
lin lin
UseV v = v ; UseV v = v ;
SlashV2a v = v ;
ComplSlash vps np = {
s = \\ vf => vps.c.s ++ np.s ! vps.c.c ++ vps.s ! vf ;
} ;
} }