Changeset a3bc95e in git for Singular/p_Minus_mm_Mult_qq__T.cc

Timestamp:

Oct 9, 2001, 6:36:27 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7497ef3773fc1afff892546445b1d82b1cf0fb05

Parents:

e58c4abd91b68d128331a23f3f9dd76dff924048

Message:

*hannes: namespaces ->ns


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

File:

• Singular/p_Minus_mm_Mult_qq__T.cc (modified) (10 diffs)

Singular/p_Minus_mm_Mult_qq__T.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_Minus_mm_Mult_qq__T.cc,v 1.2 2001-08-27 14:47:25 Singular Exp $
+ *  Version: $Id: p_Minus_mm_Mult_qq__T.cc,v 1.3 2001-10-09 16:36:14 Singular Exp $
  *******************************************************************/
 
@@ -16 +16 @@
  * Destroys: p
  * Const:    m, q
- * 
+ *
  ***************************************************************/
 LINKAGE poly p_Minus_mm_Mult_qq(poly p, poly m, poly q, int& Shorter, const poly spNoether, const ring r, poly &last)
@@ -31 +31 @@
   // we are done if q == NULL || m == NULL
   if (q == NULL || m == NULL) return p;
-  
+
   spolyrec rp;
   poly a = &rp,                    // collects the result
@@ -50 +50 @@
   const unsigned long* m_e = m->exp;
   omBin bin = r->PolyBin;
-  
+
   if (p == NULL) goto Finish;           // return tneg*q if (p == NULL)
-  
+
   pAssume(p_GetComp(q, r) == 0 || p_GetComp(m, r) == 0);
 
@@ -60 +60 @@
   p_MemSum(qm->exp, q->exp, m_e, length);
   p_MemAddAdjust(qm, r);
-  
-  CmpTop:     
+
+  CmpTop:
   // compare qm = m*q and p w.r.t. monomial ordering
   p_MemCmp(qm->exp, p->exp, length, ordsgn, goto Equal, goto Greater, goto Smaller );
-  
+
   Equal:   // qm equals p
   tb = n_Mult(pGetCoeff(q), tm, r);
@@ -78 +78 @@
   }
   else
-  { // coeffs are equal, so their difference is 0: 
+  { // coeffs are equal, so their difference is 0:
     shorter += 2;
     n_Delete(&tc, r);
@@ -88 +88 @@
   // no, so update qm
   goto SumTop;
-  
+
 
   Greater:
@@ -97 +97 @@
   {
     qm = NULL;
-    goto Finish; 
+    goto Finish;
   }
-  // construct new qm 
+  // construct new qm
   goto AllocTop;
-    
-  Smaller:     
+
+  Smaller:
   a = pNext(a) = p;// append p to result and advance p
   pIter(p);
   if (p == NULL) goto Finish;
   goto CmpTop;
- 
+
 
   Finish: // q or p is NULL: Clean-up time
@@ -129 +129 @@
     pSetCoeff0(m, tm);
   }
-   
+
   n_Delete(&tneg, r);
   if (qm != NULL) p_FreeBinAddr(qm, r);
@@ -135 +135 @@
   p_Test(pNext(&rp), r);
   return pNext(&rp);
-} 
+}