| 165 | |
| 166 | |
| 167 | void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, |
| 168 | int firstchar) { |
| 169 | ls->t.token = 0; |
| 170 | ls->L = L; |
| 171 | ls->current = firstchar; |
| 172 | ls->lookahead.token = TK_EOS; /* no look-ahead token */ |
| 173 | ls->z = z; |
| 174 | ls->fs = NULL; |
| 175 | ls->linenumber = 1; |
| 176 | ls->lastline = 1; |
| 177 | ls->source = source; |
| 178 | ls->envn = luaS_newliteral(L, LUA_ENV); /* get env name */ |
| 179 | luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ |
| 180 | } |
| 181 | |
| 182 | |
| 183 |