include/borderbasix/modspecial.cc

Go to the documentation of this file.

typedef Monom<macrev_Z, mon::rep_t> mon_mod;

template<>
void INIT_ELEM<pol<mon_mod,macrev_Z > >(void *ptr, int size)
{
  typedef pol<mon_mod,macrev_Z > pol;
  int nbelem=size/sizeof(pol),k=0;
  for(pol *i=(pol*)ptr;k<nbelem;i++,k++)
    mpz_init((i->ind).coeff.rep);
}
template<>
void INIT_ELEM<macrev_Z >(void * ptr, int size)
{
  int nbelem=size/sizeof(macrev_Z),k=0;
#if 0
  mpz_array_init(*((mpz_t *)ptr),nbelem,macrev_Z_nbbits);
  return;
#endif
  for(macrev_Z *i=(macrev_Z *)ptr;k<nbelem;i++,k++)
       mpz_init(i->rep)
    ;
}
template<>
void CLEAR_ELEM<macrev_Z >(void * ptr, int size)
{
  //cout<<"clear elem "<<endl;
#if 0
  if(ptr)
    mpz_clear(((macrev_Z*) ptr)->rep);
  return;
#endif
  int nbelem=size/sizeof(macrev_Z),k=0;
  for(macrev_Z *i=(macrev_Z*)ptr;k<nbelem;i++,k++)
    mpz_clear(i->rep);
}

template<>
void CLEAR_ELEM<pol<mon_mod,macrev_Z > >(void *ptr, int size)
{
  typedef pol<mon_mod,macrev_Z > pol;
  typedef pol::coeff_t coeff;
  int nbelem=size/sizeof(pol),k=0;
  for(pol *i=(pol*)ptr;k<nbelem;i++,k++)
    {
      mpz_clear(((i->ind).coeff.rep));
//      MAC_REV_FREE<coeff>(i->nf,i->size*sizeof(coeff));
    }
}
#if 0
template<>
inline void * MAC_REV_REALLOC<macrev_Z>(void * ptr,int size,int newsize)
{
  void *res=ptr;
  if(size<newsize)
    {
      INIT_ELEM<macrev_Z>(res,newsize);
      for(int i=0;i<size/sizeof(macrev_Z);i++)
        ((macrev_Z *)res)[i]=((macrev_Z *)ptr)[i];
      CLEAR_ELEM<macrev_Z>(ptr,size);
    }
  if(size>newsize)
    {
      res=realloc(ptr,newsize);
    }
  return res;
}
#endif

inline int Iszero(const macrev_Z & c)
{
  return c==macrev_Z(0);
}

inline void convert (macrev_Z & dd, char *s)
{
  dd=macrev_Z(s);
}

---