My Project
debian-1:4.1.1-p2+ds-4build1
libpolys
polys
templates
Functions
p_ShallowCopyDelete__T.cc File Reference
Go to the source code of this file.
Functions
LINKAGE
poly
p_ShallowCopyDelete__T
(poly s_p,
const
ring r,
omBin
d_bin)
Function Documentation
◆
p_ShallowCopyDelete__T()
LINKAGE
poly p_ShallowCopyDelete__T
(
poly
s_p
,
const
ring
r
,
omBin
d_bin
)
Definition at line
14
of file
p_ShallowCopyDelete__T.cc
.
14
: Monoms of
p
are from
15
* Returns:
16
***************************************************************/
17
LINKAGE
poly
p_ShallowCopyDelete__T
(poly s_p,
const
ring r,
omBin
d_bin)
18
{
19
spolyrec
dp;
20
poly d_p = &dp;
21
poly
h
;
22
23
DECLARE_LENGTH(
const
unsigned
long
length
= r->ExpL_Size);
24
25
while
(s_p !=
NULL
)
26
{
27
p_AllocBin
(d_p->next, d_bin, r);
28
pIter
(d_p);
29
pSetCoeff0
(d_p,
pGetCoeff
(s_p));
30
h
= s_p;
31
s_p =
pNext
(s_p);
32
p_MemCopy__T(d_p->exp,
h
->exp,
length
);
33
p_FreeBinAddr
(
h
, r);
34
}
length
static BOOLEAN length(leftv result, leftv arg)
Definition:
interval.cc:267
p_ShallowCopyDelete__T
LINKAGE poly p_ShallowCopyDelete__T(poly s_p, const ring r, omBin d_bin)
Definition:
p_ShallowCopyDelete__T.cc:14
h
static Poly * h
Definition:
janet.cc:972
pIter
#define pIter(p)
Definition:
monomials.h:41
spolyrec
Definition:
monomials.h:27
p_FreeBinAddr
#define p_FreeBinAddr(p, r)
Definition:
monomials.h:255
omBin
omBin_t * omBin
Definition:
omStructs.h:11
pSetCoeff0
#define pSetCoeff0(p, n)
Definition:
monomials.h:63
NULL
#define NULL
Definition:
omList.c:9
p
int p
Definition:
cfModGcd.cc:4019
p_AllocBin
#define p_AllocBin(p, bin, r)
Definition:
monomials.h:248
pGetCoeff
static number & pGetCoeff(poly p)
return an alias to the leading coefficient of p assumes that p != NULL NOTE: not copy
Definition:
monomials.h:48
LINKAGE
#define LINKAGE
Definition:
mod2.h:137
pNext
#define pNext(p)
Definition:
monomials.h:40
Generated on Wed Jan 29 2020 08:34:04 for My Project by
doxygen 1.8.16
for
Singular debian-1:4.1.1-p2+ds-4build1