diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/phrasebook/DisambPhrasebookEng.gf | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/phrasebook/DisambPhrasebookEng.gf b/examples/phrasebook/DisambPhrasebookEng.gf index e2c622e11..d2c468e8e 100644 --- a/examples/phrasebook/DisambPhrasebookEng.gf +++ b/examples/phrasebook/DisambPhrasebookEng.gf @@ -10,7 +10,7 @@ concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng - GSorry, GSorryPol, GPleaseGive, GPleaseGivePol, GNiceToMeetYou, -- GNiceToMeetYouPol, - PYes, PYesToNo + PYes, PYesToNo, ObjMass ] ** open SyntaxEng, ParadigmsEng, Prelude in { lin @@ -36,6 +36,8 @@ lin PYes = mkPhrase (lin Utt (ss "yes (answer to positive question)")) ; PYesToNo = mkPhrase (lin Utt (ss "yes (answer to negative question)")) ; + ObjMass x = mkNP (mkNP x) (ParadigmsEng.mkAdv "(a portion of)") ; + oper fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ; pol : Str -> SS = \s -> postfixSS "(polite)" (ss s) ; |