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
|
/* ISC license. */
#ifndef FMTSCAN_INTERNAL_H
#define FMTSCAN_INTERNAL_H
#include <errno.h>
#include <limits.h>
#include <skalibs/bytestr.h>
#include <skalibs/fmtscan.h>
#define SCANB(bits) \
unsigned int uint##bits##_scan_base (char const *s, uint##bits *u, unsigned char base) \
{ \
static uint##bits const max = (uint##bits)(-1) ; \
uint##bits result = 0 ; \
unsigned int pos = 0 ; \
for (;; pos++) \
{ \
register unsigned char c = fmtscan_num(s[pos], base) ; \
if ((c >= base) || (result > ((max - c) / base))) break ; \
result = result * base + c ; \
} \
if (pos) *u = result ; \
return pos ; \
} \
#define SCANB0(bits) \
unsigned int uint##bits##0_scan_base (char const *s, uint##bits *u, unsigned char base) \
{ \
register unsigned int pos = uint##bits##_scan_base(s, u, base) ; \
if (!pos) return (errno = EINVAL, 0) ; \
if (!s[pos]) return pos ; \
errno = (fmtscan_num(s[pos], base) < base) ? EDOM : EINVAL ; \
return 0 ; \
} \
#define SCANS(type, cstname) \
unsigned int type##_scan (char const *s, type *n) \
{ \
unsigned type tmp ; \
register unsigned int r = 0 ; \
register unsigned int sign = 0 ; \
if (*s == '-') \
{ \
r = 1 + u##type##_scan(s+1, &tmp) ; \
if (r == 1) return 0 ; \
if (tmp == 0) *n = 0 ; \
else \
{ \
if (tmp-1 > -(cstname##_MIN+1)) \
{ \
tmp /= 10 ; \
r-- ; \
} \
*n = cstname##_MIN + (-(cstname##_MIN+1) - (tmp-1)) ; \
} \
return r ; \
} \
if (*s == '+') (s++, sign++) ; \
r = u##type##_scan(s, &tmp) ; \
if (!r) return 0 ; \
r += sign ; \
if (tmp > cstname##_MAX) \
{ \
tmp /= 10 ; \
r-- ; \
} \
*n = tmp ; \
return r ; \
} \
#define SCANL(bits) \
unsigned int uint##bits##_scanlist (uint##bits *tab, unsigned int max, char const *s, unsigned int *num) \
{ \
unsigned int i = 0, len = 0 ; \
for (; s[len] && (i < max) ; i++) \
{ \
register unsigned int w = uint##bits##_scan(s + len, tab + i) ; \
if (!w) break ; \
len += w ; \
while (byte_chr(",:; \t\r\n", 7, s[len]) < 7) len++ ; \
} \
*num = i ; \
return len ; \
} \
#define FMTL(bits) \
unsigned int uint##bits##_fmtlist (char *s, uint##bits const *tab, unsigned int n) \
{ \
unsigned int i = 0, len = 0 ; \
for (; i < n ; i++) \
{ \
register unsigned int w = uint##bits##_fmt(s, tab[i]) ; \
len += w ; \
if (s) \
{ \
s += w ; \
if (i < n-1) { *s++ = ',' ; len++ ; } \
} \
} \
return len ; \
} \
#endif
|
