Changeset 8fec17 in git

Timestamp:

Aug 1, 2014, 5:54:51 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3d7ea3ce77a4bef06ea26a6046d866d8cc19fdfb71e8e119078da73cfc30e08a42d0d384c93111c7c62827164ea928c9aa7b7023e63a844f9ab00654cc514ea5b62a0ad88ddc32080d8d14e7b8549a25dccf2b7858608f2bcc2740c336f09a1482164db8

Parents:

43d920449ff39c4e637fe1191bbcd453fe1e309f

Message:

print(ring/cring)

File:

• Singular/ipprint.cc (modified) (2 diffs)

Singular/ipprint.cc

@@ -199 +199 @@
 {
   ring r=(ring)u->Data();
+  PrintS("polynomial ring, over a ");
+  if (rField_is_Ring(r))
+  {
+    if (rField_is_Domain(r)) PrintS("domain");
+    else                     PrintS("ring (with zero-divisors)");
+  }
+  else PrintS("field");
+  if (r->OrdSgn==1) PrintS(", global"); else PrintS(", local/mixed");
+  PrintS(" ordering\n");
   rWrite(r, TRUE);
   return FALSE;
 }
 
+#ifdef SINGULAR_4_1
+static BOOLEAN ipPrint_CRING(leftv u)
+{
+  coeffs r=(coeffs)u->Data();
+  if (nCoeff_is_Ring(r))
+  {
+    if (nCoeff_is_Domain(r)) PrintS("domain: ");
+    else                     PrintS("ring (with zero-divisors): ");
+  }
+  else PrintS("field: ");
+  PrintS(r->cfCoeffName(r));
+  return FALSE;
+}
+#endif
 /*2
 * print for: vector
@@ -275 +298 @@
         bo=ipPrint_RING(u);
         break;
+
+      #ifdef SINGULAR_4_1
+      case CRING_CMD:
+        bo=ipPrint_CRING(u);
+        break;
+      #endif
 
       default: