#include #include "dk4c8dbl.h" $!trace-include static const char * const test_strings[] = { $!string-table 1.0 0.1 0.01 10.0 100.0 1.00500 0.10500 0.010500 10.00500 100.00500 100.00500e-5 100.00500e-4 100.00500e-3 100.00500e-2 100.00500e-1 100.00500 100.00500e1 100.00500e2 100.00500e3 100.00500e4 100.00500e5 100.00500e6 100.00500e7 100.00500e8 100.00500e9 1.25e3 1.25e2 1.25e1 1.25e0 1.25e-1 1.25e-2 1.25e-3 -1.0 -0.1 -0.01 -10.0 -100.0 -1.00500 -0.10500 -0.010500 -10.00500 -100.00500 -100.00500e-5 -100.00500e-4 -100.00500e-3 -100.00500e-2 -100.00500e-1 -100.00500 -100.00500e1 -100.00500e2 -100.00500e3 -100.00500e4 -100.00500e5 -100.00500e6 -100.00500e7 -100.00500e8 -100.00500e9 -1.25e3 -1.25e2 -1.25e1 -1.25e0 -1.25e-1 -1.25e-2 -1.25e-3 000500e3 5.50500000 000500 $!end }; int main(int argc, char *argv[]) { const char * const *ptr; $!trace-init test-ppptf.deb $? "+ main" ptr = test_strings; while (NULL != *ptr) { fputs(*ptr, stdout); fputc('\n', stdout); dk4c8dbl_str_double_to_file(stdout, *ptr, NULL); fputc('\n', stdout); fputc('\n', stdout); ptr++; } $? "- main" $!trace-end return 0; }