From db5600bcd21fa034cf6c9ecc845fb8419b7acee7 Mon Sep 17 00:00:00 2001 From: Herbert Lange Date: Fri, 28 Jun 2019 16:22:02 +0200 Subject: [PATCH] remove unused extra function --- src/latin/ExtraLat.gf | 55 +++++++++++++++++++++---------------------- 1 file changed, 27 insertions(+), 28 deletions(-) diff --git a/src/latin/ExtraLat.gf b/src/latin/ExtraLat.gf index 8376e0fb..fda8d88d 100644 --- a/src/latin/ExtraLat.gf +++ b/src/latin/ExtraLat.gf @@ -7,38 +7,37 @@ concrete ExtraLat of ExtraLatAbs = -- PastPartAP : VPSlash -> AP ; -- lost (opportunity) ; (opportunity) lost in space -- PastPartAP vp = { s = vp.part ! VPassPerf } ; - UsePronNonDrop p = -- Pron -> NP - { - g = p.pers.g ; - n = p.pers.n ; - p = p.p ; - s = p.pers.s ! PronNonDrop ! PronNonRefl ; - adv = "" ; - preap, postap = { s = \\_ => "" } ; - det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = p.pers.n } ; - } ; + -- UsePronNonDrop p = -- Pron -> NP + -- p.pers ** + -- { + -- p = p.p ; + -- s = \\_ => p.pers.s ! PronNonDrop ! PronNonRefl ; + -- adv = "" ; + -- preap, postap = { s = \\_ => "" } ; + -- det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = p.pers.n } ; + -- } ; AdjCNPre ap cn = -- AP -> CN -> CN addAdjToCN (lin AP ap) (lin CN cn) Post ; - -- ConjNP : Conj -> ListNP -> NP ; -- she or we - ConjNPque conj nps = - { - s = case conj.c 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 ; - 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 - } ; - n = case conj.c of { Et => Pl ; _ => nps.n } ; - g = nps.g ; - p = nps.p ; - adv = nps.adv ; - preap = nps.preap ; - postap = nps.postap ; - det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = nps.n }; - } ; + -- -- ConjNP : Conj -> ListNP -> NP ; -- she or we + -- ConjNPque conj nps = + -- { + -- s = case conj.c 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 ; + -- 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 + -- } ; + -- n = case conj.c of { Et => Pl ; _ => nps.n } ; + -- g = nps.g ; + -- p = nps.p ; + -- adv = nps.adv ; + -- preap = nps.preap ; + -- postap = nps.postap ; + -- det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = nps.n }; + -- } ; 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