short imperative Utt in Eng

2010-06-22 10:53:58 +00:00
parent 5b9f3ad75d
commit ed751c43ab
2 changed files with 7 additions and 0 deletions
--- a/lib/src/english/ExtraEng.gf
+++ b/lib/src/english/ExtraEng.gf
@@ -129,4 +129,6 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
    AdvAP ap adv = {s = \\a => ap.s ! a ++ adv.s ; isPre = False} ;

    UseCopula = predAux auxBe ;
+
+    UttVPShort vp = {s = infVP True vp (agrP3 Sg)} ;
 } 
--- a/lib/src/english/ExtraEngAbs.gf
+++ b/lib/src/english/ExtraEngAbs.gf
@@ -16,4 +16,9 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
    that_RP : RP ; -- "that" as a relational pronoun (IdRP is "which" / "who")

    each_Det : Det ;
+
+-- infinitive without to
+
+    UttVPShort : VP -> Utt ;
+
 }