Changeset 9d72fe in git for Singular/polys.h

Timestamp:

Aug 24, 2000, 4:42:47 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

d04e5c6da27fdd8c08fbad5b2d62afe127e20d5c

Parents:

30d8a152a104abfe89fae353b5945c3210760945

Message:

* new p_Procs stuff


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

File:

• Singular/polys.h (modified) (5 diffs)

Singular/polys.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.h,v 1.32 2000-08-14 12:56:46 obachman Exp $ */
+/* $Id: polys.h,v 1.33 2000-08-24 14:42:45 obachman Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate polynomials
@@ -124 +124 @@
 // frees the space of monomial and frees coefficient
 #define pDelete1(m)     _pDelete1(m, currPolyBin)
-// deletes the whole polynomial p
-#define pDelete(p)      _pDelete(p, currPolyBin)
+
 
 // similar to routines above, except that monomials are assumed to be from heap h (resp. are allocated from heap h)
@@ -154 +153 @@
 
 extern  poly pHeadProc(poly p);
-// Returns copy of the whole polynomial
-#define pCopy(p)        _pCopy(currPolyBin, p)
 // Returns copy of the whole poly, new monomials are taken from dest_heap
 #define pHeapCopy(dest_heap, p) _pCopy(dest_heap, p)
@@ -180 +177 @@
 
 /*-------------operations on polynomials:------------*/
-poly      pAdd(poly p1, poly p2);
 poly      pNeg(poly p);
 poly      pSub(poly a, poly b);
@@ -187 +183 @@
 poly      pMultCopyN(poly a, number c);
 poly      pPower(poly p, int i);
+
+
+// ----------------- define to enable new p_procs -----*/
+// #define HAVE_P_PROCS
+#ifdef HAVE_P_PROCS
+#include "p_Procs.h"
+#define pDelete p_Delete
+#define pCopy   p_Copy
+#define pAdd    p_Add_q
+#else
+// deletes the whole polynomial p
+#define pDelete(p)      _pDelete(p, currPolyBin)
+// Returns copy of the whole polynomial
+#define pCopy(p)        _pCopy(currPolyBin, p)
+poly      pAdd(poly p1, poly p2);
+#endif
 
 // return TRUE, if exponent and component of Lm(p1) and Lm(p2) are equal,