Research V7 development

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

#
/*
* lpd -- line printer daemon dispatcher
*
*/

#include        <ctype.h>

#define SPIDER  0
#define PHONE   0
#define LPD     1

char    dpd[]   = "/usr/spool/lpd";
char    dfname[30] = "/usr/spool/lpd/";
char    lock[]  = "/usr/spool/lpd/lock";

#include        "daemon.c"

/*
* The remaining part is the line printer interface.
*/

char    lp[]    = "/dev/lp";
char    chrtab[][16];
FILE    *lpf = NULL;

dem_con()
{
       if((lpf = fopen(lp, "w")) == NULL)
               return(-1);
       return(0);
}

dem_dis()
{

       FCLOSE(lpf);
       FCLOSE(dfb);
}

dem_open(file)
char    *file;
{
}

dem_close()
{
}

get_snumb()
{
}

lwrite()
{
       banner(&line[1]);
}


FILE    *ibuf;

sascii(fff)
{
       if((ibuf = fopen(&line[1], "r")) == NULL)
               return(0);
       if(fff)
               putc(ff, lpf);
       bsopt();
       fflush(lpf);
       fclose(ibuf);
       return(0);
}

/*
*      Copy file ibuf to lpf arranging that no
*      backspaces will appear in the output.  Courtesy ARK
*/

#define BSIZE 256

char b1[BSIZE], b2[BSIZE];
int size1, size2;

bsopt()
{
       register int cp, c;

       size1 = size2 = cp = 0;
       while ((c = getc(ibuf)) != EOF) {
               if (isprint (c)) {
                       if (cp < BSIZE) {
                               if (cp >= size1 || b1[cp] == ' ') {
                                       while (cp >= size1)
                                               b1[size1++] = ' ';
                               } else {
                                       if (cp < size2 && b2[cp] != ' ')
                                               pr2();
                                       while (cp >= size2)
                                               b2[size2++] = ' ';
                                       b2[cp] = b1[cp];
                               }
                               b1[cp++] = c;
                       }
               } else {
                       switch (c) {

                       case ' ':
                               cp++;
                               break;
                       
                       case '\b':
                               if (cp)
                                       cp--;
                               break;

                       case '\t':
                               cp = (cp + 8) & -8;
                               break;

                       case '\r':
                               cp = 0;
                               break;

                       case '\n':
                       case '\f':
                               pr2();
                               pr1();
                               putc(c, lpf);
                               size1 = cp = 0;
                               break;

                       }
               }
       }
       pr2();
       pr1();
}
pr1()
{
       register char *p, *lim;

       p = b1;
       lim = p + size1;
       while (p < lim)
               putc(*p++, lpf);
       size1 = 0;
}

pr2()
{
       register char *p, *lim;

       p = b2;
       lim = p + size2;
       if (p < lim) {
               do
                       putc(*p++, lpf);
               while (p < lim);
               putc('\r', lpf);
       }
       size2 = 0;
}

/* VARARGS */
trouble(s, a1, a2, a3, a4)
char    *s;
{
       if(retcode != 0){
               dem_dis();
       }
       longjmp(env, 1);
}

/* VARARGS */
logerr()
{
}

getowner()
{
}

maildname()
{
       fprintf(pmail, "Your lpr printer job is done.\n");
}

banner(s)
char *s;
{
       long timeb;
       register char *sp;
       int i, j, t, lsw;

       for(lsw=0; s[lsw] && lsw<5; lsw++);
       putc(ff, lpf);
       fprintf(lpf, "\n\n\n\n\n\n\n\n");
       for (i=0; i<16; i++) {
               if(lsw < 5)
                       fprintf(lpf, "                ");
               for (sp=s; *sp; sp++) {
                       if (*sp<=' '|| *sp >'}')
                               continue;
                       fprintf(lpf, "  ");
                       t = chrtab[*sp - ' '][i];
                       for (j=7; j>=0; j--)
                               if ((t>>j) & 01)
                                       putc('X', lpf);
                               else
                                       putc(' ', lpf);
               }
               putc('\n', lpf);
       }
       fprintf(lpf, "\n\n\n\n\n\n\n\n");
       time(&timeb);
       fprintf(lpf, "                ");
       fprintf(lpf, ctime(&timeb));
       putc(ff, lpf);
}