GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 11:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

politeness and disambiguation in Phrasebook (not visible yet)

Browse Source
This commit is contained in:
aarne
2010-03-24 08:18:54 +00:00
parent 68482aa7e9
commit 3ff870dcd6
8 changed files with 115 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/phrasebook/PhrasebookFre.gf
View File

@@ -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 <n : Numeral>).s ! masculine)) ; ----
PGreeting g = mkPhrase g ;
PNumeral n = mkPhrase ((mkCard <n : Numeral>).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) ;
}