discourse devices for English

lib/src/english/ExtraEng.gf

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

lib/src/english/ExtraEngAbs.gf

@@ -21,4 +21,7 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
 
     UttVPShort : VP -> Utt ;
 
+-- emphasizing "do", e.g. "John does walk"
+
+   do_VV : VV ;
 }

lib/src/english/VerbEng.gf

@@ -34,9 +34,11 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
     UseComp comp = insertObj comp.s (predAux auxBe) ;
 
     AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
-
     AdVVP adv vp = insertAdV adv.s vp ;
 
+    AdvVPSlash vp adv = insertObj (\\_ => adv.s) vp ** {c2 = vp.c2} ;
+    AdVVPSlash adv vp = insertAdV adv.s vp ** {c2 = vp.c2} ;
+
     ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
 
     PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;