nominalization in Extra Dut and Eng (from Ramona)

This commit is contained in:
aarne
2012-06-06 09:48:05 +00:00
parent 694564d275
commit 1838781123
6 changed files with 51 additions and 3 deletions

View File

@@ -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} ;

View File

@@ -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
}