/* 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: dk4mai8ddi.ctr */ /** @file dk4mai8ddi.c The dk4mai8ddi module. */ #line 82 "dk4mai8ddi.ctr" #include "dk4conf.h" #if DK4_HAVE_ASSERT_H #ifndef ASSERT_H_INCLUDED #include #define ASSERT_H_INCLUDED 1 #endif #endif #include "dk4mai8ddi.h" #include "dk4mai8ddu.h" #include "dk4numco.h" #include "dk4str8.h" #line 99 "dk4mai8ddi.ctr" int dk4ma_input_c8_dec_dk4_im_t( dk4_im_t *rp, const char *src, const char **endptr, int atg, dk4_er_t *erp ) { dk4_um_t res; const char *ep = NULL; int back = 0; #line 115 "dk4mai8ddi.ctr" #if DK4_USE_ASSERT assert(NULL != rp); assert(NULL != src); #endif if ((NULL != rp) && (NULL != src)) { if ('-' == *src) { #line 121 "dk4mai8ddi.ctr" if (0 != dk4ma_input_c8_dec_dk4_um_t(&res, ++src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX) + (dk4_um_t)1UL) == res) { #line 123 "dk4mai8ddi.ctr" *rp = DK4_IM_MIN; back = 1; } else { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { #line 127 "dk4mai8ddi.ctr" *rp = (dk4_im_t)0L - (dk4_im_t)res; back = 1; } else { #line 130 "dk4mai8ddi.ctr" dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } } else { #line 134 "dk4mai8ddi.ctr" } } else { #line 136 "dk4mai8ddi.ctr" if ('+' == *src) { src++; } if (0 != dk4ma_input_c8_dec_dk4_um_t(&res, src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { #line 139 "dk4mai8ddi.ctr" *rp = (dk4_im_t)res; back = 1; } else { #line 142 "dk4mai8ddi.ctr" dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } else { #line 145 "dk4mai8ddi.ctr" } } } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } if (NULL != endptr) { *endptr = ep; } #line 152 "dk4mai8ddi.ctr" return back; }