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

added functions to Ron and Chi needed for YAQL

Browse Source
This commit is contained in:
aarne
2012-12-09 19:01:19 +00:00
parent 2e4116c8ed
commit 309c6358f5
4 changed files with 24 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
examples/phrasebook/missing.txt
View File

@@ -1,5 +1,20 @@
DisambPhrasebookEng : ObjPlur ThesPlur ThesePlur ThosePlur DisambPhrasebookEng : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookBul : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookCat : MMust ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookDan : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookDut : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookEng : ObjPlur ThesPlur ThesePlur ThosePlur PhrasebookEng : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookFin : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookFre : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookGer : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookHin : AScared ATired MMust ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookIta : MCan MMust ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookLav : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookNor : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookPes : AHasAge AHasChildren AHasRoom AHasTable AmountCurrency Belgian DrinkNumber ItCost MCan MKnow MMust NNumeral ObjNumber ObjPlur PNumber PPrice ThesPlur ThesePlur ThosePlur V2Wait VWait
PhrasebookPol : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookRon : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookRus : Belgian Belgium Flemish ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookSpa : ObjPlur ThesPlur ThesePlur ThosePlur PhrasebookSpa : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookSwe : ObjPlur ThesPlur ThesePlur ThosePlur PhrasebookSwe : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookTha : ObjPlur ThesPlur ThesePlur ThosePlur PhrasebookTha : ObjPlur ThesPlur ThesePlur ThosePlur

8
lib/src/chinese/ParadigmsChi.gf
View File

@@ -105,10 +105,10 @@ oper
= ATManner ; = ATManner ;
mkPrep = overload { ---- is this the right order of the fields? mkPrep = overload { ---- is this the right order of the fields?
mkPrep : Str -> Preposition mkPrep : Str -> Prep
= \s -> ResChi.mkPreposition [] s ; = \s -> lin Prep (ResChi.mkPreposition [] s) ;
mkPrep : Str -> Str -> Preposition mkPrep : Str -> Str -> Prep
= \s,t -> ResChi.mkPreposition s t ; = \s,t -> lin Prep (ResChi.mkPreposition s t) ;
} ; } ;
emptyPrep : Preposition = mkPrep [] ; emptyPrep : Preposition = mkPrep [] ;

3
lib/src/chinese/VerbChi.gf
View File

@@ -32,6 +32,7 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
} ; } ;
UseComp comp = comp ; UseComp comp = comp ;
UseCopula = predV copula ;
SlashVV v vp = ---- too simple? SlashVV v vp = ---- too simple?
insertObj (mkNP (infVP vp)) (predV v) ** {c2 = vp.c2 ; isPre = vp.isPre} ; insertObj (mkNP (infVP vp)) (predV v) ** {c2 = vp.c2 ; isPre = vp.isPre} ;
@@ -59,5 +60,7 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
CompAdv adv = insertObj adv (predV zai_V) ; CompAdv adv = insertObj adv (predV zai_V) ;
VPSlashPrep vp prep = vp ** {c2 = prep ; isPre = True} ;
} }

3
lib/src/romanian/VerbRon.gf
View File

@@ -166,6 +166,7 @@ concrete VerbRon of Verb =
UseComp comp = insertSimpObj comp.s copula ; UseComp comp = insertSimpObj comp.s copula ;
UseCopula = copula ;
CompAP ap = {s = \\ag => ap.s ! AF ag.g ag.n Indef ANomAcc} ; CompAP ap = {s = \\ag => ap.s ! AF ag.g ag.n Indef ANomAcc} ;
CompCN cn = { s = \\ag => cn.s ! ag.n ! Indef ! ANomAcc }; --- RE 7/12/2010 CompCN cn = { s = \\ag => cn.s ! ag.n ! Indef ! ANomAcc }; --- RE 7/12/2010
@@ -178,7 +179,7 @@ concrete VerbRon of Verb =
PassV2 v = insertSimpObj (\\a => v.s ! PPasse a.g a.n Indef ANomAcc) auxPassive ** {lock_VP = <>}; PassV2 v = insertSimpObj (\\a => v.s ! PPasse a.g a.n Indef ANomAcc) auxPassive ** {lock_VP = <>};
VPSlashPrep vp prep = vp ** {c2 = prep ; needAgr = False; needClit = True} ; ---- AR
oper auxPassive = copula ; oper auxPassive = copula ;