home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d160 / m4.lha / M4 / hash.m4 < prev    next >
M4 Source File  |  1988-10-02  |  425b  |  18 lines
  1. dnl    This probably will not run on any m4 that cannot
  2. dnl    handle char constants in eval.
  3. dnl
  4. changequote(<,>) define(HASHVAL,99) dnl
  5. define(hash,<eval(str(substr($1,1),0)%HASHVAL)>) dnl
  6. define(str,
  7.     <ifelse($1,",$2,
  8.         <str(substr(<$1>,1),<eval($2+'substr($1,0,1)')>)>)
  9.     >) dnl
  10. define(KEYWORD,<$1,hash($1),>) dnl
  11. define(TSTART,
  12. <struct prehash {
  13.     char *keyword;
  14.     int   hashval;
  15. } keytab[] = {>) dnl
  16. define(TEND,<    "",0
  17. };>) dnl
  18.