/* 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: dk4mai8hdi.ctr */ /** @file dk4mai8hdi.c The dk4mai8hdi module. */ #line 84 "dk4mai8hdi.ctr" #include "dk4conf.h" #if DK4_HAVE_ASSERT_H #ifndef ASSERT_H_INCLUDED #include #define ASSERT_H_INCLUDED 1 #endif #endif #include "dk4mai8hdu.h" #include "dk4mai8hdi.h" #include "dk4numco.h" #include "dk4str8.h" #line 102 "dk4mai8hdi.ctr" int dk4ma_input_c8_hex_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 118 "dk4mai8hdi.ctr" #if DK4_USE_ASSERT assert(NULL != rp); assert(NULL != src); #endif if ((NULL != rp) && (NULL != src)) { if ('-' == *src) { #line 124 "dk4mai8hdi.ctr" if (0 != dk4ma_input_c8_hex_dk4_um_t(&res, ++src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX) + (dk4_um_t)1UL) == res) { #line 126 "dk4mai8hdi.ctr" *rp = DK4_IM_MIN; back = 1; } else { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { #line 130 "dk4mai8hdi.ctr" *rp = (dk4_im_t)0L - (dk4_im_t)res; back = 1; } else { #line 133 "dk4mai8hdi.ctr" dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } } else { #line 137 "dk4mai8hdi.ctr" } } else { #line 139 "dk4mai8hdi.ctr" if (0 != dk4ma_input_c8_hex_dk4_um_t(&res, src, &ep, atg, erp)) { *rp = (dk4_im_t)res; back = 1; } else { #line 143 "dk4mai8hdi.ctr" } } } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } if (NULL != endptr) { *endptr = ep; } #line 150 "dk4mai8hdi.ctr" return back; }