| 136 | |
| 137 | |
| 138 | void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source) { |
| 139 | ls->decpoint = '.'; |
| 140 | ls->L = L; |
| 141 | ls->lookahead.token = TK_EOS; /* no look-ahead token */ |
| 142 | ls->z = z; |
| 143 | ls->fs = NULL; |
| 144 | ls->linenumber = 1; |
| 145 | ls->lastline = 1; |
| 146 | ls->source = source; |
| 147 | luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ |
| 148 | next(ls); /* read first char */ |
| 149 | } |
| 150 | |
| 151 | |
| 152 |