mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-20 02:09:32 -06:00
45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
--# -path=.:present
|
|
|
|
concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
|
|
[
|
|
IMale, IFemale,
|
|
YouFamMale, YouFamFemale,
|
|
YouPolMale, YouPolFemale,
|
|
LangNat, -- CitiNat,
|
|
GExcuse, GExcusePol,
|
|
GSorry, GSorryPol,
|
|
GPleaseGive, GPleaseGivePol,
|
|
GNiceToMeetYou, GNiceToMeetYouPol
|
|
]
|
|
** open SyntaxEng, ParadigmsEng, Prelude in {
|
|
lin
|
|
IMale = mkP i_Pron "(male)" ;
|
|
IFemale = mkP i_Pron "(female)" ;
|
|
YouFamMale = mkP youSg_Pron "(familiar,male)" ;
|
|
YouFamFemale = mkP youSg_Pron "(familiar,female)" ;
|
|
YouPolMale = mkP youPol_Pron "(polite,male)" ;
|
|
YouPolFemale = mkP youPol_Pron "(polite,female)" ;
|
|
|
|
LangNat nat = mkNP nat.lang (ParadigmsEng.mkAdv "(language)") ;
|
|
-- CitiNat nat = nat.prop ;
|
|
|
|
GExcuse = fam "excuse me" ;
|
|
GExcusePol = pol "excuse me" ;
|
|
GSorry = fam "sorry" ;
|
|
GSorryPol = pol "sorry" ;
|
|
GPleaseGive = fam "please" ;
|
|
GPleaseGivePol = pol "please" ;
|
|
GNiceToMeetYou = fam "nice to meet you" ;
|
|
GNiceToMeetYouPol = pol "nice to meet you" ;
|
|
|
|
oper
|
|
fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ;
|
|
pol : Str -> SS = \s -> postfixSS "(polite)" (ss s) ;
|
|
|
|
mkP : Pron -> Str -> {name : NP ; isPron : Bool ; poss : Quant} = \p,s ->
|
|
{name = mkNP (mkNP p) (ParadigmsEng.mkAdv s) ;
|
|
isPron = False ; -- to show the disambiguation
|
|
poss = SyntaxEng.mkQuant youSg_Pron
|
|
} ;
|
|
}
|