Function hooked_open

src/nhlua.c:2745–2811

#ifdef notyet
staticfn int
hooked_open(lua_State *L)
{
    const char *mode;
    static boolean never = TRUE;
    const char *filename;
    int params;
    int hot;

    if (never) {
        if (!start_luapat())
            return NHL_SBRV_FAIL;
        never = FALSE;
    }
    filename = luaL_checkstring(L, 1);

    /* Unlike io.open, we want to treat mode as non-optional. */
    if (lua_gettop(L) < 2) {
        lua_pushstring(L, "r");
    }
    mode = luaL_optstring(L, 2, "r");

    /* sandbox checks */
    /* Do we need some ud from the calling state to let this be different for
       each call without redoing the HO table??  Maybe for version 2. XXX */

    params = lua_gettop(L)-1;  /* point at first param */
    nhl_pushhooked_open_table(L);
    hot = lua_gettop(L);

    if (lua_type(L, hot) == LUA_TTABLE) {
        int idx;
        for (idx = 1;
             lua_pushinteger(L, idx),
                 lua_geti(L, hot, idx),
                 !lua_isnoneornil(L, -1);
             ++idx) {
            /* top of stack is our configtbl[idx] */
            switch (lua_type(L, -1)) {
                /* lots of options to expand this with other types XXX */
            case LUA_TTABLE: {
                int moderv, filerv;
                moderv = opencheckpat(L, "modepat", params+1);
                if (moderv == NHL_SBRV_FAIL)
                    return moderv;
                filerv = opencheckpat(L, "filepat", params);
                if (filerv == NHL_SBRV_FAIL)
                    return moderv;
                if (filerv == moderv) {
                    if (filerv == NHL_SBRV_DENY)
                        return NHL_SBRV_DENY;
                    if (filerv == NHL_SBRV_ACCEPT)
                        goto doopen;
                }
                break; /* try next entry */
            }
            default:
                return NHL_SBRV_FAIL;