GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 18:02:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

generalized and extended Phrasebook in many ways

Browse Source
This commit is contained in:
aarne
2010-04-05 16:36:38 +00:00
parent c87fe6f0f6
commit 2ced613d81
25 changed files with 619 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
examples/phrasebook/DisambPhrasebookEng.gf
View File

@@ -1,16 +1,22 @@
--# -path=.:present
concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
[YouFam, YouPol,
[
IMale, IFemale,
YouFamMale, YouFamFemale,
YouPolMale, YouPolFemale,
GExcuse, GExcusePol,
GSorry, GSorryPol,
GPleaseGive, GPleaseGivePol,
GWhatsYourName, GWhatsYourNamePol
GPleaseGive, GPleaseGivePol
]
** open SyntaxEng, ParadigmsEng, Prelude in {
lin
YouFam = mkNP (mkNP youSg_Pron) (ParadigmsEng.mkAdv "(familiar)") ;
YouPol = mkNP (mkNP youPol_Pron) (ParadigmsEng.mkAdv "(polite)") ;
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)" ;
GExcuse = fam "excuse me" ;
GExcusePol = pol "excuse me" ;
@@ -18,11 +24,14 @@ lin
GSorryPol = pol "sorry" ;
GPleaseGive = fam "please" ;
GPleaseGivePol = pol "please" ;
GWhatsYourName = ss "what's your name (familiar)" ;
GWhatsYourNamePol = ss "what's your name (polite)" ;
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 : Det} = \p,s ->
{name = mkNP (mkNP p) (ParadigmsEng.mkAdv s) ;
isPron = False ; -- to show the disambiguation
poss = mkDet youSg_Pron
} ;
}