Changeset d30a399 in git for Singular/walk.cc

Timestamp:

Oct 19, 2012, 9:59:20 AM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

8710ff0734063b049b29453b8d06161041fffbc7b37b3984a12e1552c7bafc9fd5a7849240ea7980

Parents:

f2359093b446e8c68c3bda0f0484c4dbf7bd93a8

Message:

chg: option handling: test,verbose renamed to si_opt_1,si_opt_2

File:

• Singular/walk.cc (modified) (31 diffs)

Singular/walk.cc

@@ -123 +123 @@
 }
 
+#if 0 /*unused*/
 /*2
 *construct the set s from F u {P}
@@ -273 +274 @@
 #endif
 }
+#endif
 
 /*2
@@ -351 +353 @@
 }
 
+#if 0 /*unused*/
 static void TimeString(clock_t tinput, clock_t tostd, clock_t tif,clock_t tstd,
                        clock_t tlf,clock_t tred, clock_t tnw, int step)
@@ -388 +391 @@
         ((((double) xtextra)/1000000)/totm)*100);
 }
-
+#endif
+
+#if 0 /*unused*/
 static void TimeStringFractal(clock_t tinput, clock_t tostd, clock_t tif,clock_t tstd,
                        clock_t textra, clock_t tlf,clock_t tred, clock_t tnw)
@@ -415 +420 @@
         ostd,totm,mostd,mif,mstd,mextra,mlf,mred,mnw,tot,res);
 }
+#endif
 
 static void idString(ideal L, const char* st)
@@ -427 +433 @@
 }
 
+#if 0 /*unused*/
 static void headidString(ideal L, char* st)
 {
@@ -437 +444 @@
   Print(" %s;", pString(pHead(L->m[nL-1])));
 }
-
+#endif
+
+#if 0 /*unused*/
 static void idElements(ideal L, char* st)
 {
@@ -467 +476 @@
   omFree(K);
 }
-
+#endif
 
 
@@ -481 +490 @@
 }
 
+#if 0 /*unused*/
 static void MivString(intvec* iva, intvec* ivb, intvec* ivc)
 {
@@ -498 +508 @@
   Print("%d)", (*ivc)[nV]);
 }
-
+#endif
 
 // returns gcd of integers a and b
@@ -534 +544 @@
 }
 
+#if 0 /*unused*/
 /* 23.07.03 */
 static int isVectorNeg(intvec* omega)
@@ -545 +556 @@
   return 0;
 }
+#endif
 
 /********************************************************************
@@ -826 +838 @@
 static ideal MstdCC(ideal G)
 {
-  int save_test=test;
-  test|=(Sy_bit(OPT_REDTAIL)|Sy_bit(OPT_REDSB));
+  BITSET save1,save2;
+  SI_SAVE_OPT(save1,save2);
+  si_opt_1|=(Sy_bit(OPT_REDTAIL)|Sy_bit(OPT_REDSB));
   ideal G1 = kStd(G, NULL, testHomog, NULL);
-  test=save_test;
+  SI_RESTORE_OPT(save1,save2);
 
   idSkipZeroes(G1);
@@ -839 +852 @@
 static ideal MstdhomCC(ideal G)
 {
-  int save_test=test;
-  test|=(Sy_bit(OPT_REDTAIL)|Sy_bit(OPT_REDSB));
+  BITSET save1,save2;
+  SI_SAVE_OPT(save1,save2);
+  si_opt_1|=(Sy_bit(OPT_REDTAIL)|Sy_bit(OPT_REDSB));
   ideal G1 = kStd(G, NULL, isHomog, NULL);
-  test=save_test;
+  SI_RESTORE_OPT(save1,save2);
 
   idSkipZeroes(G1);
@@ -889 +903 @@
 
 /**** 28.10.02  print the max total degree and the max coefficient of G***/
+#if 0 /*unused*/
 static void checkComplexity(ideal G, char* cG)
 {
@@ -924 +939 @@
   PrintLn();
 }
-
+#endif
 
 
@@ -1232 +1247 @@
 }
 
+#if 0 /*unused*/
 static intvec* MatrixOrderdp(int nV)
 {
@@ -1245 +1261 @@
   return(ivM);
 }
+#endif
 
 intvec* MivUnit(int nV)
@@ -1464 +1481 @@
 
 
+#if 0 /*unused*/
 static void checkidealCC(ideal G, char* Ch)
 {
@@ -1485 +1503 @@
   PrintLn();
 }
-
+#endif
+
+#if 0 /*unused*/
 static void HeadidString(ideal L, char* st)
 {
@@ -1496 +1516 @@
   Print(" %s;\n", pString(pHead(L->m[nL])));
 }
+#endif
 
 static inline int MivComp(intvec* iva, intvec* ivb)
@@ -2104 +2125 @@
 }
 
+#if 0 /*unused*/
 /* check wheather one or more components of a vector are zero */
 static int isNolVector(intvec* hilb)
@@ -2114 +2136 @@
   return 0;
 }
+#endif
 
 
@@ -2459 +2482 @@
 }
 
+#if 0 /*unused*/
 /* 19.11.01 */
 /* find the maximal total degree of polynomials in G */
@@ -2478 +2502 @@
   return result;
 }
+#endif
 
 /* perturb the weight vector iva w.r.t. the ideal G.
@@ -2486 +2511 @@
 */
 
+#if 0 /*unused*/
 //GMP
 static intvec* TranPertVector(ideal G, intvec* iva)
@@ -2612 +2638 @@
   return repr_vector;
 }
-
-
-
+#endif
+
+
+
+#if 0 /*unused*/
 static intvec* TranPertVector_lp(ideal G)
 {
@@ -2702 +2730 @@
   return repr_vector;
 }
-
-
+#endif
+
+
+#if 0 /*unused*/
 //GMP
 static intvec* RepresentationMatrix_Dp(ideal G, intvec* M)
@@ -2789 +2819 @@
   return repvector;
 }
+#endif
 
 
@@ -2804 +2835 @@
 
 // 19 Juni 2003
+#if 0 /* unused*/
 static int testnegintvec(intvec* v)
 {
@@ -2814 +2846 @@
   return(0);
 }
+#endif