%% options copyright owner = Dirk Krause copyright year = 2015-xxxx license = bsd %% header /** @file Retrieve dk4_im_t value from 8 bit character string in decimal notation. */ #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. The variable points to the correct error position only if er.ec is DK4_E_SYNTAX. @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_im_t( dk4_im_t *rp, const char *src, const char **endptr, int atg, dk4_er_t *erp ); #ifdef __cplusplus } #endif %% module #include "dk4mai8ddi.h" #include "dk4mai8ddu.h" #include "dk4numco.h" #include "dk4str8.h" $!trace-include int dk4ma_input_c8_dec_dk4_im_t( dk4_im_t *rp, const char *src, const char **endptr, int atg, dk4_er_t *erp ) { dk4_um_t res; const char *ep = NULL; int back = 0; $? "+ dk4ma_input_c8_dec_dk4_im_t \"%!8s\" %d", src, atg if ((NULL != rp) && (NULL != src)) { if ('-' == *src) { $? ". negative" if (0 != dk4ma_input_c8_dec_dk4_um_t(&res, ++src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX) + (dk4_um_t)1UL) == res) { $? ". ok min" *rp = DK4_IM_MIN; back = 1; } else { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { $? ". ok neg" *rp = (dk4_im_t)0L - (dk4_im_t)res; back = 1; } else { $? "! overflow" dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } } else { $? "! failed" } } else { $? ". not negative" if (0 != dk4ma_input_c8_dec_dk4_um_t(&res, src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { $? ". ok" *rp = (dk4_im_t)res; back = 1; } else { $? "! overflow" dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } else { $? "! failed" } } } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } if (NULL != endptr) { *endptr = ep; } $? "- dk4ma_input_c8_dec_dk4_im_t %d", back return back; }