Changeset 4a51c1 in git for Singular/gentable.cc

Timestamp:

Jul 29, 2014, 1:08:38 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

9c11211fa09366479bbae388a1da45574bcffa98

Parents:

bf4bb581d0e7ab485afcc8791f9242c5b1493b8c

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-07-29 13:08:38+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-07-29 13:09:20+02:00

Message:

changes for SINGULAR_4_1 (cnumber, cmatrix)

File:

• Singular/gentable.cc (modified) (3 diffs)

Singular/gentable.cc

@@ -126 +126 @@
 const char * Tok2Cmdname(int tok)
 {
-  int i = 0;
   if (tok < 0)
   {
@@ -141 +140 @@
   //if (tok==PRINT_EXPR) return "print_expr";
   if (tok==IDHDL) return "identifier";
-  if (tok==CRING_CMD) return "ring(cf)";
+  if (tok==CRING_CMD) return "(c)ring";
   // we do not blackbox objects during table generation:
   //if (tok>MAX_TOK) return getBlackboxName(tok);
+  int i = 0;
   while (cmds[i].tokval!=0)
   {
@@ -152 +152 @@
     i++;
   }
+  i=0;// try again for old/alias names:
+  while (cmds[i].tokval!=0)
+  {
+    if (cmds[i].tokval == tok)
+    {
+      return cmds[i].name;
+    }
+    i++;
+  }
+  #if 0
+  char *s=(char*)malloc(10);
+  sprintf(s,"(%d)",tok);
+  return s;
+  #else
   return cmds[0].name;
+  #endif
 }
 /*---------------------------------------------------------------------*/