mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-07 02:02: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} ;
|
||||
|
||||
@@ -21,7 +21,9 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
|
||||
|
||||
do_VV : VV ;
|
||||
|
||||
may_VV : VV ;
|
||||
|
||||
---------------------
|
||||
--- these are obsolete: use UncNeg : Pol instead
|
||||
|
||||
fun
|
||||
@@ -33,4 +35,5 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
|
||||
UncNegImpPl : Pol -> Imp -> Utt; -- do not help yourselves
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user