[unix-history] / usr / src / old / dump.4.1 / dumpmain.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char sccsid[] = "@(#)dumpmain.c	5.1 (Berkeley) 6/5/85";
#endif not lint

#include "dump.h"

int	notify = 0;	/* notify operator flag */
int	blockswritten = 0;	/* number of blocks written on current tape */
int	tapeno = 0;	/* current tape number */
int	density = 160;	/* density in 0.1" units */

main(argc, argv)
	int	argc;
	char	*argv[];
{
	char		*arg;
	register	i;
	float		fetapes;
	register	struct	fstab	*dt;

	time(&(spcl.c_date));

	tsize = 2300L*12L*10L;
	tape = TAPE;
	disk = DISK;
	increm = NINCREM;

	incno = '9';
	uflag = 0;
	arg = "u";
	if(argc > 1) {
		argv++;
		argc--;
		arg = *argv;
		if (*arg == '-')
			argc++;
	}
	while(*arg)
	switch (*arg++) {
	case 'w':
		lastdump('w');		/* tell us only what has to be done */
		exit(0);
		break;
	case 'W':			/* what to do */
		lastdump('W');		/* tell us the current state of what has been done */
		exit(0);		/* do nothing else */
		break;

	case 'J':			/* update old to new */
		o_nconvert();
		exit(0);		/* do nothing else */
		break;

	case 'f':			/* output file */
		if(argc > 1) {
			argv++;
			argc--;
			tape = *argv;
		}
		break;

	case 'd':			/* density, in bits per inch */
		if (argc > 1) {
			argv++;
			argc--;
			density = atoi(*argv) / 10;
		}
		break;

	case 's':			/* tape size, feet */
		if(argc > 1) {
			argv++;
			argc--;
			tsize = atol(*argv);
			tsize *= 12L*10L;
		}
		break;

	case '0':			/* dump level */
	case '1':
	case '2':
	case '3':
	case '4':
	case '5':
	case '6':
	case '7':
	case '8':
	case '9':
		incno = arg[-1];
		break;

	case 'u':			/* update /etc/dumpdates */
		uflag++;
		break;

	case 'n':			/* notify operators */
		notify++;
		break;

	default:
		fprintf(stderr, "bad key '%c%'\n", arg[-1]);
		Exit(X_ABORT);
	}
	if(strcmp(tape, "-") == 0) {
		pipeout++;
		tape = "standard output";
	}
	if(argc > 1) {
		argv++;
		argc--;
		disk = *argv;
	}

	if (signal(SIGHUP, sighup) == SIG_IGN)
		signal(SIGHUP, SIG_IGN);
	if (signal(SIGTRAP, sigtrap) == SIG_IGN)
		signal(SIGTRAP, SIG_IGN);
	if (signal(SIGFPE, sigfpe) == SIG_IGN)
		signal(SIGFPE, SIG_IGN);
	if (signal(SIGBUS, sigbus) == SIG_IGN)
		signal(SIGBUS, SIG_IGN);
	if (signal(SIGSEGV, sigsegv) == SIG_IGN)
		signal(SIGSEGV, SIG_IGN);
	if (signal(SIGTERM, sigterm) == SIG_IGN)
		signal(SIGTERM, SIG_IGN);
	

	if (signal(SIGINT, interrupt) == SIG_IGN)
		signal(SIGINT, SIG_IGN);

	set_operators();	/* /etc/group snarfed */
	getfstab();		/* /etc/fstab snarfed */
	/*
	 *	disk can be either the full special file name,
	 *	the suffix of the special file name,
	 *	the special name missing the leading '/',
	 *	the file system name with or without the leading '/'.
	 */
	dt = fstabsearch(disk);
	if (dt != 0)
		disk = rawname(dt->fs_spec);
	getitime();		/* /etc/dumpdates snarfed */

	msg("Date of this level %c dump: %s\n", incno, prdate(spcl.c_date));
	msg("Date of last level %c dump: %s\n", incno, prdate(spcl.c_ddate));
	msg("Dumping %s ", disk);
	if (dt != 0)
		msgtail("(%s) ", dt->fs_file);
	msgtail("to %s\n", tape);

	fi = open(disk, 0);
	if (fi < 0) {
		msg("Cannot open %s\n", disk);
		Exit(X_ABORT);
	}
	CLR(clrmap);
	CLR(dirmap);
	CLR(nodmap);
	esize = 0;

	msg("mapping (Pass I) [regular files]\n");
	pass(mark, (short *)NULL);		/* mark updates esize */

	do {
		msg("mapping (Pass II) [directories]\n");
		nadded = 0;
		pass(add, dirmap);
	} while(nadded);

	bmapest(clrmap);
	bmapest(nodmap);

	fetapes =
		(	 esize		/* blocks */
			*BSIZE		/* bytes / block */
			*(1.0/density)	/* 0.1" / byte */
		  +
			 esize		/* blocks */
			*(1.0/NTREC)	/* IRG's / block */
			*7		/* 0.1" / IRG */
		) * (1.0 / tsize )	/* tape / 0.1" */
	;
	etapes = fetapes;		/* truncating assignment */
	etapes++;
	/*
	 *	esize is typically about 5% too low; we frob it here
	 */
	esize += ((5*esize)/100);
	msg("estimated %ld tape blocks on %3.2f tape(s).\n", esize, fetapes);

	otape();			/* bitmap is the first to tape write */
	time(&(tstart_writing));
	bitmap(clrmap, TS_CLRI);

	msg("dumping (Pass III) [directories]\n");
	pass(dump, dirmap);

	msg("dumping (Pass IV) [regular files]\n");
	pass(dump, nodmap);

	spcl.c_type = TS_END;
	for(i=0; i<NTREC; i++)
		spclrec();
	msg("DUMP: %ld tape blocks on %d tape(s)\n",spcl.c_tapea,spcl.c_volume);
	msg("DUMP IS DONE\n");

	putitime();
	if (!pipeout) {
		close(to);
		rewind();
	}
	broadcast("DUMP IS DONE!\7\7\n");
	Exit(X_FINOK);
}

int	sighup(){	msg("SIGHUP()  try rewriting\n"); sigAbort();}
int	sigtrap(){	msg("SIGTRAP()  try rewriting\n"); sigAbort();}
int	sigfpe(){	msg("SIGFPE()  try rewriting\n"); sigAbort();}
int	sigbus(){	msg("SIGBUS()  try rewriting\n"); sigAbort();}
int	sigsegv(){	msg("SIGSEGV()  ABORTING!\n"); abort();}
int	sigalrm(){	msg("SIGALRM()  try rewriting\n"); sigAbort();}
int	sigterm(){	msg("SIGTERM()  try rewriting\n"); sigAbort();}

sigAbort()
{
	msg("Rewriting attempted as response to unknown signal.\n");
	fflush(stderr);
	fflush(stdout);
	close_rewind();
	exit(X_REWRITE);
}

char *rawname(cp)
	char *cp;
{
	static char rawbuf[32];
	char *dp = (char *)rindex(cp, '/');

	if (dp == 0)
		return (0);
	*dp = 0;
	strcpy(rawbuf, cp);
	*dp = '/';
	strcat(rawbuf, "/r");
	strcat(rawbuf, dp+1);
	return (rawbuf);
}
Commit	Line	Data
76797561 DF	1	/*
	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*/
	6
	7	#ifndef lint
95f51977	8	static char sccsid[] = "@(#)dumpmain.c 5.1 (Berkeley) 6/5/85";
76797561 DF	9	#endif not lint
76797561 DF	10
0393c389 BJ	11	#include "dump.h"
	12
	13	int notify = 0; /* notify operator flag */
	14	int blockswritten = 0; /* number of blocks written on current tape */
	15	int tapeno = 0; /* current tape number */
	16	int density = 160; /* density in 0.1" units */
	17
	18	main(argc, argv)
	19	int argc;
	20	char *argv[];
	21	{
	22	char *arg;
	23	register i;
	24	float fetapes;
	25	register struct fstab *dt;
	26
	27	time(&(spcl.c_date));
	28
	29	tsize = 2300L12L10L;
	30	tape = TAPE;
	31	disk = DISK;
	32	increm = NINCREM;
	33
	34	incno = '9';
	35	uflag = 0;
	36	arg = "u";
	37	if(argc > 1) {
	38	argv++;
	39	argc--;
	40	arg = *argv;
	41	if (*arg == '-')
	42	argc++;
	43	}
	44	while(*arg)
	45	switch (*arg++) {
77db894d BJ	46	case 'w':
	47	lastdump('w'); /* tell us only what has to be done */
	48	exit(0);
	49	break;
0393c389	50	case 'W': /* what to do */
77db894d	51	lastdump('W'); /* tell us the current state of what has been done */
0393c389 BJ	52	exit(0); /* do nothing else */
	53	break;
	54
	55	case 'J': /* update old to new */
	56	o_nconvert();
	57	exit(0); /* do nothing else */
	58	break;
	59
	60	case 'f': /* output file */
	61	if(argc > 1) {
	62	argv++;
	63	argc--;
	64	tape = *argv;
	65	}
	66	break;
	67
	68	case 'd': /* density, in bits per inch */
	69	if (argc > 1) {
	70	argv++;
	71	argc--;
	72	density = atoi(*argv) / 10;
	73	}
	74	break;
	75
	76	case 's': /* tape size, feet */
	77	if(argc > 1) {
	78	argv++;
	79	argc--;
	80	tsize = atol(*argv);
	81	tsize = 12L10L;
	82	}
	83	break;
	84
	85	case '0': /* dump level */
	86	case '1':
	87	case '2':
	88	case '3':
	89	case '4':
	90	case '5':
	91	case '6':
	92	case '7':
	93	case '8':
	94	case '9':
	95	incno = arg[-1];
	96	break;
	97
	98	case 'u': /* update /etc/dumpdates */
	99	uflag++;
	100	break;
	101
	102	case 'n': /* notify operators */
	103	notify++;
	104	break;
	105
	106	default:
2a729b17	107	fprintf(stderr, "bad key '%c%'\n", arg[-1]);
0393c389 BJ	108	Exit(X_ABORT);
0393c389 BJ	109	}
2a729b17 KM	110	if(strcmp(tape, "-") == 0) {
	111	pipeout++;
	112	tape = "standard output";
	113	}
0393c389 BJ	114	if(argc > 1) {
	115	argv++;
	116	argc--;
	117	disk = *argv;
	118	}
	119
	120	if (signal(SIGHUP, sighup) == SIG_IGN)
	121	signal(SIGHUP, SIG_IGN);
	122	if (signal(SIGTRAP, sigtrap) == SIG_IGN)
	123	signal(SIGTRAP, SIG_IGN);
	124	if (signal(SIGFPE, sigfpe) == SIG_IGN)
	125	signal(SIGFPE, SIG_IGN);
	126	if (signal(SIGBUS, sigbus) == SIG_IGN)
	127	signal(SIGBUS, SIG_IGN);
	128	if (signal(SIGSEGV, sigsegv) == SIG_IGN)
	129	signal(SIGSEGV, SIG_IGN);
	130	if (signal(SIGTERM, sigterm) == SIG_IGN)
	131	signal(SIGTERM, SIG_IGN);
	132
	133
	134	if (signal(SIGINT, interrupt) == SIG_IGN)
	135	signal(SIGINT, SIG_IGN);
	136
	137	set_operators(); /* /etc/group snarfed */
	138	getfstab(); /* /etc/fstab snarfed */
	139	/*
	140	* disk can be either the full special file name,
	141	* the suffix of the special file name,
	142	* the special name missing the leading '/',
	143	* the file system name with or without the leading '/'.
	144	*/
	145	dt = fstabsearch(disk);
	146	if (dt != 0)
	147	disk = rawname(dt->fs_spec);
	148	getitime(); /* /etc/dumpdates snarfed */
	149
	150	msg("Date of this level %c dump: %s\n", incno, prdate(spcl.c_date));
	151	msg("Date of last level %c dump: %s\n", incno, prdate(spcl.c_ddate));
	152	msg("Dumping %s ", disk);
	153	if (dt != 0)
	154	msgtail("(%s) ", dt->fs_file);
	155	msgtail("to %s\n", tape);
	156
	157	fi = open(disk, 0);
	158	if (fi < 0) {
	159	msg("Cannot open %s\n", disk);
	160	Exit(X_ABORT);
	161	}
	162	CLR(clrmap);
	163	CLR(dirmap);
	164	CLR(nodmap);
	165	esize = 0;
	166
	167	msg("mapping (Pass I) [regular files]\n");
	168	pass(mark, (short )NULL); / mark updates esize */
	169
	170	do {
	171	msg("mapping (Pass II) [directories]\n");
	172	nadded = 0;
	173	pass(add, dirmap);
	174	} while(nadded);
	175
	176	bmapest(clrmap);
	177	bmapest(nodmap);
178
179	fetapes =
180	( esize /* blocks */
181	BSIZE / bytes / block */
182	(1.0/density) / 0.1" / byte */
183	+
184	esize /* blocks */
185	(1.0/NTREC) / IRG's / block */
186	7 / 0.1" / IRG */
187	) * (1.0 / tsize ) /* tape / 0.1" */
188	;
189	etapes = fetapes; /* truncating assignment */
190	etapes++;
191	/*
192	* esize is typically about 5% too low; we frob it here
193	*/
194	esize += ((5*esize)/100);
195	msg("estimated %ld tape blocks on %3.2f tape(s).\n", esize, fetapes);
196
197	otape(); /* bitmap is the first to tape write */
198	time(&(tstart_writing));
199	bitmap(clrmap, TS_CLRI);
200
201	msg("dumping (Pass III) [directories]\n");
202	pass(dump, dirmap);
203
204	msg("dumping (Pass IV) [regular files]\n");
205	pass(dump, nodmap);
206
207	spcl.c_type = TS_END;
208	for(i=0; i<NTREC; i++)
209	spclrec();
210	msg("DUMP: %ld tape blocks on %d tape(s)\n",spcl.c_tapea,spcl.c_volume);
211	msg("DUMP IS DONE\n");
212
213	putitime();
2a729b17 KM	214	if (!pipeout) {
	215	close(to);
	216	rewind();
	217	}
0393c389 BJ	218	broadcast("DUMP IS DONE!\7\7\n");
	219	Exit(X_FINOK);
	220	}
	221
	222	int sighup(){ msg("SIGHUP() try rewriting\n"); sigAbort();}
	223	int sigtrap(){ msg("SIGTRAP() try rewriting\n"); sigAbort();}
	224	int sigfpe(){ msg("SIGFPE() try rewriting\n"); sigAbort();}
	225	int sigbus(){ msg("SIGBUS() try rewriting\n"); sigAbort();}
	226	int sigsegv(){ msg("SIGSEGV() ABORTING!\n"); abort();}
	227	int sigalrm(){ msg("SIGALRM() try rewriting\n"); sigAbort();}
	228	int sigterm(){ msg("SIGTERM() try rewriting\n"); sigAbort();}
	229
	230	sigAbort()
	231	{
	232	msg("Rewriting attempted as response to unknown signal.\n");
	233	fflush(stderr);
	234	fflush(stdout);
	235	close_rewind();
	236	exit(X_REWRITE);
	237	}
	238
	239	char *rawname(cp)
	240	char *cp;
	241	{
	242	static char rawbuf[32];
2a729b17	243	char dp = (char )rindex(cp, '/');
0393c389 BJ	244
	245	if (dp == 0)
	246	return (0);
	247	*dp = 0;
	248	strcpy(rawbuf, cp);
	249	*dp = '/';
	250	strcat(rawbuf, "/r");
	251	strcat(rawbuf, dp+1);
	252	return (rawbuf);
	253	}