summaryrefslogtreecommitdiffstats
path: root/contrib/awk/awklib/eg/lib/round.awk
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/awk/awklib/eg/lib/round.awk')
-rw-r--r--contrib/awk/awklib/eg/lib/round.awk32
1 files changed, 0 insertions, 32 deletions
diff --git a/contrib/awk/awklib/eg/lib/round.awk b/contrib/awk/awklib/eg/lib/round.awk
deleted file mode 100644
index bf16c2b..0000000
--- a/contrib/awk/awklib/eg/lib/round.awk
+++ /dev/null
@@ -1,32 +0,0 @@
-# round --- do normal rounding
-#
-# Arnold Robbins, arnold@gnu.org, Public Domain
-# August, 1996
-
-function round(x, ival, aval, fraction)
-{
- ival = int(x) # integer part, int() truncates
-
- # see if fractional part
- if (ival == x) # no fraction
- return x
-
- if (x < 0) {
- aval = -x # absolute value
- ival = int(aval)
- fraction = aval - ival
- if (fraction >= .5)
- return int(x) - 1 # -2.5 --> -3
- else
- return int(x) # -2.3 --> -2
- } else {
- fraction = x - ival
- if (fraction >= .5)
- return ival + 1
- else
- return ival
- }
-}
-
-# test harness
-{ print $0, round($0) }
OpenPOWER on IntegriCloud