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