mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
disambiguation in Phrasebook grammars, PGF server, and the GUI
This commit is contained in:
@@ -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} ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user