diff options
Diffstat (limited to 'support/dktools/dk4maiwddu.c')
-rw-r--r-- | support/dktools/dk4maiwddu.c | 246 |
1 files changed, 0 insertions, 246 deletions
diff --git a/support/dktools/dk4maiwddu.c b/support/dktools/dk4maiwddu.c deleted file mode 100644 index 6c25037ef3..0000000000 --- a/support/dktools/dk4maiwddu.c +++ /dev/null @@ -1,246 +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: dk4maiwddu.ctr -*/ - -/** @file dk4maiwddu.c The dk4maiwddu module. -*/ - - -#line 82 "dk4maiwddu.ctr" - - - -#include "dk4conf.h" - -#if DK4_HAVE_ASSERT_H -#ifndef ASSERT_H_INCLUDED -#include <assert.h> -#define ASSERT_H_INCLUDED 1 -#endif -#endif - -#include "dk4maiwddu.h" -#include "dk4numco.h" -#include "dk4strw.h" - - - - - -#line 101 "dk4maiwddu.ctr" - - - -int -dk4ma_input_wc_dec_dk4_um_t( - dk4_um_t *rp, - const wchar_t *src, - const wchar_t **endptr, - int atg, - dk4_er_t *erp -) -{ - dk4_um_t result = (dk4_um_t)0UL; - dk4_um_t op; - const wchar_t *ep = NULL; - int found = 0; - int back = 0; - int cc = 1; - - -#line 120 "dk4maiwddu.ctr" -#if DK4_USE_ASSERT - assert(NULL != rp); - assert(NULL != src); -#endif - if ((NULL != rp) && (NULL != src)) { - do { - op = (dk4_um_t)0UL; -#if DK4_SIZEOF_WCHAR_T <= DK4_SIZEOF_INT - switch (*src) { - case L'0': { op = (dk4_um_t)0UL; } break; - case L'1': { op = (dk4_um_t)1UL; } break; - case L'2': { op = (dk4_um_t)2UL; } break; - case L'3': { op = (dk4_um_t)3UL; } break; - case L'4': { op = (dk4_um_t)4UL; } break; - case L'5': { op = (dk4_um_t)5UL; } break; - case L'6': { op = (dk4_um_t)6UL; } break; - case L'7': { op = (dk4_um_t)7UL; } break; - case L'8': { op = (dk4_um_t)8UL; } break; - case L'9': { op = (dk4_um_t)9UL; } break; - case L'\0': { - -#line 140 "dk4maiwddu.ctr" - cc = 0; - if (0 != found) { - -#line 142 "dk4maiwddu.ctr" - back = 1; - *rp = result; - } else { - -#line 145 "dk4maiwddu.ctr" - ep = src; - -#line 146 "dk4maiwddu.ctr" - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } break; - default: { - cc = 0; - -#line 151 "dk4maiwddu.ctr" - ep = src; - -#line 152 "dk4maiwddu.ctr" - if (0 != found) { - switch (atg) { - case 2: { - -#line 155 "dk4maiwddu.ctr" - back = 1; - *rp = result; - } break; - case 1: { - -#line 159 "dk4maiwddu.ctr" - if (NULL == dk4strw_start(src, NULL)) { - back = 1; - *rp = result; - } else { - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } break; - default: { - -#line 167 "dk4maiwddu.ctr" - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } break; - } - } else { - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } break; - } -#else - if (L'0' == *src) { - op = (dk4_um_t)0UL; - } else { - if (L'1' == *src) { - op = (dk4_um_t)1UL; - } else { - if (L'2' == *src) { - op = (dk4_um_t)2UL; - } else { - if (L'3' == *src) { - op = (dk4_um_t)3UL; - } else { - if (L'4' == *src) { - op = (dk4_um_t)4UL; - } else { - if (L'5' == *src) { - op = (dk4_um_t)5UL; - } else { - if (L'6' == *src) { - op = (dk4_um_t)6UL; - } else { - if (L'7' == *src) { - op = (dk4_um_t)7UL; - } else { - if (L'8' == *src) { - op = (dk4_um_t)8UL; - } else { - if (L'9' == *src) { - op = (dk4_um_t)9UL; - } else { - if (L'\0' == *src) { /* finalizer */ - cc = 0; - if (0 != found) { - back = 1; - *rp = result; - } else { - ep = src; - dk4error_set_simple_error_code(erp, DK4_E_SYNTAX); - } - } else { /* any other */ - cc = 0; - ep = src; - if (0 != found) { - switch (atg) { - case 2: { - back = 1; - *rp = result; - } break; - case 1: { - if (NULL == dk4strw_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); - } - } - } - } - } - } - } - } - } - } - } - } -#endif - /* after switch */ - if (0 != cc) { - found = 1; - if ((DK4_UM_MAX / (dk4_um_t)10UL) >= result) { - result *= (dk4_um_t)10UL; - 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); - } - } - 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 283 "dk4maiwddu.ctr" - return back; -} - |