Changeset 713126 in git

Timestamp:

Dec 6, 2006, 7:18:48 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

cbe67eba6b38f4b622182cf5b827addbb5de83d6

Parents:

f4fea8560f31694a2e5242a206281daa4f5adb99

Message:

*hannes: ERROR, some sanity checks


git-svn-id: file:///usr/local/Singular/svn/trunk@9548 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/triang.lib (modified) (8 diffs)

Singular/LIB/triang.lib

@@ -1 +1 @@
 //last change: 13.02.2001 (Eric Westenberger)
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: triang.lib,v 1.10 2006-07-18 15:22:16 Singular Exp $";
+version="$Id: triang.lib,v 1.11 2006-12-06 18:18:48 Singular Exp $";
 category="Symbolic-numerical solving";
 info="
@@ -39 +39 @@
     if (attrib(G,"isSB") <> 1)
     {
-        print("   ? Error: The input is no groebner basis.");
-        return();
+        ERROR("   ? Error: The input is no groebner basis.");
     }
     else
@@ -46 +45 @@
         if (dim(G) <> 0)
         {
-            print("   ? Error: ideal is not zero-dimensional.");
-            return();
+            ERROR("   ? Error: ideal is not zero-dimensional.");
         }
     }
@@ -214 +212 @@
     if (attrib(G,"isSB") <> 1)
     {
-        print("   ? Error: The input is no groebner basis.");
-        return();
+        ERROR("   ? Error: The input is no groebner basis.");
     }
     else
@@ -221 +218 @@
         if (dim(G) <> 0)
         {
-            print("   ? Error: ideal is not zero-dimensional.");
-            return();
+            ERROR("   ? Error: ideal is not zero-dimensional.");
         }
     }
@@ -643 +639 @@
     if (attrib(G,"isSB") <> 1)
     {
-        print("   ? Error: The input is no groebner basis.");
-        return();
+        ERROR("   ? Error: The input is no groebner basis.");
     }
 
@@ -825 +820 @@
     if (attrib(G,"isSB") <> 1)
     {
-        print("   ? Error: The input is no groebner basis.");
-        return();
-    }
-
+        ERROR("   ? Error: The input is no groebner basis.");
+    }
+    if(npars(basering)<>0)
+    {
+        ERROR("basering has parameters");
+    }
     // Faktorisierungsschalter setzen.
     int fak;
@@ -840 +837 @@
     intvec ovec = option(get);
     option(redSB);
+    option(redTail);
     option(returnSB);