Changeset df34cff in git

Timestamp:

Sep 30, 2011, 11:51:10 AM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

fb85f97c3bddafa4d2cc27026716efd98a786f07

Parents:

77f594c6fdd00c4d2463427b85228898264f03af

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-30 11:51:10+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:13:50+01:00

Message:

ADD: rWrite can print additional details if asked

Location:

libpolys/polys/monomials

Files:

• ring.cc (modified) (2 diffs)
• ring.h (modified) (1 diff)

libpolys/polys/monomials/ring.cc

@@ -229 +229 @@
 
 
-void rWrite(ring r)
+void   rWrite(ring r, BOOLEAN details)
 {
   if ((r==NULL)||(r->order==NULL))
@@ -355 +355 @@
   {
     PrintS("\n//   noncommutative relations:");
-    poly pl=NULL;
-    int nl;
-    int i,j;
-    for (i = 1; i<r->N; i++)
-    {
-      for (j = i+1; j<=r->N; j++)
-      {
-        nl = n_IsOne(p_GetCoeff(MATELEM(r->GetNC()->C,i,j),r), r->cf);
-        if ( (MATELEM(r->GetNC()->D,i,j)!=NULL) || (!nl) )
-        {
-          Print("\n//    %s%s=",r->names[j-1],r->names[i-1]);
-          pl = MATELEM(r->GetNC()->MT[UPMATELEM(i,j,r->N)],1,1);
-          p_Write0(pl, r, r);
+    if( details )
+    {
+      poly pl=NULL;
+      int nl;
+      int i,j;
+      for (i = 1; i<r->N; i++)
+      {
+        for (j = i+1; j<=r->N; j++)
+        {
+          nl = n_IsOne(p_GetCoeff(MATELEM(r->GetNC()->C,i,j),r), r->cf);
+          if ( (MATELEM(r->GetNC()->D,i,j)!=NULL) || (!nl) )
+          {
+            Print("\n//    %s%s=",r->names[j-1],r->names[i-1]);
+            pl = MATELEM(r->GetNC()->MT[UPMATELEM(i,j,r->N)],1,1);
+            p_Write0(pl, r, r);
+          }
         }
       }
-    }
+    } else
+      PrintS(" ...");
+     
 #if 0  /*Singularg should not differ from Singular except in error case*/
     Print("\n//   noncommutative type:%d", (int)ncRingType(r));

libpolys/polys/monomials/ring.h

@@ -341 +341 @@
 // #define rIsRingVar(A) r_IsRingVar(A,currRing)
 int    r_IsRingVar(const char *n, ring r);
-void   rWrite(ring r);
+void   rWrite(ring r, BOOLEAN details = FALSE);
 // void   rKill(idhdl h);
 // void   rKill(ring r);