diff options
Diffstat (limited to 'examples/phrasebook/DisambPhrasebookEng.gf')
| -rw-r--r-- | examples/phrasebook/DisambPhrasebookEng.gf | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/examples/phrasebook/DisambPhrasebookEng.gf b/examples/phrasebook/DisambPhrasebookEng.gf index 4520a209d..45202924a 100644 --- a/examples/phrasebook/DisambPhrasebookEng.gf +++ b/examples/phrasebook/DisambPhrasebookEng.gf @@ -1,10 +1,21 @@ --# -path=.:present -concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng - [Polite,Familiar] ** - open - (R = Roles) in { +concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng - + [YouFam, YouPol, GExcuse, GExcusePol, GSorry, GSorryPol, GPleaseGive, GPleaseGivePol] + ** open SyntaxEng, ParadigmsEng, Prelude in { lin - Polite = {s = "(polite)" ; p = R.PPolite} ; - Familiar = {s = "(familiar)" ; p = R.PFamiliar} ; + YouFam = mkNP (mkNP youSg_Pron) (ParadigmsEng.mkAdv "(familiar)") ; + YouPol = mkNP (mkNP youPol_Pron) (ParadigmsEng.mkAdv "(polite)") ; + + GExcuse = fam "excuse me" ; + GExcusePol = pol "excuse me" ; + GSorry = fam "sorry" ; + GSorryPol = pol "sorry" ; + GPleaseGive = fam "please" ; + GPleaseGivePol = pol "please" ; + +oper + fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ; + pol : Str -> SS = \s -> postfixSS "(polite)" (ss s) ; } |