| 496 | }; |
| 497 | |
| 498 | static void f_parser (lua_State *L, void *ud) { |
| 499 | int i; |
| 500 | Proto *tf; |
| 501 | Closure *cl; |
| 502 | struct SParser *p = cast(struct SParser *, ud); |
| 503 | int c = luaZ_lookahead(p->z); |
| 504 | luaC_checkGC(L); |
| 505 | tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, |
| 506 | &p->buff, p->name); |
| 507 | cl = luaF_newLclosure(L, tf->nups, hvalue(gt(L))); |
| 508 | cl->l.p = tf; |
| 509 | for (i = 0; i < tf->nups; i++) /* initialize eventual upvalues */ |
| 510 | cl->l.upvals[i] = luaF_newupval(L); |
| 511 | setclvalue(L, L->top, cl); |
| 512 | incr_top(L); |
| 513 | } |
| 514 | |
| 515 | |
| 516 | int luaD_protectedparser (lua_State *L, ZIO *z, const char *name) { |
nothing calls this directly
no test coverage detected