vendor/misc-GNU/awk/3.1.0-fixed

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 bf16c2b64902..000000000000
--- 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) }