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