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/finnish/ConjunctionFin.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/finnish/ConjunctionFin.gf')
| -rw-r--r-- | next-lib/src/finnish/ConjunctionFin.gf | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/next-lib/src/finnish/ConjunctionFin.gf b/next-lib/src/finnish/ConjunctionFin.gf deleted file mode 100644 index a11d9c596..000000000 --- a/next-lib/src/finnish/ConjunctionFin.gf +++ /dev/null @@ -1,43 +0,0 @@ -concrete ConjunctionFin of Conjunction = - CatFin ** open ResFin, Coordination, Prelude in { - - flags optimize=all_subs ; - - lin - - ConjS = conjunctDistrSS ; - - ConjAdv = conjunctDistrSS ; - - ConjNP conj ss = conjunctDistrTable NPForm conj ss ** { - a = {n = conjNumber conj.n ss.a.n ; p = ss.a.p} ; - isPron = False - } ; - - ConjAP conj ss = conjunctDistrTable2 Bool NForm conj ss ; - - ConjRS conj ss = conjunctDistrTable Agr conj ss ** { - c = ss.c - } ; - --- These fun's are generated from the list cat's. - - BaseS = twoSS ; - ConsS = consrSS 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 = twoTable2 Bool NForm x y ; - ConsAP xs x = consrTable2 Bool NForm comma xs x ; - 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 : Str} ; - [Adv] = {s1,s2 : Str} ; - [NP] = {s1,s2 : NPForm => Str ; a : Agr} ; - [AP] = {s1,s2 : Bool => NForm => Str} ; - [RS] = {s1,s2 : Agr => Str ; c : NPForm} ; - -} |
