diff options
author | obrien <obrien@FreeBSD.org> | 2001-11-02 21:06:08 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 2001-11-02 21:06:08 +0000 |
commit | 223f0286ad0612783e0da01de3b5bfdc52e3b25c (patch) | |
tree | cd2c7fd87952f47d303b90e49b90c14bccf7e292 /contrib/awk/test/addcomma.awk | |
parent | 4e5281d00b8fa7447d70020d36660157e7e43626 (diff) | |
download | FreeBSD-src-223f0286ad0612783e0da01de3b5bfdc52e3b25c.zip FreeBSD-src-223f0286ad0612783e0da01de3b5bfdc52e3b25c.tar.gz |
Update vendor branch to gawk-3.1.0.
Diffstat (limited to 'contrib/awk/test/addcomma.awk')
-rw-r--r-- | contrib/awk/test/addcomma.awk | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/contrib/awk/test/addcomma.awk b/contrib/awk/test/addcomma.awk new file mode 100644 index 0000000..8f52f36 --- /dev/null +++ b/contrib/awk/test/addcomma.awk @@ -0,0 +1,15 @@ +# addcomma - put commas in numbers +# input: a number per line +# output: the input number followed by +# the number with commas and two decimal places + +{ printf("%-12s %20s\n", $0, addcomma($0)) } + +function addcomma(x, num) { + if (x < 0) + return "-" addcomma(-x) + num = sprintf("%.2f", x) # num is dddddd.dd + while (num ~ /[0-9][0-9][0-9][0-9]/) + sub(/[0-9][0-9][0-9][,.]/, ",&", num) + return num +} |