BSD 4_4 release

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

diff --git a/usr/src/old/awk/run.c b/usr/src/old/awk/run.c
index 848fe99..a21c25c 100644 (file)
--- a/usr/src/old/awk/run.c
+++ b/usr/src/old/awk/run.c
@@ -2,11 +2,13 @@
  * Copyright (c) 1991 The Regents of the University of California.
  * All rights reserved.
  *
  * Copyright (c) 1991 The Regents of the University of California.
  * All rights reserved.
  *

- * %sccs.include.proprietary.c%
+ * 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[] = "@(#)run.c      4.9 (Berkeley) %G%";
+static char sccsid[] = "@(#)run.c      4.10 (Berkeley) 5/26/93";

 #endif /* not lint */
 
 #include "sys/param.h"
 #endif /* not lint */
 
 #include "sys/param.h"


@@ -649,7 +651,7 @@ obj split(a,nnn) node **a;
                        temp = *s;
                        *s = '\0';
                        (void)sprintf(num, "%d", n);
                        temp = *s;
                        *s = '\0';
                        (void)sprintf(num, "%d", n);

-                       if (isnumber(t))
+                       if (isanumber(t))

                                setsymtab(num, tostring(t), atof(t), STR|NUM, ap->sval);
                        else
                                setsymtab(num, tostring(t), 0.0, STR, ap->sval);
                                setsymtab(num, tostring(t), atof(t), STR|NUM, ap->sval);
                        else
                                setsymtab(num, tostring(t), 0.0, STR, ap->sval);


@@ -666,7 +668,7 @@ obj split(a,nnn) node **a;
                        temp = *s;
                        *s = '\0';
                        (void)sprintf(num, "%d", n);
                        temp = *s;
                        *s = '\0';
                        (void)sprintf(num, "%d", n);

-                       if (isnumber(t))
+                       if (isanumber(t))

                                setsymtab(num, tostring(t), atof(t), STR|NUM, ap->sval);
                        else
                                setsymtab(num, tostring(t), 0.0, STR, ap->sval);
                                setsymtab(num, tostring(t), atof(t), STR|NUM, ap->sval);
                        else
                                setsymtab(num, tostring(t), 0.0, STR, ap->sval);