/* 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 #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; }