From 23b8136af27b0baaa8fcb5272a613d5f2ee447fa Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 17 Jun 2008 13:16:15 +0000 Subject: started examples-3.0 with examples that are tested to work --- examples-3.0/tutorial/resource-foods/ExtFoodsI.gf | 49 +++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 examples-3.0/tutorial/resource-foods/ExtFoodsI.gf (limited to 'examples-3.0/tutorial/resource-foods/ExtFoodsI.gf') diff --git a/examples-3.0/tutorial/resource-foods/ExtFoodsI.gf b/examples-3.0/tutorial/resource-foods/ExtFoodsI.gf new file mode 100644 index 000000000..586f3e42b --- /dev/null +++ b/examples-3.0/tutorial/resource-foods/ExtFoodsI.gf @@ -0,0 +1,49 @@ +incomplete concrete ExtFoodsI of ExtFoods = FoodsI ** open Syntax, LexFoods in { + + flags lexer=text ; unlexer=text ; + + lincat + Move = Text ; + Verb = V2 ; + Guest = NP ; + GuestKind = CN ; + lin + MAssert p = mkText (mkS p) ; + MDeny p = mkText (mkS negativePol p) ; + MAsk p = mkText (mkQS p) ; + + PVerb = mkCl ; + PVerbWant guest verb item = mkCl guest want_VV (mkVP verb item) ; + + WhichVerb kind guest verb = + mkText (mkQS (mkQCl (mkIP whichSg_IDet kind) guest verb)) ; + WhichVerbWant kind guest verb = + mkText (mkQS (mkQCl (mkIP whichSg_IDet kind) + (mkClSlash guest want_VV verb))) ; + WhichIs kind quality = + mkText (mkQS (mkQCl (mkIP whichSg_IDet kind) (mkVP quality))) ; + + Do verb item = + mkText + (mkPhr (mkUtt politeImpForm (mkImp verb item))) exclMarkPunct ; + DoPlease verb item = + mkText + (mkPhr (mkUtt politeImpForm (mkImp verb item)) please_Voc) + exclMarkPunct ; + + I = mkNP i_Pron ; + You = mkNP youPol_Pron ; + We = mkNP we_Pron ; + + GThis = mkNP this_QuantSg ; + GThat = mkNP that_QuantSg ; + GThese = mkNP these_QuantPl ; + GThose = mkNP those_QuantPl ; + + Eat = eat_V2 ; + Drink = drink_V2 ; + Pay = pay_V2 ; + Lady = mkCN lady_N ; + Gentleman = mkCN gentleman_N ; + +} -- cgit v1.2.3