Eigenmath-fx/mstr.cpp

// Convert bignum to string

#include "stdafx.h"
#include "defs.h"

static int divby1billion(unsigned int *);

static char *str;
static int len;

char *
mstr(unsigned int *a)
{
	int k, n, r, sign;
	char c;

	if (str == NULL) {
		str = (char *) malloc(1000);
		len = 1000;
	}

	// estimate string size

	n = 10 * MLENGTH(a) + 2;

	if (n > len) {
		free(str);
		str = (char *) malloc(n);
		len = n;
	}

	sign = MSIGN(a);

	a = mcopy(a);

	k = len - 1;

	str[k] = 0;

	for (;;) {
		k -= 9;
		r = divby1billion(a);
		c = str[k + 9];
		sprintf(str + k, "%09d", r);
		str[k + 9] = c;
		if (MZERO(a))
			break;
	}

	// remove leading zeroes

	while (str[k] == '0')
		k++;

	if (str[k] == 0)
		k--;

	// sign

	if (sign == -1) {
		k--;
		str[k] = '-';
	}

	mfree(a);

	return str + k;
}

// Returns remainder as function value, quotient returned in a.

static int
divby1billion(unsigned int *a)
{
	int i;
	unsigned long long kk;

	kk = 0;

	for (i = MLENGTH(a) - 1; i >= 0; i--) {

		if (little_endian()) {
			((unsigned int *) &kk)[1] = ((unsigned int *) &kk)[0];
			((unsigned int *) &kk)[0] = a[i];
		} else {
			((unsigned int *) &kk)[0] = ((unsigned int *) &kk)[1];
			((unsigned int *) &kk)[1] = a[i];
		}

		a[i] = (int) (kk / 1000000000);

		kk -= (unsigned long long) 1000000000 * a[i];
	}

	// length of quotient

	for (i = MLENGTH(a) - 1; i > 0; i--)
		if (a[i])
			break;

	MLENGTH(a) = i + 1;

	if (little_endian())
		return ((unsigned int *) &kk)[0];
	else
		return ((unsigned int *) &kk)[1];
}