From:	CSBVAX::MRGATE!info-vax-RELAY@KL.SRI.COM@SMTP  8-JUL-1988 22:05
To:	ARISIA::EVERHART
Subj:	ARC_C.SHAR16_OF_19


Received: from CORNELLC.CCS.CORNELL.EDU by KL.SRI.COM with TCP; Fri, 24 Jun 88 18:20:11 PDT
Received: from UNCAEDU.BITnet by CORNELLC.CCS.CORNELL.EDU ; Fri, 24 Jun 88 21:20:25 EDT
Received: from Stasis.MRC.AdhocNet.CA by UcEdu.UNCA.AdhocNet.CA with DECNET ;
          Fri, 24 Jun 88 09:38:03 MDT
Date:    Fri, 24 Jun 88 09:29:03 MDT
From:     ewilts%Ins.MRC.AdhocNet.CA%Stasis.MRC.AdhocNet.CA%UNCAEDU.@CORNELLC.CCS.CORNELL.EDU
         BITnet (Ed Wilts)
Message-Id: <880624092906.02g@Ins.MRC.AdhocNet.CA>
Subject: ARC_C.SHAR16_OF_19
To:       info-vax@kl.sri.com
X-ST-Vmsmail-To: INFOVAX

$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
