int ei_encode_ulong(char *buf, int *index, unsigned long p)
{
char *s = buf + *index;
char *s0 = s;
if (p > ERL_MAX) {
if (!buf) s += 7;
else {
put8(s,ERL_SMALL_BIG_EXT);
put8(s,4); /* len = four bytes */
put8(s, 0); /* save sign separately */
put32le(s,p); /* OBS: Little Endian, and p now positive */
}
}
else if ((p < 256) && (p >= 0)) {
if (!buf) s += 2;
else {
put8(s,ERL_SMALL_INTEGER_EXT);
put8(s,(p & 0xff));
}
}
else {
if (!buf) s += 5;
else {
put8(s,ERL_INTEGER_EXT);
put32be(s,p);
}
}
*index += s-s0;
return 0;
}
int ei_encode_bignum(char *buf, int *index, mpz_t obj)
{
char *s = buf + *index;
char *s0 = s;
size_t count;
int mpz_sign = mpz_sgn(obj);
/*
* FIXME we could code into ERL_[SMALL_]INTEGER_EXT but to make
* this code simple for now we always code into ERL_SMALL_BIG_EXT
*/
if (mpz_sign == 0) { /* Special case, bignum is zero */
if (!buf) s += 2;
else {
put8(s,ERL_SMALL_INTEGER_EXT);
put8(s,0);
}
} else {
if (!buf) {
int numb = 8; /* # bits in each external format limb */
s += (mpz_sizeinbase(obj, 2) + numb-1) / numb;
} else {
char *arityp;
put8(s,ERL_LARGE_BIG_EXT);
arityp = s; /* fill in later */
s += 4;
put8(s, mpz_sign == 1); /* save sign separately */
mpz_export(s, &count, -1, 1, 0, 0, obj);
s += count;
put32le(arityp, count);
}
}
*index += s-s0;
return 0;
}
