summaryrefslogtreecommitdiff
path: root/lex.c
blob: 1abc04863827efc0ad2481de494f948e8481e6ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
/* C code produced by gperf version 2.5 (GNU C++ version) */
/* Command-line: gperf -p -j1 -i 1 -g -o -t -N rb_reserved_word -k1,3,$ keywords  */
struct kwtable {char *name; int id[2]; enum lex_state state;};

#define TOTAL_KEYWORDS 40
#define MIN_WORD_LENGTH 2
#define MAX_WORD_LENGTH 8
#define MIN_HASH_VALUE 6
#define MAX_HASH_VALUE 55
/* maximum key range = 50, duplicates = 0 */

#ifdef __GNUC__
inline
#endif
static unsigned int
hash (str, len)
     register char *str;
     register int unsigned len;
{
  static unsigned char asso_values[] =
    {
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 11, 56, 56, 36, 56,  1, 37,
     31,  1, 56, 56, 56, 56, 29, 56,  1, 56,
     56, 56, 56, 56, 56, 56, 56, 56, 56, 56,
     56, 56, 56, 56, 56,  1, 56, 32,  1,  2,
      1,  1,  4, 23, 56, 17, 56, 20,  9,  2,
      9, 26, 14, 56,  5,  1,  1, 16, 56, 21,
     20,  9, 56, 56, 56, 56, 56, 56,
    };
  register int hval = len;

  switch (hval)
    {
      default:
      case 3:
        hval += asso_values[str[2]];
      case 2:
      case 1:
        hval += asso_values[str[0]];
        break;
    }
  return hval + asso_values[str[len - 1]];
}

#ifdef __GNUC__
inline
#endif
struct kwtable *
rb_reserved_word (str, len)
     register char *str;
     register unsigned int len;
{
  static struct kwtable wordlist[] =
    {
      {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
      {"end",  kEND, kEND, EXPR_END},
      {"else",  kELSE, kELSE, EXPR_BEG},
      {"case",  kCASE, kCASE, EXPR_BEG},
      {"ensure",  kENSURE, kENSURE, EXPR_BEG},
      {"module",  kMODULE, kMODULE, EXPR_BEG},
      {"elsif",  kELSIF, kELSIF, EXPR_BEG},
      {"def",  kDEF, kDEF, EXPR_FNAME},
      {"rescue",  kRESCUE, kRESCUE, EXPR_MID},
      {"not",  kNOT, kNOT, EXPR_BEG},
      {"then",  kTHEN, kTHEN, EXPR_BEG},
      {"yield",  kYIELD, kYIELD, EXPR_END},
      {"for",  kFOR, kFOR, EXPR_BEG},
      {"self",  kSELF, kSELF, EXPR_END},
      {"false",  kFALSE, kFALSE, EXPR_END},
      {"retry",  kRETRY, kRETRY, EXPR_END},
      {"return",  kRETURN, kRETURN, EXPR_MID},
      {"true",  kTRUE, kTRUE, EXPR_END},
      {"if",  kIF, kIF_MOD, EXPR_BEG},
      {"defined?",  kDEFINED, kDEFINED, EXPR_END},
      {"super",  kSUPER, kSUPER, EXPR_END},
      {"undef",  kUNDEF, kUNDEF, EXPR_FNAME},
      {"break",  kBREAK, kBREAK, EXPR_END},
      {"in",  kIN, kIN, EXPR_BEG},
      {"do",  kDO, kDO, EXPR_BEG},
      {"nil",  kNIL, kNIL, EXPR_END},
      {"until",  kUNTIL, kUNTIL_MOD, EXPR_BEG},
      {"unless",  kUNLESS, kUNLESS_MOD, EXPR_BEG},
      {"or",  kOR, kOR, EXPR_BEG},
      {"next",  kNEXT, kNEXT, EXPR_END},
      {"when",  kWHEN, kWHEN, EXPR_BEG},
      {"redo",  kREDO, kREDO, EXPR_END},
      {"and",  kAND, kAND, EXPR_BEG},
      {"begin",  kBEGIN, kBEGIN, EXPR_BEG},
      {"__LINE__",  k__LINE__, k__LINE__, EXPR_END},
      {"class",  kCLASS, kCLASS, EXPR_CLASS},
      {"__FILE__",  k__FILE__, k__FILE__, EXPR_END},
      {"END",  klEND, klEND, EXPR_END},
      {"BEGIN",  klBEGIN, klBEGIN, EXPR_END},
      {"while",  kWHILE, kWHILE_MOD, EXPR_BEG},
      {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
      {"",}, 
      {"alias",  kALIAS, kALIAS, EXPR_FNAME},
    };

  if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)
    {
      register int key = hash (str, len);

      if (key <= MAX_HASH_VALUE && key >= 0)
        {
          register char *s = wordlist[key].name;

          if (*s == *str && !strcmp (str + 1, s + 1))
            return &wordlist[key];
        }
    }
  return 0;
}