From 3ff870dcd652b793f359a661112f4af3ccd0bedd Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 24 Mar 2010 08:18:54 +0000 Subject: politeness and disambiguation in Phrasebook (not visible yet) --- examples/phrasebook/PhrasebookFre.gf | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'examples/phrasebook/PhrasebookFre.gf') diff --git a/examples/phrasebook/PhrasebookFre.gf b/examples/phrasebook/PhrasebookFre.gf index 662f5aade..7cf812466 100644 --- a/examples/phrasebook/PhrasebookFre.gf +++ b/examples/phrasebook/PhrasebookFre.gf @@ -4,6 +4,7 @@ concrete PhrasebookFre of Phrasebook = GreetingsFre, FoodFre ** open + (R = Roles), SyntaxFre, ParadigmsFre, ResFre, ---- for Num to Utt @@ -11,13 +12,22 @@ concrete PhrasebookFre of Phrasebook = lincat Phrase = Utt ; + Gender = {s : Str ; g : R.Gender} ; + Politeness = {s : Str ; p : R.Politeness} ; lin - PNumeral n = mkPhrase (ss ((mkCard ).s ! masculine)) ; ---- - PGreeting g = mkPhrase g ; + PNumeral n = mkPhrase ((mkCard ).s ! masculine) ; ---- PSentence s = s ; + PGreeting g = mkPhrase (g.s ! R.Polite ! R.Male ! R.Male) ; +---- PGreeting p s h g = mkPhrase (g.s ! p.p ! s.g ! h.g ++ p.s ++ s.s ++ h.s) ; + + Male = {s = [] ; g = R.Male} ; + Female = {s = [] ; g = R.Female} ; + Polite = {s = [] ; p = R.Polite} ; + Familiar = {s = [] ; p = R.Familiar} ; + oper - mkPhrase : SS -> Utt = \s -> lin Utt s ; + mkPhrase : Str -> Utt = \s -> lin Utt (ss s) ; } -- cgit v1.2.3