Changeset 034ce1 in git for Singular/LIB/classify.lib

Timestamp:

May 12, 2000, 2:25:47 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

7bb71fad3a9d45a2e30c8458373b89a01eecf500

Parents:

73d7b5cf051d2bb349542039ed3ac2b513f7c109

Message:

* hannes: execute


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

File:

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

Singular/LIB/classify.lib

@@ -1 @@
-e// $Id: classify.lib,v 1.41 2000-05-05 18:40:29 obachman Exp $
+e// $Id: classify.lib,v 1.42 2000-05-12 12:25:41 Singular Exp $
 // KK, last modified: 04.04.1998
 ///////////////////////////////////////////////////////////////////////////////
 
-version  = "$Id: classify.lib,v 1.41 2000-05-05 18:40:29 obachman Exp $";
+version  = "$Id: classify.lib,v 1.42 2000-05-12 12:25:41 Singular Exp $";
 info="
 LIBRARY:  classify.lib  Procedures for the Arnold-Classifier of Singularities
@@ -2368 +2368 @@
     S = "f = ", Tp, ";";
     debug_log(2,"S=", S, " Tp=", Tp, "Key=", Key);
-    execute S;
-    execute read(dbmLink, Key)+";";
+    execute(S);
+    execute(read(dbmLink, Key)+";");
     debug_log(1, "Polynom f=", f,  "  crk=", crk, "  Mu=", Mu,
                 " MlnCd=", MlnCd);
@@ -2486 +2486 @@
     if( s != "" && defined(@DeBug)==0) {
       s="newDebug="+s;
-      execute s;
+      execute(s);
     }
   }
@@ -2658 +2658 @@
   def ring_save=basering;
 
-  execute @ringdisplay;
+  execute(@ringdisplay);
   map showpoly=ring_save,maxideal(1);
   s = string(showpoly(g));
@@ -2708 +2708 @@
     debug_log(8, "  Number of columns: 0");
     s2 = "k = "+s1+";";
-    execute s2;
+    execute(s2);
     if( (Typ=="A[") || (Typ=="D[") ) { s3 = "k"; }
     if( Typ == "E[") { t = 6; }
@@ -2743 +2743 @@
     b  = find(s1, ",");
     s2 = "k = ",s1[1..b-1],";";
-    execute s2;
+    execute(s2);
     s1 = s1[b+1..size(s1)];
     if(find(s1, ",") == 0) {
       debug_log(8, "  Number of columns 1");
       s2 = "r = "+s1+";";
-      execute s2;
+      execute(s2);
       s4 = "r";
       s3 = "k";
@@ -2768 +2768 @@
       b  = find(s1, ",");
       s2 = "r = ",s1[1..b-1],";";
-      execute s2;
+      execute(s2);
       s2 = "s = ",s1[b+1..size(s1)],";";
-      execute s2;
+      execute(s2);
       if(Typ=="Y[") { s2 = "Y[k,r,s]"; }
       if(Typ=="Z[") { s2 = "Z[k,r,s]"; }