Return to deliv2.c CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / refer

Annotation of 3BSD/cmd/refer/deliv2.c, revision 1.1

1.1     ! root        1: # include "stdio.h"
        !             2: hash (s)
        !             3:        char *s;
        !             4: {
        !             5: int c, n;
        !             6: for(n=0; c= *s; s++)
        !             7:        n += (c*n+ c << (n%4));
        !             8: return(n>0 ? n : -n);
        !             9: }
        !            10: err (s, a)
        !            11:        char *s;
        !            12: {
        !            13: fprintf(stderr, "Error: ");
        !            14: fprintf(stderr, s, a);
        !            15: putc('\n', stderr);
        !            16: exit(1);
        !            17: }
        !            18: prefix(t, s)
        !            19:        char *t, *s;
        !            20: {
        !            21: int c, d;
        !            22: while ( (c= *t++) == *s++)
        !            23:        if (c==0) return(1);
        !            24: return(c==0 ? 1: 0);
        !            25: }
        !            26: char *
        !            27: mindex(s, c)
        !            28:        char *s;
        !            29: {
        !            30: register char *p;
        !            31: for( p=s; *p; p++)
        !            32:        if (*p ==c)
        !            33:                return(p);
        !            34: return(0);
        !            35: }
        !            36: zalloc(m,n)
        !            37: {
        !            38:        int t;
        !            39: # if D1
        !            40: fprintf(stderr, "calling calloc for %d*%d bytes\n",m,n);
        !            41: # endif
        !            42: t = calloc(m,n);
        !            43: # if D1
        !            44: fprintf(stderr, "calloc returned %o\n", t);
        !            45: # endif
        !            46: return(t);
        !            47: }

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