diff options
Diffstat (limited to 'examples/phrasebook/SentencesI.gf')
| -rw-r--r-- | examples/phrasebook/SentencesI.gf | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf index 09096dea5..69d714aa1 100644 --- a/examples/phrasebook/SentencesI.gf +++ b/examples/phrasebook/SentencesI.gf @@ -4,6 +4,7 @@ incomplete concrete SentencesI of Sentences = Numeral ** Syntax in { lincat + Phrase = Text ; Sentence = S ; Question = QS ; Item = NP ; @@ -15,6 +16,15 @@ incomplete concrete SentencesI of Sentences = Numeral ** Currency = CN ; Price = NP ; lin + PObject x = mkPhrase (mkUtt x) ; + PKind x = mkPhrase (mkUtt x) ; + PQuality x = mkPhrase (mkUtt x) ; + PNumeral x = mkPhrase (mkUtt (mkCard (x ** {lock_Numeral = <>}))) ; + PPlace x = mkPhrase (mkUtt x) ; + PPlaceKind x = mkPhrase (mkUtt x) ; + PCurrency x = mkPhrase (mkUtt x) ; + PPrice x = mkPhrase (mkUtt x) ; + Is item quality = mkS (mkCl item quality) ; IsNot item quality = mkS negativePol (mkCl item quality) ; WhetherIs item quality = mkQS (mkQCl (mkCl item quality)) ; @@ -43,4 +53,7 @@ incomplete concrete SentencesI of Sentences = Numeral ** Too quality = mkAP too_AdA quality ; ThePlace kind = mkNP the_Quant kind ; +oper + mkPhrase : Utt -> Text = \u -> lin Text u ; -- no punctuation + } |