From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- support/dktools/dk4opt04.ctr | 80 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 80 insertions(+) create mode 100644 support/dktools/dk4opt04.ctr (limited to 'support/dktools/dk4opt04.ctr') diff --git a/support/dktools/dk4opt04.ctr b/support/dktools/dk4opt04.ctr new file mode 100644 index 0000000000..63c6177dda --- /dev/null +++ b/support/dktools/dk4opt04.ctr @@ -0,0 +1,80 @@ +%% options + +copyright owner = Dirk Krause +copyright year = 2015-xxxx +license = bsd + + + +%% module + +#include "dk4opt.h" +#include "dk4strd.h" +#include "dk4mem.h" +#include "dk4maidddu.h" + + + +$!trace-include + + + +int +dk4opt_get_unsigned(dk4_um_t *dptr, dk4_option_t *optptr, dk4_er_t *erp) +{ + dk4_um_t val = (dk4_um_t)0UL; + 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_um_t)1UL; + } else { + *dptr = (dk4_um_t)0UL; + } + back = 1; + } break; + case DK4_OPT_ARG_SIZE: { + *dptr = (dk4_um_t)((optptr->val).s); + back = 1; + } break; + case DK4_OPT_ARG_INT: { + if (0 <= (optptr->val).i) { + *dptr = (dk4_um_t)((optptr->val).i); + back = 1; + } else { + dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); + } + } break; + case DK4_OPT_ARG_UNSIGNED: { + *dptr = (optptr->val).u; + back = 1; + } break; + case DK4_OPT_ARG_STRING: { + if (NULL != (optptr->val).t) { + res = dk4ma_input_dk_dec_dk4_um_t( + &val, (optptr->val).t, NULL, 1, erp + ); + if (0 != res) { + *dptr = val; + back = 1; + } + } else { + dk4error_set_simple_error_code(erp, DK4_E_NOT_FOUND); + } + } 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; +} + -- cgit v1.2.3