rules for constructing structural words (separate from Paradigms - is this desirable?)

2 files changed, 13 insertions, 2 deletions

diff --git a/next-lib/src/english/MakeStructuralEng.gf b/next-lib/src/english/MakeStructuralEng.gf
new file mode 100644
index 000000000..31f3c0960
--- /dev/null
+++ b/next-lib/src/english/MakeStructuralEng.gf
@@ -0,0 +1,11 @@
+--# -path=.:../common:../abstract
+
+resource MakeStructuralEng = open CatEng, ParadigmsEng, MorphoEng, 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/english/StructuralEng.gf b/next-lib/src/english/StructuralEng.gf
index 995844771..bbad3efdd 100644
--- a/next-lib/src/english/StructuralEng.gf
+++ b/next-lib/src/english/StructuralEng.gf
@@ -123,8 +123,6 @@ concrete StructuralEng of Structural = CatEng **
   youPol_Pron = mkPron "you" "you" "your" "yours" singular P2 human ;
 
   not_Predet = {s = "not" ; lock_Predet = <>} ;
-  nothing_but_Predet = {s = "nothing but" ; lock_Predet = <>} ;
-  nobody_but_Predet = {s = "nobody but" ; lock_Predet = <>} ;
   no_Quant = mkQuant "no" "no" ;
   if_then_Conj = {s1 = "if" ; s2 = "then" ; n = singular ; lock_Conj = <>} ;
   nobody_NP = regNP "nobody" singular ;
@@ -132,5 +130,7 @@ concrete StructuralEng of Structural = CatEng **
 
   at_least_AdN = mkAdN "at least" ;
   at_most_AdN = mkAdN "at most" ;
+
+  except_Prep = mkPrep "except" ;
 }