cmd/refer/deliv2.c

	deliv2.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*  Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*    All Rights Reserved   */


/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved. The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

/*
 * Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
 * All Rights Reserved.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"


#include <stdio.h>
#include <locale.h>

hash (s)
char *s;
{
    int c, n;
    for(n=0; c= *s; s++)
        n += (c*n+ c << (n%4));
    return(n>0 ? n : -n);
}

err (s, a)
char *s;
{
    fprintf(stderr, gettext("Error: "));
    fprintf(stderr, s, a);
    putc('\n', stderr);
    exit(1);
}

prefix(t, s)
char *t, *s;
{
    int c;

    while ((c= *t++) == *s++)
        if (c==0) return(1);
    return(c==0 ? 1: 0);
}

char *
mindex(s, c)
char *s;
{
    register char *p;
    for( p=s; *p; p++)
        if (*p ==c)
            return(p);
    return(0);
}

zalloc(m,n)
{
    char *calloc();
    int t;
# if D1
    fprintf(stderr, "calling calloc for %d*%d bytes\n",m,n);
# endif
    t = (int) calloc(m,n);
# if D1
    fprintf(stderr, "calloc returned %o\n", t);
# endif
    return(t);
}