Changeset f92fa13 in git for Singular/spSpolyLoop.h

Timestamp:

Mar 16, 1998, 3:56:48 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'fc741b6502fd8a97288eaa3eba6e5220f3c3df87')

Children:

5c8eae0ee4adf297d4ee70c4eb367499625899d8

Parents:

057fd3b14dfe97c1070a5e6e9ea465fb317ae57f

Message:

1998-03-16  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* polys-impl.h: #define COMP_FAST

	* configure.in,Makefile.in: check for flex -P; increased version
	number to 1.1.7

1998-03-04  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* febase.h: added macro assume()

	* spSpolyLoop.cc: Automatic generation of SpolyLoops using
	spSpolyLoop.pl

	* kstd*.cc: New calling interface to get SpolyLoop

	* ring.h: Introduced rOrderType_t


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

File:

• Singular/spSpolyLoop.h (modified) (1 diff)

Singular/spSpolyLoop.h

@@ +1 @@
+#ifndef SPSPOLYLOOP_H
+#define SPSPOLYLOOP_H
+
+// throw this out, as soon as we got rid off COMP_FAST
+#include "polys-impl.h"
+typedef void (*spSpolyLoopProc)(poly p1, poly p2, poly m, poly spNoether);
+
 #ifdef COMP_FAST
-spSpolyLoopProc spSetSpolyLoop(ring r, int syzComp, int ak, BOOLEAN homog);
-extern void spPSpolyLoop_General(poly p1, poly p2, poly m, poly spNoether);
-#endif // COMP_FAST
+#include "structs.h"
+#include "ring.h"
+#include "kutil.h"
+
+/*
+ * assume m = L(m)
+ * pNext(m) = result = a2-a1*m
+ * do not destroy a1, but a2
+ */
+
+spSpolyLoopProc spGetSpolyLoop(ring r, rOrderType_t ot, BOOLEAN homog);
+void spSpolyLoop_General (poly a1, poly a2, poly monom, poly spNoether);
+
+inline spSpolyLoopProc spGetSpolyLoop(ring r, kStrategy strat)
+{
+  return spGetSpolyLoop(r, spGetOrderType(r, strat), strat->homog);
+}
+
+inline spSpolyLoopProc spGetSpolyLoop(ring r)
+{
+  return spGetSpolyLoop(r, rGetOrderType(r), FALSE);
+}
+
+#endif
+
+
+#endif // SPSPOLYLOOP_H