/* 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: dk4maiwddi.ctr */ /** @file dk4maiwddi.c The dk4maiwddi module. */ #line 81 "dk4maiwddi.ctr" #include "dk4conf.h" #if DK4_HAVE_ASSERT_H #ifndef ASSERT_H_INCLUDED #include #define ASSERT_H_INCLUDED 1 #endif #endif #include "dk4maiwddi.h" #include "dk4maiwddu.h" #include "dk4numco.h" int dk4ma_input_wc_dec_dk4_im_t( dk4_im_t *rp, const wchar_t *src, const wchar_t **endptr, int atg, dk4_er_t *erp ) { const wchar_t *ep = NULL; dk4_um_t res = (dk4_um_t)0UL; int back = 0; #if DK4_USE_ASSERT assert(NULL != rp); assert(NULL != src); #endif if ((NULL != rp) && (NULL != src)) { if (L'-' == *src) { if (0 != dk4ma_input_wc_dec_dk4_um_t(&res, ++src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX) + (dk4_um_t)1UL) == res) { *rp = DK4_IM_MIN; back = 1; } else { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { *rp = (dk4_im_t)0L - (dk4_im_t)res; back = 1; } else { dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } } } else { if (L'+' == *src) { src++; } if (0 != dk4ma_input_wc_dec_dk4_um_t(&res, src, &ep, atg, erp)) { if (((dk4_um_t)(DK4_IM_MAX)) >= res) { *rp = (dk4_im_t)res; back = 1; } else { dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } } } } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } if (NULL != endptr) { *endptr = ep; } return back; }