diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/dktools/dk4opt04.ctr |
Initial commit
Diffstat (limited to 'support/dktools/dk4opt04.ctr')
-rw-r--r-- | support/dktools/dk4opt04.ctr | 80 |
1 files changed, 80 insertions, 0 deletions
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; +} + |