Changeset 5bc2461 in git for polys/polys1.cc

Timestamp:

Nov 22, 2010, 4:49:34 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a6633e9e6157506ee434baf1e2be9bb27e111c71

Parents:

949e57ce98be32aa204cfe96c543f2bde13278a6

git-author:

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

git-committer:

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

Message:

p_SetModDeg, pModDeg

File:

• polys/polys1.cc (modified) (1 diff)

polys/polys1.cc

@@ -32 +32 @@
 #include <kernel/ratgring.h>
 #endif
-
-/*-------- several access procedures to monomials -------------------- */
-/*
-* the module weights for std
-*/
-static pFDegProc pOldFDeg;
-static pLDegProc pOldLDeg;
-static intvec * pModW;
-static BOOLEAN pOldLexOrder;
-
-static long pModDeg(poly p, ring r = currRing)
-{
-  long d=pOldFDeg(p, r);
-  int c=p_GetComp(p, r);
-  if ((c>0) && (pModW->range(c-1))) d+= (*pModW)[c-1];
-  return d;
-  //return pOldFDeg(p, r)+(*pModW)[p_GetComp(p, r)-1];
-}
-
-void pSetModDeg(intvec *w)
-{
-  if (w!=NULL)
-  {
-    pModW = w;
-    pOldFDeg = pFDeg;
-    pOldLDeg = pLDeg;
-    pOldLexOrder = pLexOrder;
-    pSetDegProcs(pModDeg);
-    pLexOrder = TRUE;
-  }
-  else
-  {
-    pModW = NULL;
-    pRestoreDegProcs(pOldFDeg, pOldLDeg);
-    pLexOrder = pOldLexOrder;
-  }
-}