summaryrefslogtreecommitdiff
path: root/support/dktools/dk4mao8h.ctr
diff options
context:
space:
mode:
Diffstat (limited to 'support/dktools/dk4mao8h.ctr')
-rw-r--r--support/dktools/dk4mao8h.ctr217
1 files changed, 0 insertions, 217 deletions
diff --git a/support/dktools/dk4mao8h.ctr b/support/dktools/dk4mao8h.ctr
deleted file mode 100644
index bc536556c8..0000000000
--- a/support/dktools/dk4mao8h.ctr
+++ /dev/null
@@ -1,217 +0,0 @@
-%% options
-
-
-copyright owner = Dirk Krause
-copyright year = 2015-xxxx
-SPDX-License-Identifier: BSD-3-Clause
-
-
-%% header
-
-/** @file
- Convert dk4_um_t / dk4_im_t
- to 8 bit character strings in hexadecimal notation.
-*/
-
-#ifndef DK4CONF_H_INCLUDED
-#if DK4_BUILDING_DKTOOLS4
-#include "dk4conf.h"
-#else
-#include <dktools-4/dk4conf.h>
-#endif
-#endif
-
-#ifndef DK4TYPES_H_INCLUDED
-#if DK4_BUILDING_DKTOOLS4
-#include "dk4types.h"
-#else
-#include <dktools-4/dk4types.h>
-#endif
-#endif
-
-#ifndef DK4ERROR_H_INCLUDED
-#if DK4_BUILDING_DKTOOLS4
-#include "dk4error.h"
-#else
-#include <dktools-4/dk4error.h>
-#endif
-#endif
-
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/** Write unsigned number to char string in hex 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_c8_hex_unsigned(
- char *dptr, size_t sz, dk4_um_t val, size_t padsz, dk4_er_t *erp
-);
-
-/** Write signed number to char string in hex 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_c8_hex_signed(
- char *dptr, size_t sz, dk4_im_t val, size_t padsz, dk4_er_t *erp
-);
-
-#ifdef __cplusplus
-}
-#endif
-
-
-
-%% module
-
-
-#include "dk4conf.h"
-
-#if DK4_HAVE_ASSERT_H
-#ifndef ASSERT_H_INCLUDED
-#include <assert.h>
-#define ASSERT_H_INCLUDED 1
-#endif
-#endif
-
-#include "dk4mao8h.h"
-#include "dk4numco.h"
-#include "dk4error.h"
-
-
-
-$!trace-include
-
-
-
-int
-dk4ma_write_c8_hex_unsigned(
- char *dptr, size_t sz, dk4_um_t val, size_t padsz, dk4_er_t *erp
-)
-{
- char buf[4*sizeof(dk4_um_t) + 16]; /* Buffer */
- size_t used = 0; /* Number of used characters */
- size_t i = 0; /* Copy buffer to destination */
- int cc = 1; /* Flag: Can continue */
- int err = 0; /* Flag: Error occued */
- int back = 0; /* Function result */
- $? "+ dk4ma_write_c8_hex_unsigned"
-#if DK4_USE_ASSERT
- assert(NULL != dptr);
- assert(0 < sz);
-#endif
- if (NULL != dptr) { *dptr = '\0'; }
- if (1 == padsz) { padsz = 2 * sizeof(dk4_um_t); }
- if ((NULL != dptr) && (0 < sz) && (padsz < sz)) { $? ". args"
- do { $? ". loop start"
- switch((int)(val % (dk4_um_t)16UL)) {
- case 0: { $? ". 0"
- if(used < sizeof(buf)) { buf[used++] = '0'; } else { err = 1; }
- } break;
- case 1: { $? ". 1"
- if(used < sizeof(buf)) { buf[used++] = '1'; } else { err = 1; }
- } break;
- case 2: { $? ". 2"
- if(used < sizeof(buf)) { buf[used++] = '2'; } else { err = 1; }
- } break;
- case 3: { $? ". 3"
- if(used < sizeof(buf)) { buf[used++] = '3'; } else { err = 1; }
- } break;
- case 4: { $? ". 4"
- if(used < sizeof(buf)) { buf[used++] = '4'; } else { err = 1; }
- } break;
- case 5: { $? ". 5"
- if(used < sizeof(buf)) { buf[used++] = '5'; } else { err = 1; }
- } break;
- case 6: { $? ". 6"
- if(used < sizeof(buf)) { buf[used++] = '6'; } else { err = 1; }
- } break;
- case 7: { $? ". 7"
- if(used < sizeof(buf)) { buf[used++] = '7'; } else { err = 1; }
- } break;
- case 8: { $? ". 8"
- if(used < sizeof(buf)) { buf[used++] = '8'; } else { err = 1; }
- } break;
- case 9: { $? ". 9"
- if(used < sizeof(buf)) { buf[used++] = '9'; } else { err = 1; }
- } break;
- case 10: { $? ". A"
- if(used < sizeof(buf)) { buf[used++] = 'A'; } else { err = 1; }
- } break;
- case 11: { $? ". B"
- if(used < sizeof(buf)) { buf[used++] = 'B'; } else { err = 1; }
- } break;
- case 12: { $? ". C"
- if(used < sizeof(buf)) { buf[used++] = 'C'; } else { err = 1; }
- } break;
- case 13: { $? ". D"
- if(used < sizeof(buf)) { buf[used++] = 'D'; } else { err = 1; }
- } break;
- case 14: { $? ". E"
- if(used < sizeof(buf)) { buf[used++] = 'E'; } else { err = 1; }
- } break;
- case 15: { $? ". F"
- if(used < sizeof(buf)) { buf[used++] = 'F'; } else { err = 1; }
- } break;
- }
- val = val / (dk4_um_t)16UL;
- if ((dk4_um_t)0UL == val) { cc = 0; }
- } while((1 == cc) && (0 == err));
- if (0 == err) { $? ". no error"
- if (used < sz) { $? ". sufficient place"
- if ((0 < padsz) && (used < padsz)) { $? ". padding"
- for (i = 0; i < (padsz - used); i++) {
- dptr[i] = '0';
- }
- for (i = 0; i < used; i++) {
- dptr[padsz - 1 - i] = buf[i];
- }
- dptr[padsz] = '\0';
- back = 1;
- } else { $? ". no padding"
- for (i = 0; i < used; i++) {
- dptr[i] = buf[used - 1 - i];
- }
- dptr[used] = '\0';
- back = 1;
- }
- } else { $? "! insufficient place"
- dk4error_set_simple_error_code(erp, DK4_E_BUFFER_TOO_SMALL);
- }
- } else { $? "! error"
- dk4error_set_simple_error_code(erp, DK4_E_BUG);
- }
- } else { $? "! args"
- dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS);
- }
- $? "- dk4ma_write_c8_hex_unsigned %d", back
- return back;
-}
-
-
-
-int
-dk4ma_write_c8_hex_signed(
- char *dptr, size_t sz, dk4_im_t val, size_t padsz, dk4_er_t *erp
-)
-{
- return (dk4ma_write_c8_hex_unsigned(dptr, sz, (dk4_um_t)val, padsz, erp));
-}
-