Return to dpr.c CVS log

Up to [Research Unix] / researchv10no / cmd / spool

researchv10 Norman

#include	<stdio.h>

/*
 *  dpr -- spooler for off line print via dataphone daemon to GCOS
 */

#define	DPR	1
#define	FGET	0
#define	FSEND	0
#define	GCAT	0
#define	LPR	0

#define	NAME	"dpr"
#define	BF	'F'
#define	MAXCOPY	204800L
#define FIRSTCHAR 'A'-1

char	cfname[]	= "/usr/spool/dpd/cf@XXXXX";
char	dfname[]	= "/usr/spool/dpd/df@XXXXX";
char	lfname[]	= "/usr/spool/dpd/lf@XXXXX";
char	tfname[]	= "/usr/spool/dpd/tf@XXXXX";
char	zfname[]	= "/usr/spool/dpd/zf@XXXXX";

#include	"spool.c"

int	indent	= 8;		/*amount to indent line on printer. MRW*/

main(agc, agv)
int agc;
char *agv[];
{
	argc = agc;    argv = agv;
	pidfn();
	remotsw = ONL;
	wantmail = 1;		/*default is send mail.*/
	grade = '2';

	while (argc>1 && (arg = argv[1])[0]=='-') {
		if(arg[1] != 's' && arg[2] && !arg[3]){
			remote[12] = arg[1];
			remote[13] = arg[2];
			remote[14] = 0;
		} else if(comopt(arg[1])) ;
		else switch (arg[1]) {

		case '-':
			remote[12] = 'r';
			remote[13] = '1';
			remote[14] = '\0';
			break;

		case 'f':		/*option to set filename for mail. MRW*/
			mailfile = getarg('f');
			wantmail = 1;
			break;

		case '0':		/*allow indent of 0. MRW*/
			indent = 0;
			break;

		default:
			fprintf(stderr, "%s: Unrecognized option: %s\n", NAME, arg);
			break;
		}
		argc--;
		argv++;
	}

	spool1();		/*setup initial GCOS cards.*/
	if(indent == 0)		/*set GCOS switch 32 for no indent. MRW*/
		card('L', "$	set	32");
	if(gcdebug)
		card('L', "$	select	cc/test/dpr");
	else
		card('L', "$	select	cc/unixsupport/dpr");
	card('L', "$	data	i*,ncksum,copy");

	filargs();		/*process file arguments.*/
	card('L', "$	endcopy");

	spool2();		/*put out final cards, and spool job.*/
	out();
}


archive()
{
}


nuact()
{
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.