%% options copyright owner = Dirk Krause copyright year = 2015-xxxx license = bsd %% header /** @file Retrieve dk4_um_t value from 8 bit character string in decimal notation. CRT on Windows: Optional, disabling CRT degrades performance. */ #ifndef DK4CONF_H_INCLUDED #include "dk4conf.h" #endif #ifndef DK4TYPES_H_INCLUDED #include "dk4types.h" #endif #ifndef DK4ERROR_H_INCLUDED #include "dk4error.h" #endif #ifdef __cplusplus extern "C" { #endif /** Retrieve numeric value from string, decimal notation. @param rp Pointer to result variable for the found value. @param src String to check for numeric value. @param endptr Address of pointer variable. A pointer to the first character not processed is stored here. The function may also store a NULL pointer in this variable. @param atg Allow trailing garbage: 0=no unprocessable trailing bytes allowed, 1=trailing whitespaces allowed, 2=any trailing characters allowed. @param erp Error report, may be NULL. @return 1 on success, 0 on error. Error codes: DK4_E_INVALID_ARGUMENTS if rp or src is NULL, DK4_E_MATH_OVERFLOW if the number is out of range, or DK4_E_SYNTAX if src contains illegal characters. */ int dk4ma_input_c8_dec_dk4_um_t( dk4_um_t *rp, const char *src, const char **endptr, int atg, dk4_er_t *erp ); #ifdef __cplusplus } #endif %% module #include "dk4mai8ddu.h" #include "dk4numco.h" #include "dk4str8.h" $!trace-include int dk4ma_input_c8_dec_dk4_um_t( dk4_um_t *rp, const char *src, const char **endptr, int atg, dk4_er_t *erp ) { #if VERSION_BEFORE_20141007 dk4_er_t er; #endif dk4_um_t result= (dk4_um_t)0UL; dk4_um_t op; const char *ep = NULL; int found = 0; int back = 0; int cc = 1; $? "+ dk4ma_input_c8_dec_dk4_um_t \"%!8s\"", src if ((NULL != rp) && (NULL != src)) { #if VERSION_BEFORE_20141007 dk4error_init(&er); #endif do { $? ". src = \"%!8s\"", src op = (dk4_um_t)0UL; switch (*src) { case '0': { op = (dk4_um_t)0UL; } break; case '1': { op = (dk4_um_t)1UL; } break; case '2': { op = (dk4_um_t)2UL; } break; case '3': { op = (dk4_um_t)3UL; } break; case '4': { op = (dk4_um_t)4UL; } break; case '5': { op = (dk4_um_t)5UL; } break; case '6': { op = (dk4_um_t)6UL; } break; case '7': { op = (dk4_um_t)7UL; } break; case '8': { op = (dk4_um_t)8UL; } break; case '9': { op = (dk4_um_t)9UL; } break; case '\0': { $? ". string finished" cc = 0; if (0 != found) { $? ". digits found" back = 1; *rp = result; } else { $? ". no digits found" ep = src; $? ". ep=%!8s", TR_8STR(ep) dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); } } break; default: { cc = 0; $? "! unexpected char" ep = src; $? ". ep=%!8s", TR_8STR(ep) if (0 != found) { switch (atg) { case 2: { $? ". trailing garbage allowed" back = 1; *rp = result; } break; case 1: { $? ". trailing whitespace allowed" if (NULL == dk4str8_start(src, NULL)) { back = 1; *rp = result; } else { dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); } } break; default: { $? ". no trailing chars allowed" dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); } break; } } else { dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); } } break; } if (0 != cc) { $? ". process number" found = 1; #if VERSION_BEFORE_20141007 result = dk4ma_um_add( dk4ma_um_mul(result, (dk4_um_t)10UL, &er), op, &er ); if (DK4_E_NONE != er.ec) { cc = 0; $? "! overflow" dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); ep = src; } #else if ((DK4_UM_MAX / (dk4_um_t)10UL) >= result) { result *= (dk4_um_t)10UL; if ((DK4_UM_MAX - op) >= result) { result += op; } else { cc = 0; ep = src; dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } else { cc = 0; ep = src; dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } #endif } if (0 != cc) { src++; } } while (0 != cc); } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); if (NULL != src) { ep = src; } } if (NULL != endptr) { *endptr = ep; } $? "- dk4ma_input_c8_dec_dk4_um_t %d", back return back; }