From e89fdae2fa1626348d8025824a7469252fa85e42 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Jun 2009 15:39:08 +0000 Subject: next-lib renamed to lib, lib to old-lib --- next-lib/src/catalan/IdiomCat.gf | 52 ---------------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 next-lib/src/catalan/IdiomCat.gf (limited to 'next-lib/src/catalan/IdiomCat.gf') diff --git a/next-lib/src/catalan/IdiomCat.gf b/next-lib/src/catalan/IdiomCat.gf deleted file mode 100644 index d449a73eb..000000000 --- a/next-lib/src/catalan/IdiomCat.gf +++ /dev/null @@ -1,52 +0,0 @@ -concrete IdiomCat of Idiom = CatCat ** - open MorphoCat, ParadigmsCat, BeschCat, Prelude in { - - flags optimize=all_subs ; - - lin - ExistNP np = mkClause [] True (agrP3 Masc Sg) - (insertClit3 "hi" (insertComplement (\\_ => (np.s ! Acc).ton) (predV haver_V))) ; - GenericCl vp = mkClause "hom" True (agrP3 Masc Sg) vp ; - ImpersCl vp = mkClause [] True (agrP3 Masc Sg) vp ; - - - ProgrVP vpr = let vp = useVP vpr in - insertComplement - (\\agr => - let - clpr = ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ; - obj = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol - in - (vp.s ! VPGerund).inf ! (aagr agr.g agr.n) ++ clpr.p1 ++ obj - ) - (predV (verbV (estar_54 "estar"))) ; - -----AR, for completeness - - CleftNP np rs = mkClause [] True (agrP3 Masc Sg) - (insertComplement (\\_ => rs.s ! Indic ! np.a) - (insertComplement (\\_ => (np.s ! rs.c).ton) (predV copula))) ; - - - ExistIP ip = { - s = \\t,a,p,_ => - ip.s ! Nom ++ - (mkClause [] True - (agrP3 Masc Sg) - (insertClit3 "hi" (insertComplement (\\_ => ip.s ! Acc) (predV haver_V)))) - .s ! DDir ! t ! a ! p ! Indic - } ; - - ImpPl1 vpr = let vp = useVP vpr in {s = - (mkImperative False P1 vp).s ! Pos ! {n = Pl ; g = Masc} --- fem - } ; - - CleftAdv ad s = mkClause [] True (agrP3 Masc Sg) - (insertComplement (\\_ => conjThat ++ s.s ! Indic) - (insertComplement (\\_ => ad.s) (predV copula))) ; - - - - - -} -- cgit v1.2.3