/* Copyright (C) 2015-2020, Dirk Krause SPDX-License-Identifier: BSD-3-Clause */ /* WARNING: This file was generated by the dkct program (see http://dktools.sourceforge.net/ for details). Changes you make here will be lost if dkct is run again! You should modify the original source and run dkct on it. Original source: dk4opt05.ctr */ /** @file dk4opt05.c The dk4opt05 module. */ #line 10 "dk4opt05.ctr" #include "dk4conf.h" #include "dk4opt.h" #include "dk4strd.h" #include "dk4mem.h" #include "dk4maiddbl.h" #if DK4_HAVE_ASSERT_H #ifndef ASSERT_H_INCLUDED #include #define ASSERT_H_INCLUDED 1 #endif #endif int dk4opt_get_double(double *dptr, dk4_option_t const *optptr, dk4_er_t *erp) { double val = 0.0; int back = 0; int res = 0; #if DK4_USE_ASSERT assert(NULL != dptr); assert(NULL != optptr); #endif if ((NULL != dptr) && (NULL != optptr)) { if (0 != optptr->found) { switch ((optptr->spec).argtype) { case DK4_OPT_ARG_BOOL: { if (0 != (optptr->val).b) { *dptr = 1.0; } else { *dptr = 0.0; } back = 1; } break; case DK4_OPT_ARG_SIZE: { *dptr = (double)((optptr->val).s); back = 1; } break; case DK4_OPT_ARG_INT: { *dptr = (double)((optptr->val).i); back = 1; } break; case DK4_OPT_ARG_UNSIGNED: { *dptr = (double)((optptr->val).u); back = 1; } break; case DK4_OPT_ARG_DOUBLE: { *dptr = (optptr->val).d; back = 1; } break; case DK4_OPT_ARG_STRING: { if (NULL != (optptr->val).t) { res = dk4ma_input_dk_double( &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; }