Changeset 7a8011 in git for libpolys/polys/monomials/ring.cc

Timestamp:

Apr 21, 2011, 2:12:11 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9b9ae7fadb61129e98f779cff3f5ea3435f370a7

Parents:

8167afd5e92aaed2ba8a54e3c1566fd86d339aa8

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-04-21 14:12:11+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:31:25+01:00

Message:

more CoeffWrite: rings, long R, long C

File:

• libpolys/polys/monomials/ring.cc (modified) (1 diff)

libpolys/polys/monomials/ring.cc

@@ -281 +281 @@
   n_CoeffWrite(r->cf);
 #if 0
-  if (rField_is_GF(r))
-  {
-    Print("//   # ground field : %d\n",r->cf->ch);
-    Print("//   primitive element : %s\n", r->parameter[0]);
-    StringSetS("//   minpoly        : ");
-    nfShowMipo(r->cf);PrintS(StringAppendS("\n"));
-  }
-#ifdef HAVE_RINGS
-  else if (rField_is_Ring(r))
-  {
-    PrintS("//   coeff. ring is : ");
-    if (rField_is_Ring_Z(r)) PrintS("Integers\n");
-    long l = (long)mpz_sizeinbase(r->cf->modBase, 10) + 2;
-    char* s = (char*) omAlloc(l);
-    mpz_get_str(s,10,r->cf->modBase);
-    if (rField_is_Ring_ModN(r)) Print("Z/%s\n", s);
-    if (rField_is_Ring_2toM(r)) Print("Z/2^%lu\n", r->cf->modExponent);
-    if (rField_is_Ring_PtoM(r)) Print("Z/%s^%lu\n", s, r->cf->modExponent);
-    omFreeSize((ADDRESS)s, l);
-  }
-#endif
   else
   {