GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-20 16:56:18 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove the old parse grammar

Browse Source
This commit is contained in:
Krasimir Angelov
2023-10-09 16:21:11 +02:00
parent ff32e9e75c
commit 88fe3e5a25
6 changed files with 0 additions and 938 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
src/french/ParseEngFre.gf
View File

@@ -1,110 +0,0 @@
--# -path=alltenses:.:../english
concrete ParseEngFre of ParseEngAbs =
TenseFre,
NounFre - [PPartNP],
AdjectiveFre,
NumeralFre,
SymbolFre [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
ConjunctionFre,
VerbFre - [SlashV2V, PassV2, UseCopula, ComplVV],
AdverbFre,
PhraseFre,
SentenceFre,
QuestionFre,
RelativeFre,
IdiomFre [NP, VP, Tense, Cl, ProgrVP, ExistNP],
ExtraFre [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
ClSlash, RCl, EmptyRelSlash],
DictEngFre **
open MorphoFre, ResFre, ParadigmsFre, SyntaxFre, Prelude, (CR = CommonRomance) in {
flags literal=Symb ; coding = utf8 ;
lin
ComplVV v ant p vp = insertComplement
(\\a => prepCase v.c2.c ++ specVP vp ant p a) (predV v) ;
PPartNP np vp = heavyNP {
s = \\c => (np.s ! c).comp ++
(vp.s).s ! CR.VPart np.a.g np.a.n ++
vp.comp ! np.a ++ vp.ext ! RPos ;
a = np.a
} ;
CompoundCN num noun cn = {
s = \\n => num.s ! noun.g ++ glue (noun.s ! num.n) (cn.s ! n) ;
g = cn.g
} ;
DashCN noun1 noun2 = {
s = \\n => noun1.s ! Sg ++ "-" ++ noun2.s ! n ;
g = noun2.g
} ;
GerundN v = {
s = \\n => v.s ! VGer ;
g = CR.Masc
} ;
GerundAP v = {
s = \\c => case c of
{CR.AF gg nn => v.s ! CR.VGer;
_ => "NONEXISTENT" };
isPre = False} ;
PastPartAP v = {
s = \\c => case c of
{CR.AF gg nn => v.s ! CR.VPart gg nn ;
_ => v.s ! CR.VPart CR.Masc Sg};
isPre = False} ;
OrdCompar a = {s = \\c => a.s ! Compar ! AF c.g c.n} ;
PositAdVAdj a = {s = a.s ! Posit ! AA } ;
UseQuantPN q pn = heavyNP{
s = \\c => q.s ! False ! Sg ! pn.g ! c ++
pn.s ;
a = CR.agrP3 pn.g Sg} ;
SlashV2V v ant p vp =
(insertComplement
(\\a => prepCase v.c3.c ++ specVP vp ant p a)
(predV v)) ** {c2 = v.c2} ;
-- PredVPosV np vp
-- PredVPosv np vp TO DO : ask what they are ?
CompS s = {s = \\_ => "que" ++ s.s ! CR.Indic} ;
CompVP ant pol vp = {s = \\a => specVP vp ant pol a} ;
lin
that_RP = which_RP ;
UttAdV adv = adv;
oper
specVP : VP -> Ant -> Pol -> Agr -> Str = \vp,ant,pp,agr ->
let
iform = False ; ---- meaning: no clitics
pol : CR.RPolarity = CR.RPos;
inf = vp.s.s ! VInfin iform ; -- TO DO: fix anteriority
neg = vp.neg ! pol ; --- Neg not in API
obj = neg.p2 ++ vp.comp ! agr ++ vp.ext ! pol ; ---- pol
refl = case vp.s.vtyp of {
VRefl => reflPron agr.n agr.p Acc ; ---- case ?
_ => []
} ;
in
neg.p1 ++ clitInf iform (refl ++ vp.clit1 ++ vp.clit2 ++ vp.clit3) inf ++ obj ;
}

189
src/french/ParseFre.gf
View File

@@ -1,189 +0,0 @@
--# -path=.:../english/:../abstract:../romance:alltenses:../translator
concrete ParseFre of ParseEngAbs =
TenseFre,
-- CatFre,
NounFre - [PPartNP],
AdjectiveFre,
NumeralFre,
SymbolFre [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
ConjunctionFre,
VerbFre - [SlashV2V, PassV2, UseCopula, ComplVV],
AdverbFre,
PhraseFre,
SentenceFre,
QuestionFre - [QuestCl, QuestIAdv], -- more variants here
RelativeFre,
IdiomFre [NP, VP, Tense, Cl, ProgrVP, ExistNP, SelfAdvVP, SelfAdVVP, SelfNP],
ConstructionFre,
DocumentationFre,
ExtraFre [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash, PassAgentVPSlash,
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,
ClSlash, RCl, EmptyRelSlash],
DictionaryFre **
open PhonoFre, MorphoFre, ResFre, CommonRomance, ParadigmsFre, SyntaxFre, Prelude, (G = GrammarFre) in {
flags
literal=Symb ;
coding = utf8 ;
-- overrides from Lang
lin
QuestCl cl =
{s = \\t,a,p => -- est-ce qu'il dort ?
let cls = cl.s ! DDir ! t ! a ! p
in table {
QDir => "est-ce" ++ elisQue ++ cls ! Indic ;
QIndir => subjIf ++ cls ! Indic
}
}
| {s = \\t,a,p => -- dort-il ?
let cls = cl.s ! DInv ! t ! a ! p
in table {
QDir => cls ! Indic ;
QIndir => subjIf ++ cls ! Indic
}
}
| G.QuestCl cl -- il dort ?
;
QuestIAdv iadv cl =
G.QuestIAdv iadv cl -- où dort-il
| {s = \\t,a,p,q => -- où est-ce qu'il dort
let
ord = DDir ;
cls = cl.s ! ord ! t ! a ! p ! Indic ;
why = iadv.s
in why ++ "est-ce" ++ elisQue ++ cls
} ;
lin
-- missing from ExtraFre; should not really be there either
GenNP np =
let denp = (np.s ! ResFre.genitive).ton in {
s = \\_,_,_,_ => [] ;
sp = \\_,_,_ => denp ;
s2 = denp ;
isNeg = False ;
} ;
EmptyRelSlash slash = mkRCl which_RP (lin ClSlash slash) ;
that_RP = which_RP ;
UncNeg = negativePol ;
-- lexical entries
---- another_Quant = mkQuantifier "autre" "autre" "autres" "autres" ;
---- some_Quant = mkQuantifier "quelqu'un" "quelqu'une" "quelques-uns" "quelques-unes" ;
---- anySg_Det = mkDeterminer "n'importe quel" "n'importe quelle" Sg False ; ---- also meaning "whichever" ?
-- each_Det = SyntaxFre.every_Det ;
but_Subj = {s = "mais" ; m = Indic} ; ---- strange to have this as Subj
{-
myself_NP = regNP "myself" singular ;
yourselfSg_NP = regNP "yourself" singular ;
himself_NP = regNP "himself" singular ;
herself_NP = regNP "herself" singular ;
itself_NP = regNP "itself" singular ;
ourself_NP = regNP "ourself" plural ;
yourselfPl_NP = regNP "yourself" plural ;
themself_NP = regNP "themself" plural ;
themselves_NP = regNP "themselves" plural ;
-}
CompoundCN num noun cn = {
s = \\n => cn.s ! n ++ elisDe ++ noun.s ! num.n ;
g = cn.g
} ;
{-
DashCN noun1 noun2 = {
s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ;
g = noun2.g
} ;
GerundN v = {
s = \\n,c => v.s ! VPresPart ;
g = Neutr
} ;
GerundAP v = {
s = \\agr => v.s ! VPresPart ;
isPre = True
} ;
-}
PastPartAP v = {
s = table {
AF g n => v.s ! VPart g n ;
_ => v.s ! VPart Masc Sg ---- the adverb form
} ;
isPre = True
} ;
{-
OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;
-}
PositAdVAdj a = {s = a.s ! Posit ! AA} ;
{-
UseQuantPN q pn = {s = \\c => q.s ! False ! Sg ++ pn.s ! npcase2case c ; a = agrgP3 Sg pn.g} ;
SlashV2V v ant p vp = insertObjc (\\a => v.c3 ++ ant.s ++ p.s ++
infVP v.typ vp ant.a p.p a)
(predVc v) ;
SlashVPIV2V v p vpi = insertObjc (\\a => p.s ++
v.c3 ++
vpi.s ! VVAux ! a)
(predVc v) ;
-}
ComplVV v a p vp =
insertComplement (\\a => prepCase v.c2.c ++ infVP vp a) (predV v) ; ---- a,p
---- TODO: find proper expressions for OSV and OVS in Fre
PredVPosv np vp = mkCl (lin NP np) (lin VP vp) ;
PredVPovs np vp = mkCl (lin NP np) (lin VP vp) ;
CompS s = {s = \\_ => "de" ++ "que" ++ s.s ! Indic} ; ---- de ?
{-
CompQS qs = {s = \\_ => qs.s ! QIndir} ;
CompVP ant p vp = {s = \\a => ant.s ++ p.s ++
infVP VVInf vp ant.a p.p a} ;
VPSlashVS vs vp =
insertObj (\\a => infVP VVInf vp Simul CPos a) (predV vs) **
{c2 = ""; gapInMiddle = False} ;
PastPartRS ant pol vps = {
s = \\agr => vps.ad ++ vps.ptp ++ vps.s2 ! agr ;
c = npNom
} ;
PresPartRS ant pol vp = {
s = \\agr => vp.ad ++ vp.prp ++ vp.s2 ! agr ;
c = npNom
} ;
ApposNP np1 np2 = {
s = \\c => np1.s ! c ++ "," ++ np2.s ! npNom ;
a = np1.a
} ;
AdAdV = cc2 ;
UttAdV adv = adv;
-}
}