From db62687ab1c4c5d8b249a720b0a9d57175294e77 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 1 Dec 2011 12:51:40 +0000 Subject: imperatives added to Phrasebook (familiar,polite,plural,positive,negative) --- examples/phrasebook/SentencesI.gf | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'examples/phrasebook/SentencesI.gf') 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 ; -- cgit v1.2.3