Changeset 39e776 in git

Timestamp:

Feb 26, 2004, 6:09:40 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

87b9f9df4d1241b09ccd9a9321a3ae04b240f7c9

Parents:

65f3c217432b5058d764e86813b583d0a9e06575

Message:

*hannes: charstr(complex)


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

File:

• kernel/ring.cc (modified) (2 diffs)

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.4 2004-02-26 17:08:35 Singular Exp $ */
+/* $Id: ring.cc,v 1.5 2004-02-26 17:09:40 Singular Exp $ */
 
 /*
@@ -563 +563 @@
   return s;
 }
-#if 0
-char * rCharStr(ring r)
-{
-  char *s;
-  int i;
-
-  if (r->parameter==NULL)
-  {
-    i=r->ch;
-    if(i==-1)
-      s=omStrDup("real");                    /* R */
-    else
-    {
-      s=(char *)omAlloc(6);
-      sprintf(s,"%d",i);                   /* Q, Z/p */
-    }
-    return s;
-  }
-  int l=0;
-  for(i=0; i<rPar(r);i++)
-  {
-    l+=(strlen(r->parameter[i])+1);
-  }
-  s=(char *)omAlloc(l+6);
-  s[0]='\0';
-  if (r->ch<0)       sprintf(s,"%d",-r->ch); /* Fp(a) */
-  else if (r->ch==1) sprintf(s,"0");         /* Q(a)  */
-  else
-  {
-    sprintf(s,"%d,%s",r->ch,r->parameter[0]); /* Fq  */
-    return s;
-  }
-  char tt[2];
-  tt[0]=',';
-  tt[1]='\0';
-  for(i=0; i<rPar(r);i++)
-  {
-    strcat(s,tt);
-    strcat(s,r->parameter[i]);
-  }
-  return s;
-}
-
-char * rParStr(ring r)
-{
-  if (r->parameter==NULL) return omStrDup("");
-
-  int i;
-  int l=2;
-
-  for (i=0; i<rPar(r); i++)
-  {
-    l+=strlen(r->parameter[i])+1;
-  }
-  char *s=(char *)omAlloc(l);
-  s[0]='\0';
-  for (i=0; i<rPar(r)-1; i++)
-  {
-    strcat(s,r->parameter[i]);
-    strcat(s,",");
-  }
-  strcat(s,r->parameter[i]);
-  return s;
-}
-#endif
+
 char * rString(ring r)
 {