rearranging resource-1.0

lib/resource-1.0/common/ParamX.gf

@@ -0,0 +1,27 @@
+resource ParamX = {
+
+  param
+    Number = Sg | Pl ;
+    Person = P1 | P2 | P3 ;
+    Degree = Posit | Compar | Superl ;
+
+    Anteriority = Simul | Anter ;
+    Tense       = Pres | Past | Fut | Cond ;
+    Polarity    = Pos | Neg ;
+
+    QForm = QDir | QIndir ;
+
+  oper
+    conjNumber : Number -> Number -> Number = \m,n -> 
+      case <m,n> of {
+        <Sg,Sg> => Sg ;
+        _ => Pl 
+        } ;
+
+-- For persons, we let the latter argument win ("either you or I am absent"
+-- but "either I or you are absent"). This is not quite clear.
+  
+    conjPerson : Person -> Person -> Person = \_,p -> 
+      p ;
+
+}

lib/resource-1.0/common/TenseX.gf

@@ -0,0 +1,22 @@
+concrete TenseX of Tense = open (R = ParamX) in {
+
+  lincat
+    Tense = {s : Str ; t : R.Tense} ;
+    Ant   = {s : Str ; a : R.Anteriority} ;
+    Pol   = {s : Str ; p : R.Polarity} ;
+
+  lin
+    PPos  = {s = []} ** {p = R.Pos} ;
+    PNeg  = {s = []} ** {p = R.Neg} ;
+    TPres = {s = []} ** {t = R.Pres} ;
+    TPast = {s = []} ** {t = R.Past} ;
+    TFut  = {s = []} ** {t = R.Fut} ;
+    TCond = {s = []} ** {t = R.Cond} ;
+    ASimul = {s = []} ** {a = R.Simul} ;
+    AAnter = {s = []} ** {a = R.Anter} ;
+
+
+
+
+
+}