BSD 4_4 release

[unix-history] / usr / src / old / awk / tran.c

diff --git a/usr/src/old/awk/tran.c b/usr/src/old/awk/tran.c
index ea5de10..f548fc1 100644 (file)
--- a/usr/src/old/awk/tran.c
+++ b/usr/src/old/awk/tran.c
@@ -1,6 +1,15 @@
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This module is believed to contain source code proprietary to AT&T.
+ * Use and redistribution is subject to the Berkeley Software License
+ * Agreement and your Software Agreement with AT&T (Western Electric).
+ */
+

 #ifndef lint
 #ifndef lint

-static char sccsid[] = "@(#)tran.c     4.5 %G%";
-#endif
+static char sccsid[] = "@(#)tran.c     4.7 (Berkeley) 5/26/93";
+#endif /* not lint */

 
 #include "stdio.h"
 #include "awk.def"
 
 #include "stdio.h"
 #include "awk.def"


@@ -172,7 +181,7 @@ register cell *vp;
                /* have unlikely numeric variables, so that */
                /* $1 == $2 comparisons sort of make sense when */
                /* one or the other is numeric */
                /* have unlikely numeric variables, so that */
                /* $1 == $2 comparisons sort of make sense when */
                /* one or the other is numeric */

-               if (isnumber(vp->sval)) {
+               if (isanumber(vp->sval)) {

                        vp->fval = atof(vp->sval);
                        if (!(vp->tval & CON))  /* don't change type of a constant */
                                vp->tval |= NUM;
                        vp->fval = atof(vp->sval);
                        if (!(vp->tval & CON))  /* don't change type of a constant */
                                vp->tval |= NUM;