diff options
author | Norbert Preining <norbert@preining.info> | 2020-10-12 03:04:00 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2020-10-12 03:04:00 +0000 |
commit | 0ce40abb18ec02ec6fd6bcc5f21612c88daa7578 (patch) | |
tree | 416289fe1448873fd8ca33051f50ad85bffa8aaa /support/dktools/dk3maodd.c | |
parent | fdb18507cd80dc17f5a5256153d34668b4f4e61c (diff) |
CTAN sync 202010120303
Diffstat (limited to 'support/dktools/dk3maodd.c')
-rw-r--r-- | support/dktools/dk3maodd.c | 135 |
1 files changed, 0 insertions, 135 deletions
diff --git a/support/dktools/dk3maodd.c b/support/dktools/dk3maodd.c deleted file mode 100644 index 29f5095f63..0000000000 --- a/support/dktools/dk3maodd.c +++ /dev/null @@ -1,135 +0,0 @@ -/* -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 -} - |