msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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

13
examples/phrasebook/PhrasebookEng.gf
View File

@@ -3,6 +3,7 @@
concrete PhrasebookEng of Phrasebook =
GreetingsEng,
FoodEng ** open
(R = Roles),
SyntaxEng,
ResEng, ---- for Num to Utt
Prelude in {
@@ -12,12 +13,18 @@ lincat
lin
PNumeral n =
mkPhrase (ss ((SyntaxEng.mkCard <n : Numeral>).s ! Nom)) ; ----
PGreeting g = mkPhrase g ;
mkPhrase ((SyntaxEng.mkCard <n : Numeral>).s ! Nom) ; ----
PSentence s = s ;
PGreeting g = mkPhrase g.s ;
---- PGreeting p s h g = mkPhrase (g.s ++ 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) ;
}