fixed warnings in present compilation of resource, esp. unreached patterns

2 files changed, 50 insertions, 8 deletions

diff --git a/next-lib/src/interlingua/ResIna.gf b/next-lib/src/interlingua/ResIna.gf
index 9eb64bce4..e464db6b4 100644
--- a/next-lib/src/interlingua/ResIna.gf
+++ b/next-lib/src/interlingua/ResIna.gf
@@ -115,9 +115,9 @@ resource ResIna = ParamX ** open Prelude in {
 	  s = table {
     	    VInf    => crear;
 	    VPres   => crea;
-	    VPast   => crea + "va"; 
-	    VFut    => crear + "a"; 
-	    VCond   => crear + "ea";
+	    VPast   => crea + "va"; --# notpresent 
+	    VFut    => crear + "a"; --# notpresent
+	    VCond   => crear + "ea"; --# notpresent
  	    VPPart  => case crear of {
  	      rid + "er" => rid + "ite";
  	      _         => crea + "te" 
@@ -134,9 +134,9 @@ resource ResIna = ParamX ** open Prelude in {
           s = case use_irreg of {
                 True  => table {
 	                   VPres => "es";
-	                   VFut  => "sera";
-	                   VCond => "serea";
-	                   VPast => "era";
+	                   VFut  => "sera"; --# notpresent
+	                   VCond => "serea"; --# notpresent
+	                   VPast => "era"; --# notpresent
 	                   form  => reg.s!form
 	                 };
 	        False => reg.s
@@ -233,8 +233,9 @@ resource ResIna = ParamX ** open Prelude in {
       clitics = \\_ => [];
       rest = \\_ => [];
       s = table
-	{Simul => \\t,use_irreg => {fin = (verb!use_irreg).s   ! (tenseToVFrom!t); inf = []};
-	 Anter => \\t,use_irreg => {fin = (haberV!use_irreg).s ! (tenseToVFrom!t); inf = (verb!use_irreg).s!VPPart}
+	{Simul => \\t,use_irreg => {fin = (verb!use_irreg).s   ! (tenseToVFrom!t); inf = []}
+   ; --# notpresent
+	 Anter => \\t,use_irreg => {fin = (haberV!use_irreg).s ! (tenseToVFrom!t); inf = (verb!use_irreg).s!VPPart} --# notpresent
 	};
       prp = (verb!False).s ! VPresPart;
       inf = (verb!False).s ! VInf;
diff --git a/next-lib/src/interlingua/SymbolIna.gf b/next-lib/src/interlingua/SymbolIna.gf
new file mode 100644
index 000000000..1ea8b5841
--- /dev/null
+++ b/next-lib/src/interlingua/SymbolIna.gf
@@ -0,0 +1,41 @@
+--# -path=.:abstract:common
+
+concrete SymbolIna of Symbol = CatIna ** open Prelude, ResIna in {
+
+{- TODO!
+lin
+  SymbPN i = {s = addGenitiveS i.s ; g = Neutr} ;
+  IntPN i  = {s = addGenitiveS i.s ; g = Neutr} ;
+  FloatPN i = {s = addGenitiveS i.s ; g = Neutr} ;
+  NumPN i = {s = i.s ; g = Neutr} ;
+  CNIntNP cn i = {
+    s = \\c => cn.s ! Sg ! Nom ++ (addGenitiveS i.s) ! c ;
+    a = agrgP3 Sg cn.g
+    } ;
+  CNSymbNP det cn xs = {
+    s = \\c => det.s ++ cn.s ! det.n ! Nom ++ (addGenitiveS xs.s) ! c ; 
+    a = agrgP3 det.n cn.g
+    } ;
+  CNNumNP cn i = {
+    s = \\c => cn.s ! Sg ! Nom ++ i.s ! c ;
+    a = agrgP3 Sg cn.g
+    } ;
+
+  SymbS sy = sy ; 
+
+  SymbNum sy = { s = addGenitiveS sy.s ; n = Pl ; hasCard = True } ;
+  SymbOrd sy = { s = \\c => sy.s ++ (regGenitiveS "th")!c} ;
+-}
+
+lincat 
+
+  Symb, [Symb] = SS ;
+
+lin
+  MkSymb s = s ;
+
+--  BaseSymb = infixSS "and" ;
+  ConsSymb = infixSS "," ;
+
+
+}