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

Olga's etc corrections in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-03-31 14:58:32 +00:00
parent d83c2d01d8
commit fb0f77b6f1
9 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/phrasebook/DisambPhrasebookEng.gf
View File

@@ -1,7 +1,12 @@
--# -path=.:present
concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
[YouFam, YouPol, GExcuse, GExcusePol, GSorry, GSorryPol, GPleaseGive, GPleaseGivePol]
[YouFam, YouPol,
GExcuse, GExcusePol,
GSorry, GSorryPol,
GPleaseGive, GPleaseGivePol,
GWhatsYourName, GWhatsYourNamePol
]
** open SyntaxEng, ParadigmsEng, Prelude in {
lin
YouFam = mkNP (mkNP youSg_Pron) (ParadigmsEng.mkAdv "(familiar)") ;
@@ -13,6 +18,8 @@ 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) ;