view release on metacpan or  search on metacpan

CursesFun.c  view on Meta::CPAN

XS(XS_Curses_set_panel_userptr)
{
    dXSARGS;
#ifdef C_SET_PANEL_USERPTR
    c_exactargs("set_panel_userptr", items, 2);
    {
    PANEL * pan = c_sv2panel(ST(0), 0);
    char *  ptr = (char *)SvPV_nolen(ST(1));
    int ret = set_panel_userptr(pan, ptr);

    ST(0) = sv_newmortal();
    sv_setiv(ST(0), (IV)ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("set_panel_userptr");
    XSRETURN(0);
#endif
}

XS(XS_Curses_panel_userptr)
{
    dXSARGS;
#ifdef C_PANEL_USERPTR
    c_exactargs("panel_userptr", items, 1);
    {
    PANEL * pan = c_sv2panel(ST(0), 0);
    char *  ret = (char *)panel_userptr(pan);

    ST(0) = sv_newmortal();
    sv_setpv((SV*)ST(0), ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("panel_userptr");
    XSRETURN(0);
#endif
}

XS(XS_Curses_del_panel)
{
    dXSARGS;
#ifdef C_DEL_PANEL
    c_exactargs("del_panel", items, 1);
    {
    PANEL * pan = c_sv2panel(ST(0), 0);
    int ret = del_panel(pan);

    ST(0) = sv_newmortal();
    sv_setiv(ST(0), (IV)ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("del_panel");
    XSRETURN(0);
#endif
}


/* Menu functions */

/* menu_attributes */

XS(XS_Curses_set_menu_fore)
{
    dXSARGS;
#ifdef C_SET_MENU_FORE
    c_exactargs("set_menu_fore", items, 2);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    chtype  attr    = c_sv2chtype(ST(1));
    int ret = set_menu_fore(menu, attr);

    ST(0) = sv_newmortal();
    sv_setiv(ST(0), (IV)ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("set_menu_fore");
    XSRETURN(0);
#endif
}

XS(XS_Curses_menu_fore)
{
    dXSARGS;
#ifdef C_MENU_FORE
    c_exactargs("menu_fore", items, 1);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    chtype  ret = menu_fore(menu);

    ST(0) = sv_newmortal();
    c_chtype2sv(ST(0), ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("menu_fore");
    XSRETURN(0);
#endif
}

XS(XS_Curses_set_menu_back)
{
    dXSARGS;
#ifdef C_SET_MENU_BACK
    c_exactargs("set_menu_back", items, 2);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    chtype  attr    = c_sv2chtype(ST(1));
    int ret = set_menu_back(menu, attr);

    ST(0) = sv_newmortal();
    sv_setiv(ST(0), (IV)ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("set_menu_back");
    XSRETURN(0);
#endif