1
2#include <stdio.h>
3
4#include <libdk4c/dk4c8dbl.h>
5
6
7$!trace-include
8
9
10
11static const char * const	test_strings[] = {
12$!string-table
131.0
140.1
150.01
1610.0
17100.0
181.00500
190.10500
200.010500
2110.00500
22100.00500
23100.00500e-5
24100.00500e-4
25100.00500e-3
26100.00500e-2
27100.00500e-1
28100.00500
29100.00500e1
30100.00500e2
31100.00500e3
32100.00500e4
33100.00500e5
34100.00500e6
35100.00500e7
36100.00500e8
37100.00500e9
381.25e3
391.25e2
401.25e1
411.25e0
421.25e-1
431.25e-2
441.25e-3
45-1.0
46-0.1
47-0.01
48-10.0
49-100.0
50-1.00500
51-0.10500
52-0.010500
53-10.00500
54-100.00500
55-100.00500e-5
56-100.00500e-4
57-100.00500e-3
58-100.00500e-2
59-100.00500e-1
60-100.00500
61-100.00500e1
62-100.00500e2
63-100.00500e3
64-100.00500e4
65-100.00500e5
66-100.00500e6
67-100.00500e7
68-100.00500e8
69-100.00500e9
70-1.25e3
71-1.25e2
72-1.25e1
73-1.25e0
74-1.25e-1
75-1.25e-2
76-1.25e-3
77000500e3
785.50500000
79000500
80$!end
81};
82
83int main(int argc, char *argv[])
84{
85	const char * const	*ptr;
86
87	$!trace-init test-ppptf.deb
88	$? "+ main"
89	ptr = test_strings;
90	while (NULL != *ptr) {
91		fputs(*ptr, stdout);
92		fputc('\n', stdout);
93		dk4c8dbl_str_double_to_file(stdout, *ptr, NULL);
94		fputc('\n', stdout);
95		fputc('\n', stdout);
96		ptr++;
97	}
98	$? "- main"
99	$!trace-end
100	return 0;
101}
102
103