diff options
Diffstat (limited to 'contrib/awk/test/printfloat.awk')
-rw-r--r-- | contrib/awk/test/printfloat.awk | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/contrib/awk/test/printfloat.awk b/contrib/awk/test/printfloat.awk deleted file mode 100644 index 1cb4066..0000000 --- a/contrib/awk/test/printfloat.awk +++ /dev/null @@ -1,62 +0,0 @@ -# Test program for checking sprintf operation with various floating -# point formats -# -# Watch out - full output of this program will have 3000 * tot lines, -# which will take a chunk of space if you will write it to your disk. -# --mj - -BEGIN { - just = "-" - plus = "+ " - alt = "#" - zero = "0" - spec = "feEgG" - fw[1] = "" - fw[2] = "1" - fw[3] = "5" - fw[4] = "10" - fw[5] = "15" - prec[1] = ".-1" - prec[2] = "" - prec[3] = ".2" - prec[4] = ".5" - prec[5] = ".10" - - num = 123.6 - factor = 1.0e-12 - tot = 8 - data[1] = 0 - data[2] = 1 - for (i = 3; i <= tot; i++) { - data[i] = num * factor - factor *= 1000 - } - - for (j = 1; j <= 2; j++) { - for (p = 1; p <= 3; p++) { - for (a = 1; a <= 2; a++) { - for (z = 1; z <= 2; z++) { - for (s = 1; s <= 5; s++) { - for (w = 1; w <= 5; w++) { - for (r = 1; r <= 5; r++) { - frmt = "|%" substr(just, j, 1) - frmt = frmt substr(plus, p, 1) - frmt = frmt substr(alt, a, 1) - frmt = frmt substr(zero, z, 1) - frmt = frmt fw[w] prec[r] - frmt = frmt substr(spec, s, 1) "|" - for (i = 1; i <= tot; i++) { - result = sprintf(frmt, data[i]) -# "normalize" if you must -# sub(/\|\./, "|0.", result) - printf("%-16s %-25s\t%g\n", frmt, - result,data[i]) - } - } - } - } - } - } - } - } -} |