32 #include "polys/prCopy.inc" 39 res = pr_Copy_NoREqual_NSimple_Sort(p, src_r, dest_r);
41 res = pr_Copy_NoREqual_NoNSimple_Sort(p, src_r, dest_r);
49 int _min =
si_min(dest_r->N, src_r->N);
71 dest =
pNext(&dest_s);
81 res = pr_Copy_NoREqual_NSimple_NoSort(p, src_r, dest_r);
83 res = pr_Copy_NoREqual_NoNSimple_NoSort(p, src_r, dest_r);
94 res = pr_Move_NoREqual_NSimple_Sort(p, src_r, dest_r);
96 res = pr_Move_NoREqual_NoNSimple_Sort(p, src_r, dest_r);
105 res = pr_Move_NoREqual_NSimple_NoSort(p, src_r, dest_r);
107 res = pr_Move_NoREqual_NoNSimple_NoSort(p, src_r, dest_r);
114 return pr_Copy_NoREqual_NSimple_NoSort(p, r, dest_r);
119 return pr_Copy_NoREqual_NSimple_Sort(p, r, dest_r);
129 poly tail,
head, q =
p;
132 head = prproc(q, src_r, dest_r);
145 prproc = pr_Copy_NoREqual_NSimple_NoSort;
147 prproc = pr_Copy_NoREqual_NoNSimple_NoSort;
149 const poly
res =
prHeadR(p, src_r, dest_r, prproc);
160 prCopyProc_t prproc = pr_Copy_NoREqual_NoNSimple_NoSort;
162 prproc = pr_Copy_NoREqual_NSimple_NoSort;
167 for (
int i = N - 1;
i >= 0;
i--)
168 res->m[
i] =
prHeadR(id->m[
i], r, dest_r, prproc);
178 assume(src_r->cf==dest_r->cf);
183 for (i=
IDELEMS(
id)-1; i>=0; i--)
186 res->m[
i] = prproc(p, src_r, dest_r);
187 p_Test(res->m[i], dest_r);
194 assume(src_r->cf==dest_r->cf);
198 prproc = pr_Copy_NoREqual_NSimple_Sort;
200 prproc = pr_Copy_NoREqual_NoNSimple_Sort;
201 res =
idrCopy(
id, src_r, dest_r, prproc);
207 assume(src_r->cf==dest_r->cf);
211 prproc = pr_Copy_NoREqual_NSimple_NoSort;
213 prproc = pr_Copy_NoREqual_NoNSimple_NoSort;
214 res =
idrCopy(
id, src_r, dest_r, prproc);
222 return idrCopy(
id, src_r, dest_r, pr_Copy_NoREqual_NSimple_Sort);
227 return idrCopy(
id, src_r, dest_r, pr_Copy_NoREqual_NSimple_NoSort);
235 assume(src_r->cf==dest_r->cf);
243 res->m[
i] = prproc(res->m[
i], src_r, dest_r);
250 assume(src_r->cf==dest_r->cf);
254 prproc = pr_Move_NoREqual_NSimple_Sort;
256 prproc = pr_Move_NoREqual_NoNSimple_Sort;
257 res =
idrMove(
id, src_r, dest_r, prproc);
263 assume(src_r->cf==dest_r->cf);
267 prproc = pr_Move_NoREqual_NSimple_NoSort;
269 prproc = pr_Move_NoREqual_NoNSimple_NoSort;
270 res =
idrMove(
id, src_r, dest_r, prproc);
static BOOLEAN rField_has_simple_Alloc(const ring r)
Z/p, GF(p,n), R: nCopy, nNew, nDelete are dummies.
poly prHeadR(poly p, ring src_r, ring dest_r, prCopyProc_t prproc)
poly prCopyR_NoSort(poly p, ring src_r, ring dest_r)
poly prCopyR(poly p, ring src_r, ring dest_r)
static ideal idrCopy(ideal id, ring src_r, ring dest_r, prCopyProc_t prproc)
static int si_min(const int a, const int b)
static unsigned long p_SetComp(poly p, unsigned long c, ring r)
poly prMoveR(poly &p, ring src_r, ring dest_r)
ideal idrShallowCopyR(ideal id, ring src_r, ring dest_r)
static number & pGetCoeff(poly p)
return an alias to the leading coefficient of p assumes that p != NULL NOTE: not copy ...
poly prShallowCopyR_NoSort(poly p, ring r, ring dest_r)
ideal idrHeadR(ideal id, ring r, ring dest_r)
Copy leading terms of id[i] via prHeeadR into dest_r.
poly prMapR(poly src, nMapFunc nMap, ring src_r, ring dest_r)
static poly p_SortAdd(poly p, const ring r, BOOLEAN revert=FALSE)
ideal idrShallowCopyR_NoSort(ideal id, ring src_r, ring dest_r)
const CanonicalForm CFMap CFMap & N
static long p_GetExp(const poly p, const unsigned long iBitmask, const int VarOffset)
get a single variable exponent : the integer VarOffset encodes:
static void prCopyEvector(poly dest, ring dest_r, poly src, ring src_r, int max)
static int max(int a, int b)
number(* nMapFunc)(number a, const coeffs src, const coeffs dst)
maps "a", which lives in src, into dst
ideal idrMoveR(ideal &id, ring src_r, ring dest_r)
static FORCE_INLINE BOOLEAN n_IsZero(number n, const coeffs r)
TRUE iff 'n' represents the zero element.
#define rRing_has_Comp(r)
ideal idInit(int idsize, int rank)
initialise an ideal / module
static unsigned long p_SetExp(poly p, const unsigned long e, const unsigned long iBitmask, const int VarOffset)
set a single variable exponent : VarOffset encodes the position in p->exp
poly prShallowCopyR(poly p, ring r, ring dest_r)
ideal idrCopyR(ideal id, ring src_r, ring dest_r)
static void p_Setm(poly p, const ring r)
poly prMoveR_NoSort(poly &p, ring src_r, ring dest_r)
static void p_LmDelete(poly p, const ring r)
poly(* prCopyProc_t)(poly &src_p, ring src_r, ring dest_r)
static poly p_Init(const ring r, omBin bin)
ideal idrCopyR_NoSort(ideal id, ring src_r, ring dest_r)
ideal idrMoveR_NoSort(ideal &id, ring src_r, ring dest_r)
static ideal idrMove(ideal &id, ring src_r, ring dest_r, prCopyProc_t prproc)