From 6e7bbf3aa82a90f1b0ca38e3915972d02c5c8239 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 28 Apr 2010 16:53:20 +0000 Subject: some moving around of new phrasebook entries --- examples/phrasebook/SentencesI.gf | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'examples/phrasebook/SentencesI.gf') diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf index 0d56bc3d5..6d689d099 100644 --- a/examples/phrasebook/SentencesI.gf +++ b/examples/phrasebook/SentencesI.gf @@ -34,6 +34,9 @@ incomplete concrete SentencesI of Sentences = Numeral ** Date = Adv ; Name = NP ; Number = Card ; + ByTransport = Adv ; + Transport = {name : NP ; by : Adv} ; + Superlative = Det ; lin PSentence s = mkText s | lin Text (mkUtt s) ; -- optional '.' PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional '?' @@ -84,12 +87,19 @@ incomplete concrete SentencesI of Sentences = Numeral ** Very property = mkAP very_AdA (mkAP property) ; Too property = mkAP too_AdA (mkAP property) ; PropQuality property = mkAP property ; + ThePlace kind = let name : NP = mkNP the_Quant kind.name in { name = name ; at = mkAdv kind.at name ; to = mkAdv kind.to name } ; + APlace kind = + let name : NP = mkNP a_Quant kind.name in { + name = name ; + at = mkAdv kind.at name ; + to = mkAdv kind.to name + } ; IMale, IFemale = mkPerson i_Pron ; YouFamMale, YouFamFemale = mkPerson youSg_Pron ; @@ -114,6 +124,7 @@ incomplete concrete SentencesI of Sentences = Numeral ** ACitizen p n = mkCl p.name n ; ABePlace p place = mkCl p.name place.at ; + oper -- These operations are used internally in Sentences. -- cgit v1.2.3