Changeset 518545 in git for Singular/LIB/solve.lib

Timestamp:

May 18, 2005, 9:07:32 AM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f4c2ba9853622f20e7ecef2060bd6cdadcbecb2a

Parents:

9cbb7a33486e748cd292269343614278488d977f

Message:

*hannes: more error checks


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

File:

• Singular/LIB/solve.lib (modified) (5 diffs)

Singular/LIB/solve.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: solve.lib,v 1.32 2005-05-06 14:39:13 hannes Exp $";
+version="$Id: solve.lib,v 1.33 2005-05-18 07:07:32 Singular Exp $";
 category="Symbolic-numerical solving";
 info="
@@ -557 +557 @@
 // test if basering admissible
   if (char(basering)!=0){ERROR("characteristic of basering not 0");}
-  if ((charstr(basering)[1]=="0") and (npars(basering)!=0)){
-    ERROR("basering has parameters");
-  }
+  if ((charstr(basering)[1]=="0") and (npars(basering)!=0))
+  { ERROR("basering has parameters"); }
 
 // some global settings and control
@@ -568 +567 @@
   int prec = 30;
   // check additional parameters...
-  if (size(#)>0){
+  if (size(#)>0)
+  {
     int sofar=1;
     if (typeof(#[1])=="int"){
@@ -601 +601 @@
     }
     for (ii=sofar+1;ii<=size(#);ii++) { // check for additional strings
-       if (#[ii]=="oldring"){ oldr=1; }
-       if (#[ii]=="nodisplay"){ nodisp=1; }
+       if (typeof(#[ii])=="string")
+       {
+          if (#[ii]=="oldring"){ oldr=1; }
+          if (#[ii]=="nodisplay"){ nodisp=1; }
+       }
     }
   }
@@ -608 +611 @@
   // if interaktive version is chosen -- choice of basering (Top::`outR`)
   // and name for list of solutions (outL):
-  if (oldr==1) {
+  if (oldr==1)
+  {
     list Out;
     LL=names(Top);