summaryrefslogtreecommitdiff
path: root/next-lib/src/bulgarian/ConjunctionBul.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/bulgarian/ConjunctionBul.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/bulgarian/ConjunctionBul.gf')
-rw-r--r--next-lib/src/bulgarian/ConjunctionBul.gf56
1 files changed, 0 insertions, 56 deletions
diff --git a/next-lib/src/bulgarian/ConjunctionBul.gf b/next-lib/src/bulgarian/ConjunctionBul.gf
deleted file mode 100644
index 23664cd1f..000000000
--- a/next-lib/src/bulgarian/ConjunctionBul.gf
+++ /dev/null
@@ -1,56 +0,0 @@
-concrete ConjunctionBul of Conjunction =
- CatBul ** open ResBul, Coordination, Prelude in {
- flags coding=cp1251 ;
-
-
- flags optimize=all_subs ;
-
- lin
- ConjS conj ss = {
- s = (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj;
- } ;
-
- ConjAdv conj ss = {
- s = (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj;
- } ;
-
- ConjNP conj ss = {
- s = \\role => (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj!role;
- a = {gn = conjGenNum (gennum DMasc conj.n) ss.a.gn; p = ss.a.p}
- } ;
-
- ConjAP conj ss = {
- s = \\aform => (linCoordSep [])!conj.distr!conj.conj++ss.s!conj.distr!conj.conj!aform;
- adv = (linCoordSep [])!conj.distr!conj.conj++ss.adv!conj.distr!conj.conj;
- isPre = ss.isPre
- } ;
-
--- These fun's are generated from the list cat's.
- BaseS x y = {s = \\d,t=>x.s++linCoord!t++ y.s} ;
- ConsS x xs = {s = \\d,t=>x.s++(linCoordSep comma)!d!t++xs.s!d!t} ;
-
- BaseAdv x y = {s = \\d,t=>x.s++linCoord!t++ y.s} ;
- ConsAdv x xs = {s = \\d,t=>x.s++(linCoordSep comma)!d!t++xs.s!d!t} ;
-
- BaseNP x y =
- {s = \\d,t,role=>x.s!role++linCoord!t++y.s!role;
- a = conjAgr x.a y.a} ;
- ConsNP x xs =
- {s = \\d,t,role=>x.s!role++(linCoordSep comma)!d!t++xs.s!d!t!role;
- a = conjAgr xs.a x.a} ;
-
- BaseAP x y =
- {s = \\d,t,aform=>x.s!aform++linCoord!t++y.s!aform;
- adv= \\d,t =>x.adv ++linCoord!t++y.adv;
- isPre = andB x.isPre y.isPre} ;
- ConsAP x xs =
- {s = \\d,t,aform=>x.s!aform++(linCoordSep comma)!d!t++xs.s!d!t!aform;
- adv= \\d,t =>x.adv ++(linCoordSep comma)!d!t++xs.adv!d!t;
- isPre = andB x.isPre xs.isPre} ;
-
- lincat
- [S] = {s : Bool => Bool => Str} ;
- [Adv] = {s : Bool => Bool => Str} ;
- [NP] = {s : Bool => Bool => Role => Str; a : Agr} ;
- [AP] = {s : Bool => Bool => AForm => Str; adv : Bool => Bool => Str; isPre : Bool} ;
-}