discourse devices for English

2011-02-09 22:57:27 +00:00
parent 7cd09c88db
commit b5a0fb94ca
5 changed files with 26 additions and 1 deletions
@@ -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
+    } ;
+
 }