Changeset d18870 in git

Timestamp:

May 12, 2000, 2:23:18 PM (23 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

73d7b5cf051d2bb349542039ed3ac2b513f7c109

Parents:

06f16f99b85c345dd60a647c2025081e13cfa7c2

Message:

Changed excute syntax from command to function


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.62 2000-05-12 12:20:26 krueger Exp $
+// $Id: primdec.lib,v 1.63 2000-05-12 12:23:18 krueger Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                               //
@@ -11 +11 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.62 2000-05-12 12:20:26 krueger Exp $";
+version="$Id: primdec.lib,v 1.63 2000-05-12 12:23:18 krueger Exp $";
 info="
 LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
@@ -1790 +1790 @@
                                 &&(find(ordstr(basering),"s")==0))
   {
-     execute "ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),("
-                              +ordstr(basering)+");";
+     execute("ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),("
+                              +ordstr(basering)+");");
      ideal i=imap(P,i);
      ideal j=i;
@@ -1805 +1805 @@
   else
   {
-     execute "ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),dp;";
+     execute("ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),dp;");
      ideal i=imap(P,i);
      ideal j=groebner(i);
@@ -1877 +1877 @@
                                 &&(find(ordstr(basering),"s")==0))
   {
-     execute "ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),("
-                              +ordstr(basering)+");";
+     execute("ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),("
+                              +ordstr(basering)+");");
      ideal i=imap(P,i);
      ideal j=i;
@@ -1892 +1892 @@
   else
   {
-     execute "ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),dp;";
+     execute("ring gnir = ("+charstr(basering)+"),("+varstr(basering)+"),dp;");
      ideal i=imap(P,i);
      ideal j=groebner(i);
@@ -1914 +1914 @@
   indep=maxIndependSet(j);
 
-  execute "ring gnir1 = ("+charstr(basering)+"),("+indep[1][1]+"),("
-                              +indep[1][2]+");";
+  execute("ring gnir1 = ("+charstr(basering)+"),("+indep[1][1]+"),("
+                              +indep[1][2]+");");
   if(homo==1)
   {
@@ -1925 +1925 @@
   }
   string quotring=prepareQuotientring(nvars(basering)-indep[1][3]);
-  execute quotring;
+  execute(quotring);
   ideal j=imap(gnir1,j);
   kill gnir1;