15#define mpz_isNeg(A) ((A)->_mp_size<0)
83 if (neg)
mpz_neg((*n)->z,(*n)->z);
129 memcpy(
s,
m->exp,r->ExpL_Size*
sizeof(
long));
130 s+=r->ExpL_Size*
sizeof(
long);
138 memcpy((*m)->exp,
s,r->ExpL_Size*
sizeof(
long));
139 s+=r->ExpL_Size*
sizeof(
long);
146 ll+=r->ExpL_Size*
sizeof(
long);
177 for(
long i=0;
i<
l;
i++)
201 int cnt=0;
int rw=0;
int cl=0;
203 for(
int j=
rl-1;
j>=0;
j--)
212 WerrorS(
"format mismatch in CRT");
231 for(
int i=cnt-1;
i>=0;
i--)
244 int pid = fork_process();
259 int ind=queue->dequeue();
265 for(
int j=
rl-1;
j>=0;
j--)
276 char *
s=(
char*)
msg->str();
289 char *
s=(
char*)
msg->str();
335 for(
int i=cnt-1;
i>=0;
i--)
348 int pid = fork_process();
358 int ind=queue->dequeue();
367 char *
s=(
char*)
msg->str();
380 char *
s=(
char*)
msg->str();
static int si_min(const int a, const int b)
const CanonicalForm CFMap CFMap & N
si_hdl_typ si_set_signal(int sig, si_hdl_typ signal_handler)
meta function for binding a signal to an handler
void sig_term_hdl_child(int)
const CanonicalForm int s
void WerrorS(const char *s)
static void * feOptValue(feOptIndex opt)
ideal id_Farey(ideal x, number N, const ring r)
static char * get_poly(char *s, int &ind, poly *p, const ring r)
static char * get_mon(char *s, poly *m, const ring r)
static long size_poly(poly p, const ring r)
ideal id_Farey_0(ideal x, number N, const ring r)
static long size_number(number n)
static char * send_poly(char *s, int ind, poly p, const ring r)
static char * send_number(char *s, number n)
static char * send_mon(char *s, poly m, const ring r)
ideal id_ChineseRemainder_0(ideal *xx, number *q, int rl, const ring r)
static char * get_number(char *s, number *n)
static long size_mon(poly m, const ring r)
poly p_ChineseRemainder(poly *xx, mpz_ptr *x, mpz_ptr *q, int rl, mpz_ptr *C, const ring R)
static const int MAX_PROCESS
#define omFreeSize(addr, size)
poly p_Farey(poly p, number N, const ring r)
static int pLength(poly a)
void p_Write(poly p, ring lmRing, ring tailRing)
static poly pReverse(poly p)
static poly p_Init(const ring r, omBin bin)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
Compatibility layer for legacy polynomial operations (over currRing)
int status int void * buf
ideal idInit(int idsize, int rank)
initialise an ideal / module
ideal id_ChineseRemainder(ideal *xx, number *q, int rl, const ring r)
void singular_close_links()