discourse devices for English

This commit is contained in:
aarne
2011-02-09 22:57:27 +00:00
parent 78741bd973
commit 3b713801ad
5 changed files with 26 additions and 1 deletions

View File

@@ -108,4 +108,18 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
EmbedPresPart vp = {s = infVP VVPresPart vp (agrP3 Sg)} ; --- agr
UttVPShort vp = {s = infVP VVAux vp (agrP3 Sg)} ;
do_VV = {
s = table {
VVF VInf => ["do"] ;
VVF VPres => "does" ;
VVF VPPart => ["done"] ; ----
VVF VPresPart => ["doing"] ;
VVF VPast => ["did"] ; --# notpresent
VVPastNeg => ["didn't"] ; --# notpresent
VVPresNeg => "doesn't"
} ;
typ = VVAux
} ;
}