Changeset cda3bf in git

Timestamp:

Dec 6, 2013, 11:15:40 AM (10 years ago)

Author:

Jakob Kroeker <kroeker@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b960f1a8dce04288b07c183de8184dc249aa3dca

Parents:

54e01d660f6a2e9fa9ffd4f0b6e0d7ed9b5e68d9

Message:

fixed accidental option modifications in primdec.lib

File:

• Singular/LIB/primdec.lib (modified) (11 diffs)

Singular/LIB/primdec.lib

@@ -709 +709 @@
     return(l);
   }
+  def op = option(get);
   def P=basering;
   int i,j,k,m,q,d,o;
-  int n=nvars(basering);
+  int n = nvars(basering);
   ideal s,t,u,sact;
   poly ni;
@@ -769 +770 @@
         {
           setring RL;
+
           option(redSB);
           t=std(t);
@@ -786 +788 @@
           keep1=keep1+rp;
           option(noredSB);
+
         }
         kill RL;
@@ -803 +806 @@
   }
   l=l+keep1;
+  option(set,op)
   return(l);
 }
@@ -1898 +1902 @@
    list @res,empty;
    ideal ser;
-   option(redSB);
+   def op = option( get );
+   option( redSB );
    list @pr=facstd(i);
    //if(size(@pr)==1)
@@ -1923 +1928 @@
 //      }
 //   }
-    option(noredSB);
+   // option( noredSB );
+   option( set, op );
    int j,k,odim,ndim,count;
    attrib(@pr[1],"isSB",1);
@@ -2096 +2102 @@
   }
 
-  if(dim(i) == -1){setring P0;return(ideal(1));}
-  if((dim(i) == 0) && (npars(P) == 0))
+  if( dim(i) == -1 ) 
+  {  
+    option( set,op );
+    setring P0; 
+    return( ideal(1) ); 
+  }
+  if( (dim(i) == 0 ) && ( npars(P) == 0) )
   {
     int di = vdim(i);
@@ -2546 +2557 @@
    int n=nvars(R);
 
+   def op = option(get); 
+
 //---Anfang Provisorium
    if((size(i)==2) && (w==2))
    {
-      option(redSB);
-      ideal J=std(i);
-      option(noredSB);
-      if((size(J)==2)&&(deg(J[1])==1))
+      option( redSB );
+      ideal J = std(i);
+      option( noredSB );
+      if ((size(J)==2)&&(deg(J[1])==1))
       {
          ideal keep;
@@ -2577 +2590 @@
             resu[j]=L;
          }
+         option( set, op );
          return(resu);
       }
@@ -2652 +2666 @@
       re=convList(pr);
    }
-   return(re);
+   option( set, op );
+   return( re );
 }
 ///////////////////////////////////////////////////////////////////////////////
@@ -7009 +7024 @@
       primary=resu;
     }
+    option(set,op);
     if (intersectOption == "intersect")
     {