Changeset b45d97 in git

Timestamp:

Apr 17, 1999, 2:30:24 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

a79a12873c307b35db5462af26c49d5b594af644

Parents:

458bd67f21def86763df6137584fe9c0d9fa9a66

Message:

more StringAppendS


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

Location:

Singular

Files:

• clapsing.cc (modified) (7 diffs)
• intvec.cc (modified) (2 diffs)
• ipprint.cc (modified) (2 diffs)
• ipshell.cc (modified) (2 diffs)
• longalg.cc (modified) (3 diffs)
• longrat0.cc (modified) (3 diffs)
• misc.cc (modified) (4 diffs)
• ring.cc (modified) (2 diffs)
• silink.cc (modified) (2 diffs)
• subexpr.cc (modified) (1 diff)

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.48 1999-03-15 16:18:51 Singular Exp $
+// $Id: clapsing.cc,v 1.49 1999-04-17 12:30:16 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -133 +133 @@
   StringSetS( tag ); \
   napWrite( f ); \
-  PrintS(StringAppend("\n"));
+  PrintS(StringAppendS("\n"));
 // CanonicalForm f, represents transcendent extension
 #define FACTORY_CFTROUT_POLY( tag, f ) \
@@ -140 +140 @@
     StringSetS( tag ); \
     napWrite( F ); \
-    PrintS(StringAppend("\n")); \
+    PrintS(StringAppendS("\n")); \
     napDelete( &F ); \
   }
@@ -149 +149 @@
     StringSetS( tag ); \
     napWrite( F ); \
-    PrintS(StringAppend("\n")); \
+    PrintS(StringAppendS("\n")); \
     napDelete( &F ); \
   }
@@ -609 +609 @@
         //#ifdef LDEBUG
         //number cn=(number)c;
-        //StringSet(""); nWrite(nt); StringAppend(" ==> ");
-        //nWrite(cn);PrintS(StringAppend("\n"));
+        //StringSet(""); nWrite(nt); StringAppendS(" ==> ");
+        //nWrite(cn);PrintS(StringAppendS("\n"));
         //#endif
       }
@@ -928 +928 @@
     if (i<offs)
     {
-      StringAppend(currRing->parameter[i]);
+      StringAppendS(currRing->parameter[i]);
     }
     else
     {
-      StringAppend(currRing->names[i-offs]);
+      StringAppendS(currRing->names[i-offs]);
     }
     Li++;
     cnt--;
     if(cnt==0) break;
-    StringAppend(",");
+    StringAppendS(",");
     if(! Li.hasItem()) break;
   }
@@ -946 +946 @@
       if (i<offs)
       {
-        StringAppend(currRing->parameter[i]);
+        StringAppendS(currRing->parameter[i]);
       }
       else
       {
-        StringAppend(currRing->names[i-offs]);
+        StringAppendS(currRing->names[i-offs]);
       }
       cnt--;
       if(cnt==0) break;
-      StringAppend(",");
-    }
-  }
-  return mstrdup(StringAppend(""));
+      StringAppendS(",");
+    }
+  }
+  return mstrdup(StringAppendS(""));
 #else
   return NULL;

Singular/intvec.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: intvec.cc,v 1.11 1999-04-16 07:53:33 obachman Exp $ */
+/* $Id: intvec.cc,v 1.12 1999-04-17 12:30:17 Singular Exp $ */
 /*
 * ABSTRACT: class intvec: lists/vectors of integers
@@ -112 +112 @@
       if (j+1<row)
       {
-        if (dim > 1) StringAppend("\n");
+        if (dim > 1) StringAppendS("\n");
         if (spaces>0) StringAppend("%-*.*s",spaces,spaces," ");
       }
     }
   }
-  return StringAppend("");
+  return StringAppendS("");
 }
 

Singular/ipprint.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipprint.cc,v 1.8 1998-11-16 08:41:17 Singular Exp $ */
+/* $Id: ipprint.cc,v 1.9 1999-04-17 12:30:18 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: printing
@@ -97 +97 @@
     {
       pString(m->m[i]);
-      ss=StringAppend(",");
+      ss=StringAppendS(",");
       if ((int)strlen(ss)>colmax) s[i]=NULL;
       else                        s[i]=mstrdup(ss);

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.39 1999-04-16 07:53:38 obachman Exp $ */
+/* $Id: ipshell.cc,v 1.40 1999-04-17 12:30:18 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -506 +506 @@
       pString0(*pp++);
       s=StringAppend("%c",ch);
-      if (dim > 1) s = StringAppend("\n");
+      if (dim > 1) s = StringAppendS("\n");
     }
   }

Singular/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.30 1999-03-08 18:11:47 Singular Exp $ */
+/* $Id: longalg.cc,v 1.31 1999-04-17 12:30:20 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -764 +764 @@
       else if (nacIsMOne(p->ko))
       {
-        StringAppend("-");
+        StringAppendS("-");
       }
       int  i;
@@ -775 +775 @@
           else
             wroteCoeff=(pShortOut==0);
-          StringAppend(naParNames[i]);
+          StringAppendS(naParNames[i]);
           if (p->e[i] > 1)
           {

Singular/longrat0.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat0.cc,v 1.6 1998-05-27 17:14:08 Singular Exp $ */
+/* $Id: longrat0.cc,v 1.7 1999-04-17 12:30:21 Singular Exp $ */
 /*
 * ABSTRACT -
@@ -117 +117 @@
   else if (a==NULL)
   {
-    StringAppend("o");
+    StringAppendS("o");
   }
 #endif
@@ -133 +133 @@
     s=(char*)Alloc(l);
     z=mpz_get_str(s,10,&a->z);
-    StringAppend(z);
+    StringAppendS(z);
     if (a->s!=3)
     {
-      StringAppend("/");
+      StringAppendS("/");
       z=mpz_get_str(s,10,&a->n);
-      StringAppend(z);
+      StringAppendS(z);
     }
     Free((ADDRESS)s,l);

Singular/misc.cc

@@ -683 +683 @@
           }
         }
-        PrintTCLS('O',StringAppend(""));
+        PrintTCLS('O',StringAppendS(""));
         StringSet("");
       }
@@ -735 +735 @@
       }
     }
-    return mstrdup(StringAppend(""));
+    return mstrdup(StringAppendS(""));
   }
   else
-    return mstrdup(StringAppend(" none"));
+    return mstrdup(StringAppendS(" none"));
 }
 
@@ -797 +797 @@
 #endif
 #ifdef MTRACK
-              StringAppend("MTRACK,");
+              StringAppendS("MTRACK,");
 #endif
 #ifdef PDEBUG
-              StringAppend("PDEBUG,");
+              StringAppendS("PDEBUG,");
 #endif
 #ifdef KDEBUG
-              StringAppend("KDEBUG,");
+              StringAppendS("KDEBUG,");
 #endif
 #ifdef TEST_MAC_ORDER
@@ -810 +810 @@
 #ifndef __OPTIMIZE__
 #ifdef __MWERKS__
-              StringAppend(" Codewarrior 2.0,");
+              StringAppendS(" Codewarrior 2.0,");
 #else
-              StringAppend("-g,");
+              StringAppendS("-g,");
 #endif
 #endif

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.50 1999-04-16 07:53:41 obachman Exp $ */
+/* $Id: ring.cc,v 1.51 1999-04-17 12:30:23 Singular Exp $ */
 
 /*
@@ -687 +687 @@
     {
       StringSetS("//   minpoly        : ");
-      nfShowMipo();PrintS(StringAppend("\n"));
+      nfShowMipo();PrintS(StringAppendS("\n"));
     }
   }

Singular/silink.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: silink.cc,v 1.26 1998-12-03 11:02:38 obachman Exp $ */
+/* $Id: silink.cc,v 1.27 1999-04-17 12:30:24 Singular Exp $ */
 
 /*
@@ -736 +736 @@
       StringSetS("");
       nWrite(IDRING(h)->minpoly);
-      rhs = StringAppend("");
+      rhs = StringAppendS("");
       if (fprintf(fd, "; minpoly = %s", rhs) == EOF) return EOF;
     }

Singular/subexpr.cc

@@ -699 +699 @@
             nDelete(&n);
           }
-          s = StringAppend("");
+          s = StringAppendS("");
           break;
         case MATRIX_CMD: