/* 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: dk4numl.ctr */ /** @file dk4numl.c The dk4numl module. */ #line 55 "dk4numl.ctr" #include "dk4conf.h" #include "dk4error.h" #include "dk4numl.h" #include "dk4maadu.h" size_t dk4numlength(size_t isz, int sgn) { dk4_er_t er; dk4_um_t co; size_t back = 0; if (1 < isz) { if (2 < isz) { if (4 < isz) { if (8 < isz) { if (16 < isz) { #if VERSION_BEFORE_20141122 if (0 != (isz % 2)) { isz++; } back = 5 * (isz / 2); if (0 != sgn) { back++; } #else dk4error_init(&er); if (0 != sgn) { co = dk4ma_um_mul( (dk4_um_t)30104UL, dk4ma_um_sub( dk4ma_um_mul((dk4_um_t)8UL, (dk4_um_t)isz, &er), (dk4_um_t)1UL, &er ), &er ); if ((dk4_um_t)0UL != (co % (dk4_um_t)100000UL)) { co = co / (dk4_um_t)100000UL; co++; } else { co = co / (dk4_um_t)100000UL; } co++; if ((dk4_um_t)(SIZE_MAX) >= co) { back = (size_t)co; } else { back = (size_t)co; er.ec = DK4_E_MATH_OVERFLOW; } } else { co = dk4ma_um_mul( (dk4_um_t)30104UL, dk4ma_um_mul((dk4_um_t)8UL, (dk4_um_t)isz, &er), &er ); if ((dk4_um_t)0UL != (co % (dk4_um_t)100000UL)) { co = co / (dk4_um_t)100000UL; co++; } else { co = co / (dk4_um_t)100000UL; } if ((dk4_um_t)(SIZE_MAX) >= co) { back = (size_t)co; } else { back = (size_t)co; er.ec = DK4_E_MATH_OVERFLOW; } } if (DK4_E_NONE != er.ec) { if (0 != (isz % 2)) { isz++; } back = 5 * (isz / 2); if (0 != sgn) { back++; } } #endif } else { back = ((0 != sgn) ? 41 : 40); } } else { back = ((0 != sgn) ? 21 : 20); } } else { back = ((0 != sgn) ? 11 : 10); } } else { back = ((0 != sgn) ? 6 : 5); } } else { back = ((0 != sgn) ? 4 : 3); } return back; }