X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/e804469b5b0975de34bae1e66c3e6371249d3ee7..95f51977ddc18faa2e212f30c00a39540b39f325:/usr/src/bin/awk/main.c

diff --git a/usr/src/bin/awk/main.c b/usr/src/bin/awk/main.c
index fa588097a3..e48945d46f 100644
--- a/usr/src/bin/awk/main.c
+++ b/usr/src/bin/awk/main.c
@@ -1,4 +1,6 @@
-/*	main.c	4.1	82/05/07	*/
+#ifndef lint
+static char sccsid[] = "@(#)main.c	4.4 (Berkeley) 12/8/84";
+#endif
 
 #include "stdio.h"
 #include "ctype.h"
@@ -7,6 +9,7 @@
 #define TOLOWER(c)	(isupper(c) ? tolower(c) : c) /* ugh!!! */
 
 int	dbg	= 0;
+int	ldbg	= 0;
 int	svflg	= 0;
 int	rstflg	= 0;
 int	svargc;
@@ -21,8 +24,6 @@ extern int maxsym, errno;
 main(argc, argv) int argc; char *argv[]; {
 	if (argc == 1)
 		error(FATAL, "Usage: awk [-f source | 'cmds'] [files]");
-	if (strcmp(argv[0], "a.out"))
-		logit(argc, argv);
 	syminit();
 	while (argc > 1) {
 		argc--;
@@ -53,6 +54,9 @@ main(argc, argv) int argc; char *argv[]; {
 		} else if (strcmp("-d", argv[0])==0) {
 			dbg = 1;
 		}
+		else if (strcmp("-l", argv[0])==0) {
+			ldbg = 1;
+		}
 		else if(strcmp("-S", argv[0]) == 0) {
 			svflg = 1;
 		}
@@ -90,31 +94,6 @@ main(argc, argv) int argc; char *argv[]; {
 	exit(errorflag);
 }
 
-logit(n, s) char *s[];
-{	int i, tvec[2];
-	FILE *f, *g;
-	char buf[512];
-	if ((f=fopen("/crp/pjw/awkhist/awkhist", "a"))==NULL)
-		return;
-	time(tvec);
-	fprintf(f, "%-8s %s", getlogin(), ctime(tvec));
-	for (i=0; i<n; i++)
-		fprintf(f, "'%s'", s[i]);
-	putc('\n', f);
-	if (strcmp(s[1], "-f")) {
-		fclose(f);
-		return;
-	}
-	if ((g=fopen(s[2], "r"))==NULL) {
-		fclose(f);
-		return;
-	}
-	while ((i=fread(buf, 1, 512, g))>0)
-		fwrite(buf, 1, i, f);
-	fclose(f);
-	fclose(g);
-}
-
 yywrap()
 {
 	return(1);