Changeset 836138 in git

Timestamp:

Feb 1, 2010, 12:04:01 PM (13 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

Children:

ebee6c65be9b696d7b610a19c579045f15d11830

Parents:

66a322a436b2789167c21fea3dd3bc12fa72e53a

Message:

system-command changeRing to make generation of Maple/Magma scripts simpler

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

File:

• Singular/extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -2109 +2109 @@
       else
 #endif
+/*==================== changeRing ========================*/
+      /* The following code changes the names of the variables in the
+         current ring to "x1", "x2", ..., "xN", where N is the number
+         of variables in the current ring.
+         The purpose of this rewriting is to eliminate indexed variables,
+         as they may cause problems when generating scripts for Magma,
+         Maple, or Macaulay2. */
+      if(strcmp(sys_cmd,"changeRing")==0)
+      {
+        int varN = currRing->N;
+        char h[10];
+        for (int i = 1; i <= varN; i++)
+        {
+          omFree(currRing->names[i - 1]);
+          sprintf(h, "x%d", i);
+          currRing->names[i - 1] = omStrDup(h);
+        }
+        rComplete(currRing);
+        res->rtyp = INT_CMD;
+        res->data = 0;
+        return FALSE;
+      }
+      else
 /*==================== generic debug ==================================*/
 #ifdef PDEBUG