BSD 4_3 release
[unix-history] / usr / src / bin / awk / main.c
index fa58809..e48945d 100644 (file)
@@ -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"
 
 #include "stdio.h"
 #include "ctype.h"
@@ -7,6 +9,7 @@
 #define TOLOWER(c)     (isupper(c) ? tolower(c) : c) /* ugh!!! */
 
 int    dbg     = 0;
 #define TOLOWER(c)     (isupper(c) ? tolower(c) : c) /* ugh!!! */
 
 int    dbg     = 0;
+int    ldbg    = 0;
 int    svflg   = 0;
 int    rstflg  = 0;
 int    svargc;
 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]");
 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--;
        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("-d", argv[0])==0) {
                        dbg = 1;
                }
+               else if (strcmp("-l", argv[0])==0) {
+                       ldbg = 1;
+               }
                else if(strcmp("-S", argv[0]) == 0) {
                        svflg = 1;
                }
                else if(strcmp("-S", argv[0]) == 0) {
                        svflg = 1;
                }
@@ -90,31 +94,6 @@ main(argc, argv) int argc; char *argv[]; {
        exit(errorflag);
 }
 
        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);
 yywrap()
 {
        return(1);