ewilts%Ins.MRC.AdhocNet.CA%Stasis.MRC.AdhocNet.CA%UNCAEDU.@CORNELLC.CCS.CORNELL.EDU.BITNET (Ed Wilts) (06/24/88)
$Part16:
$ File_is="ARCSVC.C"
$ Check_Sum_is=219891298
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
Xstatic char *RCSid = "$Header: arcsvc.c,v 1.2 86/07/15 07:54:19 turner Exp $";
X
X/*
X * $Log:`009arcsvc.c,v $
X * Hack-attack 1.3 86/12/20 01:23:45 wilhite@usceast.uucp
X * `009Bludgeoned into submission for VAX 11/780 BSD4.2
X *`009(ugly code, but fewer core dumps)
X *
X * Revision 1.2 86/07/15 07:54:19 turner
X *
X *
X * Revision 1.1 86/06/26 15:00:57 turner
X * initial version
X *
X *
X */
X
X/* ARC - Archive utility - ARCSVC
X
X$define(tag,$$segment(@1,$$index(@1,=)+1))#
X$define(version,Version $tag(
XTED_VERSION DB =2.15), created on $tag(
XTED_DATE DB =12/17/85) at $tag(
XTED_TIME DB =15:17:16))#
X$undefine(tag)#
X $version
X
X(C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
X
X By: Thom Henderson
X
X Description:
X This file contains service routines needed to maintain an archive.
X
X Language:
X Computer Innovations Optimizing C86
X*/
X#include <stdio.h>
X#include "arc.h"
X
X#ifdef VAXC
X#include <ssdef.h>
X#include <descrip.h>
X
X#ifdef abc123
XINT rename(from,to)
Xchar *from;
Xchar *to;
X{
X`009int lib$rename();
X`009int ret_val = 0;
X`009int rms_status;
X`009struct dsc$descriptor_s from_desc;
X`009struct dsc$descriptor_s to_desc;
X
X`009from_desc.dsc$w_length = strlen(from);
X`009from_desc.dsc$a_pointer = from;
X`009from_desc.dsc$b_class = DSC$K_CLASS_S;
X`009from_desc.dsc$b_dtype = DSC$K_DTYPE_T;
X
X`009to_desc.dsc$w_length = strlen(to);
X`009to_desc.dsc$a_pointer = to;
X`009to_desc.dsc$b_class = DSC$K_CLASS_S;
X`009to_desc.dsc$b_dtype = DSC$K_DTYPE_T;
X
X`009rms_status = lib$rename_file(&from_desc,&to_desc);
X`009if (rms_status != SS$_NORMAL) ret_val = rms_status;
X`009return(ret_val);
X}
X#endif
X#endif
X
XINT openarc(chg) /* open archive */
XINT chg; /* true to open for changes */
X{
X FILE *fopen(); /* file opener */
X
X if(!(arc=fopen(arcname,"r")))
X { if(chg)
X printf("Creating new archive: %s\n",arcname);
X else abort("Cannot read archive: %s",arcname);
X }
X
X if(chg) /* if opening for changes */
X#ifdef VAXC
X if(!(new=fopen(newname,"w")))
X/* if(!(new=fopen(newname,"w","rfm=fix","mrs=512","rat=cr"))) */
X#else
X if(!(new=fopen(newname,"w")))
X#endif VAXC
X abort("Cannot create archive copy: %s",newname);
X}
X
XINT closearc(chg) /* close an archive */
XINT chg; /* true if archive was changed */
X{
X if(arc) /* if we had an initial archive */
X fclose(arc); /* then close it */
X
X if(chg) /* if things have changed */
X { setstamp(new,arcdate,arctime);/* archive matches newest file */
X fclose(new); /* close the new copy */
X
X if(arc) /* if we had an original archive */
X { if(keepbak) /* if a backup is wanted */
X { unlink(bakname); /* erase any old copies */
X if(rename(arcname,bakname))
X abort("Cannot rename %s to %s",arcname,bakname);
X printf("Keeping backup archive: %s\n",bakname);
X }
X else if(unlink(arcname))
X abort("Cannot delete old archive: %s",arcname);
X }
X
X if(rename(newname,arcname))
X abort("Cannot rename %s to %s",newname,arcname);
X }
X}
X
X/* CRC computation logic
X
X The logic for this method of calculating the CRC 16 bit polynomial
X is taken from an article by David Schwaderer in the April 1985
X issue of PC Tech Journal.
X*/
X
Xstatic INT crctab[] = /* CRC lookup table */
X{ 0x0000, 0xC0C1, 0xC181, 0x0140, 0xC301, 0x03C0, 0x0280, 0xC241,
X 0xC601, 0x06C0, 0x0780, 0xC741, 0x0500, 0xC5C1, 0xC481, 0x0440,
X 0xCC01, 0x0CC0, 0x0D80, 0xCD41, 0x0F00, 0xCFC1, 0xCE81, 0x0E40,
X 0x0A00, 0xCAC1, 0xCB81, 0x0B40, 0xC901, 0x09C0, 0x0880, 0xC841,
X 0xD801, 0x18C0, 0x1980, 0xD941, 0x1B00, 0xDBC1, 0xDA81, 0x1A40,
X 0x1E00, 0xDEC1, 0xDF81, 0x1F40, 0xDD01, 0x1DC0, 0x1C80, 0xDC41,
X 0x1400, 0xD4C1, 0xD581, 0x1540, 0xD701, 0x17C0, 0x1680, 0xD641,
X 0xD201, 0x12C0, 0x1380, 0xD341, 0x1100, 0xD1C1, 0xD081, 0x1040,
X 0xF001, 0x30C0, 0x3180, 0xF141, 0x3300, 0xF3C1, 0xF281, 0x3240,
X 0x3600, 0xF6C1, 0xF781, 0x3740, 0xF501, 0x35C0, 0x3480, 0xF441,
X 0x3C00, 0xFCC1, 0xFD81, 0x3D40, 0xFF01, 0x3FC0, 0x3E80, 0xFE41,
X 0xFA01, 0x3AC0, 0x3B80, 0xFB41, 0x3900, 0xF9C1, 0xF881, 0x3840,
X 0x2800, 0xE8C1, 0xE981, 0x2940, 0xEB01, 0x2BC0, 0x2A80, 0xEA41,
X 0xEE01, 0x2EC0, 0x2F80, 0xEF41, 0x2D00, 0xEDC1, 0xEC81, 0x2C40,
X 0xE401, 0x24C0, 0x2580, 0xE541, 0x2700, 0xE7C1, 0xE681, 0x2640,
X 0x2200, 0xE2C1, 0xE381, 0x2340, 0xE101, 0x21C0, 0x2080, 0xE041,
X 0xA001, 0x60C0, 0x6180, 0xA141, 0x6300, 0xA3C1, 0xA281, 0x6240,
X 0x6600, 0xA6C1, 0xA781, 0x6740, 0xA501, 0x65C0, 0x6480, 0xA441,
X 0x6C00, 0xACC1, 0xAD81, 0x6D40, 0xAF01, 0x6FC0, 0x6E80, 0xAE41,
X 0xAA01, 0x6AC0, 0x6B80, 0xAB41, 0x6900, 0xA9C1, 0xA881, 0x6840,
X 0x7800, 0xB8C1, 0xB981, 0x7940, 0xBB01, 0x7BC0, 0x7A80, 0xBA41,
X 0xBE01, 0x7EC0, 0x7F80, 0xBF41, 0x7D00, 0xBDC1, 0xBC81, 0x7C40,
X 0xB401, 0x74C0, 0x7580, 0xB541, 0x7700, 0xB7C1, 0xB681, 0x7640,
X 0x7200, 0xB2C1, 0xB381, 0x7340, 0xB101, 0x71C0, 0x7080, 0xB041,
X 0x5000, 0x90C1, 0x9181, 0x5140, 0x9301, 0x53C0, 0x5280, 0x9241,
X 0x9601, 0x56C0, 0x5780, 0x9741, 0x5500, 0x95C1, 0x9481, 0x5440,
X 0x9C01, 0x5CC0, 0x5D80, 0x9D41, 0x5F00, 0x9FC1, 0x9E81, 0x5E40,
X 0x5A00, 0x9AC1, 0x9B81, 0x5B40, 0x9901, 0x59C0, 0x5880, 0x9841,
X 0x8801, 0x48C0, 0x4980, 0x8941, 0x4B00, 0x8BC1, 0x8A81, 0x4A40,
X 0x4E00, 0x8EC1, 0x8F81, 0x4F40, 0x8D01, 0x4DC0, 0x4C80, 0x8C41,
X 0x4400, 0x84C1, 0x8581, 0x4540, 0x8701, 0x47C0, 0x4680, 0x8641,
X 0x8201, 0x42C0, 0x4380, 0x8341, 0x4100, 0x81C1, 0x8081, 0x4040
X};
XINT addcrc(crc,c) /* update a CRC check */
XINT crc; /* running CRC value */
Xunsigned char c; /* character to add */
X{
X return (((crc>>8)&0x00ff) ^ crctab[(crc^c)&0x00ff]) & 0x0000ffff;
X}
X
$ GoSub Convert_File
$ File_is="ARCTST.C"
$ Check_Sum_is=992639970
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
Xstatic char *RCSid = "$Header: arctst.c,v 1.1 86/06/26 15:01:02 turner Exp $";
X
X/*
X * $Log:`009arctst.c,v $
X * Hack-attack 1.3 86/12/20 01:23:45 wilhite@usceast.uucp
X * `009Bludgeoned into submission for VAX 11/780 BSD4.2
X *`009(ugly code, but fewer core dumps)
X *
X * Revision 1.1 86/06/26 15:01:02 turner
X * initial version
X *
X *
X */
X
X/* ARC - Archive utility - ARCTST
X
X$define(tag,$$segment(@1,$$index(@1,=)+1))#
X$define(version,Version $tag(
XTED_VERSION DB =2.12), created on $tag(
XTED_DATE DB =02/03/86) at $tag(
XTED_TIME DB =23:00:40))#
X$undefine(tag)#
X $version
X
X(C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
X
X By: Thom Henderson
X
X Description:
X This file contains the routines used to test archive integrity.
X
X Language:
X Computer Innovations Optimizing C86
X*/
X#include <stdio.h>
X#include "arc.h"
X
XINT tstarc() /* test integrity of an archive */
X{
X struct heads hdr; /* file header */
X long arcsize, ftell(); /* archive size */
X
X openarc(0); /* open archive for reading */
X fseek(arc,0L,2); /* move to end of archive */
X arcsize = ftell(arc); /* see how big it is */
X fseek(arc,0L,0); /* return to top of archive */
X
X printf ("Testing archive...\n");
X while(readhdr(&hdr,arc))
X { if(ftell(arc)+hdr.size>arcsize)
X { printf("Archive truncated in file %s\n",hdr.name);
X nerrs++;
X break;
X }
X
X else
X { printf(" File: %-12s ",hdr.name);
X fflush(stdout);
X if(unpack(arc,NULL,&hdr))
X nerrs++;
X else printf("okay\n");
X }
X }
X
X if(nerrs<1)
X printf("No errors detected\n");
X else if(nerrs==1)
X printf("One error detected\n");
X else printf("%d errors detected\n",nerrs);
X}
X
$ GoSub Convert_File
$ Goto Part17