Changeset c4bd5c in git

Timestamp:

Nov 23, 1999, 4:25:37 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

82a8accbf9eeff961384a1ee6697f7be092dae1c

Parents:

8ad9cd767081908947eb6102bff6a653bdc2edae

Message:

*hannes: better pDebugPrint


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

File:

• Singular/ring.cc (modified) (3 diffs)

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.93 1999-11-22 16:30:01 Singular Exp $ */
+/* $Id: ring.cc,v 1.94 1999-11-23 15:25:37 Singular Exp $ */
 
 /*
@@ -3230 +3230 @@
 void pDebugPrint(poly p)
 {
-  int i;
+  int i,j;
   pWrite(p);
+  j=10;
   while(p!=NULL)
   {
@@ -3240 +3241 @@
     for(i=0;i<currRing->ExpLSize;i++)
       Print("%d ",p->exp.l[i]);
-    PrintLn();pIter(p);
+    PrintLn();
+    Print("v0:%d ",pGetComp(p));
+    for(i=1;i<=pVariables;i++) Print(" v%d:%d",i,pGetExp(p,i));
+    PrintLn();
+    pIter(p);
+    j--;
+    if (j==0) { PrintS("...\n"); break; }
   }
 }