Changeset aa3379 in git

Timestamp:

Jul 23, 2021, 8:16:18 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

56975f735fc92ade2b197542c56412fa80857c7d

Parents:

0f1f7991503b92c41f5baf8a7d5849f866e7617d

Message:

standard.lib: ringlist -> ring_lst

File:

• Singular/LIB/standard.lib (modified) (17 diffs)

Singular/LIB/standard.lib

@@ -74 +74 @@
     if (sQ!=0 )
     {
-      ring Rfglm = create_ring(ringlist(P)[1], "("+varstr(P)+")", os, "no_minpoly");
+      ring Rfglm = create_ring(ring_list(P)[1], "("+varstr(P)+")", os, "no_minpoly");
       ideal Qideal = fetch(P,Qideal);
       qring Pfglm = groebner(Qideal,"std","slimgb");
@@ -80 +80 @@
     else
     {
-      ring Pfglm = create_ring(ringlist(P)[1], "("+varstr(P)+")", os, "no_minpoly");
+      ring Pfglm = create_ring(ring_list(P)[1], "("+varstr(P)+")", os, "no_minpoly");
     }
     if ( sM!=0 )
@@ -89 +89 @@
   else
   {
-    list BRlist = ringlist(P);
+    list BRlist = ring_list(P);
     int nvarP = nvars(P);
     intvec w;                       //for ringweights of basering P
@@ -191 +191 @@
 
   // save ordering of basering P for later use
-  list ord_P = ringlist(P)[3];     //ordering of basering in ringlist
+  list ord_P = ring_list(P)[3];    //ordering of basering in ringlist
   string ordstr_P = ordstr(P);     //ordering of basering as string
   int nvarP = nvars(P);
@@ -318 +318 @@
   //a quotient ideal from P is added to the input
 
-  list BRlist = ringlist(Philb);
+  list BRlist = ring_list(Philb);
   BRlist[3] = list();
   int so = size(ord_P);
@@ -451 +451 @@
    ideal i = y+u2+uv3, z+uv3;            //i is an lp-SB but not a dp_SB
    qring Q = std(i);
-   list LQ = ringlist(Q);
+   list LQ = ring_list(Q);
    LQ[3][1][1]="dp";
    def Q1 = ring(quotientList(LQ));
@@ -594 +594 @@
     int is_qring =1;
   }
-  list BRlist = ringlist(P);
+  list BRlist = ring_list(P);
   BRlist[4] = ideal(0);      //kill quotient ideal in BRlist
 
@@ -753 +753 @@
   //delete the quotient ideal and add it to i
 
-  list BRlist = ringlist(P);
+  list BRlist = ring_list(P);
   BRlist[4] = ideal(0);
   def Phelp = ring(BRlist);
@@ -915 +915 @@
      //is_homog = homog(Qideal); //remembers if Qideal was homog (homog(0)=1)
   }
-  list BRlist = ringlist(P);     //ringlist of basering
+  list BRlist = ring_list(P);     //ringlist of basering
 
   // save ordering of basering P for later use
@@ -1311 +1311 @@
    }
 
-   if( (size(ideal(basering)) > 0) || (size(ringlist(P)) > 4) )
+   if( (size(ideal(basering)) > 0) || (size(ring_list(P)) > 4) )
    {
      // the quick hack for qrings - seems to fit most needs
@@ -1581 +1581 @@
 {
   def @newP=basering;
-  ring @newr = create_ring(ringlist(basering)[1], "("+varstr(basering)+", @t, @w)", "dp", "no_minpoly");
+  ring @newr = create_ring(ring_list(basering)[1], "("+varstr(basering)+", @t, @w)", "dp", "no_minpoly");
   module b=imap(@newP,b);
   module a=imap(@newP,a);
@@ -1602 +1602 @@
 {
   def @newP=basering;
-  ring @newr = create_ring(ringlist(basering)[1], "("+varstr(basering)+", @t)", "dp", "no_minpoly");
+  ring @newr = create_ring(ring_list(basering)[1], "("+varstr(basering)+", @t)", "dp", "no_minpoly");
   module b=imap(@newP,b);
   module a=imap(@newP,a);
@@ -1624 +1624 @@
 {
   def @newP=basering;
-  ring @newr = create_ring(ringlist(basering)[1], "("+varstr(basering)+", @t)", "dp", "no_minpoly");
+  ring @newr = create_ring(ring_list(basering)[1], "("+varstr(basering)+", @t)", "dp", "no_minpoly");
   module b=imap(@newP,b);
   module a=imap(@newP,a);
@@ -1642 +1642 @@
 {
   def R=basering;
-  ring gnir = create_ring(ringlist(basering)[1], "("+varstr(basering)+",@t)", "(C,dp)", "no_minpoly");
+  ring gnir = create_ring(ring_list(basering)[1], "("+varstr(basering)+",@t)", "(C,dp)", "no_minpoly");
   ideal i=var(nvars(basering))*imap(R,i)+(var(nvars(basering))-1)*imap(R,j);
   ideal j=eliminate(i,var(nvars(basering)));
@@ -2554 +2554 @@
   {
     int i = int(v[5,size(v)-5]);
-    v = ringlist(basering)[2][i];
+    v = ring_list(basering)[2][i];
   }
   return(v);
@@ -2651 +2651 @@
          l1 int or list, l2 list or string, l3 list or string, l4 ideal
 RETURN:  ring(list(l1, l2, l3, l4))
-NOTE:    l1, l2, l3, l4 are assumed to be the four entries of ringlist(R)
+NOTE:    l1, l2, l3, l4 are assumed to be the four entries of ring_list(R)
          where R is the ring to be returned.
          @* Optional arguments: If l4 is not given, it is assumend to be
@@ -2755 +2755 @@
   "EXAMPLE:"; echo = 2;
   ring R = (0,a), x, lp;
-  ringlist(R);
+  ring_list(R);
   minpoly = a^2+1;
   qring Q = ideal(x^3-2);
-  ring S = create_ring(ringlist(Q)[1], "(x,y,t)", "dp", "no_minpoly");
+  ring S = create_ring(ring_list(Q)[1], "(x,y,t)", "dp", "no_minpoly");
   basering;
 }