Changeset 5c39a9 in git

Timestamp:

Nov 22, 2010, 4:30:28 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

949e57ce98be32aa204cfe96c543f2bde13278a6

Parents:

bd911c0f0e71a503697bb7fe7b760df56c76182f

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2010-11-22 16:30:28+01:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 11:55:41+01:00

Message:

pSetGlobals -> p_SetGlobals

Location:

polys

Files:

• monomials/p_polys.cc (modified) (1 diff)
• monomials/p_polys.h (modified) (1 diff)
• polys.cc (modified) (1 diff)
• polys.h (modified) (4 diffs)

polys/monomials/p_polys.cc

@@ -2898 +2898 @@
   }
 }
+/* -------------------------------------------------------- */
+/*2
+* change all global variables to fit the description of the new ring
+*/
+
+void p_SetGlobals(const ring r, BOOLEAN complete)
+{
+  int i;
+  if (r->ppNoether!=NULL) p_Delete(&ppNoether,r);
+
+  if (complete)
+  {
+    test &= ~ TEST_RINGDEP_OPTS;
+    test |= r->options;
+  }
+}
+
 /***************************************************************
  *

polys/monomials/p_polys.h

@@ -1802 +1802 @@
 void      p_DeleteComp(poly * p,int k, const ring r);
 
+/*-------------ring management:----------------------*/
+void p_SetGlobals(const ring r, BOOLEAN complete = TRUE);
+
 #endif // P_POLYS_H
 

polys/polys.cc

@@ -43 +43 @@
 poly      ppNoether = NULL;
 
-/* -------------------------------------------------------- */
-/*2
-* change all global variables to fit the description of the new ring
-*/
-
-
-void pSetGlobals(const ring r, BOOLEAN complete)
-{
-  if (ppNoether!=NULL) pDelete(&ppNoether);
-  //pOrdSgn = r->OrdSgn;
-  //pFDeg=r->pFDeg;
-  //pLDeg=r->pLDeg;
-  //pLexOrder=r->LexOrder;
-
-  if (complete)
-  {
-    test &= ~ TEST_RINGDEP_OPTS;
-    test |= r->options;
-  }
-}
-
 // resets the pFDeg and pLDeg: if pLDeg is not given, it is
 // set to currRing->pLDegOrig, i.e. to the respective LDegProc which

polys/polys.h

@@ -66 +66 @@
 // like pLmDelete, returns pNext(p)
 #define pLmDeleteAndNext(p) p_LmDeleteAndNext(p, currRing)
-// used by iparith.cc (pHead as proc)
-extern poly pHeadProc(poly p);
 
 /***************************************************************
@@ -81 +79 @@
 #define pExpVectorSum(pr, p1, p2)   p_ExpVectorSum(pr, p1, p2, currRing)
 #define pExpVectorDiff(pr, p1, p2)  p_ExpVectorDiff(pr, p1, p2, currRing)
-#define pExpVectorEqual(p1, p2)     p_ExpVectorEqual(p1, p2, currRing)
 
 // Gets a copy of (resp. set) the exponent vector, where e is assumed
@@ -101 +98 @@
   _p_LmCmpAction(p,q,currRing, actionE, actionG,actionS)
 
-#define pLmEqual(p1, p2)     pExpVectorEqual(p1, p2)
+#define pLmEqual(p1, p2)     p_ExpVectorEqual(p1, p2, currRing)
 
 // pCmp: args may be NULL
@@ -234 +231 @@
 
 /*-------------ring management:----------------------*/
-extern void pSetGlobals(const ring r, BOOLEAN complete = TRUE);
 
 // resets the pFDeg and pLDeg: if pLDeg is not given, it is