diff options
| author | aarne <aarne@chalmers.se> | 2010-04-10 08:18:03 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-04-10 08:18:03 +0000 |
| commit | 50a2e2ea93e7280ae6063a1cbf0e8cb29fa78a09 (patch) | |
| tree | 201d3812073143a0aa30684f9fcb0fe2a30940b5 /examples/phrasebook/DisambPhrasebookEng.gf | |
| parent | d505fa5b6737b6b78fb65161cea3c2ac175494ab (diff) | |
regenerated clones with complete abstract and ready-maked Lexicon-based words in Phrasebook
Diffstat (limited to 'examples/phrasebook/DisambPhrasebookEng.gf')
| -rw-r--r-- | examples/phrasebook/DisambPhrasebookEng.gf | 9 |
1 files changed, 6 insertions, 3 deletions
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 } ; } |