tools/lexh.c

   1 /*% c99 -O3 -Wall -o # %
   2  */
   3 #include <stdlib.h>
   4 #include <stdio.h>
   5 #include <string.h>
   6 #include <limits.h>
   7 #include <stdint.h>
   8
   9 char *tok[] = {
  10
  11         "add", "sub", "neg", "div", "rem", "udiv", "urem", "mul",
  12         "and", "or", "xor", "sar", "shr", "shl", "stored",
  13         "stores", "storel", "storew", "storeh", "storeb",
  14         "load", "loadsw", "loaduw", "loadsh", "loaduh",
  15         "loadsb", "loadub", "extsw", "extuw", "extsh",
  16         "extuh", "extsb", "extub", "exts", "truncd",
  17         "stosi", "dtosi", "stoui", "dtoui", "uwtof",
  18         "ultof", "swtof", "sltof", "cast", "copy",
  19         "alloc4", "alloc8", "alloc16", "culew", "cultw",
  20         "cslew", "csltw", "csgtw", "csgew", "cugtw",
  21         "cugew", "ceqw", "cnew", "culel", "cultl", "cslel",
  22         "csltl", "csgtl", "csgel", "cugtl", "cugel",
  23         "ceql", "cnel", "cles", "clts", "cgts", "cges",
  24         "cnes", "ceqs", "cos", "cuos", "cled", "cltd",
  25         "cgtd", "cged", "cned", "ceqd", "cod", "cuod",
  26         "vaarg", "vastart", "...", "env",
  27
  28         "call", "phi", "jmp", "jnz", "ret", "export",
  29         "function", "type", "data", "section", "align",
  30         "l", "w", "h", "b", "d", "s", "z", "loadw", "loadl",
  31         "loads", "loadd", "alloc1", "alloc2",
  32
  33 };
  34 enum {
  35         Ntok = sizeof tok / sizeof tok[0]
  36 };
  37
  38 uint32_t th[Ntok];
  39
  40 uint32_t
  41 hash(char *s)
  42 {
  43         uint32_t h;
  44
  45         h = 0;
  46         for (; *s; ++s)
  47                 h = *s + 17*h;
  48         return h;
  49 }
  50
  51 int
  52 main()
  53 {
  54         char *bmap;
  55         uint32_t h, M, K;
  56         int i, j;
  57
  58         bmap = malloc(1u << 31);
  59
  60         for (i=0; i<Ntok; ++i) {
  61                 h = hash(tok[i]);
  62                 for (j=0; j<i; ++j)
  63                         if (th[j] == h) {
  64                                 printf("error: hash()\n");
  65                                 printf("\t%s\n", tok[i]);
  66                                 printf("\t%s\n", tok[j]);
  67                                 exit(1);
  68                         }
  69                 th[i] = h;
  70         }
  71
  72         for (i=0; 1<<i < Ntok; ++i);
  73         M = 32 - i;
  74
  75         for (;; --M) {
  76                 printf("trying M=%d...\n", M);
  77                 K = 1;
  78                 do {
  79                         memset(bmap, 0, 1 << (32 - M));
  80                         for (i=0; i<Ntok; ++i) {
  81                                 h = (th[i]*K) >> M;
  82                                 if (bmap[h])
  83                                         break;
  84                                 bmap[h] = 1;
  85                         }
  86                         if (i==Ntok) {
  87                                 printf("found K=%d for M=%d\n", K, M);
  88                                 exit(0);
  89                         }
  90                         K += 2;
  91                 } while (K != 1);
  92         }
  93 }