diff options
Diffstat (limited to 'examples/phrasebook/SentencesI.gf')
| -rw-r--r-- | examples/phrasebook/SentencesI.gf | 11 |
1 files changed, 11 insertions, 0 deletions
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. |