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/interlingua/ConjunctionIna.gf | 38 ++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 deprecated/old-lib/resource/interlingua/ConjunctionIna.gf (limited to 'deprecated/old-lib/resource/interlingua/ConjunctionIna.gf') diff --git a/deprecated/old-lib/resource/interlingua/ConjunctionIna.gf b/deprecated/old-lib/resource/interlingua/ConjunctionIna.gf new file mode 100644 index 000000000..280ed40f1 --- /dev/null +++ b/deprecated/old-lib/resource/interlingua/ConjunctionIna.gf @@ -0,0 +1,38 @@ +concrete ConjunctionIna of Conjunction = + CatIna ** open ResIna, Coordination, Prelude in { + + flags optimize=all_subs ; + + lin + + ConjS = conjunctDistrSS ; + + ConjAdv = conjunctDistrSS ; + + ConjNP conj ss = conjunctDistrTable Case conj ss ** { + isPronoun = False; + a = {n = conjNumber conj.n ss.a.n ; p = ss.a.p} + } ; + + ConjAP conj ss = conjunctDistrTable Agr conj ss ** { + isPre = ss.isPre + } ; + +-- These fun's are generated from the list cat's. + + BaseS = twoSS ; + ConsS = consrSS 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 Agr x y ** {isPre = andB x.isPre y.isPre} ; + ConsAP xs x = consrTable Agr comma xs x ** {isPre = andB xs.isPre x.isPre} ; + + lincat + [S] = {s1,s2 : Str} ; + [Adv] = {s1,s2 : Str} ; + [NP] = {s1,s2 : Case => Str ; a : Agr} ; + [AP] = {s1,s2 : Agr => Str ; isPre : Bool} ; + +} -- cgit v1.2.3