HEMP_INLINE void
hemp_scan_number(
HempDocument document
) {
HempString src = document->scanptr;
HempNum num_val = 0;
HempInt int_val = 0;
HempBool is_int = HEMP_FALSE;
HempFragment fragment;
// hemp_debug_scan("scanning number: %s\n", document->scanptr);
/* number - try integer first */
errno = 0;
int_val = strtol(document->scanptr, &src, 0);
is_int = HEMP_TRUE;
/* If there's a decimal point and a digit following then it's a
** floating point number. We also look out for e/E which also
** indicate fp numbers in scientific notation, e.g. 1.23e6.
** Note that we don't accept the decimal point if the next
** character is not a digit. This is required to support methods
** called against numeric constants, e.g. 12345.hex
*/
if ( ( *src == '.' && isdigit(*(src + 1)) )
|| ( *src == 'e' || *src == 'E' )
) {
is_int = HEMP_FALSE;
num_val = strtod(document->scanptr, &src);
}
if (errno == ERANGE) {
/* TODO: trim next token out of text */
hemp_throw(document->hemp, HEMP_ERROR_OVERFLOW, document->scanptr);
}
else if (errno) {
/* should never happen (famous last words) as we pre-check
** that there is at least one valid digit available to be
** parsed, but we check anyway
*/
hemp_fatal("Unknown number parsing error: %d", errno);
}
else if (is_int) {
fragment = hemp_document_scanned_to(
document, HempElementInteger, src
);
fragment->op.value = hemp_int_val(int_val);
}
else {
fragment = hemp_document_scanned_to(
document, HempElementNumber, src
);
fragment->op.value = hemp_num_val(num_val);
}
}
void test_hemp_throw() {
Hemp hemp = hemp_new();
HEMP_TRY;
hemp_throw(
hemp,
HEMP_ERROR_INVALID, "cheese", "badger"
);
HEMP_CATCH_ALL;
ok( hemp->error, "caught hemp error" );
ok( hemp_string_eq(hemp->error->message, "Invalid cheese specified: badger"),
"got bad cheese message"
);
HEMP_END;
/* hemp error messages can be localised, customised, etc */
hemp->errmsg[HEMP_ERROR_INVALID] = "You silly arse! '%2$s' is not a valid %1$s";
HEMP_TRY;
hemp_throw(
hemp,
HEMP_ERROR_INVALID, "cheese", "badger"
);
HEMP_CATCH_ALL;
ok( hemp->error, "caught hemp error again" );
ok( hemp_string_eq(hemp->error->message, "You silly arse! 'badger' is not a valid cheese"),
"got silly arse bad cheese message"
);
HEMP_END;
hemp_free(hemp);
}
