[unix-history] / usr / src / cmd / tp / tp2.c

#include "tp.h"
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/dir.h>

struct direct	direct;
struct stat	statb;

clrdir()
{
	register j, *p;

	j = ndirent * (DIRSZ/sizeof(int));
	p = (int *)dir;
	do (*p++ = 0);  while (--j);
	lastd = 0;
}

clrent(ptr)
struct	dent *ptr;
{
	register *p, j;

	p  = (int *)ptr;
	j = DIRSZ/sizeof(int);
	do *p++ = 0;
	   while (--j);
	if (++ptr == lastd) do {
		if (--lastd < dir) {
			lastd = 0;
			return;
		}
	} while (lastd->d_namep == 0);
}


rddir()
{
	register struct tent *tp;
	register struct dent *p1;
	struct dent  *dptr;
	struct tent  *tptr;
	int	count, i, sum;
	short	reg, *sp;

	sum = 0;
	clrdir();
	rseek(0);
	tread();	/* Read the bootstrap block */
	if ((tpentry[TPB-1].cksum != 0) && (flags & flm)) {
		ndirent = tpentry[TPB-1].cksum;
		if(flags & fls) swab((char *)&ndirent, (char *)&ndirent, sizeof(ndirent));
		if(ndirent < 0 || ndirent > MDIRENT) ndirent = MDIRENT;
		ndentb = ndirent/TPB;
	}
	dptr = &dir[0];
	count = ndirent;
	do {
		if ((count % TPB) == 0) {	/* next block */
			tread();
			tptr = &tpentry[0];
		}
		if(flags & fls)
			swab((char *)tptr, (char *)tptr, sizeof(*tptr));
		sp = (short *)tptr;
		reg = 0;
		for(i=0;i<sizeof(struct tent)/sizeof(short);i++)
			reg += *sp++;
		if(flags & fls) {
			swab((char *)tptr, (char *)tptr, sizeof(*tptr));
			swabdir(tptr);
		}
		sum |= reg;
		p1 = dptr;
		if (reg == 0) {
			tp = tptr;
			if(tp->pathnam[0] != '\0') {
				lastd = p1;
				encode(tp->pathnam,p1);
				p1->d_mode = tp->mode;
				p1->d_uid = tp->uid;
				p1->d_gid = tp->gid;
				p1->d_size = (((long)tp->size0&0377L)<<16)+(tp->size1&0177777L);
				p1->d_time = tp->time;
				p1->d_tapea = tp->tapea;
			}
		}
		++tptr;		/* bump to next tent */
		(dptr++)->d_mode &= ~OK;
	} while (--count);
	if(sum != 0)
		if(flags & (fls|fli)) {
			printf("Directory checksum\n");
			if ((flags & fli) == 0)		done();
		} else {
			flags |= fls;
			rddir();
			printf("Warning: swabbing required\n");
			return;
		}
	bitmap();
}


wrdir()
{
	register struct tent *tp;
	register struct dent *dp;
	struct dent *dptr;
	int	count, i;
	short	reg, *sp;

	wseek(0);
	if (flags & flm)
		reg = open(mheader,0);
	else	reg = open(theader,0);
	if (reg >= 0) {
		read(reg,(char *)tapeb,BSIZE);
		close(reg);
		if(flags & fls)
			swab((char *)&ndirent, (char *)&tpentry[TPB-1].cksum, sizeof(ndirent));
		else
			tpentry[TPB-1].cksum = ndirent;
	} else
		printf("\7\7\7Warning: cannot read prototype boot block.\n");
	dptr = &dir[0];
	count = ndirent;
	for (;;) {
		twrite();
		if (count == 0)  return;
		tp = &tpentry[0];
		do {
			dp = dptr++;	/* dptr set to next entry */
			if (dp->d_namep)  {
				decode(tp->pathnam,dp);
				tp->mode = dp->d_mode;
				tp->uid = dp->d_uid;
				tp->gid = dp->d_gid;
				tp->time = dp->d_time;
				tp->size0 = dp->d_size >> 16;
				tp->size1 = dp->d_size;
				tp->tapea = dp->d_tapea;
				if(flags & fls) {
					swabdir(tp);
					swab((char *)tp, (char *)tp, sizeof(*tp));
				}
				reg = 0;
				sp = (short *)tp;
				for(i=0;i<sizeof(struct tent)/sizeof(short)-1;i++)
					reg -= *sp++;
				*sp = reg;
				if(flags & fls)
					swab((char *)tp, (char *)tp, sizeof(*tp));
			} else {
				sp = (short *)tp;
				for(i=0;i<sizeof(struct tent)/sizeof(short);i++)
					*sp++ = 0;
			}
		tp++;
		} while (--count % TPB);
	}
}

tread()
{
	register j, *ptr;

	if (read(fio,(char *)tapeb,BSIZE) != BSIZE) {
		printf("Tape read error\n");
		if ((flags & fli) == 0)		done();
		ptr = (int *)tapeb;
		j = BSIZE/sizeof(int);
		while(j--) *ptr++ = 0;
	}
	rseeka++;
}

twrite()
{
	if (write(fio, (char *)tapeb,BSIZE) != BSIZE) {
		printf("Tape write error\n");
		done();
	}
	++wseeka;
}

rseek(blk)
{
	rseeka = blk;
	if (lseek(fio,(long)blk*BSIZE,0) < 0)	seekerr();
}

wseek(blk)
{
	register amt, b;

	amt = b = blk;
	if ((amt -= wseeka) < 0)	amt = -amt;
	if (amt > 25 && b) {
		lseek(fio, (long)(b-1)*BSIZE, 0);	/* seek previous block */
		read(fio, (char *)&wseeka, 1);  /* read next block */
	}
	wseeka = b;
	if (lseek(fio, (long)b*BSIZE, 0) < 0)	seekerr();
}

seekerr()
{
	printf("Tape seek error\n");
	done();
}

verify(key)
{
	register c;

	if ((flags & (flw | flv)) == 0)
		return(0);
repeat:	printf("%c %s ", key, name);
	if ((flags & flw) == 0) {
		printf("\n");
		return(0);
	}
	c = getchar();
	if (c == 'n' && getchar() == '\n')
		done();
	if (c == '\n')
		return(-1);
	if (c == 'y' && getchar() == '\n')
		return(0);
	while (getchar() != '\n');
	goto repeat;
}

getfiles()
{

	if ((narg -= 2) == 0) {
		strcpy(name, ".");
		callout();
	} else while (--narg >= 0) {
		strcpy(name, *parg++);
		callout();
	}
}


expand()
{
	register  char *p0, *save0;
	int n, fid;

	if ((fid = open(name,0)) < 0)		fserr();
	for (;;) {
		if ((n = read(fid, (char *)&direct, sizeof(direct))) != sizeof(direct)) {
			if (n == 0) {
				close(fid);
				return;
			}
			fserr();
		}
		if (direct.d_ino == 0)	/* null entry */
			continue;
		p0 = name;
		if (direct.d_name[0] == '.')		/* don't save .xxxx */
			continue;
		while (*p0++);
		save0 = --p0;		/* save loc of \0 */
		if (p0[-1] != '/')
			*p0++ = '/';
		strcpy(p0, direct.d_name);
			callout();
		*save0 = 0;		/* restore */
	}
}

fserr()
{
	printf("%s -- Cannot open file\n", name);
	done();
}

callout()
{
	register struct dent *d;
	register char *ptr1, *ptr0;
	struct dent *empty;
	int mode;

	if (stat(name,&statb) < 0)	fserr();
	mode = statb.st_mode;
	if ((mode &= S_IFMT) != 0) {
		if (mode == S_IFDIR)  /* directory */
			expand();
		if(mode != S_IFREG) return;
	}
	/* when we reach here we have recursed until we found 
	 * an ordinary file.  Now we look for it in "dir".
	 */
	empty = 0;
	d = &dir[0];
	do  {
		if (d->d_namep == 0) {	/* empty directory slot */
			if (empty == 0) /* remember the first one */
				empty = d;
			continue;
		}
		decode(name1,d);
		ptr0 = name;
		ptr1 = name1;
		do	if (*ptr0++ != *ptr1)   goto cont;
		    while (*ptr1++);
		/* veritably the same name */
		if (flags & flu) {  /* check the times */
			if (d->d_time >= statb.st_mtime)
				return;
		}
		if (verify('r') < 0)	return;
		goto copydir;
cont:		continue;
	}  while (++d <= lastd);
	/* name not found in directory */
	if ((d = empty) == 0) {
		d = lastd +1;
		if (d >= edir) {
			printf("Directory overflow\n");
			done();
		}
	}
	if (verify('a') < 0)		return;
	if (d > lastd)		lastd = d;
	encode(name,d);
copydir:
	d->d_mode = statb.st_mode | OK;
	d->d_uid = statb.st_uid;
	d->d_gid = statb.st_gid;
	d->d_size = statb.st_size;
	d->d_time = statb.st_mtime;
}

swabdir(tp)
register struct tent *tp;
{
	swab((char *)tp, (char *)tp, sizeof(*tp));
	swab(tp->pathnam, tp->pathnam, NAMELEN);
	swab((char *)&tp->uid, (char *)&tp->uid, 4); /* uid,gid,spare,size0 */
}
Commit	Line	Data
42d6e430 BJ	1	#include "tp.h"
	2	#include <stdio.h>
	3	#include <sys/types.h>
	4	#include <sys/stat.h>
	5	#include <sys/dir.h>
	6
	7	struct direct direct;
	8	struct stat statb;
	9
	10	clrdir()
	11	{
	12	register j, *p;
	13
	14	j = ndirent * (DIRSZ/sizeof(int));
	15	p = (int *)dir;
	16	do (*p++ = 0); while (--j);
	17	lastd = 0;
	18	}
	19
	20	clrent(ptr)
	21	struct dent *ptr;
	22	{
	23	register *p, j;
	24
	25	p = (int *)ptr;
	26	j = DIRSZ/sizeof(int);
	27	do *p++ = 0;
	28	while (--j);
	29	if (++ptr == lastd) do {
	30	if (--lastd < dir) {
	31	lastd = 0;
	32	return;
	33	}
	34	} while (lastd->d_namep == 0);
	35	}
	36
	37
	38	rddir()
	39	{
	40	register struct tent *tp;
	41	register struct dent *p1;
	42	struct dent *dptr;
	43	struct tent *tptr;
	44	int count, i, sum;
	45	short reg, *sp;
	46
	47	sum = 0;
	48	clrdir();
	49	rseek(0);
	50	tread(); /* Read the bootstrap block */
	51	if ((tpentry[TPB-1].cksum != 0) && (flags & flm)) {
	52	ndirent = tpentry[TPB-1].cksum;
	53	if(flags & fls) swab((char )&ndirent, (char )&ndirent, sizeof(ndirent));
	54	if(ndirent < 0 \|\| ndirent > MDIRENT) ndirent = MDIRENT;
	55	ndentb = ndirent/TPB;
	56	}
	57	dptr = &dir[0];
	58	count = ndirent;
	59	do {
	60	if ((count % TPB) == 0) { /* next block */
	61	tread();
	62	tptr = &tpentry[0];
	63	}
	64	if(flags & fls)
65	swab((char )tptr, (char )tptr, sizeof(*tptr));
66	sp = (short *)tptr;
67	reg = 0;
68	for(i=0;i<sizeof(struct tent)/sizeof(short);i++)
69	reg += *sp++;
70	if(flags & fls) {
71	swab((char )tptr, (char )tptr, sizeof(*tptr));
72	swabdir(tptr);
73	}
74	sum \|= reg;
75	p1 = dptr;
76	if (reg == 0) {
77	tp = tptr;
78	if(tp->pathnam[0] != '\0') {
79	lastd = p1;
80	encode(tp->pathnam,p1);
81	p1->d_mode = tp->mode;
82	p1->d_uid = tp->uid;
83	p1->d_gid = tp->gid;
84	p1->d_size = (((long)tp->size0&0377L)<<16)+(tp->size1&0177777L);
85	p1->d_time = tp->time;
86	p1->d_tapea = tp->tapea;
87	}
88	}
89	++tptr; /* bump to next tent */
90	(dptr++)->d_mode &= ~OK;
91	} while (--count);
92	if(sum != 0)
93	if(flags & (fls\|fli)) {
94	printf("Directory checksum\n");
95	if ((flags & fli) == 0) done();
96	} else {
97	flags \|= fls;
98	rddir();
99	printf("Warning: swabbing required\n");
100	return;
101	}
102	bitmap();
103	}
104
105
106	wrdir()
107	{
108	register struct tent *tp;
109	register struct dent *dp;
110	struct dent *dptr;
111	int count, i;
112	short reg, *sp;
113
114	wseek(0);
115	if (flags & flm)
116	reg = open(mheader,0);
117	else reg = open(theader,0);
118	if (reg >= 0) {
119	read(reg,(char *)tapeb,BSIZE);
120	close(reg);
121	if(flags & fls)
122	swab((char )&ndirent, (char )&tpentry[TPB-1].cksum, sizeof(ndirent));
123	else
124	tpentry[TPB-1].cksum = ndirent;
125	} else
126	printf("\7\7\7Warning: cannot read prototype boot block.\n");
127	dptr = &dir[0];
128	count = ndirent;
129	for (;;) {
130	twrite();
131	if (count == 0) return;
132	tp = &tpentry[0];
133	do {
134	dp = dptr++; /* dptr set to next entry */
135	if (dp->d_namep) {
136	decode(tp->pathnam,dp);
137	tp->mode = dp->d_mode;
138	tp->uid = dp->d_uid;
139	tp->gid = dp->d_gid;
140	tp->time = dp->d_time;
141	tp->size0 = dp->d_size >> 16;
142	tp->size1 = dp->d_size;
143	tp->tapea = dp->d_tapea;
144	if(flags & fls) {
145	swabdir(tp);
146	swab((char )tp, (char )tp, sizeof(*tp));
147	}
148	reg = 0;
149	sp = (short *)tp;
150	for(i=0;i<sizeof(struct tent)/sizeof(short)-1;i++)
151	reg -= *sp++;
152	*sp = reg;
153	if(flags & fls)
154	swab((char )tp, (char )tp, sizeof(*tp));
155	} else {
156	sp = (short *)tp;
157	for(i=0;i<sizeof(struct tent)/sizeof(short);i++)
158	*sp++ = 0;
159	}
160	tp++;
161	} while (--count % TPB);
162	}
163	}
164
165	tread()
166	{
167	register j, *ptr;
168
169	if (read(fio,(char *)tapeb,BSIZE) != BSIZE) {
170	printf("Tape read error\n");
171	if ((flags & fli) == 0) done();
172	ptr = (int *)tapeb;
173	j = BSIZE/sizeof(int);
174	while(j--) *ptr++ = 0;
175	}
176	rseeka++;
177	}
178
179	twrite()
180	{
181	if (write(fio, (char *)tapeb,BSIZE) != BSIZE) {
182	printf("Tape write error\n");
183	done();
184	}
185	++wseeka;
186	}
187
188	rseek(blk)
189	{
190	rseeka = blk;
191	if (lseek(fio,(long)blk*BSIZE,0) < 0) seekerr();
192	}
193
194	wseek(blk)
195	{
196	register amt, b;
197
198	amt = b = blk;
199	if ((amt -= wseeka) < 0) amt = -amt;
200	if (amt > 25 && b) {
201	lseek(fio, (long)(b-1)BSIZE, 0); / seek previous block */
202	read(fio, (char )&wseeka, 1); / read next block */
203	}
204	wseeka = b;
205	if (lseek(fio, (long)b*BSIZE, 0) < 0) seekerr();
206	}
207
208	seekerr()
209	{
210	printf("Tape seek error\n");
211	done();
212	}
213
214	verify(key)
215	{
216	register c;
217
218	if ((flags & (flw \| flv)) == 0)
219	return(0);
220	repeat: printf("%c %s ", key, name);
221	if ((flags & flw) == 0) {
222	printf("\n");
223	return(0);
224	}
225	c = getchar();
226	if (c == 'n' && getchar() == '\n')
227	done();
228	if (c == '\n')
229	return(-1);
230	if (c == 'y' && getchar() == '\n')
231	return(0);
232	while (getchar() != '\n');
233	goto repeat;
234	}
235
236	getfiles()
237	{
238
239	if ((narg -= 2) == 0) {
240	strcpy(name, ".");
241	callout();
242	} else while (--narg >= 0) {
243	strcpy(name, *parg++);
244	callout();
245	}
246	}
247
248
249	expand()
250	{
251	register char p0, save0;
252	int n, fid;
253
254	if ((fid = open(name,0)) < 0) fserr();
255	for (;;) {
256	if ((n = read(fid, (char *)&direct, sizeof(direct))) != sizeof(direct)) {
257	if (n == 0) {
258	close(fid);
259	return;
260	}
261	fserr();
262	}
263	if (direct.d_ino == 0) /* null entry */
264	continue;
265	p0 = name;
266	if (direct.d_name[0] == '.') /* don't save .xxxx */
267	continue;
268	while (*p0++);
269	save0 = --p0; /* save loc of \0 */
270	if (p0[-1] != '/')
271	*p0++ = '/';
272	strcpy(p0, direct.d_name);
273	callout();
274	save0 = 0; / restore */
275	}
276	}
277
278	fserr()
279	{
280	printf("%s -- Cannot open file\n", name);
281	done();
282	}
283
284	callout()
285	{
286	register struct dent *d;
287	register char ptr1, ptr0;
288	struct dent *empty;
289	int mode;
290
291	if (stat(name,&statb) < 0) fserr();
292	mode = statb.st_mode;
293	if ((mode &= S_IFMT) != 0) {
294	if (mode == S_IFDIR) /* directory */
295	expand();
296	if(mode != S_IFREG) return;
297	}
298	/* when we reach here we have recursed until we found
299	* an ordinary file. Now we look for it in "dir".
300	*/
301	empty = 0;
302	d = &dir[0];
303	do {
304	if (d->d_namep == 0) { /* empty directory slot */
305	if (empty == 0) /* remember the first one */
306	empty = d;
307	continue;
308	}
309	decode(name1,d);
310	ptr0 = name;
311	ptr1 = name1;
312	do if (ptr0++ != ptr1) goto cont;
313	while (*ptr1++);
314	/* veritably the same name */
315	if (flags & flu) { /* check the times */
316	if (d->d_time >= statb.st_mtime)
317	return;
318	}
319	if (verify('r') < 0) return;
320	goto copydir;
321	cont: continue;
322	} while (++d <= lastd);
323	/* name not found in directory */
324	if ((d = empty) == 0) {
325	d = lastd +1;
326	if (d >= edir) {
327	printf("Directory overflow\n");
328	done();
329	}
330	}
331	if (verify('a') < 0) return;
332	if (d > lastd) lastd = d;
333	encode(name,d);
334	copydir:
335	d->d_mode = statb.st_mode \| OK;
336	d->d_uid = statb.st_uid;
337	d->d_gid = statb.st_gid;
338	d->d_size = statb.st_size;
339	d->d_time = statb.st_mtime;
340	}
341
342	swabdir(tp)
343	register struct tent *tp;
344	{
345	swab((char )tp, (char )tp, sizeof(*tp));
346	swab(tp->pathnam, tp->pathnam, NAMELEN);
347	swab((char )&tp->uid, (char )&tp->uid, 4); /* uid,gid,spare,size0 */
348	}