ARC 5.20 w/Squashing, 4/9

Howard Chu hyc at umix.cc.umich.edu
Thu Apr 14 16:00:05 AEST 1988


XX#include <stdio.h>
XX#include "arc.h"
XX
XXINT
XXaddarc(num, arg, move, update, fresh)		/* add files to archive */
XX	INT             num;	/* number of arguments */
XX	char           *arg[];	/* pointers to arguments */
XXINT             move;		/* true if moving file */
XXINT             update;		/* true if updating */
XXINT             fresh;		/* true if freshening */
XX{
XX	char           *d, *dir();	/* directory junk */
XX	char            buf[100];	/* pathname buffer */
XX	char          **path = NULL;	/* pointer to pointers to paths */
XX	char          **name = NULL;	/* pointer to pointers to names */
XX	INT             nfiles = 0;	/* number of files in lists */
XX	INT             notemp;	/* true until a template works */
XX	INT             nowork = 1;	/* true until files are added */
XX	char           *i, *rindex();	/* string indexing junk */
XX	char           *malloc(), *realloc();	/* memory allocators */
XX	INT             m, n;	/* indices */
XX	unsigned INT    coreleft();	/* remaining memory reporter */
XX	INT             addbunch();
XX	INT             addfile();
XX
XX	if (num < 1) {		/* if no files named */
XX		num = 1;	/* then fake one */
XX#ifdef MSDOS
XX		arg[0] = "*.*";	/* add everything */
XX#endif
XX#ifdef BSD
XX		arg[0] = "*";
XX#endif
XX#ifdef MTS
XX		arg[0] = "?";
XX#endif
XX	}
XX	path = (char **) malloc(sizeof(char **));
XX	name = (char **) malloc(sizeof(char **));
XX
XX
XX	for (n = 0; n < num; n++) {	/* for each template supplied */
XX		strcpy(buf, arg[n]);	/* get ready to fix path */
XX#ifndef MTS
XX		if (!(i = rindex(buf, '\\')))
XX			if (!(i = rindex(buf, '/')))
XX				if (!(i = rindex(buf, ':')))
XX					i = buf - 1;
XX#else
XX		if (!(i = rindex(buf, sepchr[0])))
XX			if (buf[0] != tmpchr[0])
XX				i = buf - 1;
XX			else
XX				i = buf;
XX#endif
XX		i++;		/* pointer to where name goes */
XX
XX		notemp = 1;	/* reset files flag */
XX		for (d = dir(arg[n], 0); d; d = dir(NULL, 0)) {
XX			notemp = 0;	/* template is giving results */
XX			nfiles++;	/* add each matching file */
XX			path = (char **) realloc(path, nfiles * sizeof(char **));
XX			name = (char **) realloc(name, nfiles * sizeof(char **));
XX			strcpy(i, d);	/* put name in path */
XX			path[nfiles - 1] = malloc(strlen(buf) + 1);
XX			strcpy(path[nfiles - 1], buf);
XX			name[nfiles - 1] = d;	/* save name */
XX#ifdef MSDOS
XX			if (coreleft() < 5120) {
XX				nfiles = addbunch(nfiles, path, name, move, update, fresh);
XX				nowork = nowork && !nfiles;
XX				while (nfiles) {
XX					free(path[--nfiles]);
XX					free(name[nfiles]);
XX				}
XX				free(path);
XX				free(name);
XX				path = name = NULL;
XX			}
XX#endif
XX		}
XX		if (notemp && warn)
XX			printf("No files match: %s\n", arg[n]);
XX	}
XX
XX	if (nfiles) {
XX		nfiles = addbunch(nfiles, path, name, move, update, fresh);
XX		nowork = nowork && !nfiles;
XX		while (nfiles) {
XX			free(path[--nfiles]);
XX			free(name[nfiles]);
XX		}
XX		free(path);
XX		free(name);
XX	}
XX	if (nowork && warn)
XX		printf("No files were added.\n");
XX}
XX
XXINT
XXaddbunch(nfiles, path, name, move, update, fresh)	/* add a bunch of files */
XX	INT             nfiles;	/* number of files to add */
XX	char          **path;	/* pointers to pathnames */
XX	char          **name;	/* pointers to filenames */
XX	INT             move;	/* true if moving file */
XX	INT             update;	/* true if updating */
XX	INT             fresh;	/* true if freshening */
XX{
XX	char            buf[100];	/* pathname buffer */
XX	INT             m, n;	/* indices */
XX	char           *d;	/* swap pointer */
XX	struct heads    hdr;	/* file header data storage */
XX
XX	for (n = 0; n < nfiles - 1; n++) {	/* sort the list of names */
XX		for (m = n + 1; m < nfiles; m++) {
XX			if (strcmp(name[n], name[m]) > 0) {
XX				d = path[n];
XX				path[n] = path[m];
XX				path[m] = d;
XX				d = name[n];
XX				name[n] = name[m];
XX				name[m] = d;
XX			}
XX		}
XX	}
XX
XX	for (n = 0; n < nfiles - 1;) {	/* consolidate the list of names */
XX		if (!strcmp(path[n], path[n + 1])	/* if duplicate names */
XX		    ||!strcmp(path[n], arcname)	/* or this archive */
XX		    ||izadir(path[n])	/* or a directory */
XX		    ||!strcmp(path[n], newname)	/* or the new version */
XX		    ||!strcmp(path[n], bakname)) {	/* or its backup */
XX			free(path[n]);	/* then forget the file */
XX			free(name[n]);
XX			for (m = n; m < nfiles - 1; m++) {
XX				path[m] = path[m + 1];
XX				name[m] = name[m + 1];
XX			}
XX			nfiles--;
XX		} else
XX			n++;	/* else test the next one */
XX	}
XX
XX	if (!strcmp(path[n], arcname)	/* special check for last file */
XX	    ||!strcmp(path[n], newname)	/* courtesy of Rick Moore */
XX	    ||izadir(path[n])
XX	    || !strcmp(path[n], bakname)) {
XX		free(path[n]);
XX		free(name[n]);
XX		nfiles--;
XX	}
XX	if (!nfiles)		/* make sure we got some */
XX		return 0;
XX
XX	for (n = 0; n < nfiles - 1; n++) {	/* watch out for duplicate
XX						 * names */
XX		if (!strcmp(name[n], name[n + 1]))
XX			abort("Duplicate filenames:\n  %s\n  %s", path[n], path[n + 1]);
XX	}
XX	openarc(1);		/* open archive for changes */
XX
XX	for (n = 0; n < nfiles; n++)	/* add each file in the list */
XX		addfile(path[n], name[n], update, fresh);
XX
XX	/* now we must copy over all files that follow our additions */
XX
XX	while (readhdr(&hdr, arc)) {	/* while more entries to copy */
XX		writehdr(&hdr, new);
XX		filecopy(arc, new, hdr.size);
XX	}
XX	hdrver = 0;		/* archive EOF type */
XX	writehdr(&hdr, new);	/* write out our end marker */
XX	closearc(1);		/* close archive after changes */
XX
XX	if (move) {		/* if this was a move */
XX		for (n = 0; n < nfiles; n++) {	/* then delete each file
XX						 * added */
XX			if (unlink(path[n]) && warn) {
XX				printf("Cannot unsave %s\n", path[n]);
XX				nerrs++;
XX			}
XX		}
XX	}
XX	return nfiles;		/* say how many were added */
XX}
XX
XXstatic          INT
XXaddfile(path, name, update, fresh)	/* add named file to archive */
XX	char           *path;	/* path name of file to add */
XX	char           *name;	/* name of file to add */
XX	INT             update;	/* true if updating */
XX	INT             fresh;	/* true if freshening */
XX{
XX	struct heads    nhdr;	/* data regarding the new file */
XX	struct heads    ohdr;	/* data regarding an old file */
XX	FILE           *f, *fopen();	/* file to add, opener */
XX	LONG            starts, ftell();	/* file locations */
XX	INT             c;	/* one char of file */
XX	INT             upd = 0;/* true if replacing an entry */
XX
XX#ifndef MTS
XX	if (!(f = fopen(path, "r"))) {
XX#else
XX	if (image)
XX		f = fopen(path, "rb");
XX	else
XX		f = fopen(path, "r");
XX	if (!f) {
XX#endif
XX		if (warn) {
XX			printf("Cannot read file: %s\n", path);
XX			nerrs++;
XX		}
XX		return;
XX	}
XX	strcpy(nhdr.name, name);/* save name */
XX	nhdr.size = 0;		/* clear out size storage */
XX	nhdr.crc = 0;		/* clear out CRC check storage */
XX#ifndef MTS
XX	getstamp(f, &nhdr.date, &nhdr.time);
XX#else
XX	getstamp(path, &nhdr.date, &nhdr.time);
XX#endif
XX
XX	/* position archive to spot for new file */
XX
XX	if (arc) {		/* if adding to existing archive */
XX		starts = ftell(arc);	/* where are we? */
XX		while (readhdr(&ohdr, arc)) {	/* while more files to check */
XX			if (!strcmp(ohdr.name, nhdr.name)) {
XX				upd = 1;	/* replace existing entry */
XX				if (update || fresh) {	/* if updating or
XX							 * freshening */
XX					if (nhdr.date < ohdr.date
XX					    || (nhdr.date == ohdr.date && nhdr.time <= ohdr.time)) {
XX						fseek(arc, starts, 0);
XX						fclose(f);
XX						return;	/* skip if not newer */
XX					}
XX				}
XX			}
XX			if (strcmp(ohdr.name, nhdr.name) >= 0)
XX				break;	/* found our spot */
XX
XX			writehdr(&ohdr, new);	/* entry preceeds update;
XX						 * keep it */
XX			filecopy(arc, new, ohdr.size);
XX			starts = ftell(arc);	/* now where are we? */
XX		}
XX
XX		if (upd) {	/* if an update */
XX			if (note) {
XX				printf("Updating file: %-12s  ", name);
XX				fflush(stdout);
XX			}
XX			fseek(arc, ohdr.size, 1);
XX		} else if (fresh) {	/* else if freshening */
XX			fseek(arc, starts, 0);	/* then do not add files */
XX			fclose(f);
XX			return;
XX		} else {	/* else adding a new file */
XX			if (note) {
XX				printf("Adding file:   %-12s  ", name);
XX				fflush(stdout);
XX			}
XX			fseek(arc, starts, 0);	/* reset for next time */
XX		}
XX	} else {		/* no existing archive */
XX		if (fresh) {	/* cannot freshen nothing */
XX			fclose(f);
XX			return;
XX		} else if (note) {	/* else adding a file */
XX			printf("Adding file:   %-12s  ", name);
XX			fflush(stdout);
XX		}
XX	}
XX
XX	starts = ftell(new);	/* note where header goes */
XX	hdrver = 8;		/* anything but end marker */
XX	writehdr(&nhdr, new);	/* write out header skeleton */
XX	pack(f, new, &nhdr);	/* pack file into archive */
XX	strcpy(nhdr.name, name);
XX	fseek(new, starts, 0);	/* move back to header skeleton */
XX	writehdr(&nhdr, new);	/* write out real header */
XX	fseek(new, nhdr.size, 1);	/* skip over data to next header */
XX	fclose(f);		/* all done with the file */
XX}
SHAR_EOF
if test 9205 -ne "`wc -c arcadd.c`"
then
echo shar: error transmitting arcadd.c '(should have been 9205 characters)'
fi
echo shar: extracting arccode.c '(1314 characters)'
sed 's/^XX//' << \SHAR_EOF > arccode.c
XX/*
XX * $Log:        arccode.c,v $
XX * Revision 1.3  87/08/13  17:03:05  hyc
XX * Run thru the indent program...
XX *  Revision 1.2  87/07/21  06:52:58  hyc *** empty
XX * log message ***
XX * 
XX */
XX
XX/*
XX * ARC - Archive utility - ARCCODE
XX * 
XX * Version 1.02, created on 01/20/86 at 13:33:35
XX * 
XX * (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
XX * 
XX * By:  Thom Henderson
XX * 
XX * Description: This file contains the routines used to encrypt and decrypt data
XX * in an archive.  The encryption method is nothing fancy, being just a
XX * routine XOR, but it is used on the packed data, and uses a variable length
XX * key.  The end result is something that is in theory crackable, but I'd
XX * hate to try it.  It should be more than sufficient for casual use.
XX * 
XX * Language: Computer Innovations Optimizing C86
XX */
XX#include <stdio.h>
XX#include "arc.h"
XX
XXstatic char    *p;		/* password pointer */
XX
XXINT
XXsetcode()
XX{				/* get set for encoding/decoding */
XX	p = password;		/* reset password pointer */
XX}
XX
XXINT
XXcode(c)				/* encode some character */
XX	INT             c;	/* character to encode */
XX{
XX	if (p) {		/* if password is in use */
XX		if (!*p)	/* if we reached the end */
XX			p = password;	/* then wrap back to the start */
XX		return c ^ *p++;/* very simple here */
XX	} else
XX		return c;	/* else no encryption */
XX}
SHAR_EOF
if test 1314 -ne "`wc -c arccode.c`"
then
echo shar: error transmitting arccode.c '(should have been 1314 characters)'
fi
echo shar: extracting arccvt.c '(3800 characters)'
sed 's/^XX//' << \SHAR_EOF > arccvt.c
XX/*
XX * $Log:	arccvt.c,v $
XX * Revision 1.2  88/04/11  17:51:28  hyc
XX * re-synch wuth MTS, minor formatting
XX * 
XX * Revision 1.1  88/04/11  17:50:00  hyc
XX * Initial revision
XX * 
XX * Revision 1.1  87/12/19  04:02:03  hyc
XX * Initial revision
XX * 
XX * Revision 1.3  87/08/13  17:03:07  hyc
XX * Run thru the indent program...
XX *  Revision 1.2  87/07/21  06:57:53  hyc *** empty
XX * log message ***
XX * 
XX */
XX
XX/*
XX * ARC - Archive utility - ARCCVT
XX * 
XX * Version 1.16, created on 02/03/86 at 22:53:02
XX * 
XX * (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
XX * 
XX * By:  Thom Henderson
XX * 
XX * Description: This file contains the routines used to convert archives to use
XX * newer file storage methods.
XX * 
XX * Language: Computer Innovations Optimizing C86
XX */
XX#include <stdio.h>
XX#include "arc.h"
XX
XXstatic char     tempname[100];	/* temp file name */
XX
XXINT
XXcvtarc(num, arg)		/* convert archive */
XX	INT             num;	/* number of arguments */
XX	char           *arg[];	/* pointers to arguments */
XX{
XX	struct heads    hdr;	/* file header */
XX	INT             cvt;	/* true to convert current file */
XX	INT             did[25];/* true when argument was used */
XX	INT             n;	/* index */
XX	char           *makefnam();	/* filename fixer */
XX	FILE           *fopen();/* file opener */
XX	INT             cvtfile();
XX
XX	if (arctemp)		/* use temp area if specified */
XX		sprintf(tempname, "%s.CVT", arctemp);
XX	else
XX		makefnam("$ARCTEMP.CVT", arcname, tempname);
XX#ifdef MTS
XX	image = 1;
XX#endif
XX
XX	openarc(1);		/* open archive for changes */
XX
XX	for (n = 0; n < num; n++)	/* for each argument */
XX		did[n] = 0;	/* reset usage flag */
XX	rempath(num, arg);	/* strip off paths */
XX
XX	if (num) {		/* if files were named */
XX		while (readhdr(&hdr, arc)) {	/* while more files to check */
XX			cvt = 0;/* reset convert flag */
XX			for (n = 0; n < num; n++) {	/* for each template
XX							 * given */
XX				if (match(hdr.name, arg[n])) {
XX					cvt = 1;	/* turn on convert flag */
XX					did[n] = 1;	/* turn on usage flag */
XX					break;	/* stop looking */
XX				}
XX			}
XX
XX			if (cvt)/* if converting this one */
XX				cvtfile(&hdr);	/* then do it */
XX			else {	/* else just copy it */
XX				writehdr(&hdr, new);
XX				filecopy(arc, new, hdr.size);
XX			}
XX		}
XX	} else
XX		while (readhdr(&hdr, arc))	/* else convert all files */
XX			cvtfile(&hdr);
XX
XX	hdrver = 0;		/* archive EOF type */
XX	writehdr(&hdr, new);	/* write out our end marker */
XX	closearc(1);		/* close archive after changes */
XX
XX	if (note) {
XX		for (n = 0; n < num; n++) {	/* report unused args */
XX			if (!did[n]) {
XX				printf("File not found: %s\n", arg[n]);
XX				nerrs++;
XX			}
XX		}
XX	}
XX}
XX
XXINT
XXcvtfile(hdr)			/* convert a file */
XX	struct heads   *hdr;	/* pointer to header data */
XX{
XX	LONG            starts, ftell();	/* where the file goes */
XX	FILE           *tmp, *fopen();	/* temporary file */
XX#ifdef MTS
XX	char            name[16];
XX#endif
XX
XX#ifdef MTS
XX	if (!(tmp = fopen(tempname, "w+b")))
XX#else
XX	if (!(tmp = fopen(tempname, "w+")))
XX#endif
XX		abort("Unable to create temporary file %s", tempname);
XX
XX	if (note) {
XX		printf("Converting file: %-12s   reading, ", hdr->name);
XX		fflush(stdout);
XX	}
XX#ifdef MTS
XX	strcpy(name, hdr->name);
XX	fseek(tmp, 0, 0);
XX#endif
XX	unpack(arc, tmp, hdr);	/* unpack the entry */
XX	fseek(tmp, 0L, 0);	/* reset temp for reading */
XX
XX	starts = ftell(new);	/* note where header goes */
XX	hdrver = 8;		/* anything but end marker */
XX	writehdr(hdr, new);	/* write out header skeleton */
XX	pack(tmp, new, hdr);	/* pack file into archive */
XX	fseek(new, starts, 0);	/* move back to header skeleton */
XX#ifdef MTS
XX	strcpy(hdr->name, name);
XX#endif
XX	writehdr(hdr, new);	/* write out real header */
XX	fseek(new, hdr->size, 1);	/* skip over data to next header */
XX	fclose(tmp);		/* all done with the file */
XX	if (unlink(tempname) && warn) {
XX		printf("Cannot unsave %s\n", tempname);
XX		nerrs++;
XX	}
XX}
SHAR_EOF
if test 3800 -ne "`wc -c arccvt.c`"
then
echo shar: error transmitting arccvt.c '(should have been 3800 characters)'
fi
echo shar: extracting arcdata.c '(1838 characters)'
sed 's/^XX//' << \SHAR_EOF > arcdata.c
XX/*
XX * ARC - Archive utility - ARCDATA
XX * 
XX * Version 2.16, created on 10/24/86 at 14:54:17
XX * 
XX * (C) COPYRIGHT 1985,86 by System Enhancement Associates; ALL RIGHTS RESERVED
XX * 
XX * By:  Thom Henderson
XX * 
XX * Description: This file defines the external data storage used by the ARC
XX * archive utility.
XX * 
XX * 
XX * Language: Computer Innovations Optimizing C86
XX */
XX#include <stdio.h>
XX
XX#define DONT_DEFINE
XX#include "arc.h"
XX
XXINT             keepbak = 0;	/* true if saving the old archive */
XX#ifndef	MSDOS
XXINT             image = 0;	/* true to suppress CRLF/LF x-late */
XX#endif
XX#ifdef MTS
XXchar            sepchr[2] = ":";/* Shared file separator */
XXchar            tmpchr[2] = "-";/* Temporary file prefix */
XX#endif
XXINT             warn = 1;	/* true to print warnings */
XXINT             note = 1;	/* true to print comments */
XXINT             bose = 0;	/* true to be verbose */
XXINT             nocomp = 0;	/* true to suppress compression */
XXINT             overlay = 0;	/* true to overlay on extract */
XXINT             kludge = 0;	/* kludge flag */
XXchar           *arctemp = NULL;	/* arc temp file prefix */
XXchar           *password = NULL;/* encryption password pointer */
XXINT             nerrs = 0;	/* number of errors encountered */
XX
XXchar            hdrver;		/* header version */
XX
XXFILE           *arc;		/* the old archive */
XXFILE           *new;		/* the new archive */
XXchar            arcname[100];	/* storage for archive name */
XXchar            bakname[100];	/* storage for backup copy name */
XXchar            newname[100];	/* storage for new archive name */
XXunsigned INT    arcdate = 0;	/* archive date stamp */
XXunsigned INT    arctime = 0;	/* archive time stamp */
XXunsigned INT    olddate = 0;	/* old archive date stamp */
XXunsigned INT    oldtime = 0;	/* old archive time stamp */
XXINT		dosquash = 0;	/* true to squash instead of crunch */
SHAR_EOF
if test 1838 -ne "`wc -c arcdata.c`"
then
echo shar: error transmitting arcdata.c '(should have been 1838 characters)'
fi
echo shar: extracting arcdel.c '(2077 characters)'
sed 's/^XX//' << \SHAR_EOF > arcdel.c
XX/*
XX * $Log:        arcdel.c,v $
XX * Revision 1.3  87/08/13  17:03:13  hyc
XX * Run thru the indent program...
XX *  Revision 1.2  87/07/21  07:00:45  hyc *** empty
XX * log message ***
XX * 
XX */
XX
XX/*
XX * ARC - Archive utility - ARCDEL
XX * 
XX * Version 2.09, created on 02/03/86 at 22:53:27
XX * 
XX * (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
XX * 
XX * By:  Thom Henderson
XX * 
XX * Description: This file contains the routines used to delete entries in an
XX * archive.
XX * 
XX * Language: Computer Innovations Optimizing C86
XX */
XX#include <stdio.h>
XX#include "arc.h"
XX
XXINT
XXdelarc(num, arg)		/* remove files from archive */
XX	INT             num;	/* number of arguments */
XX	char           *arg[];	/* pointers to arguments */
XX{
XX	struct heads    hdr;	/* header data */
XX	INT             del;	/* true to delete a file */
XX	INT             did[25];/* true when argument used */
XX	INT             n;	/* index */
XX
XX	if (!num)		/* she must specify which */
XX		abort("You must tell me which files to delete!");
XX
XX	for (n = 0; n < num; n++)	/* for each argument */
XX		did[n] = 0;	/* reset usage flag */
XX	rempath(num, arg);	/* strip off paths */
XX
XX	openarc(1);		/* open archive for changes */
XX
XX	while (readhdr(&hdr, arc)) {	/* while more entries in archive */
XX		del = 0;	/* reset delete flag */
XX		for (n = 0; n < num; n++) {	/* for each template given */
XX			if (match(hdr.name, arg[n])) {
XX				del = 1;	/* turn on delete flag */
XX				did[n] = 1;	/* turn on usage flag */
XX				break;	/* stop looking */
XX			}
XX		}
XX
XX		if (del) {	/* skip over unwanted files */
XX			fseek(arc, hdr.size, 1);
XX			if (note)
XX				printf("Deleting file: %s\n", hdr.name);
XX		} else {	/* else copy over file data */
XX			writehdr(&hdr, new);	/* write out header and file */
XX			filecopy(arc, new, hdr.size);
XX		}
XX	}
XX
XX	hdrver = 0;		/* special end of archive type */
XX	writehdr(&hdr, new);	/* write out archive end marker */
XX	closearc(1);		/* close archive after changes */
XX
XX	if (note) {
XX		for (n = 0; n < num; n++) {	/* report unused arguments */
XX			if (!did[n]) {
XX				printf("File not found: %s\n", arg[n]);
XX				nerrs++;
XX			}
XX		}
XX	}
XX}
SHAR_EOF
if test 2077 -ne "`wc -c arcdel.c`"
then
echo shar: error transmitting arcdel.c '(should have been 2077 characters)'
fi
echo shar: extracting arcdos.c '(5048 characters)'
sed 's/^XX//' << \SHAR_EOF > arcdos.c
XX/*
XX * $Log:	arcdos.c,v $
XX * Revision 1.1  88/04/11  17:53:31  hyc
XX * Initial revision
XX * 
XX * Revision 1.2  87/12/19  04:20:26  hyc
XX * Replace reference to f->_file with fileno(f)
XX * 
XX * Revision 1.1  87/12/19  04:19:40  hyc
XX * Initial revision
XX * 
XX * Revision 1.4  87/08/13  17:03:16  hyc
XX * Run thru the indent program...
XX *  Revision 1.3  87/07/21  11:40:35  hyc *** empty
XX * log message ***
XX * 
XX * Revision 1.2  87/07/21  07:22:17  hyc added BSD goodies
XX * 
XX */
XX
XX/*
XX * ARC - Archive utility - ARCDOS
XX * 
XX * Version 1.44, created on 07/25/86 at 14:17:38
XX * 
XX * (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
XX * 
XX * By:  Thom Henderson
XX * 
XX * Description: This file contains certain DOS level routines that assist in
XX * doing fancy things with an archive, primarily reading and setting the date
XX * and time last modified.
XX * 
XX * These are, by nature, system dependant functions.  But they are also, by
XX * nature, very expendable.
XX * 
XX * Language: Computer Innovations Optimizing C86
XX */
XX#include <stdio.h>
XX#include "arc.h"
XX#ifdef MSDOS
XX#include "fileio2.h"		/* needed for filehand */
XX#endif
XX#ifdef BSD
XX#include <sys/types.h>
XX#include <sys/stat.h>
XX#include <sys/time.h>
XX#include "tws.h"
XX#endif
XX
XXINT
XXgetstamp(f, date, time)		/* get a file's date/time stamp */
XX#  ifndef MTS
XX	FILE           *f;	/* file to get stamp from */
XX#else
XX	char           *f;	/* filename "" "" */
XX#endif
XX	unsigned INT   *date, *time;	/* storage for the stamp */
XX{
XX#ifdef MSDOS
XX	struct {
XX		int             ax, bx, cx, dx, si, di, ds, es;
XX	}               reg;
XX
XX	reg.ax = 0x5700;	/* get date/time */
XX	reg.bx = filehand(f);	/* file handle */
XX	if (sysint21(&reg, &reg) & 1)	/* DOS call */
XX		printf("Get timestamp fail (%d)\n", reg.ax);
XX
XX	*date = reg.dx;		/* save date/time */
XX	*time = reg.cx;
XX#endif
XX#ifdef BSD
XX	struct stat    *buf;
XX	int             day, hr, min, sec, yr, imon;
XX	static char     mon[4], *mons[12] = {
XX				   "Jan", "Feb", "Mar", "Apr", "May", "Jun",
XX				    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
XX	};
XX
XX	buf = (struct stat *) malloc(sizeof(struct stat));
XX	fstat(fileno(f), buf);
XX
XX	sscanf(ctime(&(buf->st_mtime)), "%*4s%3s%d%d:%d:%d%d", mon, &day, &hr, &min,
XX	       &sec, &yr);
XX	for (imon = 0; imon < 12 && strcmp(mon, mons[imon]); imon++);
XX
XX	*date = (unsigned INT) (((yr - 1980) << 9) + ((imon + 1) << 5) + day);
XX	*time = (unsigned INT) ((hr << 11) + (min << 5) + sec / 2);
XX#endif
XX#ifdef MTS
XX	fortran         timein(),
XX#ifdef USEGFINFO
XX	                gfinfo();
XX#else
XX	                fileinfo();
XX#endif
XX	int             stclk[2];
XX	char            name[24];
XX	struct bigtime {
XX		int             greg;
XX		int             year;
XX		int             mon;
XX		int             day;
XX		int             hour;
XX		int             min;
XX		int             sec;
XX		int             usec;
XX		int             week;
XX		int             toff;
XX		int             tzn1;
XX		int             tzn2;
XX	}               tvec;
XX#ifdef USEGFINFO
XX	static int      gfflag = 0x0009, gfdummy[2] = {
XX						       0, 0
XX	};
XX	int             gfcinfo[18];
XX#else
XX	static int      cattype = 2;
XX#endif
XX
XX	strcpy(name, f);
XX	strcat(name, " ");
XX#ifdef USEGFINFO
XX	gfcinfo[0] = 18;
XX	gfinfo(name, name, &gfflag, gfcinfo, gfdummy, gfdummy);
XX	timein("*IBM MICROSECONDS*", &gfcinfo[16], &tvec);
XX#else
XX	fileinfo(name, &cattype, "CILCCT  ", stclk);
XX	timein("*IBM MICROSECONDS*", stclk, &tvec);
XX#endif
XX
XX	*date = (unsigned INT) (((tvec.year - 1980) << 9) + ((tvec.mon) << 5) + tvec.day);
XX	*time = (unsigned INT) ((tvec.hour << 11) + (tvec.min << 5) + tvec.sec / 2);
XX#endif
XX}
XX
XXINT
XXsetstamp(f, date, time)		/* set a file's date/time stamp */
XX#  ifdef  BSD
XX	char           *f;	/* filename to stamp */
XX#else
XX	FILE           *f;	/* file to set stamp on */
XX#endif
XX	unsigned INT    date, time;	/* desired date, time */
XX{
XX#ifdef MSDOS
XX	struct {
XX		int             ax, bx, cx, dx, si, di, ds, es;
XX	}               reg;
XX
XX	fflush(f);		/* force any pending output */
XX
XX	reg.ax = 0x5701;	/* set date/time */
XX	reg.bx = filehand(f);	/* file handle */
XX	reg.cx = time;		/* desired time */
XX	reg.dx = date;		/* desired date */
XX	if (sysint21(&reg, &reg) & 1)	/* DOS call */
XX		printf("Set timestamp fail (%d)\n", reg.ax);
XX#endif
XX#ifdef BSD
XX	struct tws      tms;
XX	struct timeval  tvp[2];
XX	twscopy(&tms, dtwstime());
XX	tms.tw_sec = (time & 31) * 2;
XX	tms.tw_min = (time >> 5) & 63;
XX	tms.tw_hour = (time >> 11);
XX	tms.tw_mday = date & 31;
XX	tms.tw_mon = ((date >> 5) & 15) - 1;
XX	tms.tw_year = (date >> 9) + 80;
XX	tms.tw_clock = 0L;
XX	tvp[0].tv_sec = twclock(&tms);
XX	tvp[1].tv_sec = tvp[0].tv_sec;
XX	tvp[0].tv_usec = tvp[1].tv_usec = 0;
XX	utimes(f, tvp);
XX#endif
XX}
XX
XXINT
XXfilehand(stream)		/* find handle on a file */
XX	struct bufstr  *stream;	/* file to grab onto */
XX{
XX#ifdef MSDOS
XX	return stream->bufhand;	/* return DOS 2.0 file handle */
XX#endif
XX}
XX
XXINT
XXizadir(filename)		/* Is filename a directory? */
XX	char           *filename;
XX{
XX#ifndef BSD
XX	return (0);
XX#else
XX	struct stat     buf;
XX
XX	if (stat(filename, &buf) != 0)
XX		return (0);	/* Ignore if stat fails since */
XX	else
XX		return (buf.st_mode & S_IFDIR);	/* bad files trapped later */
XX#endif
XX}
SHAR_EOF
if test 5048 -ne "`wc -c arcdos.c`"
then
echo shar: error transmitting arcdos.c '(should have been 5048 characters)'
fi
echo shar: extracting arcext.c '(5231 characters)'
sed 's/^XX//' << \SHAR_EOF > arcext.c
XX/*
XX * $Log:	arcext.c,v $
XX * Revision 1.2  88/04/11  17:59:09  hyc
XX * re-synch with MTS, formatting
XX * 
XX * Revision 1.1  88/04/11  17:56:12  hyc
XX * Initial revision
XX * 
XX * Revision 1.4  87/08/13  17:03:21  hyc
XX * Run thru the indent program...
XX *  Revision 1.3  87/07/21  11:39:59  hyc minor
XX * fixups
XX * 
XX * Revision 1.2  87/07/21  07:32:17  hyc added BSD goodies
XX * 
XX */
XX
XX/*
XX * ARC - Archive utility - ARCEXT
XX * 
XX * Version 2.19, created on 10/24/86 at 14:53:32
XX * 
XX * (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
XX * 
XX * By:  Thom Henderson
XX * 
XX * Description: This file contains the routines used to extract files from an
XX * archive.
XX * 
XX * Language: Computer Innovations Optimizing C86
XX */
XX#include <stdio.h>
XX#include "arc.h"
XX
XXINT
XXextarc(num, arg, prt)		/* extract files from archive */
XX	INT             num;	/* number of arguments */
XX	char           *arg[];	/* pointers to arguments */
XXINT             prt;		/* true if printing */
XX{
XX	struct heads    hdr;	/* file header */
XX	INT             save;	/* true to save current file */
XX	INT             did[25];/* true when argument was used */
XX	char           *i, *rindex();	/* string index */
XX	char          **name, *malloc();	/* name pointer list,
XX						 * allocator */
XX	INT             n;	/* index */
XX	INT             extfile();
XX
XX	name = (char **) malloc(num * sizeof(char *));	/* get storage for name
XX							 * pointers */
XX
XX	for (n = 0; n < num; n++) {	/* for each argument */
XX		did[n] = 0;	/* reset usage flag */
XX#ifndef MTS
XX		if (!(i = rindex(arg[n], '\\')))	/* find start of name */
XX			if (!(i = rindex(arg[n], '/')))
XX				if (!(i = rindex(arg[n], ':')))
XX					i = arg[n] - 1;
XX#else
XX		if (!(i = rindex(arg[n], sepchr[0])))
XX			if (arg[n][0] != tmpchr[0])
XX				i = arg[n] - 1;
XX			else
XX				i = arg[n];
XX#endif
XX		name[n] = i + 1;
XX	}
XX
XX
XX	openarc(0);		/* open archive for reading */
XX
XX	if (num) {		/* if files were named */
XX		while (readhdr(&hdr, arc)) {	/* while more files to check */
XX			save = 0;	/* reset save flag */
XX			for (n = 0; n < num; n++) {	/* for each template
XX							 * given */
XX				if (match(hdr.name, name[n])) {
XX					save = 1;	/* turn on save flag */
XX					did[n] = 1;	/* turn on usage flag */
XX					break;	/* stop looking */
XX				}
XX			}
XX
XX			if (save)	/* extract if desired, else skip */
XX				extfile(&hdr, arg[n], prt);
XX			else
XX				fseek(arc, hdr.size, 1);
XX		}
XX	} else
XX		while (readhdr(&hdr, arc))	/* else extract all files */
XX			extfile(&hdr, "", prt);
XX
XX	closearc(0);		/* close archive after reading */
XX
XX	if (note) {
XX		for (n = 0; n < num; n++) {	/* report unused args */
XX			if (!did[n]) {
XX				printf("File not found: %s\n", arg[n]);
XX				nerrs++;
XX			}
XX		}
XX	}
XX	free(name);
XX}
XX
XXINT
XXextfile(hdr, path, prt)		/* extract a file */
XX	struct heads   *hdr;	/* pointer to header data */
XX	char           *path;	/* pointer to path name */
XX	INT             prt;	/* true if printing */
XX{
XX	FILE           *f, *fopen();	/* extracted file, opener */
XX	char            buf[100];	/* input buffer */
XX	char            fix[100];	/* fixed name buffer */
XX	char           *i, *rindex();	/* string index */
XX
XX	if (prt) {		/* printing is much easier */
XX		unpack(arc, stdout, hdr);	/* unpack file from archive */
XX		printf("\f");	/* eject the form */
XX		return;		/* see? I told you! */
XX	}
XX	strcpy(fix, path);	/* note path name template */
XX#ifndef MTS
XX	if (!(i = rindex(fix, '\\')))	/* find start of name */
XX		if (!(i = rindex(fix, '/')))
XX			if (!(i = rindex(fix, ':')))
XX				i = fix - 1;
XX#else
XX	if (!(i = rindex(fix, sepchr[0])))
XX		if (fix[0] != tmpchr[0])
XX			i = fix - 1;
XX		else
XX			i = fix;
XX#endif
XX	strcpy(i + 1, hdr->name);	/* replace template with name */
XX
XX	if (note)
XX		printf("Extracting file: %s\n", fix);
XX
XX	if (warn && !overlay) {
XX		if (f = fopen(fix, "r")) {	/* see if it exists */
XX#ifdef MTS
XX			if ((buf[0] = fgetc(f)) != EOF) {	/* kludge for temp files */
XX#endif
XX				fclose(f);
XX				printf("WARNING: File %s already exists!", fix);



More information about the Alt.sources mailing list