Changeset 0c950b in git

Timestamp:

Dec 6, 2000, 1:38:30 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

a79bc624a96888a1bce8c52f3c8f6a33640de235

Parents:

675526ab5fbb3d219acfce4b92be03e1929d4a24

Message:

*hannes: ring indep. p_String etc


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

File:

• Singular/polys0.cc (modified) (4 diffs)

Singular/polys0.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys0.cc,v 1.18 2000-11-28 11:50:56 obachman Exp $ */
+/* $Id: polys0.cc,v 1.19 2000-12-06 12:38:30 Singular Exp $ */
 
 /*
@@ -26 +26 @@
 
   if (pGetCoeff(p)!=NULL)
-    nNormalize(pGetCoeff(p));
+    n_Normalize(pGetCoeff(p),r);
 
   if (((p_GetComp(p,r) == (short)ko)
     &&(p_LmIsConstantComp(p, r)))
-  || ((!nIsOne(pGetCoeff(p)))
-    && (!nIsMOne(pGetCoeff(p)))
+  || ((!n_IsOne(pGetCoeff(p),r))
+    && (!n_IsMOne(pGetCoeff(p),r))
   )
   )
   {
-    nWrite(p->coef);
+    n_Write(p->coef,r);
     wroteCoef=(rShortOut(r) == FALSE ||(r->parameter!=NULL));
     writeGen=TRUE;
   }
-  else if (nIsMOne(pGetCoeff(p)))
-  {
-    if (nGreaterZero(pGetCoeff(p)))
-    {
-      nWrite(p->coef);
+  else if (n_IsMOne(pGetCoeff(p),r))
+  {
+    if (n_GreaterZero(pGetCoeff(p),r))
+    {
+      n_Write(p->coef,r);
       wroteCoef=(rShortOut(r) == FALSE ||(r->parameter!=NULL));
       writeGen=TRUE;
@@ -92 +92 @@
     while (p!=NULL)
     {
-      if ((p->coef==NULL)||nGreaterZero(p->coef))
+      if ((p->coef==NULL)||n_GreaterZero(p->coef,tailRing))
         StringAppendS("+");
       writemon(p,0, tailRing);
@@ -113 +113 @@
     while ((p!=NULL) && (k == p_GetComp(p, tailRing)))
     {
-      if (nGreaterZero(p->coef)) StringAppendS("+");
+      if (n_GreaterZero(p->coef,tailRing)) StringAppendS("+");
       writemon(p,k,tailRing);
       pIter(p);