summaryrefslogtreecommitdiff
path: root/support/dktools/dk4opt05.ctr
diff options
context:
space:
mode:
Diffstat (limited to 'support/dktools/dk4opt05.ctr')
-rw-r--r--support/dktools/dk4opt05.ctr87
1 files changed, 0 insertions, 87 deletions
diff --git a/support/dktools/dk4opt05.ctr b/support/dktools/dk4opt05.ctr
deleted file mode 100644
index fc422254cb..0000000000
--- a/support/dktools/dk4opt05.ctr
+++ /dev/null
@@ -1,87 +0,0 @@
-%% options
-
-copyright owner = Dirk Krause
-copyright year = 2015-xxxx
-SPDX-License-Identifier: BSD-3-Clause
-
-
-
-%% module
-
-#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 <assert.h>
-#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;
-}
-