4.3BSD-Tahoe/usr/src/old/vpr/vpr.c
static char sccsid[] = "@(#)vpr.c 1.4 (Berkeley) 11/18/82";
#include <signal.h>
#include <sys/param.h>
#define BUFSIZ MAXBSIZE
/*
* vpr -- varian and versatec (as printers) spooler
*/
#define VAD "/usr/lib/vad"
#define VPD "/usr/lib/vpd"
char VAtfname[] = "/usr/spool/vad/tfaXXXXX";
char VAcfname[] = "/usr/spool/vad/cfaXXXXX";
char VAdfname[] = "/usr/spool/vad/dfaXXXXX";
char VPtfname[] = "/usr/spool/vpd/tfaXXXXX";
char VPcfname[] = "/usr/spool/vpd/cfaXXXXX";
char VPdfname[] = "/usr/spool/vpd/dfaXXXXX";
char *tfname;
char *cfname;
/* char *lfname; */
char *dfname;
int wide;
int literal;
int nact;
int tff;
int mailflg;
char person[10];
int inchar;
int maxrec = 2000;
char *width = "-w106";
int troffit;
int plotit;
char *fonts[4];
main(argc, argv)
int argc;
char *argv[];
{
register char *arg, *remote;
int c, f, fv, flag;
int out();
umask(0);
if (signal(SIGINT, SIG_IGN) == SIG_DFL)
signal(SIGINT, out);
if (signal(SIGQUIT, SIG_IGN) == SIG_DFL)
signal(SIGQUIT, out);
if (signal(SIGHUP, SIG_IGN) == SIG_DFL)
signal(SIGHUP, out);
if (signal(SIGTERM, SIG_IGN) == SIG_DFL)
signal(SIGTERM, out);
remote = "$ remote **,onl";
flag = 0;
wide = 0;
tfname = VAtfname;
cfname = VAcfname;
dfname = VAdfname;
while (argc>1 && (arg = argv[1])[0]=='-') {
if (arg[1] && arg[2]) {
remote[12] = arg[1];
remote[13] = arg[2];
remote[14] = 0;
} else switch (arg[1]) {
case 'W':
wide++;
tfname = VPtfname;
cfname = VPcfname;
dfname = VPdfname;
break;
case '-':
remote[12] = 'r';
remote[13] = '1';
remote[14] = '\0';
break;
case 'c':
flag = '+';
break;
case 'r':
flag = '-';
break;
case 'v':
plotit = 1;
width = 0;
break;
case 'm':
mailflg = 1;
break;
case 't':
troffit = 1;
width = 0;
break;
case '4':
case '3':
case '2':
case '1':
fonts[arg[1] - '1'] = argv[2];
troffit = 1;
argv++;
argc--;
break;
case 'w':
if (troffit)
break;
if (arg[2] == 0)
width = 0;
else
width = arg;
break;
case 'l':
literal++; /* Pass control chars through. */
break;
}
argc--;
argv++;
}
pidfn();
tff = nfile(tfname);
if (!wide) /* varian doesn't use sidebyside. */
width = 0;
ident();
if(argc == 1)
copy(0);
while(--argc > 0) {
arg = *++argv;
/*
if(flag == '+')
goto cf;
* This may not work because the daemon runs as someone else, so don't bother
if(*arg == '/' && flag != '-') {
card(literal ? 'G' : 'F', arg);
nact++;
continue;
}
if(link(arg, lfname) < 0)
goto cf;
card(literal ? 'G' : 'F', lfname);
card('U', lfname);
lfname[inchar]++;
nact++;
goto df;
*/
cf:
f = open(arg, 0);
if(f < 0) {
printf("Cannot open %s\n", arg);
if (plotit) {
--argc;
arg = *++argv;
}
continue;
}
if (plotit) {
if (--argc > 0) {
arg = *++argv;
fv = open(arg, 0);
if (fv < 0) {
printf("Cannot open %s\n", arg);
close(f);
continue;
}
}
else {
printf("Versaplot requires parm and vector file\n");
close(f);
continue;
}
copy(fv);
close(fv);
}
copy(f);
close(f);
df:
if(flag == '-') {
f = unlink(arg);
if(f < 0)
printf("Cannot remove %s\n", arg);
}
}
if(nact) {
tfname[inchar]--;
f = link(tfname, dfname);
if(f < 0) {
printf("Cannot rename %s\n", dfname);
tfname[inchar]++;
out();
}
unlink(tfname);
if (wide)
execl(VPD, "vpd", "-n", "-3", 0);
else
execl(VAD, "vad", "-n", "-3", 0);
dfname[inchar]++;
printf("Daemon doesn't exist\n");
exit(0);
}
out();
}
copy(f)
int f;
{
int ff, i, nr, nc;
static char buf[BUFSIZ];
int status;
for (i = 0; i < 3; i++)
if (fonts[i])
card('1' + i, fonts[i]);
if (troffit)
card('T', cfname);
else if (plotit)
card('P', cfname);
else
card(literal ? 'G' : 'F', cfname);
card('U', cfname);
ff = nfile(cfname);
nc = 0;
nr = 0;
if (width) {
int pvec[2];
pipe(pvec);
i = fork();
if (i < 0) {
printf("No more processes\n");
out();
}
if (i == 0) {
if (f != 0) {
close(0);
dup(f);
}
close(1);
dup(pvec[1]);
close(pvec[0]);
close(pvec[1]);
execl("/usr/lib/sidebyside", "sidebyside", width, 0);
perror("/usr/lib/sidebyside");
exit(1);
}
close(pvec[1]);
close(f);
f = pvec[0];
}
while((i = read(f, buf, BUFSIZ)) > 0) {
write(ff, buf, i);
nc += i;
if(nc >= BUFSIZ) {
nc -= BUFSIZ;
nr++;
if(nr > maxrec) {
printf("Copy file is too large\n");
break;
}
}
}
close(ff);
nact++;
wait(&status);
}
card(c, s)
int c;
char s[];
{
char *p1, *p2;
static char buf[BUFSIZ];
int col;
p1 = buf;
p2 = s;
col = 0;
*p1++ = c;
while((c = *p2++) != '\0') {
*p1++ = c;
col++;
}
*p1++ = '\n';
write(tff, buf, col+2);
}
ident()
{
int c, n;
register char *b1p, *pp, *b2p;
static char b1[100], b2[100];
b1p = b1;
if(getpw(getuid(), b1p)) {
b1p = "pdp::::m0000,m000:";
}
n = 0;
b2p = b2;
while(*b2p++ = "$ ident "[n++]);
b2p--;
n = 5;
while(--n) while(*b1p++ != ':');
while((*b2p++ = *b1p++) != ':');
b2p[-1] = ',';
b1p = b1;
pp = person;
while((c = *b1p++) != ':') {
*b2p++ = c;
*pp++ = c;
}
*b2p++ = 0;
*pp++ = 0;
card('L', person);
if (mailflg)
card('M', person);
}
pidfn()
{
register i, j, c;
int s;
int p;
s = p = getpid();
p &= 077777;
i = 0;
while(tfname[i] != 'X')
i++;
i += 4;
for(j=0; j<5; j++) {
c = (p%10) + '0';
if(s<0 && j==4)
c += 4;
p /= 10;
tfname[i] = c;
cfname[i] = c;
/*
lfname[i] = c;
*/
dfname[i] = c;
i--;
}
inchar = i;
}
nfile(name)
char *name;
{
register f;
f = creat(name, 0644);
if(f < 0) {
printf("Cannot create %s\n", name);
out();
}
name[inchar]++;
return(f);
}
out()
{
register i;
signal(SIGINT, SIG_IGN);
signal(SIGQUIT, SIG_IGN);
signal(SIGHUP, SIG_IGN);
signal(SIGTERM, SIG_IGN);
i = inchar;
while(tfname[i] != 'a') {
tfname[i]--;
unlink(tfname);
}
while(cfname[i] != 'a') {
cfname[i]--;
unlink(cfname);
}
/*
while(lfname[i] != 'a') {
lfname[i]--;
unlink(lfname);
}
*/
while(dfname[i] != 'a') {
dfname[i]--;
unlink(dfname);
}
exit(0);
}