Changeset 787ec4 in git for Singular

Timestamp:

Feb 13, 2013, 4:28:39 PM (11 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

251549b049519ca5f050922c948fc1e8b2c8ecc3

Parents:

f63b13007b1f6deb2ebb62306b07b450a2137832

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-02-13 16:28:39+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-02-13 20:01:57+01:00

Message:

fix: dump(ASCII): lists which contains ideals/modules

from master

File:

• Singular/links/silink.cc (modified) (2 diffs)

Singular/links/silink.cc

@@ -775 +775 @@
     if (rhs == NULL) return EOF;
 
-    if (type_id == INTVEC_CMD) fprintf(fd, "intvec(");
+    BOOLEAN need_klammer=FALSE;
+    if (type_id == INTVEC_CMD) { fprintf(fd, "intvec(");need_klammer=TRUE; }
+    else if (type_id == IDEAL_CMD) { fprintf(fd, "ideal(");need_klammer=TRUE; }
+    else if (type_id == MODUL_CMD) { fprintf(fd, "module(");need_klammer=TRUE; }
 
     if (fprintf(fd, "%s", rhs) == EOF) return EOF;
@@ -789 +792 @@
       omFree(rhs);
     }
-    else if (type_id == INTVEC_CMD) fprintf(fd, ")");
+    else if (need_klammer) fprintf(fd, ")");
   }
   return 1;