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

extensions to DictEng and addition of parallel DictEngBul which is partly imported from Apertium

Browse Source
This commit is contained in:
kr.angelov
2012-06-20 09:06:59 +00:00
parent 983c72ba66
commit 87818d4404
12 changed files with 43517 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/english/ParseEng.gf
View File

@@ -15,7 +15,7 @@ concrete ParseEng of ParseEngAbs =
RelativeEng,
IdiomEng [NP, VP, Tense, Cl, ProgrVP, ExistNP],
ExtraEng [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV],
DictEng **
@@ -71,7 +71,7 @@ lin
infVP v.typ vp a)
(predVc v) ;
ComplPredVP np vp = {
PredVPosv np vp = {
s = \\t,a,b,o =>
let
verb = vp.s ! t ! a ! b ! o ! np.a ;
@@ -82,6 +82,18 @@ lin
OQuest => verb.aux ++ compl ++ "," ++ np.s ! npNom ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf
}
} ;
PredVPovs np vp = {
s = \\t,a,b,o =>
let
verb = vp.s ! t ! a ! b ! o ! np.a ;
compl = vp.s2 ! np.a
in
case o of {
ODir => compl ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ np.s ! npNom ;
OQuest => verb.aux ++ compl ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ np.s ! npNom
}
} ;
that_RP = {
s = \\_ => "that" ;