Function mainfunc

src/Chain/libraries/glua/lparser.cpp:1681–1694

** compiles the main function, which is a regular vararg function with an ** upvalue named LUA_ENV */

** upvalue named LUA_ENV
*/
static void mainfunc(LexState *ls, FuncState *fs) {
    BlockCnt bl;
    expdesc v;
    open_func(ls, fs, &bl);
    fs->f->is_vararg = 2;  /* main function is always declared vararg */
    init_exp(&v, VLOCAL, 0);  /* create and... */
    newupvalue(fs, ls->envn, &v);  /* ...set environment upvalue */
    luaX_next(ls);  /* read first token */
    statlist(ls);  /* parse main body */
    if (ls->L->force_stopping)
        return;
    check(ls, TK_EOS);
    close_func(ls);
}


LClosure *luaY_parser(lua_State *L, ZIO *z, Mbuffer *buff,