Function fxStringToBigInt

xs/sources/xsBigInt.c:753–825

}

txBigInt* fxStringToBigInt(txMachine* the, txSlot* slot, txFlag whole)
{
	txString s = slot->value.string;
	txString p = fxSkipSpaces(s);
	txSize offset, length;
	txInteger sign = 0;
	txBigInt bigint = {.sign=0, .size=0, .data=C_NULL };
	char c = *p;
	if (c == '0') {
		char d = *(p + 1);
		if (whole && ((d == 'B') || (d == 'b') || (d == 'O') || (d == 'o') || (d == 'X') || (d == 'x'))) {
			p += 2;
			offset = mxPtrDiff(p - s);
			if ((d == 'B') || (d == 'b')) {
				while (((c = *p)) && ('0' <= c) && (c <= '1'))
					p++;
				length = mxPtrDiff(p - s - offset);
				p = fxSkipSpaces(p);
				if ((length > 0) && (*p == 0)) {
					bigint.data = fxNewChunk(the, fxBigIntMaximumB(length));
					fxBigIntParseB(&bigint, slot->value.string + offset, length);
				}
			}
			else if ((d == 'O') || (d == 'o')) {
				while (((c = *p)) && ('0' <= c) && (c <= '7'))
					p++;
				length = mxPtrDiff(p - s - offset);
				p = fxSkipSpaces(p);
				if ((length > 0) && (*p == 0)) {
					bigint.data = fxNewChunk(the, fxBigIntMaximumO(length));
					fxBigIntParseO(&bigint, slot->value.string + offset, length);
				}
			}
			else if ((d == 'X') || (d == 'x')) {
				while (((c = *p)) && ((('0' <= c) && (c <= '9')) || (('a' <= c) && (c <= 'f')) || (('A' <= c) && (c <= 'F'))))
					p++;
				length = mxPtrDiff(p - s - offset);
				p = fxSkipSpaces(p);
				if ((length > 0) && (*p == 0)) {
					bigint.data = fxNewChunk(the, fxBigIntMaximumX(length));
					fxBigIntParseX(&bigint, slot->value.string + offset, length);
				}
			}
			goto bail;
		}
	}
	if (c == '-') {
		sign = 1;
		p++;
	}
	else if (c == '+') {
		p++;
	}
	offset = mxPtrDiff(p - s);
	while (((c = *p)) && ('0' <= c) && (c <= '9'))
		p++;
	length = mxPtrDiff(p - s - offset);
	p = fxSkipSpaces(p);