summaryrefslogtreecommitdiff
path: root/old-lib/resource/german/ConjunctionGer.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-lib/resource/german/ConjunctionGer.gf')
-rw-r--r--old-lib/resource/german/ConjunctionGer.gf59
1 files changed, 0 insertions, 59 deletions
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} ;
-
-}