NOVA - For the NeXT Workstation/NOVA - For the NeXT Workstation.iso/Apps/ArchiveUtils/nx_arc/arclst.c

C/C++ Source or Header | 1992-12-20 | 4.4 KB | 197 lines

/*
 * $Log:    arclst.c,v $
 * Revision 1.2  88/04/11  18:03:10  hyc
 * added support for squashing, re-synch with MTS
 *
 * Revision 1.1  88/04/11  18:01:46  hyc
 * Initial revision
 *
 * Revision 1.4  87/08/13  17:03:30  hyc
 * Run thru the indent program...
 *  Revision 1.3  87/07/21  11:41:35  hyc *** empty
 * log message ***
 *
 * Revision 1.2  87/07/21  08:23:17  hyc *** empty log message ***
 *
 */

/*
 * ARC - Archive utility - ARCLST
 *
 * Version 2.38, created on 07/25/86 at 17:52:20
 *
 * (C) COPYRIGHT 1985,86 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"

INT
lstarc(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[25];/* true when argument was used */
    LONG            tnum, tlen, tsize;    /* totals */
    INT             n;    /* index */
    INT             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 (!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 (!kludge) {
        printf("        ====  ========");
        if (bose)
            printf("            ====  ========");
        printf("\n");
    }
    printf("Total %6ld  %8ld", tnum, tlen);
    if (bose) {
        if (tlen)
            printf("            %3ld%%", 100L - (100L * tsize) / tlen);
        else
            printf("            ---");
        printf("  %8ld", tsize);
    }
    printf("\n");

    if (note) {
        for (n = 0; n < num; n++) {    /* report unused args */
            if (!did[n]) {
                printf("File not found: %s\n", arg[n]);
                nerrs++;
            }
        }
    }
}

INT
lstfile(hdr)            /* tell about a file */
    struct heads   *hdr;    /* pointer to header data */
{
    INT             yr, mo, dy;    /* parts of a date */
    INT             hh, mm, ss;    /* parts of a time */

    static char    *mon[] =    /* month abbreviations */
    {
     "Jan", "Feb", "Mar", "Apr",
     "May", "Jun", "Jul", "Aug",
     "Sep", "Oct", "Nov", "Dec"
    };

    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;

    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("  %3d%%", 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");
}