From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- old-lib/resource/german/ExtraGer.gf | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 old-lib/resource/german/ExtraGer.gf (limited to 'old-lib/resource/german/ExtraGer.gf') diff --git a/old-lib/resource/german/ExtraGer.gf b/old-lib/resource/german/ExtraGer.gf deleted file mode 100644 index 518fe1713..000000000 --- a/old-lib/resource/german/ExtraGer.gf +++ /dev/null @@ -1,34 +0,0 @@ -concrete ExtraGer of ExtraGerAbs = CatGer ** - open ResGer, Coordination, Prelude, IrregGer in { - - lincat - VPI = {s : Bool => Str} ; - [VPI] = {s1,s2 : Bool => Str} ; - lin - BaseVPI = twoTable Bool ; - ConsVPI = consrTable Bool comma ; - - MkVPI vp = {s = \\b => useInfVP b vp} ; - ConjVPI = conjunctDistrTable Bool ; - - ComplVPIVV v vpi = - insertInf (vpi.s ! v.isAux) ( - predVGen v.isAux v) ; ---- -{- - insertExtrapos vpi.p3 ( - insertInf vpi.p2 ( - insertObj vpi.p1 ( - predVGen v.isAux v))) ; --} - - PPzuAdv cn = {s = case cn.g of { - Masc | Neutr => "zum" ; - Fem => "zur" - } ++ cn.s ! adjfCase Weak Dat ! Sg ! Dat - } ; - - TImpfSubj = {s = [] ; t = Past ; m = MConjunct} ; --# notpresent - - moegen_VV = auxVV mögen_V ; - -} -- cgit v1.2.3