diff options
author | Norbert Preining <norbert@preining.info> | 2020-10-12 03:04:00 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2020-10-12 03:04:00 +0000 |
commit | 0ce40abb18ec02ec6fd6bcc5f21612c88daa7578 (patch) | |
tree | 416289fe1448873fd8ca33051f50ad85bffa8aaa /support/dktools/dk4opt05.c | |
parent | fdb18507cd80dc17f5a5256153d34668b4f4e61c (diff) |
CTAN sync 202010120303
Diffstat (limited to 'support/dktools/dk4opt05.c')
-rw-r--r-- | support/dktools/dk4opt05.c | 96 |
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; -} - |