pShallowCopyDelete.cc File Reference

#include "misc/auxiliary.h"
#include "pShallowCopyDelete.h"

Go to the source code of this file.

Functions
poly	pShallowCopyDelete_General (poly s_p, ring s_r, ring d_r, omBin d_bin)
pShallowCopyDeleteProc	pGetShallowCopyDeleteProc (ring, ring)

Function Documentation

pGetShallowCopyDeleteProc()

pShallowCopyDeleteProc pGetShallowCopyDeleteProc	(	ring	source_r,
		ring	dest_r
	)

Definition at line 50 of file pShallowCopyDelete.cc.

{
  return pShallowCopyDelete_General;
}

pShallowCopyDelete_General()

poly pShallowCopyDelete_General	(	poly	s_p,
		ring	s_r,
		ring	d_r,
		omBin	d_bin
	)

Definition at line 16 of file pShallowCopyDelete.cc.

{
  p_CheckPolyRing(s_p, s_r);
  p_CheckRing(d_r);
  assume(d_bin != NULL);
  assume(d_bin == d_r->PolyBin || omSizeWOfBin(d_bin) == omSizeWOfBin(d_r->PolyBin));
  assume(s_r->N == d_r->N);
 
  spolyrec dp;
  poly d_p = &dp;
  int N = d_r->N;
  int i;
 
 
  while (s_p != NULL)
  {
    d_p->next = p_Init(d_r, d_bin);
    pIter(d_p);
 
    pSetCoeff0(d_p, pGetCoeff(s_p));
    for (i=1; i<= N; i++)
      p_SetExp(d_p, i, p_GetExp(s_p, i, s_r), d_r);
 
    if (rRing_has_Comp(d_r))
      p_SetComp(d_p, p_GetComp(s_p, s_r), d_r);
    p_Setm(d_p, d_r);
 
    s_p = p_LmFreeAndNext(s_p, s_r);
  }
  pNext(d_p) = NULL;
 
  return dp.next;
}