From d5fa908250517476d69fae92ec7648a207007c0a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 14 Nov 2008 17:32:34 +0000
Subject: rules for constructing structural words (separate from Paradigms - is
 this desirable?)

---
 next-lib/src/swedish/MakeStructuralSwe.gf | 11 +++++++++++
 next-lib/src/swedish/StructuralSwe.gf     |  4 ++--
 2 files changed, 13 insertions(+), 2 deletions(-)
 create mode 100644 next-lib/src/swedish/MakeStructuralSwe.gf

(limited to 'next-lib/src/swedish')

diff --git a/next-lib/src/swedish/MakeStructuralSwe.gf b/next-lib/src/swedish/MakeStructuralSwe.gf
new file mode 100644
index 000000000..48d0a1225
--- /dev/null
+++ b/next-lib/src/swedish/MakeStructuralSwe.gf
@@ -0,0 +1,11 @@
+--# -path=.:../scandinavian:../common:../abstract
+
+resource MakeStructuralSwe = open CatSwe, ParadigmsSwe, MorphoSwe, 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 = <>} ;
+
+}
diff --git a/next-lib/src/swedish/StructuralSwe.gf b/next-lib/src/swedish/StructuralSwe.gf
index b257b850a..a6a3a00b2 100644
--- a/next-lib/src/swedish/StructuralSwe.gf
+++ b/next-lib/src/swedish/StructuralSwe.gf
@@ -125,8 +125,6 @@ concrete StructuralSwe of Structural = CatSwe **
 
 lin
   not_Predet = {s = \\_ => "inte"} ;
-  nothing_but_Predet = {s = \\_ => "inget förutom"} ;
-  nobody_but_Predet = {s = \\_ => "ingen förutom"} ;
   no_Quant = 
     {s = table {
        Sg => \\_,_ => genderForms "ingen" "inget" ; 
@@ -141,5 +139,7 @@ lin
 
   at_least_AdN = ss "minst" ;
   at_most_AdN = ss "högst" ;
+
+  except_Prep = ss "utom" ;
 }
 
-- 
cgit v1.2.3