 |
My Project
debian-1:4.1.2-p1+ds-2
|
Go to the documentation of this file.
22 #define SR_HDL(A) ((long)(A))
25 #define SR_TO_INT(SR) (((long)SR) >> 2)
31 const char *
nlRead (
const char *
s, number *a,
const coeffs r)
54 if (mpz_cmp_si(n,0L)==0)
60 else if (mpz_cmp_si(n,1L)==0)
66 if (mpz_cmp_si(z,0L)==0)
103 int l=mpz_sizeinbase(a->z,10);
104 if (a->s<2)
l=
si_max(
l,(
int)mpz_sizeinbase(a->n,10));
107 z=mpz_get_str(
s,10,a->z);
112 z=mpz_get_str(
s,10,a->n);
120 void nlDebugWrite (number a)
133 int l=mpz_sizeinbase(a->z,10);
134 if (a->s<2)
l=
si_max(
l,(
int)mpz_sizeinbase(a->n,10));
137 z=mpz_get_str(
s,10,a->z);
142 z=mpz_get_str(
s,10,a->n);
void StringAppendS(const char *st)
#define omGetSpecBin(size)
const char *const nDivBy0
void PrintS(const char *s)
#define omFreeSize(addr, size)
char * nEatLong(char *s, mpz_ptr i)
extracts a long integer from s, returns the rest
void nlNormalize(number &x, const coeffs r)
'SR_INT' is the type of those integers small enough to fit into 29 bits.
static int si_max(const int a, const int b)
void WerrorS(const char *s)
number nlShort3_noinline(number x)
const CanonicalForm int s
const char * nlRead(const char *s, number *a, const coeffs r)
void nlWrite(number a, const coeffs)