singularWishlist.h File Reference

#include "polys/monomials/p_polys.h"
#include "libpolys/polys/simpleideals.h"

Go to the source code of this file.

Functions
static BOOLEAN	_p_LeadmonomDivisibleByNoComp (poly a, poly b, const ring r)
static BOOLEAN	p_LeadmonomDivisibleBy (poly a, poly b, const ring r)
	p_LmDivisibleBy checks also the divisibility of coefficients More...
static void	idShallowDelete (ideal *h)
	id_ShallowDelete deletes the monomials of the polynomials stored inside of it More...
static void	deleteOrdering (ring r)
void	z_Write (number p, ring r)
void	id_Write (const ideal I, const ring r)

Function Documentation

_p_LeadmonomDivisibleByNoComp()

static BOOLEAN _p_LeadmonomDivisibleByNoComp ( poly  a, poly  b, const ring  r  )

inlinestatic

Definition at line 7 of file singularWishlist.h.

{
  int i=r->VarL_Size - 1;
  unsigned long divmask = r->divmask;
  unsigned long la, lb;
 
  if (r->VarL_LowIndex >= 0)
  {
    i += r->VarL_LowIndex;
    do
    {
      la = a->exp[i];
      lb = b->exp[i];
      if ((la > lb) ||
          (((la & divmask) ^ (lb & divmask)) != ((lb - la) & divmask)))
      {
        pDivAssume(p_DebugLmDivisibleByNoComp(a, b, r) == FALSE);
        return FALSE;
      }
      i--;
    }
    while (i>=r->VarL_LowIndex);
  }
  else
  {
    do
    {
      la = a->exp[r->VarL_Offset[i]];
      lb = b->exp[r->VarL_Offset[i]];
      if ((la > lb) ||
          (((la & divmask) ^ (lb & divmask)) != ((lb - la) & divmask)))
      {
        pDivAssume(p_DebugLmDivisibleByNoComp(a, b, r) == FALSE);
        return FALSE;
      }
      i--;
    }
    while (i>=0);
  }
  pDivAssume(p_DebugLmDivisibleByNoComp(a, b, r) == TRUE);
  return TRUE;
}

deleteOrdering()

static void deleteOrdering ( ring  r )

inlinestatic

Definition at line 80 of file singularWishlist.h.

{
  if (r->order != NULL)
  {
    int i=rBlocks(r);
    assume(r->block0 != NULL && r->block1 != NULL && r->wvhdl != NULL);
    /* delete order */
    omFreeSize((ADDRESS)r->order,i*sizeof(rRingOrder_t));
    omFreeSize((ADDRESS)r->block0,i*sizeof(int));
    omFreeSize((ADDRESS)r->block1,i*sizeof(int));
    /* delete weights */
    for (int j=0; j<i; j++)
      omfree(r->wvhdl[j]);
    omFreeSize((ADDRESS)r->wvhdl,i*sizeof(int *));
  }
  else
    assume(r->block0 == NULL && r->block1 == NULL && r->wvhdl == NULL);
}

id_Write()

void id_Write	(	const ideal	I,
		const ring	r
	)

Definition at line 15 of file singularWishlist.cc.

{
  for (int i=0; i<IDELEMS(I); i++)
    p_Write(I->m[i],r);
}

idShallowDelete()

static void idShallowDelete ( ideal *  h )

inlinestatic

id_ShallowDelete deletes the monomials of the polynomials stored inside of it

Definition at line 66 of file singularWishlist.h.

{
  if (*h != NULL)
  {
    int k;
    k=(*h)->nrows*(*h)->ncols;
    if (k>0)
      omFreeSize((ADDRESS)((*h)->m),sizeof(poly)*k);
    omFreeBin((ADDRESS)*h, sip_sideal_bin);
    *h=NULL;
  }
  return;
}

p_LeadmonomDivisibleBy()

static BOOLEAN p_LeadmonomDivisibleBy ( poly  a, poly  b, const ring  r  )

inlinestatic

p_LmDivisibleBy checks also the divisibility of coefficients

Definition at line 53 of file singularWishlist.h.

{
  p_LmCheckPolyRing1(b, r);
 
  pIfThen1(a != NULL, p_LmCheckPolyRing1(b, r));
  if (p_GetComp(a, r) == 0 || p_GetComp(a,r) == p_GetComp(b,r))
    return _p_LeadmonomDivisibleByNoComp(a, b, r);
  return FALSE;
}

z_Write()

void z_Write	(	number	p,
		ring	r
	)

Definition at line 5 of file singularWishlist.cc.

{
  poly g = p_One(r);
  p_SetCoeff(g,p,r);
  p_Write(g,r);
  p_SetCoeff0(g,n_Init(1,r->cf),r);
  p_Delete(&g,r);
  return;
}