/* Copyright (C) 2014-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: dk3maodd.ctr */ /** @file dk3maodd.c The dk3maodd module. */ #line 65 "dk3maodd.ctr" #include "dk3ma.h" #line 71 "dk3maodd.ctr" /** Size correction for alignment. */ #define DK3MAODD_ALIGN(sz,al) \ ((0 == (sz % al)) ? (sz) : (((sz / al) + 1) * al)) int dk3ma_um_to_string(dkChar *rb, size_t sz, dk3_um_t va) { #if DK3_CHAR_SIZE > 1 char buf[DK3MAODD_ALIGN((8*DK3_SIZEOF_UM),16)]; char *ptr; dk3_um_t x; size_t szmax = sizeof(buf); size_t szused = 0; size_t i; int back = 1; char c; if ((NULL != rb) && (0 < sz)) { rb[0] = dkT('\0'); ptr = buf; if (2 <= szmax) { do { x = va % 10; va = va / 10; c = '\0'; switch((int)x) { case 0: { c = '0'; } break; case 1: { c = '1'; } break; case 2: { c = '2'; } break; case 3: { c = '3'; } break; case 4: { c = '4'; } break; case 5: { c = '5'; } break; case 6: { c = '6'; } break; case 7: { c = '7'; } break; case 8: { c = '8'; } break; case 9: { c = '9'; } break; } if (szused < szmax) { *(ptr++) = c; szused++; } else { back = 0; } } while((DK3_UM_0 != va) && (szused < szmax) && (1 == back)); if (szused < szmax) { buf[szused] = '\0'; } else { back = 0; buf[szmax - 1] = '\0'; } if (1 == back) { if (szused < sz) { for (i = 0; i < szused; i++) { rb[i] = (dkChar)(buf[szused - i - 1]); } rb[szused] = dkT('\0'); } else { back = 0; } } } } return back; #else return (dk3ma_um_to_c8_string(rb, sz, va)); #endif } int dk3ma_im_to_string(dkChar *rb, size_t sz, dk3_im_t va) { #if DK3_CHAR_SIZE > 1 dkChar *orb; dk3_um_t umva; int back = 0; if ((NULL != rb) && (0 < sz)) { orb = rb; rb[0] = dkT('\0'); if (2 < sz) { if (DK3_IM_0 > va) { *(rb++) = dkT('-'); sz--; if (DK3_IM_MIN == va) { umva = (dk3_um_t)DK3_IM_MAX; umva++; } else { umva = (dk3_um_t)(DK3_IM_0 - va); } } else { umva = (dk3_um_t)va; } back = dk3ma_um_to_string(rb, sz, umva); } if (0 == back) { *orb = dkT('\0'); } } return back; #else return (dk3ma_im_to_c8_string(rb, sz, va)); #endif }