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