From 18c6ec5788d2ff9d4c7c5c0e0b82a652114ad206 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 11 Mar 2009 16:08:55 +0000
Subject: Finnish attempto started

---
 next-lib/src/finnish/MakeStructuralFin.gf | 13 +++++++++++++
 next-lib/src/finnish/StructuralFin.gf     |  3 ++-
 next-lib/src/italian/MakeStructuralIta.gf | 16 ++++++++++++++++
 3 files changed, 31 insertions(+), 1 deletion(-)
 create mode 100644 next-lib/src/finnish/MakeStructuralFin.gf
 create mode 100644 next-lib/src/italian/MakeStructuralIta.gf

(limited to 'next-lib/src')

diff --git a/next-lib/src/finnish/MakeStructuralFin.gf b/next-lib/src/finnish/MakeStructuralFin.gf
new file mode 100644
index 000000000..2c32709cb
--- /dev/null
+++ b/next-lib/src/finnish/MakeStructuralFin.gf
@@ -0,0 +1,13 @@
+--# -path=.:../common:../abstract
+
+resource MakeStructuralFin = open CatFin, ParadigmsFin, MorphoFin, Prelude in {
+
+oper 
+  mkConj : Str -> Str -> Number -> Conj = \x,y,n -> 
+    {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
+  mkSubj : Str -> Subj = \x -> 
+    {s = x ; lock_Subj = <>} ;
+  mkIQuant : Str -> IQuant = \s ->
+    {s = \\n,c => s ; lock_IQuant = <>} ; ----
+
+}
diff --git a/next-lib/src/finnish/StructuralFin.gf b/next-lib/src/finnish/StructuralFin.gf
index 0a610f93e..5b54da246 100644
--- a/next-lib/src/finnish/StructuralFin.gf
+++ b/next-lib/src/finnish/StructuralFin.gf
@@ -1,5 +1,5 @@
 concrete StructuralFin of Structural = CatFin ** 
-  open MorphoFin, ParadigmsFin, (X = ConstructX), Prelude in {
+  open MorphoFin, ParadigmsFin, (X = ConstructX), MakeStructuralFin, Prelude in {
 
   flags optimize=all ;
 
@@ -304,5 +304,6 @@ lin
 
   as_CAdv = X.mkCAdv "yhtä" "kuin" ;
 
+  except_Prep = postPrep partitive "lukuunottamatta" ;
 }
 
diff --git a/next-lib/src/italian/MakeStructuralIta.gf b/next-lib/src/italian/MakeStructuralIta.gf
new file mode 100644
index 000000000..4f75b3e7d
--- /dev/null
+++ b/next-lib/src/italian/MakeStructuralIta.gf
@@ -0,0 +1,16 @@
+--# -path=.:../romance:../common:../abstract
+
+resource MakeStructuralIta = open CatIta, ParadigmsIta, MorphoIta, Prelude in {
+
+oper 
+  mkConj : Str -> Str -> Number -> Conj = \x,y,n -> 
+    {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
+  mkSubj : Str -> Subj = \x -> 
+    {s = x ; m = Indic ; lock_Subj = <>} ;
+  mkSubjSubj : Str -> Subj = \x -> 
+    {s = x ; m = Conjunct ; lock_Subj = <>} ;
+
+  mkIQuant : Str -> IQuant = \s ->
+    {s = \\_,_,c => prepCase c ++ s ; lock_IQuant = <>} ;
+
+}
-- 
cgit v1.2.3