GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-13 06:49:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

changes in the ParseEng grammar to bring it closer to the Translate grammar

Browse Source
This commit is contained in:
krasimir
2015-11-13 13:26:29 +00:00
parent 28cb6b4465
commit efe380a072
2 changed files with 38 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -8,7 +8,7 @@ concrete ParseEng of ParseEngAbs =
NumeralEng,
SymbolEng [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
ConjunctionEng,
VerbEng - [SlashV2V, PassV2, UseCopula, ComplVV],
VerbEng - [SlashV2V, PassV2, UseCopula, ComplVV, ComplVS],
AdverbEng,
PhraseEng,
SentenceEng - [UseCl], -- replaced by UseCl | ContractedUseCl
@@ -24,14 +24,14 @@ concrete ParseEng of ParseEngAbs =
ClSlash, RCl, EmptyRelSlash, VS, V2S, ComplBareVS, SlashBareV2S],
DictionaryEng **
open MorphoEng, ResEng, ParadigmsEng, (S = SentenceEng), (E = ExtraEng), Prelude in {
open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {
flags
literal=Symb ;
-- exceptional linearizations
lin
UseCl t p cl = S.UseCl t p cl | E.ContractedUseCl t p cl ;
UseCl t p cl = G.UseCl t p cl | E.ContractedUseCl t p cl ;
lin
myself_NP = regNP "myself" singular ;
@@ -43,14 +43,24 @@ lin
yourselfPl_NP = regNP "yourself" plural ;
themselves_NP = regNP "themselves" plural ;
CompoundCN num noun cn = {
s = \\n,c => num.s ! Nom ++ noun.s ! num.n ! Nom ++ cn.s ! n ! c ;
g = cn.g
CompoundSgCN cn1 cn2 = {
s = \\n,c => cn1.s ! Sg ! Nom ++ cn2.s ! n ! c ;
g = cn2.g
} ;
DashCN noun1 noun2 = {
s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ;
g = noun2.g
CompoundPlCN cn1 cn2 = {
s = \\n,c => cn1.s ! Pl ! Nom ++ cn2.s ! n ! c ;
g = cn2.g
} ;
DashSgN n1 n2 = {
s = \\n,c => n1.s ! Sg ! Nom ++ "-" ++ n2.s ! n ! c ;
g = n2.g
} ;
DashPlN n1 n2 = {
s = \\n,c => n1.s ! Pl ! Nom ++ "-" ++ n2.s ! n ! c ;
g = n2.g
} ;
GerundN v = {
@@ -63,9 +73,9 @@ lin
isPre = True
} ;
PastPartAP v = {
s = \\agr => v.s ! VPPart ;
isPre = True
PastPartAP vp = {
s = \\a => vp.ad ! a ++ vp.ptp ++ vp.p ++ vp.c2 ++ vp.s2 ! a ++ vp.ext ;
isPre = vp.isSimple -- depends on whether there are complements
} ;
OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;
@@ -89,6 +99,7 @@ lin
ComplVV v a p vp = insertObj (\\agr => a.s ++ p.s ++
infVP v.typ vp a.a p.p agr)
(predVV v) ;
ComplVS vs s = G.ComplVS vs s | ComplBareVS vs s ;
PredVPosv np vp = {
s = \\t,a,b,o =>
@@ -148,6 +159,11 @@ lin
a = np1.a
} ;
NameCN pn cn = {
s = \\n,c => pn.s ! npcase2case npNom ++ cn.s ! n ! c ;
g = cn.g
} ;
AdAdV = cc2 ;
UttAdV adv = adv;

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

@@ -24,14 +24,15 @@ abstract ParseEngAbs =
flags
startcat=Phr;
heuristic_search_factor=0.60;
--- meta_prob=1.0e-5;
--- meta_token_prob=1.1965149246222233e-9;
fun CompoundCN : Num -> N -> CN -> CN ;
DashCN : N -> N -> N ;
fun CompoundSgCN : CN -> CN -> CN ;
CompoundPlCN : CN -> CN -> CN ;
DashSgN : N -> N -> N ;
DashPlN : N -> N -> N ;
GerundN : V -> N ;
GerundAP : V -> AP ;
PastPartAP : V2 -> AP ;
PastPartAP : VPSlash -> AP ;
myself_NP : NP ;
yourselfSg_NP : NP ;
himself_NP : NP ;
@@ -68,7 +69,9 @@ fun CompoundCN : Num -> N -> CN -> CN ;
PresPartRS : Ant -> Pol -> VP -> RS ;
ApposNP : NP -> NP -> NP ;
NameCN : PN -> CN -> CN ;
AdAdV : AdA -> AdV -> AdV ;
UttAdV : AdV -> Utt;