diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/bulgarian/ConjunctionBul.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (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.gf | 56 |
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} ; -} |
