summaryrefslogtreecommitdiff
path: root/support/dktools/dk4opt05.c
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-10-12 03:04:00 +0000
committerNorbert Preining <norbert@preining.info>2020-10-12 03:04:00 +0000
commit0ce40abb18ec02ec6fd6bcc5f21612c88daa7578 (patch)
tree416289fe1448873fd8ca33051f50ad85bffa8aaa /support/dktools/dk4opt05.c
parentfdb18507cd80dc17f5a5256153d34668b4f4e61c (diff)
CTAN sync 202010120303
Diffstat (limited to 'support/dktools/dk4opt05.c')
-rw-r--r--support/dktools/dk4opt05.c96
1 files changed, 0 insertions, 96 deletions
diff --git a/support/dktools/dk4opt05.c b/support/dktools/dk4opt05.c
deleted file mode 100644
index 8c94ec740b..0000000000
--- a/support/dktools/dk4opt05.c
+++ /dev/null
@@ -1,96 +0,0 @@
-/*
-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 <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;
-}
-