From 5584415807061e801c124bdbaa37350c3b418a25 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 20 Mar 2010 21:21:50 +0000 Subject: started Phrasebook with Finnish and Romanian --- examples/phrasebook/SentencesI.gf | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 examples/phrasebook/SentencesI.gf (limited to 'examples/phrasebook/SentencesI.gf') diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf new file mode 100644 index 000000000..b917d70c9 --- /dev/null +++ b/examples/phrasebook/SentencesI.gf @@ -0,0 +1,25 @@ +incomplete concrete SentencesI of Sentences = Numeral ** + open Syntax in { + lincat + Sentence = Utt ; + Item = NP ; + Kind = CN ; + Quality = AP ; + Object = NP ; + lin + Is item quality = mkUtt (mkCl item quality) ; + IsNot item quality = mkUtt (mkS negativePol (mkCl item quality)) ; + WhetherIs item quality = mkUtt (mkQCl (mkCl item quality)) ; + IWant obj = mkUtt (mkCl (mkNP i_Pron) want_VV (mkVP have_V2 obj)) ; + DoYouHave kind = + mkUtt (mkQCl (mkCl (mkNP youPol_Pron) have_V2 (mkNP kind))) ; + ObjItem i = i ; + ObjNumber n k = mkNP k ; + + This kind = mkNP this_Quant kind ; + That kind = mkNP that_Quant kind ; + These kind = mkNP this_Quant plNum kind ; + Those kind = mkNP that_Quant plNum kind ; + SuchKind quality kind = mkCN quality kind ; + Very quality = mkAP very_AdA quality ; +} -- cgit v1.2.3