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/dk4mai8hdu.c | |
parent | fdb18507cd80dc17f5a5256153d34668b4f4e61c (diff) |
CTAN sync 202010120303
Diffstat (limited to 'support/dktools/dk4mai8hdu.c')
-rw-r--r-- | support/dktools/dk4mai8hdu.c | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/support/dktools/dk4mai8hdu.c b/support/dktools/dk4mai8hdu.c deleted file mode 100644 index e1f153c1b8..0000000000 --- a/support/dktools/dk4mai8hdu.c +++ /dev/null @@ -1,180 +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: dk4mai8hdu.ctr -*/ - -/** @file dk4mai8hdu.c The dk4mai8hdu module. -*/ - - -#line 84 "dk4mai8hdu.ctr" - -#include "dk4conf.h" - -#if DK4_HAVE_ASSERT_H -#ifndef ASSERT_H_INCLUDED -#include <assert.h> -#define ASSERT_H_INCLUDED 1 -#endif -#endif - -#include "dk4mai8hdu.h" -#include "dk4numco.h" -#include "dk4str8.h" - - - - - -#line 101 "dk4mai8hdu.ctr" - - - -int -dk4ma_input_c8_hex_dk4_um_t( - dk4_um_t *rp, - const char *src, - const char **endptr, - int atg, - dk4_er_t *erp -) -{ -#if VERSION_BEFORE_20141007 - dk4_er_t er; -#endif - dk4_um_t result= (dk4_um_t)0UL; - dk4_um_t op; - const char *ep = NULL; - int found = 0; - int back = 0; - int cc = 1; - - -#line 123 "dk4mai8hdu.ctr" -#if DK4_USE_ASSERT - assert(NULL != rp); - assert(NULL != src); -#endif - if ((NULL != rp) && (NULL != src)) { - if ('0' == src[0]) { - if (('x' == src[1]) || ('X' == src[1])) { src++; src++; } - } -#if VERSION_BEFORE_20141007 - dk4error_init(&er); -#endif - do { - - -#line 136 "dk4mai8hdu.ctr" - op = (dk4_um_t)0UL; - switch (*src) { - case '0': { op = (dk4_um_t)0UL; } break; - case '1': { op = (dk4_um_t)1UL; } break; - case '2': { op = (dk4_um_t)2UL; } break; - case '3': { op = (dk4_um_t)3UL; } break; - case '4': { op = (dk4_um_t)4UL; } break; - case '5': { op = (dk4_um_t)5UL; } break; - case '6': { op = (dk4_um_t)6UL; } break; - case '7': { op = (dk4_um_t)7UL; } break; - case '8': { op = (dk4_um_t)8UL; } break; - case '9': { op = (dk4_um_t)9UL; } break; - case 'a': case 'A': { op = (dk4_um_t)10UL; } break; - case 'b': case 'B': { op = (dk4_um_t)11UL; } break; - case 'c': case 'C': { op = (dk4_um_t)12UL; } break; - case 'd': case 'D': { op = (dk4_um_t)13UL; } break; - case 'e': case 'E': { op = (dk4_um_t)14UL; } break; - case 'f': case 'F': { op = (dk4_um_t)15UL; } break; - case '\0': { - -#line 155 "dk4mai8hdu.ctr" - cc = 0; - if (0 != found) { - -#line 157 "dk4mai8hdu.ctr" - back = 1; - *rp = result; - } else { - -#line 160 "dk4mai8hdu.ctr" - ep = src; - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } break; - default: { - cc = 0; - ep = src; - if (0 != found) { - switch (atg) { - case 2: { - back = 1; - *rp = result; - } break; - case 1: { - if (NULL == dk4str8_start(src, NULL)) { - back = 1; - *rp = result; - } else { - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } break; - default: { - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } break; - } - } else { - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } break; - } - if (0 != cc) { - found = 1; -#if VERSION_BEFORE_20141007 - result = dk4ma_um_add( - dk4ma_um_mul(result, (dk4_um_t)16UL, &er), - op, &er - ); - if (DK4_E_NONE != er.ec) { - cc = 0; - dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); - ep = src; - } -#else - if ((DK4_UM_MAX / (dk4_um_t)16UL) >= result) { - result *= (dk4_um_t)16UL; - if ((DK4_UM_MAX - op) >= result) { - result += op; - } else { - cc = 0; - ep = src; - dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); - } - } else { - cc = 0; - ep = src; - dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); - } -#endif - } - if (0 != cc) { - src++; - } - } while (0 != cc); - } else { - dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); - if (NULL != src) { ep = src; } - } - if (NULL != endptr) { *endptr = ep; } - - -#line 229 "dk4mai8hdu.ctr" - return back; -} - |