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

regenerated clones with complete abstract and ready-maked Lexicon-based words in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-04-10 08:18:03 +00:00
parent d505fa5b67
commit 50a2e2ea93
43 changed files with 2203 additions and 1265 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/phrasebook/DisambPhrasebookEng.gf
View File

@@ -8,7 +8,8 @@ concrete DisambPhrasebookEng of Phrasebook = PhrasebookEng -
LangNat, -- CitiNat,
GExcuse, GExcusePol,
GSorry, GSorryPol,
GPleaseGive, GPleaseGivePol
GPleaseGive, GPleaseGivePol,
GNiceToMeetYou, GNiceToMeetYouPol
]
** open SyntaxEng, ParadigmsEng, Prelude in {
lin
@@ -28,14 +29,16 @@ lin
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 : Det} = \p,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 = mkDet youSg_Pron
poss = SyntaxEng.mkQuant youSg_Pron
} ;
}