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/ConjunctionGer.gf | 59 ------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 old-lib/resource/german/ConjunctionGer.gf (limited to 'old-lib/resource/german/ConjunctionGer.gf') diff --git a/old-lib/resource/german/ConjunctionGer.gf b/old-lib/resource/german/ConjunctionGer.gf deleted file mode 100644 index d46a32839..000000000 --- a/old-lib/resource/german/ConjunctionGer.gf +++ /dev/null @@ -1,59 +0,0 @@ -concrete ConjunctionGer of Conjunction = - CatGer ** open ResGer, Coordination, Prelude in { - - flags optimize=all_subs ; - - lin - - ConjS conj ss = conjunctDistrTable Order conj ss ; - - ConjAdv conj ss = conjunctDistrSS conj ss ; - - ConjNP conj ss = conjunctDistrTable Case conj ss ** { - a = {g = Fem ; n = conjNumber conj.n ss.a.n ; p = ss.a.p} - } ; - - ConjAP conj ss = conjunctDistrTable AForm conj ss ** { - isPre = ss.isPre - } ; - -{- ---b - ConjS conj ss = conjunctTable Order conj ss ; - DConjS conj ss = conjunctDistrTable Order conj ss ; - - ConjAdv conj ss = conjunctSS conj ss ; - DConjAdv conj ss = conjunctDistrSS conj ss ; - - ConjNP conj ss = conjunctTable Case conj ss ** { - a = {g = Fem ; n = conjNumber conj.n ss.a.n ; p = ss.a.p} - } ; - DConjNP conj ss = conjunctDistrTable Case conj ss ** { - a = {g = Fem ; n = conjNumber conj.n ss.a.n ; p = ss.a.p} - } ; - - ConjAP conj ss = conjunctTable AForm conj ss ** { - isPre = ss.isPre - } ; - DConjAP conj ss = conjunctDistrTable AForm conj ss ** { - isPre = ss.isPre - } ; --} - --- These fun's are generated from the list cat's. - - BaseS = twoTable Order ; - ConsS = consrTable Order comma ; - BaseAdv = twoSS ; - ConsAdv = consrSS comma ; - BaseNP x y = twoTable Case x y ** {a = conjAgr x.a y.a} ; - ConsNP xs x = consrTable Case comma xs x ** {a = conjAgr xs.a x.a} ; - BaseAP x y = twoTable AForm x y ** {isPre = andB x.isPre y.isPre} ; - ConsAP xs x = consrTable AForm comma xs x ** {isPre = andB xs.isPre x.isPre} ; - - lincat - [S] = {s1,s2 : Order => Str} ; - [Adv] = {s1,s2 : Str} ; - [NP] = {s1,s2 : Case => Str ; a : Agr} ; - [AP] = {s1,s2 : AForm => Str ; isPre : Bool} ; - -} -- cgit v1.2.3