diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-17 13:16:15 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-17 13:16:15 +0000 |
| commit | 23b8136af27b0baaa8fcb5272a613d5f2ee447fa (patch) | |
| tree | 2e7cd2930b7e8b6b0d911c00ec2d279b882f4893 /examples-3.0/tutorial/resource-foods/ExtFoodsI.gf | |
| parent | 7c097669d2c3934622c57f6e2f4ddee8826953d3 (diff) | |
started examples-3.0 with examples that are tested to work
Diffstat (limited to 'examples-3.0/tutorial/resource-foods/ExtFoodsI.gf')
| -rw-r--r-- | examples-3.0/tutorial/resource-foods/ExtFoodsI.gf | 49 |
1 files changed, 49 insertions, 0 deletions
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 ; + +} |