From aaab25754afcfa4694928de8765e00277e8cac7a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 3 Jun 2006 21:57:48 +0000
Subject: [PATCH] Finnish extras

---
 lib/resource-1.0/finnish/ExtraFin.gf    | 12 ++++++++++++
 lib/resource-1.0/finnish/ExtraFinAbs.gf |  3 +++
 lib/resource-1.0/finnish/Finnish.gf     |  6 ++++++
 lib/resource-1.0/finnish/FinnishAbs.gf  |  4 ++++
 4 files changed, 25 insertions(+)
 create mode 100644 lib/resource-1.0/finnish/ExtraFin.gf
 create mode 100644 lib/resource-1.0/finnish/ExtraFinAbs.gf
 create mode 100644 lib/resource-1.0/finnish/Finnish.gf
 create mode 100644 lib/resource-1.0/finnish/FinnishAbs.gf

diff --git a/lib/resource-1.0/finnish/ExtraFin.gf b/lib/resource-1.0/finnish/ExtraFin.gf
new file mode 100644
index 000000000..37580d32e
--- /dev/null
+++ b/lib/resource-1.0/finnish/ExtraFin.gf
@@ -0,0 +1,12 @@
+concrete ExtraFin of ExtraFinAbs = CatFin ** open ResFin, Prelude in {
+
+  lin
+    GenNP np = {
+      s1 = \\_,_ => np.s ! NPCase Gen ;
+      s2 = [] ;
+      isNum  = False ;
+      isPoss = False ;
+      isDef  = True  --- "Jussin kolme autoa ovat" ; thus "...on" is missing
+      } ;
+
+} 
diff --git a/lib/resource-1.0/finnish/ExtraFinAbs.gf b/lib/resource-1.0/finnish/ExtraFinAbs.gf
new file mode 100644
index 000000000..0a9b562b4
--- /dev/null
+++ b/lib/resource-1.0/finnish/ExtraFinAbs.gf
@@ -0,0 +1,3 @@
+abstract ExtraFinAbs = Extra [GenNP] ** {
+
+}
diff --git a/lib/resource-1.0/finnish/Finnish.gf b/lib/resource-1.0/finnish/Finnish.gf
new file mode 100644
index 000000000..dc8d232a9
--- /dev/null
+++ b/lib/resource-1.0/finnish/Finnish.gf
@@ -0,0 +1,6 @@
+--# -path=.:../abstract:../common:prelude
+
+concrete Finnish of FinnishAbs = 
+  LangFin,
+  ExtraFin
+  ** {} ;
diff --git a/lib/resource-1.0/finnish/FinnishAbs.gf b/lib/resource-1.0/finnish/FinnishAbs.gf
new file mode 100644
index 000000000..017946917
--- /dev/null
+++ b/lib/resource-1.0/finnish/FinnishAbs.gf
@@ -0,0 +1,4 @@
+abstract FinnishAbs = 
+  Lang,
+  ExtraFinAbs
+  ** {} ;