From 50a2e2ea93e7280ae6063a1cbf0e8cb29fa78a09 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 10 Apr 2010 08:18:03 +0000 Subject: regenerated clones with complete abstract and ready-maked Lexicon-based words in Phrasebook --- examples/phrasebook/DisambPhrasebookEng.gf | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'examples/phrasebook/DisambPhrasebookEng.gf') diff --git a/examples/phrasebook/DisambPhrasebookEng.gf b/examples/phrasebook/DisambPhrasebookEng.gf index 02efd623b..4f71c91ab 100644 --- a/examples/phrasebook/DisambPhrasebookEng.gf +++ b/examples/phrasebook/DisambPhrasebookEng.gf @@ -8,7 +8,8 @@ concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng - LangNat, -- CitiNat, GExcuse, GExcusePol, GSorry, GSorryPol, - GPleaseGive, GPleaseGivePol + GPleaseGive, GPleaseGivePol, + GNiceToMeetYou, GNiceToMeetYouPol ] ** open SyntaxEng, ParadigmsEng, Prelude in { lin @@ -28,14 +29,16 @@ lin GSorryPol = pol "sorry" ; GPleaseGive = fam "please" ; GPleaseGivePol = pol "please" ; + GNiceToMeetYou = fam "nice to meet you" ; + GNiceToMeetYouPol = pol "nice to meet you" ; oper fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ; pol : Str -> SS = \s -> postfixSS "(polite)" (ss s) ; - mkP : Pron -> Str -> {name : NP ; isPron : Bool ; poss : Det} = \p,s -> + mkP : Pron -> Str -> {name : NP ; isPron : Bool ; poss : Quant} = \p,s -> {name = mkNP (mkNP p) (ParadigmsEng.mkAdv s) ; isPron = False ; -- to show the disambiguation - poss = mkDet youSg_Pron + poss = SyntaxEng.mkQuant youSg_Pron } ; } -- cgit v1.2.3