diff options
Diffstat (limited to 'contrib/awk/awklib/eg/lib/round.awk')
-rw-r--r-- | contrib/awk/awklib/eg/lib/round.awk | 32 |
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) } |