Reflect changes made in the latest Bell Labs version (980211). No GNO/ME

changes have been added yet.

usr.bin/awk/FIXES

@@ -544,3 +544,14 @@ Aug 21, 1997:
 	the behavior is the same as gawk and the intended posix standard.
 	thanks to arnold robbins for advice here.
 
+Aug 31, 1997:
+	s/adelete/awkdelete/: SGI uses this in malloc.h.
+	thanks to nelson beebe for pointing this one out.
+
+Feb 11, 1998:
+	subtle silent bug in lex.c: if the program ended with a number
+	longer than 1 digit, part of the input would be pushed back and
+	parsed again because token buffer wasn't terminated right.
+	example:  awk 'length($0) > 10'.  blush.  at least i found it
+	myself.
+

usr.bin/awk/awk.1

@@ -23,12 +23,6 @@ awk \- pattern-directed scanning and processing language
 .I var=value
 ]
 [
-.BI \-mr n
-]
-[
-.BI \-mf n
-]
-[
 .I 'prog'
 |
 .BI \-f
@@ -93,14 +87,6 @@ If
 .BR FS
 is null, the input line is split into one field per character.
 .PP
-To compensate for inadequate implementation of storage management,
-the 
-.B \-mr
-option can be used to set the maximum size of the input record,
-and the
-.B \-mf
-option to set the maximum number of fields.
-.PP
 A pattern-action statement has the form
 .IP
 .IB pattern " { " action " }

usr.bin/awk/lex.c

@@ -143,11 +143,11 @@ int gettok(char **pbuf, int *psz)	/* get next input token */
 			  || c == '.' || c == '+' || c == '-')
 				*bp++ = c;
 			else {
-				*bp = 0;
 				unput(c);
 				break;
 			}
 		}
+		*bp = 0;
 		strtod(buf, &rem);	/* parse the number */
 		unputstr(rem);		/* put rest back for later */
 		rem[0] = 0;

usr.bin/awk/main.c

@@ -22,7 +22,7 @@ ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
 THIS SOFTWARE.
 ****************************************************************/
 
-char	*version = "version 970821";
+char	*version = "version 980211";
 
 #define DEBUG
 #include <stdio.h>

usr.bin/awk/maketab.c

@@ -77,7 +77,7 @@ struct xx
 	{ PRINTF, "awkprintf", "printf" },
 	{ PRINT, "printstat", "print" },
 	{ CLOSE, "closefile", "closefile" },
-	{ DELETE, "adelete", "adelete" },
+	{ DELETE, "awkdelete", "awkdelete" },
 	{ SPLIT, "split", "split" },
 	{ ASSIGN, "assign", " = " },
 	{ ADDEQ, "assign", " += " },

usr.bin/awk/proto.h

@@ -145,7 +145,7 @@ extern	Cell	*jump(Node **, int);
 extern	Cell	*getline(Node **, int);
 extern	Cell	*getnf(Node **, int);
 extern	Cell	*array(Node **, int);
-extern	Cell	*adelete(Node **, int);
+extern	Cell	*awkdelete(Node **, int);
 extern	Cell	*intest(Node **, int);
 extern	Cell	*matchop(Node **, int);
 extern	Cell	*boolop(Node **, int);

usr.bin/awk/run.c

@@ -471,7 +471,7 @@ Cell *array(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */
 	return(z);
 }
 
-Cell *adelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */
+Cell *awkdelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts */
 {
 	Cell *x, *y;
 	Node *np;