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

added linref for VP in CatEng.gf

Browse Source
This commit is contained in:
kr.angelov
2013-10-30 14:44:19 +00:00
parent 7ae5285b83
commit 2b2f91e251
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/english/CatEng.gf
View File

@@ -105,4 +105,23 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
N3 = {s : Number => Case => Str ; g : Gender} ** {c2,c3 : Str} ; N3 = {s : Number => Case => Str ; g : Gender} ** {c2,c3 : Str} ;
PN = {s : Case => Str ; g : Gender} ; PN = {s : Case => Str ; g : Gender} ;
lindef
VP = \s -> predV {s = \\_ => s; p = ""; isRefl = True} ;
V, VS, VQ, VA = \s -> {s = \\_ => s; p = ""; isRefl = True} ;
V2, V2A, V2Q, V2S = \s -> {s = \\_ => s; p = ""; isRefl = True; c2=""} ;
V3 = \s -> {s = \\_ => s; p = ""; isRefl = True; c2,c3=""} ;
VV = \s -> {s = \\_ => s; p = ""; isRefl = True; typ = VVInf} ;
V2V = \s -> {s = \\_ => s; p = ""; isRefl = True; c2,c3="" ; typ = VVInf} ;
A = \s -> {s = \\_ => s} ;
A2 = \s -> {s = \\_ => s; c2 = ""} ;
N = \s -> {s = \\_,_ => s; g = Neutr} ;
N2 = \s -> {s = \\_,_ => s; c2 = ""; g = Neutr} ;
N3 = \s -> {s = \\_,_ => s; c2,c3 = ""; g = Neutr} ;
linref
VP = \vp -> infVP VVAux vp Simul CPos (agrP3 Sg) ;
} }