| 157 | |
| 158 | |
| 159 | void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, |
| 160 | int firstchar) { |
| 161 | ls->decpoint = '.'; |
| 162 | ls->L = L; |
| 163 | ls->current = firstchar; |
| 164 | ls->lookahead.token = TK_EOS; /* no look-ahead token */ |
| 165 | ls->z = z; |
| 166 | ls->fs = NULL; |
| 167 | ls->linenumber = 1; |
| 168 | ls->lastline = 1; |
| 169 | ls->source = source; |
| 170 | ls->envn = luaS_new(L, LUA_ENV); /* create env name */ |
| 171 | luaS_fix(ls->envn); /* never collect this name */ |
| 172 | luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ |
| 173 | } |
| 174 | |
| 175 | |
| 176 |
no test coverage detected