Changeset e2af3af in git for Singular/LIB/grwalk.lib

Timestamp:

Jul 1, 2019, 4:07:30 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

2050058328d464a197ff417b127e85fe08b3a3cd

Parents:

77006ca97061dca7e90bdacf1fbaff76644280a24142c906ad243d17ff54542115db04d9e8264de7

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2019-07-01 16:07:30+02:00

git-committer:

GitHub <noreply@github.com>2019-07-01 16:07:30+02:00

Message:

Merge pull request #936 from steenpass/execute

replace some occurrences of execute()

File:

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

Singular/LIB/grwalk.lib

@@ -18 +18 @@
 ZSEE ALSO: rwalk_lib; swalk_lib
 ";
+
+LIB "ring.lib";
 
 //////////////////////////////////////////////////////////////////////////////
@@ -236 +238 @@
    def xR = basering;
 
-   execute("ring ostR = ("+charstr(xR)+"),("+varstr(xR)+"),"+ord_str+";");
+   ring ostR = create_ring(ringlist(xR)[1],"("+varstr(xR)+")",ord_str,"no_minpoly");
    def old_ring = basering;
 
@@ -292 +294 @@
    def xR = basering;
 
-   execute("ring ostR = ("+charstr(xR)+"),("+varstr(xR)+"),"+ord_str+";");
+   ring ostR = create_ring(ringlist(xR)[1],"("+varstr(xR)+")",ord_str,"no_minpoly");
    def old_ring = basering;
    //print("//** help ring = " + string(basering));
@@ -328 +330 @@
    option(redSB);
    def xR = basering;
-
-   execute("ring ostR = ("+charstr(xR)+"),("+varstr(xR)+"),"+ord_str+";");
+   ring ostR = create_ring(ringlist(xR)[1],"("+varstr(xR)+")",ord_str,"no_minpoly");
    def old_ring = basering;
    //print("//** help ring = " + string(basering));
@@ -377 +378 @@
    option(redSB);   def xR = basering;
 
-   execute("ring ostR = ("+charstr(xR)+"),("+varstr(xR)+"),"+ord_str+";");
+   ring ostR = create_ring(ringlist(xR)[1],"("+varstr(xR)+")",ord_str,"no_minpoly");
    def old_ring = basering;
 
@@ -435 +436 @@
   def xR = basering;
 
-  execute("ring ostR = ("+charstr(xR)+"),("+varstr(xR)+"),"+ord_str+";");
+  ring ostR = create_ring(ringlist(xR)[1],"("+varstr(xR)+")",ord_str,"no_minpoly");
   def old_ring = basering;
 
@@ -483 +484 @@
   def xR = basering;
 
-  execute("ring ostR = ("+charstr(xR)+"),("+varstr(xR)+"),"+ord_str+";");
+  ring ostR = create_ring(ringlist(xR)[1],"("+varstr(xR)+")",ord_str,"no_minpoly");
   def old_ring = basering;