From 0ce40abb18ec02ec6fd6bcc5f21612c88daa7578 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 12 Oct 2020 03:04:00 +0000 Subject: CTAN sync 202010120303 --- support/dktools/dk4maodo.ctr | 162 ------------------------------------------- 1 file changed, 162 deletions(-) delete mode 100644 support/dktools/dk4maodo.ctr (limited to 'support/dktools/dk4maodo.ctr') diff --git a/support/dktools/dk4maodo.ctr b/support/dktools/dk4maodo.ctr deleted file mode 100644 index 9e91dfc27a..0000000000 --- a/support/dktools/dk4maodo.ctr +++ /dev/null @@ -1,162 +0,0 @@ -%% options - -copyright owner = Dirk Krause -copyright year = 2015-xxxx -SPDX-License-Identifier: BSD-3-Clause - - - -%% header - -/** @file dk4maodo.h Octal output. -*/ - -#ifndef DK4CONF_H_INCLUDED -#if DK4_BUILDING_DKTOOLS4 -#include "dk4conf.h" -#else -#include -#endif -#endif - -#ifndef DK4TYPES_H_INCLUDED -#if DK4_BUILDING_DKTOOLS4 -#include "dk4types.h" -#else -#include -#endif -#endif - -#ifndef DK4ERROR_H_INCLUDED -#if DK4_BUILDING_DKTOOLS4 -#include "dk4error.h" -#else -#include -#endif -#endif - -#ifdef __cplusplus -extern "C" { -#endif - -/** Write unsigned number to char string in octal notation. - - CRT on Windows: Optional. - @param dptr Pointer to buffer for string. - @param sz Buffer size (number of char). - @param val Value to write. - @param padsz Minimum number of digits, 1 for automatic choice. - @param erp Error report, may be NULL. - @return 1 on success, 0 on error. -*/ -int -dk4ma_write_octal_unsigned( - dkChar *dptr, size_t sz, dk4_um_t val, size_t padsz, dk4_er_t *erp -); - -#ifdef __cplusplus -} -#endif - - -%% module - -#include "dk4conf.h" -#include "dk4maodo.h" - -#if DK4_HAVE_ASSERT_H -#ifndef ASSERT_H_INCLUDED -#include -#define ASSERT_H_INCLUDED 1 -#endif -#endif - - -$!trace-include - - - -int -dk4ma_write_octal_unsigned( - dkChar *dptr, size_t sz, dk4_um_t val, size_t padsz, dk4_er_t *erp -) -{ - dkChar buf[4*sizeof(dk4_um_t)+16]; /* Buffer */ - size_t used = 0; /* Number of used chars */ - size_t i = 0; /* Copy buffer to destination */ - int cc = 1; /* Flag: Can continue */ - int err = 0; /* Flag: Error occured */ - int back = 0; /* Result */ -#if DK4_USE_ASSERT - assert(NULL != dptr); - assert(0 < sz); -#endif - if ((NULL != dptr) && (0 < sz)) { *dptr = dkT('\0'); } - if (1 == padsz) { - padsz = (8 * sizeof(dk4_um_t)) / 3; - if (0 != ((8 * sizeof(dk4_um_t)) % 3)) { - padsz++; - } - } - if ((NULL != dptr) && (0 < sz) && (padsz < sz)) { - do { - switch ((int)(val % (dk4_um_t)8UL)) { - case 0: { - if (used < sizeof(buf)) { buf[used++] = dkT('0'); } else { err = 1; } - } break; - case 1: { - if (used < sizeof(buf)) { buf[used++] = dkT('1'); } else { err = 1; } - } break; - case 2: { - if (used < sizeof(buf)) { buf[used++] = dkT('2'); } else { err = 1; } - } break; - case 3: { - if (used < sizeof(buf)) { buf[used++] = dkT('3'); } else { err = 1; } - } break; - case 4: { - if (used < sizeof(buf)) { buf[used++] = dkT('4'); } else { err = 1; } - } break; - case 5: { - if (used < sizeof(buf)) { buf[used++] = dkT('5'); } else { err = 1; } - } break; - case 6: { - if (used < sizeof(buf)) { buf[used++] = dkT('6'); } else { err = 1; } - } break; - case 7: { - if (used < sizeof(buf)) { buf[used++] = dkT('7'); } else { err = 1; } - } break; - } - val = val / (dk4_um_t)8UL; - if ((dk4_um_t) 0UL == val) { cc = 0; } - } while ((1 == cc) && (0 == err)); - if (0 == err) { - if (used < sz) { - if ((0 < padsz) && (used < padsz)) { - for (i = 0; i < (padsz - used); i++) { - dptr[i] = dkT('0'); - } - for (i = 0; i < used; i++) { - dptr[padsz - 1 -i] = buf[i]; - } - dptr[padsz] = dkT('\0'); - back = 1; - } else { - for (i = 0; i < used; i++) { - dptr[i] = buf[used - 1 - i]; - } - dptr[used] = dkT('\0'); - back = 1; - } - } else { - dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL); - } - } else { $? "! error, bug" - dk4error_set_simple_error_code(erp, DK4_E_BUG); - } - } else { - dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); - } - return back; -} - - -- cgit v1.2.3