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

fix the lindefs for verbs and VPs in CatEng

Browse Source
This commit is contained in:
kr.angelov
2013-10-30 21:42:39 +00:00
parent 68b40ff0a8
commit 7a618204c4
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/src/english/CatEng.gf
View File

@@ -109,14 +109,14 @@ concrete CatEng of Cat = CommonX - [Pol] ** open ResEng, Prelude in {
SSlash = \s -> {s = s; c2 = ""} ;
ClSlash = \s -> {s = \\t,a,p,o => s; c2 = ""} ;
VP = \s -> predV {s = \\_ => s; p = ""; isRefl = True} ;
VPSlash = \s -> predV {s = \\_ => s; p = ""; isRefl = True} ** {c2 = ""; gapInMiddle = False} ;
VP = \s -> predV {s = \\_ => s; p = ""; isRefl = False} ;
VPSlash = \s -> predV {s = \\_ => s; p = ""; isRefl = False} ** {c2 = ""; gapInMiddle = False} ;
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} ;
V, VS, VQ, VA = \s -> {s = \\_ => s; p = ""; isRefl = False} ;
V2, V2A, V2Q, V2S = \s -> {s = \\_ => s; p = ""; isRefl = False; c2=""} ;
V3 = \s -> {s = \\_ => s; p = ""; isRefl = False; c2,c3=""} ;
VV = \s -> {s = \\_ => s; p = ""; isRefl = False; typ = VVInf} ;
V2V = \s -> {s = \\_ => s; p = ""; isRefl = False; c2,c3="" ; typ = VVInf} ;
A = \s -> {s = \\_ => s} ;
A2 = \s -> {s = \\_ => s; c2 = ""} ;