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

ParadigmsEng: added auxVV ; corrected negative forms of infVV

Browse Source
This commit is contained in:
Aarne Ranta
2019-01-17 20:20:26 +01:00
parent 9054c6a909
commit 0ee80e5eac
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/english/ParadigmsEng.gf
View File

@@ -313,7 +313,8 @@ oper
mkVS : V -> VS ; -- sentence-compl e.g. say (that S) mkVS : V -> VS ; -- sentence-compl e.g. say (that S)
mkV2S : V -> Prep -> V2S ; -- e.g. tell (NP) (that S) mkV2S : V -> Prep -> V2S ; -- e.g. tell (NP) (that S)
mkVV : V -> VV ; -- e.g. want (to VP) mkVV : V -> VV ; -- e.g. want (to VP)
infVV : V -> VV ; -- e.g. want (to VP) auxVV : V -> VV ; -- e.g. must (VP)
infVV : V -> VV ; -- e.g. must (VP) (old name of auxVV)
ingVV : V -> VV ; -- e.g. start (VPing) ingVV : V -> VV ; -- e.g. start (VPing)
mkV2V : overload { mkV2V : overload {
mkV2V : Str -> V2V ; mkV2V : Str -> V2V ;
@@ -579,8 +580,13 @@ mkInterj : Str -> Interj
p = v.p ; p = v.p ;
typ = VVInf typ = VVInf
} ; } ;
infVV v = lin VV { auxVV, infVV = \v -> lin VV {
s = table {VVF vf => v.s ! vf ; _ => v.s ! VInf} ; s = table {
VVF vf => v.s ! vf ;
VVPresNeg => v.s ! VPres ++ "not" ;
VVPastNeg => v.s ! VPast ++ "not" ; --# notpresent
_ => v.s ! VInf
} ;
p = v.p ; p = v.p ;
typ = VVAux typ = VVAux
} ; } ;