msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

disambiguation of partitive mass terms in ENglish

Browse Source
This commit is contained in:
aarne
2010-05-28 09:08:35 +00:00
parent b66d93f44f
commit 60dc82a647
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/phrasebook/DisambPhrasebookEng.gf
View File

@@ -10,7 +10,7 @@ concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
GSorry, GSorryPol, GSorry, GSorryPol,
GPleaseGive, GPleaseGivePol, GPleaseGive, GPleaseGivePol,
GNiceToMeetYou, -- GNiceToMeetYouPol, GNiceToMeetYou, -- GNiceToMeetYouPol,
PYes, PYesToNo PYes, PYesToNo, ObjMass
] ]
** open SyntaxEng, ParadigmsEng, Prelude in { ** open SyntaxEng, ParadigmsEng, Prelude in {
lin lin
@@ -36,6 +36,8 @@ lin
PYes = mkPhrase (lin Utt (ss "yes (answer to positive question)")) ; PYes = mkPhrase (lin Utt (ss "yes (answer to positive question)")) ;
PYesToNo = mkPhrase (lin Utt (ss "yes (answer to negative question)")) ; PYesToNo = mkPhrase (lin Utt (ss "yes (answer to negative question)")) ;
ObjMass x = mkNP (mkNP x) (ParadigmsEng.mkAdv "(a portion of)") ;
oper oper
fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ; fam : Str -> SS = \s -> postfixSS "(familiar)" (ss s) ;
pol : Str -> SS = \s -> postfixSS "(polite)" (ss s) ; pol : Str -> SS = \s -> postfixSS "(polite)" (ss s) ;