[unix-history] / usr / src / old / vpr / vpr.c

static char sccsid[] = "@(#)vpr.c	1.4	(Berkeley)	%G%";

#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);
}
Commit	Line	Data
51094b1f	1	static char sccsid[] = "@(#)vpr.c 1.4 (Berkeley) %G%";
45e6ec73	2
1be37bdb	3	#include <signal.h>
45e6ec73 KM	4	#include <sys/param.h>
45e6ec73 KM	5	#define BUFSIZ MAXBSIZE
1be37bdb BJ	6
	7	/*
	8	* vpr -- varian and versatec (as printers) spooler
	9	*/
	10
	11	#define VAD "/usr/lib/vad"
	12	#define VPD "/usr/lib/vpd"
	13	char VAtfname[] = "/usr/spool/vad/tfaXXXXX";
	14	char VAcfname[] = "/usr/spool/vad/cfaXXXXX";
	15	char VAdfname[] = "/usr/spool/vad/dfaXXXXX";
	16	char VPtfname[] = "/usr/spool/vpd/tfaXXXXX";
	17	char VPcfname[] = "/usr/spool/vpd/cfaXXXXX";
	18	char VPdfname[] = "/usr/spool/vpd/dfaXXXXX";
	19	char *tfname;
	20	char *cfname;
	21	/* char lfname; /
	22	char *dfname;
	23	int wide;
	24	int literal;
	25	int nact;
	26	int tff;
	27	int mailflg;
	28	char person[10];
	29	int inchar;
	30	int maxrec = 2000;
	31	char *width = "-w106";
	32	int troffit;
	33	int plotit;
	34	char *fonts[4];
	35
	36	main(argc, argv)
	37	int argc;
	38	char *argv[];
	39	{
	40	register char arg, remote;
	41	int c, f, fv, flag;
	42	int out();
	43
198929ab	44	umask(0);
1be37bdb BJ	45	if (signal(SIGINT, SIG_IGN) == SIG_DFL)
	46	signal(SIGINT, out);
	47	if (signal(SIGQUIT, SIG_IGN) == SIG_DFL)
	48	signal(SIGQUIT, out);
	49	if (signal(SIGHUP, SIG_IGN) == SIG_DFL)
	50	signal(SIGHUP, out);
	51	if (signal(SIGTERM, SIG_IGN) == SIG_DFL)
	52	signal(SIGTERM, out);
	53	remote = "$ remote **,onl";
	54	flag = 0;
	55	wide = 0;
	56	tfname = VAtfname;
	57	cfname = VAcfname;
	58	dfname = VAdfname;
	59	while (argc>1 && (arg = argv[1])[0]=='-') {
	60	if (arg[1] && arg[2]) {
	61	remote[12] = arg[1];
	62	remote[13] = arg[2];
	63	remote[14] = 0;
	64	} else switch (arg[1]) {
	65
	66	case 'W':
	67	wide++;
	68	tfname = VPtfname;
	69	cfname = VPcfname;
	70	dfname = VPdfname;
	71	break;
	72
	73	case '-':
	74	remote[12] = 'r';
	75	remote[13] = '1';
	76	remote[14] = '\0';
	77	break;
	78
	79	case 'c':
	80	flag = '+';
	81	break;
	82
	83	case 'r':
	84	flag = '-';
	85	break;
	86
	87	case 'v':
	88	plotit = 1;
	89	width = 0;
	90	break;
	91
	92	case 'm':
	93	mailflg = 1;
	94	break;
	95
	96	case 't':
	97	troffit = 1;
	98	width = 0;
	99	break;
	100
	101	case '4':
	102	case '3':
	103	case '2':
	104	case '1':
	105	fonts[arg[1] - '1'] = argv[2];
	106	troffit = 1;
	107	argv++;
	108	argc--;
109	break;
110
111	case 'w':
112	if (troffit)
113	break;
114	if (arg[2] == 0)
115	width = 0;
116	else
117	width = arg;
118	break;
119
120	case 'l':
121	literal++; /* Pass control chars through. */
122	break;
123	}
124	argc--;
125	argv++;
126	}
127	pidfn();
128	tff = nfile(tfname);
129	if (!wide) /* varian doesn't use sidebyside. */
130	width = 0;
131	ident();
132	if(argc == 1)
133	copy(0);
134	while(--argc > 0) {
135	arg = *++argv;
136	/*
137	if(flag == '+')
138	goto cf;
139	* This may not work because the daemon runs as someone else, so don't bother
140	if(*arg == '/' && flag != '-') {
141	card(literal ? 'G' : 'F', arg);
142	nact++;
143	continue;
144	}
145	if(link(arg, lfname) < 0)
146	goto cf;
147	card(literal ? 'G' : 'F', lfname);
148	card('U', lfname);
149	lfname[inchar]++;
150	nact++;
151	goto df;
152	*/
153
154	cf:
155	f = open(arg, 0);
156	if(f < 0) {
157	printf("Cannot open %s\n", arg);
158	if (plotit) {
159	--argc;
160	arg = *++argv;
161	}
162	continue;
163	}
164	if (plotit) {
165	if (--argc > 0) {
166	arg = *++argv;
167	fv = open(arg, 0);
168	if (fv < 0) {
169	printf("Cannot open %s\n", arg);
170	close(f);
171	continue;
172	}
173	}
174	else {
175	printf("Versaplot requires parm and vector file\n");
176	close(f);
177	continue;
178	}
179	copy(fv);
180	close(fv);
181	}
182	copy(f);
183	close(f);
184
185	df:
186	if(flag == '-') {
187	f = unlink(arg);
188	if(f < 0)
189	printf("Cannot remove %s\n", arg);
190	}
191	}
192
193	if(nact) {
194	tfname[inchar]--;
195	f = link(tfname, dfname);
196	if(f < 0) {
197	printf("Cannot rename %s\n", dfname);
198	tfname[inchar]++;
199	out();
200	}
201	unlink(tfname);
202	if (wide)
51094b1f	203	execl(VPD, "vpd", "-n", "-3", 0);
1be37bdb	204	else
51094b1f	205	execl(VAD, "vad", "-n", "-3", 0);
1be37bdb BJ	206	dfname[inchar]++;
	207	printf("Daemon doesn't exist\n");
	208	exit(0);
	209	}
	210	out();
	211	}
	212
	213	copy(f)
	214	int f;
	215	{
	216	int ff, i, nr, nc;
	217	static char buf[BUFSIZ];
	218	int status;
	219
	220	for (i = 0; i < 3; i++)
	221	if (fonts[i])
	222	card('1' + i, fonts[i]);
	223	if (troffit)
	224	card('T', cfname);
	225	else if (plotit)
	226	card('P', cfname);
	227	else
	228	card(literal ? 'G' : 'F', cfname);
	229	card('U', cfname);
	230	ff = nfile(cfname);
	231	nc = 0;
	232	nr = 0;
	233	if (width) {
	234	int pvec[2];
	235	pipe(pvec);
	236	i = fork();
	237	if (i < 0) {
	238	printf("No more processes\n");
	239	out();
	240	}
	241	if (i == 0) {
	242	if (f != 0) {
	243	close(0);
	244	dup(f);
	245	}
	246	close(1);
	247	dup(pvec[1]);
	248	close(pvec[0]);
	249	close(pvec[1]);
	250	execl("/usr/lib/sidebyside", "sidebyside", width, 0);
	251	perror("/usr/lib/sidebyside");
	252	exit(1);
	253	}
	254	close(pvec[1]);
	255	close(f);
	256	f = pvec[0];
	257	}
	258	while((i = read(f, buf, BUFSIZ)) > 0) {
	259	write(ff, buf, i);
	260	nc += i;
	261	if(nc >= BUFSIZ) {
	262	nc -= BUFSIZ;
	263	nr++;
	264	if(nr > maxrec) {
	265	printf("Copy file is too large\n");
	266	break;
	267	}
	268	}
	269	}
270	close(ff);
271	nact++;
272	wait(&status);
273	}
274
275	card(c, s)
276	int c;
277	char s[];
278	{
279	char p1, p2;
280	static char buf[BUFSIZ];
281	int col;
282
283	p1 = buf;
284	p2 = s;
285	col = 0;
286	*p1++ = c;
287	while((c = *p2++) != '\0') {
288	*p1++ = c;
289	col++;
290	}
291	*p1++ = '\n';
292	write(tff, buf, col+2);
293	}
294
295	ident()
296	{
297	int c, n;
298	register char b1p, pp, *b2p;
299	static char b1[100], b2[100];
300
301	b1p = b1;
302	if(getpw(getuid(), b1p)) {
303	b1p = "pdp::::m0000,m000:";
304	}
305	n = 0;
306	b2p = b2;
307	while(*b2p++ = "$ ident "[n++]);
308	b2p--;
309	n = 5;
310	while(--n) while(*b1p++ != ':');
311	while((b2p++ = b1p++) != ':');
312	b2p[-1] = ',';
313	b1p = b1;
314	pp = person;
315	while((c = *b1p++) != ':') {
316	*b2p++ = c;
317	*pp++ = c;
318	}
319	*b2p++ = 0;
320	*pp++ = 0;
321	card('L', person);
322	if (mailflg)
323	card('M', person);
324	}
325
326	pidfn()
327	{
328	register i, j, c;
329	int s;
330	int p;
331
332	s = p = getpid();
333	p &= 077777;
334	i = 0;
335	while(tfname[i] != 'X')
336	i++;
337	i += 4;
338	for(j=0; j<5; j++) {
339	c = (p%10) + '0';
340	if(s<0 && j==4)
341	c += 4;
342	p /= 10;
343	tfname[i] = c;
344	cfname[i] = c;
345	/*
346	lfname[i] = c;
347	*/
348	dfname[i] = c;
349	i--;
350	}
351	inchar = i;
352	}
353
354	nfile(name)
355	char *name;
356	{
357	register f;
358
359	f = creat(name, 0644);
360	if(f < 0) {
361	printf("Cannot create %s\n", name);
362	out();
363	}
364	name[inchar]++;
365	return(f);
366	}
367
368	out()
369	{
370	register i;
371
372	signal(SIGINT, SIG_IGN);
373	signal(SIGQUIT, SIG_IGN);
374	signal(SIGHUP, SIG_IGN);
375	signal(SIGTERM, SIG_IGN);
376	i = inchar;
377	while(tfname[i] != 'a') {
378	tfname[i]--;
379	unlink(tfname);
380	}
381	while(cfname[i] != 'a') {
382	cfname[i]--;
383	unlink(cfname);
384	}
385	/*
386	while(lfname[i] != 'a') {
387	lfname[i]--;
388	unlink(lfname);
389	}
390	*/
391	while(dfname[i] != 'a') {
392	dfname[i]--;
393	unlink(dfname);
394	}
395	exit(0);
396	}