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

next-lib/src/german/MakeStructuralGer.gf

@@ -0,0 +1,11 @@
+--# -path=.:../common:../abstract
+
+resource MakeStructuralGer = open CatGer, ParadigmsGer, MorphoGer, 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 = <>} ;
+
+}