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

remove the experimental AnaphPron

Browse Source
This commit is contained in:
Krasimir Angelov
2026-01-08 09:03:26 +01:00
parent 73fa89103b
commit dceb5252a2
4 changed files with 1 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/abstract/Extend.gf
View File

@@ -299,9 +299,6 @@ fun
fun fun
CardCNCard : Card -> CN -> Card ; -- three million, four lakh, six dozen etc CardCNCard : Card -> CN -> Card ; -- three million, four lakh, six dozen etc
fun
AnaphPron : NP -> Pron ;
fun fun
TPastSimple : Tense ; TPastSimple : Tense ;

12
src/bulgarian/ExtendBul.gf
View File

@@ -316,18 +316,6 @@ lin UseComp_estar = UseComp ;
lin ProDrop pro = pro ; lin ProDrop pro = pro ;
lin AnaphPron np =
case <np.gn, np.p> of {
<GSg _, PronP1> => i_Pron ;
<GSg _, PronP2> => youSg_Pron ;
<GSg Masc, _> => he_Pron ;
<GSg Fem, _> => she_Pron ;
<GSg Neutr, _> => it_Pron ;
<GPl, PronP1> => we_Pron ;
<GPl, PronP2> => youPl_Pron ;
<GPl, _> => they_Pron
} ;
lin TPastSimple = {s = []} ** {t = VPastSimple} ; --# notpresent lin TPastSimple = {s = []} ** {t = VPastSimple} ; --# notpresent
} }

14
src/english/ExtendEng.gf
View File

@@ -500,18 +500,4 @@ lin CardCNCard card cn =
lin theyFem_Pron = mkPron "they" "them" "their" "theirs" plural P3 feminine ; lin theyFem_Pron = mkPron "they" "them" "their" "theirs" plural P3 feminine ;
lin theyNeutr_Pron = mkPron "they" "them" "their" "theirs" plural P3 nonhuman ; lin theyNeutr_Pron = mkPron "they" "them" "their" "theirs" plural P3 nonhuman ;
lin AnaphPron np =
case np.a of {
AgP1 Sg => i_Pron ;
AgP1 Pl => we_Pron ;
AgP2 Sg => youSg_Pron ;
AgP2 Pl => youPl_Pron ;
AgP3Sg Masc => he_Pron ;
AgP3Sg Fem => she_Pron ;
AgP3Sg Neutr => it_Pron ;
AgP3Pl Masc => they_Pron ;
AgP3Pl Fem => theyFem_Pron ;
AgP3Pl Neutr => theyNeutr_Pron
} ;
} }

4
src/spanish/ExtendSpa.gf
View File

@@ -125,9 +125,7 @@ oper
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ; comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
} ; } ;
lin AnaphPron np = agr2pron ! np.a ; lin ExistsNP np =
ExistsNP np =
mkClause [] True False np.a mkClause [] True False np.a
(insertComplement (\\_ => (np.s ! Nom).ton) (insertComplement (\\_ => (np.s ! Nom).ton)
(predV (mkV "existir"))) ; (predV (mkV "existir"))) ;