lily/keyword.cc

   1 /*
   2   keyword.cc -- keywords and identifiers
   3  */
   4
   5 #include <stdlib.h>
   6
   7 #include "my-lily-lexer.hh"
   8
   9 /* for the keyword table */
  10 struct Keyword_ent
  11 {
  12   char const *name;
  13   int     tokcode;
  14 };
  15
  16 struct Keyword_table
  17 {
  18   Keyword_ent *table;
  19   int     maxkey;
  20   Keyword_table (Keyword_ent *);
  21   int     lookup (char const *s) const;
  22 };
  23
  24
  25 /* for qsort */
  26 int
  27       tabcmp (void const * p1, void const * p2)
  28 {
  29   return strcmp (((Keyword_ent const *) p1)->name,
  30                 ((Keyword_ent const *) p2)->name);
  31 }
  32
  33 Keyword_table::Keyword_table (Keyword_ent *tab)
  34 {
  35   table = tab;
  36
  37   /* count keywords */
  38   for (maxkey = 0; table[maxkey].name; maxkey++);
  39
  40   /* sort them */
  41   qsort (table, maxkey, sizeof (Keyword_ent), tabcmp);
  42 }
  43
  44 /*
  45   lookup with binsearch, return tokencode.
  46 */
  47 int
  48 Keyword_table::lookup (char const *s) const
  49 {
  50   int     lo,
  51           hi,
  52           cmp,
  53           result;
  54   lo = 0;
  55   hi = maxkey;
  56
  57   /* binary search */
  58   do
  59   {
  60       cmp = (lo + hi) / 2;
  61
  62       result = strcmp (s, table[cmp].name);
  63
  64       if (result < 0)
  65           hi = cmp;
  66       else
  67           lo = cmp;
  68     }
  69   while (hi - lo > 1);
  70   if (!strcmp (s, table[lo].name))
  71   {
  72       return table[lo].tokcode;
  73     }
  74   else
  75       return -1;              /* not found */
  76 }
  77