%% options copyright owner = Dirk Krause copyright year = 2015-xxxx license = bsd %% module #include "dk4opt.h" #include "dk4strd.h" #include "dk4mem.h" #include "dk4numco.h" #include "dk4maidddi.h" $!trace-include int dk4opt_get_int(dk4_im_t *dptr, dk4_option_t *optptr, dk4_er_t *erp) { dk4_im_t val = (dk4_im_t)0L; int back = 0; int res = 0; if ((NULL != dptr) && (NULL != optptr)) { if (0 != optptr->found) { switch ((optptr->spec).argtype) { case DK4_OPT_ARG_BOOL: { if (0 != (optptr->val).b) { *dptr = (dk4_im_t)1L; } else { *dptr = (dk4_im_t)0L; } back = 1; } break; case DK4_OPT_ARG_SIZE: { if ((dk4_um_t)DK4_IM_MAX >= (dk4_um_t)((optptr->val).s)) { *dptr = (dk4_im_t)((optptr->val).s); back = 1; } else { dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } break; case DK4_OPT_ARG_INT: { *dptr = (optptr->val).i; back = 1; } break; case DK4_OPT_ARG_UNSIGNED: { if ((dk4_um_t)DK4_IM_MAX >= (dk4_um_t)((optptr->val).u)) { *dptr = (dk4_im_t)((optptr->val).u); back = 1; } else { dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } break; case DK4_OPT_ARG_STRING: { if (NULL != (optptr->val).t) { res = dk4ma_input_dk_dec_dk4_im_t( &val, (optptr->val).t, NULL, 1, erp ); if (0 != res) { *dptr = val; back = 1; } } } break; default: { dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); } break; } } else { dk4error_set_simple_error_code(erp, DK4_E_NOT_FOUND); } } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } return back; }