Changeset b9b906 in git for Singular/LIB/tst.lib

Timestamp:

Jan 16, 2001, 2:48:47 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

081d28e7da33af82545a27eb9f8ee82b0884b9f0

Parents:

4e3468f1f6473297e317588e34a7719e241780f9

Message:

*hannes: lib format revisited


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

File:

• Singular/LIB/tst.lib (modified) (29 diffs)

Singular/LIB/tst.lib

@@ -1 @@
-// $Id: tst.lib,v 1.31 2000-12-31 15:14:47 obachman Exp $
+// $Id: tst.lib,v 1.32 2001-01-16 13:48:47 Singular Exp $
 //(obachman, last modified 6/30/98)
 /////////////////////////////////////////////////////////////////////////////
 
-version="$Id: tst.lib,v 1.31 2000-12-31 15:14:47 obachman Exp $";
+version="$Id: tst.lib,v 1.32 2001-01-16 13:48:47 Singular Exp $";
 category="Utilities";
 info="
@@ -23 +23 @@
                         test whether two std's are \"equal\"
 
- tst_test_res(ideal i)  test different res commands for homog ideal i 
+ tst_test_res(ideal i)  test different res commands for homog ideal i
 ";
 
@@ -195 +195 @@
 RETURN:   none
 PURPOSE: writes to tst-output the current memory usage and used CPU time.
-         If no integer argument is given, the elapsed CPU time since 
+         If no integer argument is given, the elapsed CPU time since
          the last call to tst_status() is reported.
          If an integer argument is given, the elapsed CPU time since the
@@ -207 +207 @@
 {
   int start_up;
-  
+
   if (size(#) > 0)
   {
@@ -278 +278 @@
   {
     string outfile = "";
-    
+
     if (size(#) > 0)
     {
@@ -391 +391 @@
 {
   string prefix = "OutTimer";
-  
+
   if (size(#) > 0)
   {
@@ -585 +585 @@
 {
   int ret = 1;
-  
+
   if (! homog(i))
   {
     ERROR("ERROR: input ideal needs to be homogenous ");
   }
-  
+
   if (size(#) == 0)
   {
@@ -596 +596 @@
     resolution rm = mres(i,0);
   }
-  
+
   resolution rh = hres(i,0);
   resolution rl = lres(i, 0);
-  
+
   if (size(#) == 0)
   {
@@ -605 +605 @@
     intmat im = betti(rm);
   }
-  
+
   intmat ih = betti(rh);
   intmat il = betti(rl);
@@ -615 +615 @@
     if (size(ih) != size(im)){"ERROR: size(ih) != size(im)";return(0);}
   }
-  
+
   if (ih != il){"ERROR: ih != il";return(0);}
   if (size(#) == 0)
@@ -645 +645 @@
     if (size(ih_1) != size(im_1)){"ERROR: size(ih_1) != size(im_1)";return(0);}
   }
-  
+
   if (ih_1 != il_1){"ERROR: ih_1 != il_1";return(0);}
   if (size(#) == 0)
@@ -653 +653 @@
   }
 
-  
+
   if (size(ih) != size(ih_1)) {"ERROR: size(ih) != size(ih_1)";return(0);}
   if (ih != ih_1) {"ERROR: ih != ih_1";return(0);}
@@ -688 +688 @@
   }
   return (m);
-} 
- 
+}
+
 proc tst_rgen_generate_block(int n_vars, string simple_ordering, int extra_weights)
 {
@@ -697 +697 @@
     extra_weights = n_vars;
   }
-  
+
   if ((simple_ordering[1] == "W") || (simple_ordering[1] == "w"))
   {
@@ -704 +704 @@
   else
   {
-    if (simple_ordering[1] == "M") 
+    if (simple_ordering[1] == "M")
     {
       order = order + "(" + string(tst_rgen_init_matrix(n_vars)) + ")";
@@ -725 +725 @@
   int j;
   list blocks;
-  
+
   for (i=1; i<=size(simple_orderings); i++)
   {
@@ -743 +743 @@
   list nb_orderings;
   string n_ordering;
-  
+
   for (i=1;i<=size(products);i++)
   {
@@ -769 +769 @@
       }
     }
-    else 
+    else
     {
       if (products[i] == 1)
@@ -829 +829 @@
     export(tst_rgen_exp_bounds);
   }
-  
+
   if (! defined(tst_rgen_char_index))
   {
@@ -872 +872 @@
     tst_rgen_ordering_index = 1;
   }
-  
+
   if (tst_rgen_nvars[tst_rgen_var_index] <= 26)
   {
@@ -892 +892 @@
       rs = rs + "c," + tst_rgen_orderings[tst_rgen_ordering_index];
     }
-    else 
+    else
     {
       if (tst_rgen_comp_orderings[tst_rgen_comp_index] == "C")
@@ -898 +898 @@
         rs = rs + tst_rgen_orderings[tst_rgen_ordering_index] + ", C";
       }
-      else 
+      else
       {
         if (tst_rgen_comp_orderings[tst_rgen_comp_index] == "c")
@@ -911 +911 @@
     }
   }
-  if (size(tst_rgen_exp_bounds) > 0) 
+  if (size(tst_rgen_exp_bounds) > 0)
   {
     if (! defined(tst_rgen_Lring))
@@ -932 +932 @@
     rs = rs + ")";
   }
-  
+
   return (rs);
 }
@@ -958 +958 @@
   int i, j, k, l;
   ideal id;
-  
+
   poly p, q;
   for (i=1; i<n; i++)
@@ -985 +985 @@
     id[i] = p;
   }
-  
+
   p = var(1);
   for (i=2;i<=n;i++)
@@ -1047 +1047 @@
   module m;
   ideal idl = 1, maxideal(1);
-  
+
   if (Module > 0)
   {
@@ -1095 +1095 @@
 {
   int i, is, s;
-  
+
   for (i=1; i<=size(id); i++)
   {
@@ -1104 +1104 @@
   "s : " + string(s);
 }
-  
+