BSD 4_2 release
[unix-history] / usr / src / usr.bin / refer / deliv1.c
index ae4a57b..e9bacc0 100644 (file)
@@ -1,45 +1,49 @@
-# include "stdio.h"
-main(argc,argv)
-       char *argv[];
+#ifndef lint
+static char *sccsid = "@(#)deliv1.c    4.1 (Berkeley) 5/6/83";
+#endif
+
+#include <stdio.h>
+
+main(argc, argv)       /* goes from file:begin,l to actual characters */
+char *argv[];
 {
 {
-/* goes from file:begin,l to actual characters */
-char line[750], *p, name[100];
-FILE *fa NULL;
-long lp;
-int len;
+       FILE *fopen(), *fa = NULL;
+       char line[750], *p, name[100], *strcpy();
+       long lp;
+       int len;
 
 
-if (argc>1 && argv[1] && argv[1][0])
-       chdir (argv[1]);
-name[0]="";
-while (gets(line))
+       if (argc > 1 && argv[1] && argv[1][0])
+               chdir(argv[1]);
+       name[0] = NULL;
+       while (gets(line))
        {
        {
-       if (line[0]=='$' && line[1]=='$') 
+               if (line[0] == '$' && line[1] == '$') 
                {
                {
-               chdir(line+2);
-               continue;
+                       chdir(line+2);
+                       continue;
                }
                }
-       for(p=line; *p!= ':'; p++)
-               ;
-       *p++ = 0;
-       sscanf(p, "%ld,%d", &lp, &len);
-       if (p==line)
-               fa = stdin;
-       else
-       if (strcmp (name, line) != 0)
-               {
+               for (p = line; *p != ':'; p++)
+                       ;
+               *p++ = 0;
+               sscanf(p, "%ld,%d", &lp, &len);
+               if (p == line)
+                       fa = stdin;
+               else
+                       if (strcmp(name, line) != 0)
+                       {
+                               if (fa != NULL)
+                                       fclose(fa);
+                               fa = fopen(line, "r");
+                               if (fa == NULL)
+                                       err("Can't open %s", line);
+                               strcpy(name, line);
+                       }
                if (fa != NULL)
                if (fa != NULL)
-                       fclose(fa);
-               fa = fopen(line, "r");
-               if (fa == NULL)
-                       err("Can't open %s", line);
-               strcpy(name, line);
-               }
-       if (fa != NULL)
                {
                {
-               fseek (fa, lp, 0);
-               fread (line, 1, len, fa);
-               line[len] = 0;
-               fputs(line, stdout);
+                       fseek (fa, lp, 0);
+                       fread (line, 1, len, fa);
+                       line[len] = 0;
+                       fputs(line, stdout);
                }
        }
 }
                }
        }
 }