Changeset a5490d in git

Timestamp:

Jul 23, 2019, 3:49:28 PM (4 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

408d0ac6fb66db4f8104c49c7a7da96edffb1870

Parents:

cbe2b8aae1c5fbe6a880c1773dd0c3b82cfcdb51

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-23 15:49:28+02:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-23 15:57:59+02:00

Message:

allow ordering L([int]) in create_ring()

File:

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

Singular/LIB/standard.lib

@@ -2572 +2572 @@
 {
   string name;
-  intvec w;
+  def w;   // int for name == "L", intvec otherwise
   int b1 = find(ordering, "(", 1);
   if (b1 == 0)   // no parentheses
@@ -2593 +2593 @@
     if (c == 0)
     {
-      w = 1:int(ordering[b1+1, b2-b1-1]);
+      if (name == "L")
+      {
+        w = int(ordering[b1+1, b2-b1-1]);
+      }
+      else
+      {
+        w = 1:int(ordering[b1+1, b2-b1-1]);
+      }
     }
     else