| 6849 | |
| 6850 | |
| 6851 | void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source) { |
| 6852 | ls->decpoint = '.'; |
| 6853 | ls->L = L; |
| 6854 | ls->lookahead.token = TK_EOS; /* no look-ahead token */ |
| 6855 | ls->z = z; |
| 6856 | ls->fs = NULL; |
| 6857 | ls->linenumber = 1; |
| 6858 | ls->lastline = 1; |
| 6859 | ls->source = source; |
| 6860 | luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ |
| 6861 | next(ls); /* read first char */ |
| 6862 | } |
| 6863 | |
| 6864 | |
| 6865 |