summaryrefslogtreecommitdiff
path: root/support/dktools/dk3maodd.c
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-10-12 03:04:00 +0000
committerNorbert Preining <norbert@preining.info>2020-10-12 03:04:00 +0000
commit0ce40abb18ec02ec6fd6bcc5f21612c88daa7578 (patch)
tree416289fe1448873fd8ca33051f50ad85bffa8aaa /support/dktools/dk3maodd.c
parentfdb18507cd80dc17f5a5256153d34668b4f4e61c (diff)
CTAN sync 202010120303
Diffstat (limited to 'support/dktools/dk3maodd.c')
-rw-r--r--support/dktools/dk3maodd.c135
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
-}
-