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

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

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/general.lib (modified) (6 diffs)

Singular/LIB/general.lib

@@ -1 @@
-// $Id: general.lib,v 1.26 2000-04-27 10:07:13 obachman Exp $
+// $Id: general.lib,v 1.27 2000-05-12 12:25:47 Singular Exp $
 //GMG, last modified 18.6.99
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: general.lib,v 1.26 2000-04-27 10:07:13 obachman Exp $";
+version="$Id: general.lib,v 1.27 2000-05-12 12:25:47 Singular Exp $";
 info="
 LIBRARY:  general.lib   PROCEDURES OF GENERAL TYPE
@@ -80 +80 @@
    string sR = "ring R = (0,"+A_Z("A",6)+"),("+A_Z("a",10)+"),dp;";
    sR;
-   execute sR;
+   execute(sR);
    R;
 }
@@ -740 +740 @@
       if( find(os,",") )
       {
-         execute "nw = "+os+";";
+         execute("nw = "+os+";");
          if( size(nw) > ii )
          {
@@ -751 +751 @@
       else
       {
-         execute "q = "+os+";";
+         execute("q = "+os+";");
          if( q > ii )
          {
@@ -853 +853 @@
       if ( typeof(#[1])=="string" )
       {
-         execute "ring r1 =("+charstr(P)+"),("+varstr(P)+"),("+#[1]+");";
+         execute("ring r1 =("+charstr(P)+"),("+varstr(P)+"),("+#[1]+");");
          def i = imap(P,id);
          v = sortvec(i);
@@ -881 +881 @@
          }
       }
-      execute "ring r=0,x(1..s),("+o+");";
+      execute("ring r=0,x(1..s),("+o+");");
       ideal i;
       poly f;