home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / refer / deliv2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  623 b   |  47 lines
  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. mindex(s, c)
  27.     char *s;
  28. {
  29. register char *p;
  30. for( p=s; *p; p++)
  31.     if (*p ==c)
  32.         return(p);
  33. return(0);
  34. }
  35. zalloc(m,n)
  36. {
  37.     int t;
  38. # if D1
  39. fprintf(stderr, "calling calloc for %d*%d bytes\n",m,n);
  40. # endif
  41. t = calloc(m,n);
  42. # if D1
  43. fprintf(stderr, "calloc returned %o\n", t);
  44. # endif
  45. return(t);
  46. }
  47.