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
|
/* This is a copy of 'atol-1.c', but without <stdlib.h>.
The purpose is to check a native atol() function, as today (2007-02-06)
the <stdlib.h> header substitutes an inlined version with strtol() usage.
$Id: atol-2.c,v 1.1 2007/02/06 12:36:58 dmix Exp $
*/
#include <stdio.h>
#include <string.h>
#include "progmem.h"
long atol (const char *);
void exit (int);
PROGMEM const struct {
char s[12];
long val;
} t[] = {
/* Empty string */
{ "", 0 },
{ " ", 0 },
{ "\t\n\v\f\r", 0 },
/* Common values */
{ "0", 0 },
{ "+0", 0 },
{ "-0", 0 },
{ "1", 1 },
{ "+1", 1 },
{ "-1", -1 },
{ "32767", 32767 },
{ "32768", 32768 },
{ "-32767", -32767 },
{ "-32768", -32768 },
{ "-987654321", -987654321 },
{ "+1234567890", 1234567890 },
{ "2147483647", 2147483647 },
{ "-2147483647", -2147483647 },
{ "-2147483648", 0x80000000 },
/* Nonzero end character */
{ "12\001", 12 },
{ "123\377", 123 },
{ "1234/", 1234 }, /* '0'-1 == '/' */
{ "12345:", 12345 }, /* '9'+1 == ':' */
{ "321 4", 321 },
/* Empty symbols at begin */
{ " -4", -4 },
{ "\t+5", 5 },
{ "\t\n\v\f\r-321", -321 }, /* bug #18899 */
/* No digits */
{ "\001123", 0 },
{ "\377-123", 0 },
{ "\010123", 0 }, /* '\t'-1 == 010 */
{ "\016+123", 0 }, /* '\r'+1 == 016 */
/* atol() accepts 10-base only */
{ "010", 10 },
{ "0x10", 0 },
{ "0X10", 0 },
};
volatile long vlt = 1; /* for debug conveniency */
void t_exit (int idx)
{
#ifdef __AVR__
exit (idx + 1);
#else
printf ("result=%ld against t[%d]={\"%s\", %ld}\n",
vlt, idx, t[idx].s, t[idx].val);
exit (1);
#endif
}
int main ()
{
int i;
char s[sizeof(t[0].s)];
for (i = 0; i < (int)(sizeof(t) / sizeof(t[0])); i++) {
strcpy_P (s, t[i].s);
vlt = atol (s);
if (vlt != (long)pgm_read_dword (& t[i].val))
t_exit (i);
}
return 0;
}
|
