imperatives added to Phrasebook (familiar,polite,plural,positive,negative)

1 files changed, 9 insertions, 0 deletions

diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf
index dfacb8d13..f45fa4a22 100644
--- a/examples/phrasebook/SentencesI.gf
+++ b/examples/phrasebook/SentencesI.gf
@@ -238,6 +238,8 @@ oper
 -- for languages with GenNP, use "p's wife"
 --   relativePerson n x (\a,b,c -> mkNP (GenNP b) a c) p ;
 
+  phrasePlease : Utt -> Text = \u -> lin Text (mkPhr noPConj u please_Voc) | lin Text u ;
+
 ------------------------------------------------------------------------------------------
 -- New things added 30/11/2011 by AR
 ------------------------------------------------------------------------------------------
@@ -276,6 +278,13 @@ oper
     V2Eat o = mkVP eat_V2 o ;
     V2Wait o = mkVP wait_V2 o.name ;
 
+    PImperativeFamPos  v = phrasePlease (mkUtt (mkImp v)) ;
+    PImperativeFamNeg  v = phrasePlease (mkUtt negativePol (mkImp v)) ;
+    PImperativePolPos  v = phrasePlease (mkUtt politeImpForm (mkImp v)) ;
+    PImperativePolNeg  v = phrasePlease (mkUtt politeImpForm negativePol (mkImp v)) ;
+    PImperativePlurPos v = phrasePlease (mkUtt pluralImpForm (mkImp v)) ;
+    PImperativePlurNeg v = phrasePlease (mkUtt pluralImpForm negativePol (mkImp v)) ;
+
 -- other new things allowed by the resource
 
 ---    PBecause a b = SSubjS a because_Subj b ;