summaryrefslogtreecommitdiff
path: root/next-lib/src/finnish/ConjunctionFin.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-09-22 11:49:15 +0000
committeraarne <aarne@cs.chalmers.se>2008-09-22 11:49:15 +0000
commit98665df78b8018af30051cb4a9a31f845e0ba19d (patch)
tree67ba30b09e2b9590a00a4b193bf7611caa935af8 /next-lib/src/finnish/ConjunctionFin.gf
parent4862018f140a1bdcc7961d445ed9aa92facd742f (diff)
moved lib/next-resource to next-lib/src, to enable linking with next-lib as value of GF_LIB_PATH
Diffstat (limited to 'next-lib/src/finnish/ConjunctionFin.gf')
-rw-r--r--next-lib/src/finnish/ConjunctionFin.gf36
1 files changed, 36 insertions, 0 deletions
diff --git a/next-lib/src/finnish/ConjunctionFin.gf b/next-lib/src/finnish/ConjunctionFin.gf
new file mode 100644
index 000000000..94cea7f8c
--- /dev/null
+++ b/next-lib/src/finnish/ConjunctionFin.gf
@@ -0,0 +1,36 @@
+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 AForm conj ss ;
+
+-- 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 AForm x y ;
+ ConsAP xs x = consrTable2 Bool AForm comma xs x ;
+
+ lincat
+ [S] = {s1,s2 : Str} ;
+ [Adv] = {s1,s2 : Str} ;
+ [NP] = {s1,s2 : NPForm => Str ; a : Agr} ;
+ [AP] = {s1,s2 : Bool => AForm => Str} ;
+
+}