pp_Mult_Coeff_mm_DivSelect__T.cc File Reference

Go to the source code of this file.

Functions
LINKAGE poly	pp_Mult_Coeff_mm_DivSelect__T (poly p, const poly m, int &shorter, const ring r)

Function Documentation

pp_Mult_Coeff_mm_DivSelect__T()

LINKAGE poly pp_Mult_Coeff_mm_DivSelect__T	(	poly	p,
		const poly	m,
		int &	shorter,
		const ring	r
	)

Definition at line 18 of file pp_Mult_Coeff_mm_DivSelect__T.cc.

{
  number n = pGetCoeff(m);
  pAssume(!n_IsZero__T(n,r->cf));
  p_Test(p, r);
  if (p == NULL) return NULL;
  spolyrec rp;
  DECLARE_LENGTH(const unsigned long length = r->ExpL_Size);
  int Shorter = 0;
  poly q = &rp;
  omBin bin = r->PolyBin;
 
  do
  {
    if (p_LmDivisibleByNoComp(m, p, r))
    {
      p_AllocBin(pNext(q), bin, r);
      q = pNext(q);
      number nc = pGetCoeff(p);
      pSetCoeff0(q, n_Mult__T(n, nc, r->cf));
      p_MemCopy__T(q->exp, p->exp, length);
    }
    else
    {
      Shorter++;
    }
    pIter(p);
  }
  while (p != NULL);
  pNext(q) = NULL;
 
  shorter = Shorter;
  p_Test(rp.next, r);
  return rp.next;
}