Function pmain

src/Chain/libraries/glua/lua.cpp:552–591

** Main body of stand-alone interpreter (to be called in protected mode). ** Reads the options and handles them all. */

** Reads the options and handles them all.
*/
static int pmain(lua_State *L) {
    int argc = (int)lua_tointeger(L, 1);
    char **argv = (char **)lua_touserdata(L, 2);
    int script;
    int args = collectargs(argv, &script);
    luaL_checkversion(L);  /* check that interpreter has correct version */
    if (argv[0] && argv[0][0]) progname = argv[0];
    if (args == has_error) {  /* bad arg? */
        print_usage(argv[script]);  /* 'script' has index of bad arg. */
        return 0;
    }
    if (args & has_v)  /* option '-v'? */
        print_version();
    if (args & has_E) {  /* option '-E'? */
        lua_pushboolean(L, 1);  /* signal for libraries to ignore env. vars. */
        lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV");
    }
    luaL_openlibs(L);  /* open standard libraries */
    createargtable(L, argv, argc, script);  /* create table 'arg' */
    if (!(args & has_E)) {  /* no option '-E'? */
        if (handle_luainit(L) != LUA_OK)  /* run LUA_INIT */
            return 0;  /* error running LUA_INIT */
    }
    if (!runargs(L, argv, script))  /* execute arguments -e and -l */
        return 0;  /* something failed */
    if (script < argc &&  /* execute main script (if there is one) */
        handle_script(L, argv + script) != LUA_OK)
        return 0;
    if (args & has_i)  /* -i option? */
        doREPL(L);  /* do read-eval-print loop */
    else if (script == argc && !(args & (has_e | has_v))) {  /* no arguments? */
        if (lua_stdin_is_tty()) {  /* running in interactive mode? */
            print_version();
            doREPL(L);  /* do read-eval-print loop */
        }
        else dofile(L, nullptr);  /* executes stdin as a file */
    }
    lua_pushboolean(L, 1);  /* signal no errors */
    return 1;
}


int main1(int argc, char **argv) {