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
|
/**************************************************************************/
/* */
/* OCaml */
/* */
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 2002 Institut National de Recherche en Informatique et */
/* en Automatique. */
/* */
/* All rights reserved. This file is distributed under the terms of */
/* the GNU Lesser General Public License version 2.1, with the */
/* special exception on linking described in the file LICENSE. */
/* */
/**************************************************************************/
/* printf-like formatting of 64-bit integers, in case the C library
printf() function does not support them. */
#ifndef CAML_INT64_FORMAT_H
#define CAML_INT64_FORMAT_H
#ifdef CAML_INTERNALS
static void I64_format(char * buffer, char * fmt, int64_t x)
{
static char conv_lower[] = "0123456789abcdef";
static char conv_upper[] = "0123456789ABCDEF";
char rawbuffer[24];
char justify, signstyle, filler, alternate, signedconv;
int base, width, sign, i, rawlen;
char * cvtbl;
char * p, * r;
int64_t wbase, digit;
/* Parsing of format */
justify = '+';
signstyle = '-';
filler = ' ';
alternate = 0;
base = 0;
signedconv = 0;
width = 0;
cvtbl = conv_lower;
for (p = fmt; *p != 0; p++) {
switch (*p) {
case '-':
justify = '-'; break;
case '+': case ' ':
signstyle = *p; break;
case '0':
filler = '0'; break;
case '#':
alternate = 1; break;
case '1': case '2': case '3': case '4': case '5':
case '6': case '7': case '8': case '9':
width = atoi(p);
while (p[1] >= '0' && p[1] <= '9') p++;
break;
case 'd': case 'i':
signedconv = 1; /* fallthrough */
case 'u':
base = 10; break;
case 'x':
base = 16; break;
case 'X':
base = 16; cvtbl = conv_upper; break;
case 'o':
base = 8; break;
}
}
if (base == 0) { buffer[0] = 0; return; }
/* Do the conversion */
sign = 1;
if (signedconv && I64_is_negative(x)) { sign = -1; x = I64_neg(x); }
r = rawbuffer + sizeof(rawbuffer);
wbase = I64_of_int32(base);
do {
I64_udivmod(x, wbase, &x, &digit);
*--r = cvtbl[I64_to_int32(digit)];
} while (! I64_is_zero(x));
rawlen = rawbuffer + sizeof(rawbuffer) - r;
/* Adjust rawlen to reflect additional chars (sign, etc) */
if (signedconv && (sign < 0 || signstyle != '-')) rawlen++;
if (alternate) {
if (base == 8) rawlen += 1;
if (base == 16) rawlen += 2;
}
/* Do the formatting */
p = buffer;
if (justify == '+' && filler == ' ') {
for (i = rawlen; i < width; i++) *p++ = ' ';
}
if (signedconv) {
if (sign < 0) *p++ = '-';
else if (signstyle != '-') *p++ = signstyle;
}
if (alternate && base == 8) *p++ = '0';
if (alternate && base == 16) { *p++ = '0'; *p++ = 'x'; }
if (justify == '+' && filler == '0') {
for (i = rawlen; i < width; i++) *p++ = '0';
}
while (r < rawbuffer + sizeof(rawbuffer)) *p++ = *r++;
if (justify == '-') {
for (i = rawlen; i < width; i++) *p++ = ' ';
}
*p = 0;
}
#endif /* CAML_INTERNALS */
#endif /* CAML_INT64_FORMAT_H */
|
