/* * $Header: arclst.c,v 1.5 88/06/01 18:05:57 hyc Locked $ *//*  ARC - Archive utility - ARCLST      Version 2.39, created on 04/22/87 at 13:48:29  (C) COPYRIGHT 1985-87 by System Enhancement Associates; ALL RIGHTS RESERVED      By:	 Thom Henderson      Description:	 This file contains the routines used to list the contents	 of an archive.      Language:	 Computer Innovations Optimizing C86*/#include <stdio.h>#include "arc.h"void            rempath(), openarc(), closearc();int             readhdr(), match();voidlstarc(num, arg)		/* list files in archive */	int             num;	/* number of arguments */	char           *arg[];	/* pointers to arguments */{	struct heads    hdr;	/* header data */	int             list;	/* true to list a file */	int             did[MAXARG];	/* true when argument was used */	long            tnum, tlen, tsize;	/* totals */	int             n;	/* index */	void            lstfile();	tnum = tlen = tsize = 0;/* reset totals */	for (n = 0; n < num; n++)	/* for each argument */		did[n] = 0;	/* reset usage flag */	rempath(num, arg);	/* strip off paths */	if (note && !kludge) {		printf("Name          Length  ");		if (bose)			printf("  Stowage    SF   Size now");		printf("  Date     ");		if (bose)			printf("  Time    CRC");		printf("\n");		printf("============  ========");		if (bose)			printf("  ========  ====  ========");		printf("  =========");		if (bose)			printf("  ======  ====");		printf("\n");	}	openarc(0);		/* open archive for reading */	if (num) {		/* if files were named */		while (readhdr(&hdr, arc)) {	/* process all archive files */			list = 0;	/* reset list flag */			for (n = 0; n < num; n++) {	/* for each template							 * given */				if (match(hdr.name, arg[n])) {					list = 1;	/* turn on list flag */					did[n] = 1;	/* turn on usage flag */					break;	/* stop looking */				}			}			if (list) {	/* if this file is wanted */				if (!kludge)					lstfile(&hdr);	/* then tell about it */				tnum++;	/* update totals */				tlen += hdr.length;				tsize += hdr.size;			}			fseek(arc, hdr.size, 1);	/* move to next header */		}	} else		while (readhdr(&hdr, arc)) {	/* else report on all files */			if (!kludge)				lstfile(&hdr);			tnum++;	/* update totals */			tlen += hdr.length;			tsize += hdr.size;			fseek(arc, hdr.size, 1);	/* skip to next header */		}	closearc(0);		/* close archive after reading */	if (note && !kludge) {		printf("        ====  ========");		if (bose)			printf("            ====  ========");		printf("\n");	}	if (note) {		printf("Total %6ld  %8ld", tnum, tlen);		if (bose) {			if (tlen)				printf("            %3ld%%", 100L - (100L * tsize) / tlen);			else				printf("            ---");			printf("  %8ld", tsize);		}		printf("\n");		for (n = 0; n < num; n++) {	/* report unused args */			if (!did[n]) {				printf("File not found: %s\n", arg[n]);				nerrs++;			}		}	}}voidlstfile(hdr)			/* tell about a file */	struct heads   *hdr;	/* pointer to header data */{	int             yr, mo, dy;	/* parts of a date */	int             hh, mm;	/* parts of a time */	static char    *mon[] =	/* month abbreviations */	{	 "Jan", "Feb", "Mar", "Apr",	 "May", "Jun", "Jul", "Aug",	 "Sep", "Oct", "Nov", "Dec"	};	if (!note) {		/* no notes means short listing */		printf("%s\n", hdr->name);		return;	}	yr = (hdr->date >> 9) & 0x7f;	/* dissect the date */	mo = (hdr->date >> 5) & 0x0f;	dy = hdr->date & 0x1f;	hh = (hdr->time >> 11) & 0x1f;	/* dissect the time */	mm = (hdr->time >> 5) & 0x3f;/*	ss = (hdr->time & 0x1f) * 2;	seconds, not used. */	printf("%-12s  %8ld  ", hdr->name, hdr->length);	if (bose) {		switch (hdrver) {		case 1:		case 2:			printf("   --   ");			break;		case 3:			printf(" Packed ");			break;		case 4:			printf("Squeezed");			break;		case 5:		case 6:		case 7:			printf("crunched");			break;		case 8:			printf("Crunched");			break;		case 9:			printf("Squashed");			break;		default:			printf("Unknown!");		}		if (hdr->length)			printf("  %3ld%%", 100L - (100L * hdr->size) / hdr->length);		else			printf("  ---");		printf("  %8ld  ", hdr->size);	}	printf("%2d %3s %02d", dy, mon[mo - 1], (yr + 80) % 100);	if (bose)		printf("  %2d:%02d%c  %04x",		       (hh > 12 ? hh - 12 : hh), mm, (hh > 11 ? 'p' : 'a'),		       hdr->crc & 0xffff);	printf("\n");}