Changeset 960f2a in git

Timestamp:

Jul 23, 1997, 7:51:41 PM (27 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

c1237215dc013f8133d4807ad6f5ba087e7f48b9

Parents:

95d5c608e097fb2e4b27e6ab645ceba80a0a64d1

Message:

*** empty log message ***


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

File:

• Singular/LIB/classify.lib (modified) (7 diffs)

Singular/LIB/classify.lib

@@ -1 @@
-// $Id: classify.lib,v 1.5 1997-01-24 10:23:07 krueger Exp $
+// $Id: classify.lib,v 1.6 1997-07-23 17:51:41 krueger Exp $
 //=============================================================================
 //
@@ -6 +6 @@
 //=============================================================================
 // required libraries
-//LIB "lib0";
-//LIB "lib1";
+
 LIB "lib_Setring";
 LIB "lib_ReOrder";
@@ -41 +40 @@
     "          poly g=Classify(f); ";
     "";
-    " REMARK:  This version of Classify is only pre-alpha.";
+    " REMARK:  This version of Classify is only alpha.";
     "          Please send bugs and comments to: ";
     "          \"Kai Krueger\" <krueger@mathematik.uni-kl.de>";
@@ -47 +46 @@
     "          int DeBug=1; is usefull as trace-mode. For more informations";
     "          increace the value of \'DeBug\'";
+    "          or set the shell-variable SG_DEBUG to the debugging level.";
 //=============================================================================
     return();
@@ -75 +75 @@
 
   // if trace/debug mode not set, do it!
-  if( defined(DeBug) == 0) { 
-    string s=system("getenv", "SG_DEBUG");
-    if( s != "" ) {
-      s="int DeBug="+s;
-      execute s;
-    } 
-    else { int DeBug = 0; }
-  }
-  export DeBug;
+  init_debug();
 
   // define new ring
@@ -116 +108 @@
   @s4 = "poly @f_out="+@s1+";";
 //"Corang:"+ string(CoRang);
+"S1=", @s1;
+"S2=", @s2;
 
   if( @s2[1,2]=="f " || @s2[1,4]=="The " || @s2=="Fehler!" || @s2=="A[0]") { 
@@ -134 +128 @@
   }
 //"Corang:"+ string(CoRang);
-
   if(@show_nf==1) {
     poly @f_nf = NormalForm(@s2);