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

remove unused extra function

Browse Source
This commit is contained in:
Herbert Lange
2019-06-28 16:22:02 +02:00
parent e2ba2023e1
commit db5600bcd2
1 changed files with 27 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
src/latin/ExtraLat.gf
View File

@@ -7,38 +7,37 @@ concrete ExtraLat of ExtraLatAbs =
-- PastPartAP : VPSlash -> AP ; -- lost (opportunity) ; (opportunity) lost in space -- PastPartAP : VPSlash -> AP ; -- lost (opportunity) ; (opportunity) lost in space
-- PastPartAP vp = { s = vp.part ! VPassPerf } ; -- PastPartAP vp = { s = vp.part ! VPassPerf } ;
UsePronNonDrop p = -- Pron -> NP -- UsePronNonDrop p = -- Pron -> NP
{ -- p.pers **
g = p.pers.g ; -- {
n = p.pers.n ; -- p = p.p ;
p = p.p ; -- s = \\_ => p.pers.s ! PronNonDrop ! PronNonRefl ;
s = p.pers.s ! PronNonDrop ! PronNonRefl ; -- adv = "" ;
adv = "" ; -- preap, postap = { s = \\_ => "" } ;
preap, postap = { s = \\_ => "" } ; -- det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = p.pers.n } ;
det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = p.pers.n } ; -- } ;
} ;
AdjCNPre ap cn = -- AP -> CN -> CN AdjCNPre ap cn = -- AP -> CN -> CN
addAdjToCN (lin AP ap) (lin CN cn) Post ; addAdjToCN (lin AP ap) (lin CN cn) Post ;
-- ConjNP : Conj -> ListNP -> NP ; -- she or we -- -- ConjNP : Conj -> ListNP -> NP ; -- she or we
ConjNPque conj nps = -- ConjNPque conj nps =
{ -- {
s = case conj.c of { -- s = case conj.c of {
Et => case nps.isBase of { -- Et => case nps.isBase of {
False => \\cse => coord conj.c {init = (nps.s ! Et).init ! cse ; last = (nps.s ! Et).last ! cse } ;-- (conjunctDistrTable Case conj (nps.s ! Et)).s ; -- False => \\cse => coord conj.c {init = (nps.s ! Et).init ! cse ; last = (nps.s ! Et).last ! cse } ;-- (conjunctDistrTable Case conj (nps.s ! Et)).s ;
True => \\cse => (nps.s ! Et).init ! cse ++ (nps.s ! Et).last ! cse ++ BIND ++ "que" -- True => \\cse => (nps.s ! Et).init ! cse ++ (nps.s ! Et).last ! cse ++ BIND ++ "que"
} ; -- } ;
c => \\cse => coord conj.c {init = (nps.s ! c).init ! cse ; last = (nps.s ! c).last ! cse } -- (conjunctDistrTable Case conj (nps.l ! Et)).s -- c => \\cse => coord conj.c {init = (nps.s ! c).init ! cse ; last = (nps.s ! c).last ! cse } -- (conjunctDistrTable Case conj (nps.l ! Et)).s
} ; -- } ;
n = case conj.c of { Et => Pl ; _ => nps.n } ; -- n = case conj.c of { Et => Pl ; _ => nps.n } ;
g = nps.g ; -- g = nps.g ;
p = nps.p ; -- p = nps.p ;
adv = nps.adv ; -- adv = nps.adv ;
preap = nps.preap ; -- preap = nps.preap ;
postap = nps.postap ; -- postap = nps.postap ;
det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = nps.n }; -- det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = nps.n };
} ; -- } ;
everybodyFem_NP = regNP "quisque" "quemque" "cuiusque" "cuique" "quoque" "quisque" Fem Sg ;-- regNP "quisquae" Sg ; -- L... everybodyFem_NP = regNP "quisque" "quemque" "cuiusque" "cuique" "quoque" "quisque" Fem Sg ;-- regNP "quisquae" Sg ; -- L...
somebodyFem_NP = regNP "aliquis" "aliquem" "alicuius" "clicui" "aliquo" "aliquis" Fem Sg ; -- Bayer-Lindauer 60.1 somebodyFem_NP = regNP "aliquis" "aliquem" "alicuius" "clicui" "aliquo" "aliquis" Fem Sg ; -- Bayer-Lindauer 60.1