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

fixes in the dictionaries

Browse Source
This commit is contained in:
kr.angelov
2013-11-28 13:16:03 +00:00
parent 35580255c3
commit 99ac055997
7 changed files with 240 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -153,5 +153,60 @@ lin
lincat
Feat = Str;
lin FeatN, FeatN2 = \_ -> "";
FeatV = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ;
FeatV2 = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++ v.c2 ++
"<object>";
FeatV3 = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
v.c2 ++ "<arg1>" ++
v.c3 ++ "<arg2>";
FeatV2V = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
v.c2 ++ "<object>" ++
v.c3 ++ case v.typ of {
VVAux => "<verb>" ;
VVInf => "to" ++ "<verb>" ;
VVPresPart => "<verb+ing>"
};
FeatV2S = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
v.c2 ++ "<object>" ++
"that" ++ "<sentence>";
FeatV2Q = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
v.c2 ++ "<object>" ++
"that" ++ "<question>";
FeatV2A = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
v.c2 ++ "<object>" ++
"<adjective>";
FeatVV = \v ->
"<subject>" ++
v.s ! VVF VInf ++ v.p ++
case v.typ of {
VVAux => "<verb>" ;
VVInf => "to" ++ "<verb>" ;
VVPresPart => "<verb+ing>"
};
FeatVS = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
"that" ++ "<sentence>";
FeatVQ = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
"<question>";
FeatVA = \v ->
"<subject>" ++
v.s ! VInf ++ v.p ++
"<adjective>";
}

11
lib/src/english/ParseEngAbs.gf
View File

@@ -76,5 +76,16 @@ fun CompoundCN : Num -> N -> CN -> CN ;
cat Feat;
fun FeatN : N -> Feat;
FeatN2 : N2 -> Feat;
FeatV : V -> Feat;
FeatV2 : V2 -> Feat;
FeatV3 : V3 -> Feat;
FeatV2V : V2V -> Feat;
FeatV2S : V2S -> Feat;
FeatV2Q : V2Q -> Feat;
FeatV2A : V2A -> Feat;
FeatVV : VV -> Feat;
FeatVS : VS -> Feat;
FeatVQ : VQ -> Feat;
FeatVA : VA -> Feat;
}