| 73 | |
| 74 | |
| 75 | void luaX_init (lua_State *L) { |
| 76 | int i; |
| 77 | TString *e = luaS_newliteral(L, LUA_ENV); /* create env name */ |
| 78 | luaC_fix(L, obj2gco(e)); /* never collect this name */ |
| 79 | for (i=0; i<NUM_RESERVED; i++) { |
| 80 | TString *ts = luaS_new(L, luaX_tokens[i]); |
| 81 | luaC_fix(L, obj2gco(ts)); /* reserved words are never collected */ |
| 82 | ts->extra = cast_byte(i+1); /* reserved word */ |
| 83 | } |
| 84 | } |
| 85 | |
| 86 | |
| 87 | const char *luaX_token2str (LexState *ls, int token) { |