Return to header.c CVS log

Up to [Research Unix] / researchv10no / cmd / asd

Annotation of researchv10no/cmd/asd/header.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     various subroutines to deal with archive headers
                      3:  */
                      4: 
                      5: #include <stdio.h>
                      6: #include <ctype.h>
                      7: #include "asd.h"
                      8: 
                      9: /*
                     10:  *     convert p to a long value.  maximum input length is len,
                     11:  *     input is to be interpreted in base b.  No negative values.
                     12:  */
                     13: long
                     14: cvlong (p, len, base)
                     15:        register char *p;
                     16:        register int len, base;
                     17: {
                     18:        register int i;
                     19:        register long r;
                     20: 
                     21:        r = 0;
                     22:        i = len;
                     23: 
                     24:        do {
                     25:                register int c = *p++;
                     26:                if (isdigit (c))
                     27:                        r = r * base + c - '0';
                     28:        } while (--i > 0);
                     29: 
                     30:        return r;
                     31: }
                     32: 
                     33: long
                     34: read_header (name, file)
                     35:        register char *name;
                     36:        FILE *file;
                     37: {
                     38:        register int n;
                     39:        register int i;
                     40:        register char *p, *q;
                     41: 
                     42:        n = fread ((char *) &ar_hdr, sizeof (ar_hdr), 1, file);
                     43:        if (n != 1) {
                     44:                fprintf (stderr, "can't read %s\n", name);
                     45:                exit (1);
                     46:        }
                     47: 
                     48:        if (strncmp (ar_hdr.ar_fmag, ARFMAG, sizeof (ar_hdr.ar_fmag)) != 0) {
                     49:                fprintf (stderr, "input phase error on %s\n", name);
                     50:                exit (1);
                     51:        }
                     52: 
                     53:        /* check the component name, allowing for trailing blanks */
                     54:        p = name;
                     55:        q = ar_hdr.ar_name;
                     56:        for (i = 0; i < sizeof (ar_hdr.ar_name); i++) {
                     57:                if (*q++ != (*p? *p++: ' ')) {
                     58:                        fprintf (stderr, "expected %s, got %.*s\n",
                     59:                            name, sizeof (ar_hdr.ar_name), ar_hdr.ar_name);
                     60:                }
                     61:        }
                     62: 
                     63:        /* crack the archive header and put the information in "hdr" */
                     64:        hdr.size = cvlong (ar_hdr.ar_size, sizeof (ar_hdr.ar_size), 10);
                     65:        hdr.mode = cvlong (ar_hdr.ar_mode, sizeof (ar_hdr.ar_mode), 8);
                     66:        hdr.date = cvlong (ar_hdr.ar_date, sizeof (ar_hdr.ar_date), 10);
                     67: 
                     68:        return hdr.size;
                     69: }
                     70: 
                     71: /* advance to the start of the next archive header */
                     72: void
                     73: next_header(f)
                     74:        register FILE *f;
                     75: {
                     76:        if (hdr.size & 1)
                     77:                getc(f);
                     78: }
                     79: 
                     80: /* skip leading white space, return a field */
                     81: char *
                     82: getfield (f)
                     83:        register FILE *f;
                     84: {
                     85:        register char c;
                     86: 
                     87:        /* skip leading white space */
                     88:        do c = getc (f);
                     89:        while (isspace (c) && c != '\n');
                     90: 
                     91:        /* if we hit a newline, something's wrong */
                     92:        if (c == '\n') {
                     93:                fprintf (stderr, "unexpected newline\n");
                     94:                exit (1);
                     95:        }
                     96: 
                     97:        /* return the nonblank, read a "pathname" and return it */
                     98:        ungetc (c, f);
                     99:        return getpath (f);
                    100: }
                    101: 
                    102: /* insist on an end of line right here */
                    103: void
                    104: geteol (f)
                    105:        register FILE *f;
                    106: {
                    107:        register int c;
                    108: 
                    109:        c = getc (f);
                    110:        if (c != '\n') {
                    111:                fprintf (stderr, "expected newline, got %c\n", c);
                    112:                exit (1);
                    113:        }
                    114: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.