BSD 3 development

[unix-history] / usr / src / cmd / lpr / lpq.c

/*
* Line printer queue
*/

#include <sys/types.h>
#include <dir.h>
#include <stat.h>
#include <stdio.h>
#include <sccs.h>

#define MAXJOBS 100

struct  dir dirent;
struct  stat stbuf;
char    lpddir[] =      "/usr/spool/lpd";
int     nextflag;
int     linecnt;
FILE    *df;
FILE    *jf;
char    line[100];
char    username[10];
int     cnt;
int     isdown;

main()
{

       if (access("/usr/bin/lpr", 1) && access("/bin/lpr", 1)
           && access("/usr/ucb/lpr", 1))
               isdown++;
       if (chdir(lpddir) < 0) {
               perror(lpddir);
               exit(1);
       }
oloop:
       df = fopen(".", "r");
       if (df == NULL) {
               perror(lpddir);
               exit(1);
       }
loop:
       fseek(df, 0l, 0);
       linecnt = 0;
       cnt = 0;
       while (fread(&dirent, sizeof dirent, 1, df) == 1) {
               if (dirent.d_ino == 0)
                       continue;
               if (dirent.d_name[0] != 'd')
                       continue;
               if (dirent.d_name[1] != 'f')
                       continue;
               if (stat(dirent.d_name, &stbuf) < 0)
                       continue;
               if (cnt == 0)
                       printf("Owner\t  Id      Chars  Filename\n");
               cnt++;
               process();
       }
       if (cnt == 0) {
               if (isdown)
                       printf("Line printer is down.\n");
               else
                       printf("Line printer queue is empty.\n");
       }
       exit(0);
}

process()
{

       jf = fopen(dirent.d_name, "r");
       if (jf == NULL)
               return;
       while (getline()) {
               switch (line[0]) {

               case 'L':
                       strcpy(username, line+1);
                       break;

               case 'B':
               case 'F':
                       if (stat(line+1, &stbuf) < 0)
                               stbuf.st_size = 0;
                       printf("%-10s%5s%8d  %s\n", username, dirent.d_name+3,
                           stbuf.st_size, line+1);
                       break;
               }
       }
       close(jf);
}

getline()
{
       register int i, c;

       i = 0;
       while ((c = getc(jf)) != '\n') {
               if (c <= 0)
                       return(0);
               if (i < 100)
                       line[i++] = c;
       }
       line[i++] = 0;
       return (1);
}