Changeset 1fdb6e in git for kernel/kInline.h

Timestamp:

Jul 20, 2011, 7:49:52 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

a778e6518804aecf7bb83784c8936b0868f52943

Parents:

eaae7da539e9a22d6276d70ef09c436adadfeaba

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-07-20 19:49:52+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:52:45+01:00

Message:

move code (p_Last) to p_polys.cc

File:

• kernel/kInline.h (modified) (1 diff)

kernel/kInline.h

@@ -33 +33 @@
 // #define HAVE_LM_BIN
 
-/*2
-* returns the length of a (numbers of monomials)
-* respect syzComp
-*/
-poly p_Last(poly a, int &l, const ring r)
-{
-  if (a == NULL)
-  {
-    l = 0;
-    return NULL;
-  }
-  l = 1;
-  if (! rIsSyzIndexRing(r))
-  {
-    while (pNext(a)!=NULL)
-    {
-      pIter(a);
-      l++;
-    }
-  }
-  else
-  {
-    int curr_limit = rGetCurrSyzLimit(r);
-    poly pp = a;
-    while ((a=pNext(a))!=NULL)
-    {
-      if (p_GetComp(a,r)<=curr_limit/*syzComp*/)
-        l++;
-      else break;
-      pp = a;
-    }
-    a=pp;
-  }
-  return a;
-}
-
-/***************************************************************
- *
- * poly things which are independent of ring
- *
- ***************************************************************/
-
-// returns the length of a polynomial (numbers of monomials)
-// respect syzComp
-static inline poly pLast(poly a, int &length) { return p_Last (a, length, currRing); }
-static inline poly pLast(poly a) { int l; return pLast(a, l); }