summaryrefslogtreecommitdiff
path: root/next-lib/src/scandinavian/ConjunctionScand.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/scandinavian/ConjunctionScand.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/scandinavian/ConjunctionScand.gf')
-rw-r--r--next-lib/src/scandinavian/ConjunctionScand.gf44
1 files changed, 0 insertions, 44 deletions
diff --git a/next-lib/src/scandinavian/ConjunctionScand.gf b/next-lib/src/scandinavian/ConjunctionScand.gf
deleted file mode 100644
index 6a85a74cb..000000000
--- a/next-lib/src/scandinavian/ConjunctionScand.gf
+++ /dev/null
@@ -1,44 +0,0 @@
-incomplete concrete ConjunctionScand of Conjunction =
- CatScand ** open CommonScand, ResScand, 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 NPForm conj ss ** {
- a = {gn = conjGenNum (gennum utrum conj.n) ss.a.gn ; p = ss.a.p}
- } ;
-
- ConjAP conj ss = conjunctDistrTable AFormPos conj ss ** {
- isPre = ss.isPre
- } ;
-
- ConjRS conj ss = conjunctDistrTable Agr conj ss ** {
- c = ss.c
- } ;
-
--- 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 NPForm x y ** {a = conjAgr x.a y.a} ;
- ConsNP xs x = consrTable NPForm comma xs x ** {a = conjAgr xs.a x.a} ;
- BaseAP x y = twoTable AFormPos x y ** {isPre = andB x.isPre y.isPre} ;
- ConsAP xs x = consrTable AFormPos comma xs x ** {isPre = andB xs.isPre x.isPre} ;
- BaseRS x y = twoTable Agr x y ** {c = y.c} ;
- ConsRS xs x = consrTable Agr comma xs x ** {c = xs.c} ;
-
- lincat
- [S] = {s1,s2 : Order => Str} ;
- [Adv] = {s1,s2 : Str} ;
- [NP] = {s1,s2 : NPForm => Str ; a : Agr} ;
- [AP] = {s1,s2 : AFormPos => Str ; isPre : Bool} ;
- [RS] = {s1,s2 : Agr => Str ; c : NPForm} ;
-
-}