mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-07 10:12:51 -06:00
nominalization in Extra Dut and Eng (from Ramona)
This commit is contained in:
@@ -112,6 +112,24 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
|
||||
typ = VVAux
|
||||
} ;
|
||||
|
||||
may_VV = lin VV {
|
||||
s = table {
|
||||
VVF VInf => ["be allowed to"] ;
|
||||
VVF VPres => "may" ;
|
||||
VVF VPPart => ["been allowed to"] ;
|
||||
VVF VPresPart => ["being allowed to"] ;
|
||||
VVF VPast => "might" ;
|
||||
VVPastNeg => "mightn't" ;
|
||||
VVPresNeg => "may not"
|
||||
} ;
|
||||
typ = VVAux
|
||||
} ;
|
||||
|
||||
|
||||
NominalizeVPSlashNP vpslash np =
|
||||
let vp : ResEng.VP = insertObjPre (\\_ => vpslash.c2 ++ np.s ! NPAcc) vpslash
|
||||
in
|
||||
lin NP {s=\\_=>vp.ad ++ vp.prp ++ vp.s2! (AgP3Sg Neutr); a=AgP3Sg Neutr } ;
|
||||
|
||||
lin
|
||||
UncNeg = {s = [] ; p = CNeg False} ;
|
||||
|
||||
Reference in New Issue
Block a user