disambiguation in Phrasebook grammars, PGF server, and the GUI

This commit is contained in:
aarne
2010-03-30 15:39:11 +00:00
parent 4bae49c634
commit de909a4e44
23 changed files with 151 additions and 129 deletions

View File

@@ -6,22 +6,10 @@ concrete PhrasebookFre of Phrasebook =
** open
(R = Roles),
SyntaxFre,
ParadigmsFre,
Prelude in {
lincat
Gender = {s : Str ; g : R.Gender} ;
Politeness = {s : Str ; p : R.Politeness} ;
lin
PSentence s = mkText s | lin Text (mkUtt s) ; -- optional .
PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional ?
PGreeting g = lin Text (ss (g.s ! R.Polite ! R.Male ! R.Male)) ;
PGreeting p g = mkText (lin Text (ss (g.s ! p.p ! R.Male ! R.Male))) (lin Text (ss p.s)) ;
---- 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} ;
}