diff options
| author | aarne <aarne@chalmers.se> | 2010-03-28 19:29:06 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-28 19:29:06 +0000 |
| commit | 93daaabf3df88b5fa16065c027c370cdf9b487b2 (patch) | |
| tree | e8a35d5b7af1d44618b48f0d0267bc5ff110b341 /examples/phrasebook/SentencesI.gf | |
| parent | 3903b6b85222d5d266f859f4d029b12159cdf814 (diff) | |
Action category, more doc in Phrasebook
Diffstat (limited to 'examples/phrasebook/SentencesI.gf')
| -rw-r--r-- | examples/phrasebook/SentencesI.gf | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf index 69d714aa1..235509ec1 100644 --- a/examples/phrasebook/SentencesI.gf +++ b/examples/phrasebook/SentencesI.gf @@ -15,6 +15,9 @@ incomplete concrete SentencesI of Sentences = Numeral ** PlaceKind = CN ; Currency = CN ; Price = NP ; + Action = Cl ; + Person = NP ; + Language = NP ; lin PObject x = mkPhrase (mkUtt x) ; PKind x = mkPhrase (mkUtt x) ; @@ -24,22 +27,23 @@ incomplete concrete SentencesI of Sentences = Numeral ** PPlaceKind x = mkPhrase (mkUtt x) ; PCurrency x = mkPhrase (mkUtt x) ; PPrice x = mkPhrase (mkUtt x) ; + PLanguage 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)) ; WhereIs place = mkQS (mkQCl where_IAdv place) ; - IWant obj = mkS (mkCl (mkNP i_Pron) want_V2 obj) ; - ILike item = mkS (mkCl (mkNP i_Pron) like_V2 item) ; - DoYouHave kind = - mkQS (mkQCl (mkCl (mkNP youPol_Pron) have_V2 (mkNP kind))) ; + + SAction = mkS ; + SNotAction = mkS negativePol ; + QAction a = mkQS (mkQCl a) ; HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item cost_V)) ; ItCost item price = mkS (mkCl item cost_V2 price) ; - AmountCurrency num curr = mkNP <num : Numeral> curr ; + AmountCurrency num curr = mkNP <lin Numeral num : Numeral> curr ; ObjItem i = i ; - ObjNumber n k = mkNP <n : Numeral> k ; + ObjNumber n k = mkNP <lin Numeral n : Numeral> k ; This kind = mkNP this_Quant kind ; That kind = mkNP that_Quant kind ; @@ -53,6 +57,9 @@ incomplete concrete SentencesI of Sentences = Numeral ** Too quality = mkAP too_AdA quality ; ThePlace kind = mkNP the_Quant kind ; + I = mkNP i_Pron ; + You = mkNP youPol_Pron ; + oper mkPhrase : Utt -> Text = \u -> lin Text u ; -- no punctuation |