summaryrefslogtreecommitdiff
path: root/support/dktools/dk3maod8.c
blob: e3ae37daa83477875e25657735a44de5656658d2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
/*
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: dk3maod8.ctr
*/

/**	@file dk3maod8.c The dk3maod8 module.
*/


#line 65 "dk3maod8.ctr"

#include "dk3ma.h"





#line 71 "dk3maod8.ctr"



/**	Size correction for alignment.
*/
#define	DK3MAOD8_ALIGN(sz,al) \
((0 == (sz % al)) ? (sz) : (((sz / al) + 1) * al))


int
dk3ma_um_to_c8_string(char *rb, size_t sz, dk3_um_t va)
{
  char		 buf[DK3MAOD8_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] = '\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] = buf[szused - i - 1];
	  }
	  rb[szused] = '\0';
        } else {
          back = 0;
        }
      }
    }
  }
  return back;
}



int
dk3ma_im_to_c8_string(char *rb, size_t sz, dk3_im_t va)
{
  char		*orb;
  dk3_um_t	 umva;
  int		 back	=	0;
  if ((NULL != rb) && (0 < sz)) {
    orb = rb;
    rb[0] = '\0';
    if (2 < sz) {
      if (DK3_IM_0 > va) {
        *(rb++) = '-';
	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_c8_string(rb, sz, umva);
    }
    if (0 == back) { *orb = '\0'; }
  }
  return back;
}