diff options
| author | aarne <aarne@chalmers.se> | 2010-05-25 11:30:09 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-05-25 11:30:09 +0000 |
| commit | c473621651621343f4a4e4082e68d94fc3706be0 (patch) | |
| tree | 2f99bf04d10f7cacccee07e7bdf93b96057e0269 /examples/phrasebook/DisambPhrasebookEng.gf | |
| parent | cada06eab712bd57448f0305652cc3c18f53fbc0 (diff) | |
mass terms and yes/si/doch in Phrasebook
Diffstat (limited to 'examples/phrasebook/DisambPhrasebookEng.gf')
| -rw-r--r-- | examples/phrasebook/DisambPhrasebookEng.gf | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/examples/phrasebook/DisambPhrasebookEng.gf b/examples/phrasebook/DisambPhrasebookEng.gf index 4f71c91ab..e2c622e11 100644 --- a/examples/phrasebook/DisambPhrasebookEng.gf +++ b/examples/phrasebook/DisambPhrasebookEng.gf @@ -9,7 +9,8 @@ concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng - GExcuse, GExcusePol, GSorry, GSorryPol, GPleaseGive, GPleaseGivePol, - GNiceToMeetYou, GNiceToMeetYouPol + GNiceToMeetYou, -- GNiceToMeetYouPol, + PYes, PYesToNo ] ** open SyntaxEng, ParadigmsEng, Prelude in { lin @@ -30,7 +31,10 @@ lin GPleaseGive = fam "please" ; GPleaseGivePol = pol "please" ; GNiceToMeetYou = fam "nice to meet you" ; - GNiceToMeetYouPol = pol "nice to meet you" ; +-- GNiceToMeetYouPol = pol "nice to meet you" ; + + PYes = mkPhrase (lin Utt (ss "yes (answer to positive question)")) ; + PYesToNo = mkPhrase (lin Utt (ss "yes (answer to negative question)")) ; oper fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ; |