view release on metacpan or  search on metacpan

CursesFun.c  view on Meta::CPAN

XS(XS_Curses_menu_grey)
{
    dXSARGS;
#ifdef C_MENU_GREY
    c_exactargs("menu_grey", items, 1);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    chtype  ret = menu_grey(menu);

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

XS(XS_Curses_set_menu_pad)
{
    dXSARGS;
#ifdef C_SET_MENU_PAD
    c_exactargs("set_menu_pad", items, 2);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int pad = (int)SvIV(ST(1));
    int ret = set_menu_pad(menu, pad);

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

XS(XS_Curses_menu_pad)
{
    dXSARGS;
#ifdef C_MENU_PAD
    c_exactargs("menu_pad", items, 1);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int ret = menu_pad(menu);

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


/* menu_cursor */

XS(XS_Curses_pos_menu_cursor)
{
    dXSARGS;
#ifdef C_POS_MENU_CURSOR
    c_exactargs("pos_menu_cursor", items, 1);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int ret = pos_menu_cursor(menu);

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


/* menu_driver */

XS(XS_Curses_menu_driver)
{
    dXSARGS;
#ifdef C_MENU_DRIVER
    c_exactargs("menu_driver", items, 2);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int c   = (int)SvIV(ST(1));
    int ret = menu_driver(menu, c);

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


/* menu_format */

XS(XS_Curses_set_menu_format)
{
    dXSARGS;
#ifdef C_SET_MENU_FORMAT
    c_exactargs("set_menu_format", items, 3);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int rows    = (int)SvIV(ST(1));
    int cols    = (int)SvIV(ST(2));
    int ret = set_menu_format(menu, rows, cols);

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

XS(XS_Curses_menu_format)
{
    dXSARGS;
#ifdef C_MENU_FORMAT
    c_exactargs("menu_format", items, 3);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int rows    = 0;
    int cols    = 0;

CursesFun.c  view on Meta::CPAN

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

XS(XS_Curses_set_menu_spacing)
{
    dXSARGS;
#ifdef C_SET_MENU_SPACING
    c_exactargs("set_menu_spacing", items, 4);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int descr   = (int)SvIV(ST(1));
    int rows    = (int)SvIV(ST(2));
    int cols    = (int)SvIV(ST(3));
    int ret = set_menu_spacing(menu, descr, rows, cols);

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

XS(XS_Curses_menu_spacing)
{
    dXSARGS;
#ifdef C_MENU_SPACING
    c_exactargs("menu_spacing", items, 4);
    {
    MENU *  menu    = c_sv2menu(ST(0), 0);
    int descr   = 0;
    int rows    = 0;
    int cols    = 0;
    int ret = menu_spacing(menu, &descr, &rows, &cols);

    sv_setiv(ST(1), (IV)descr);;
    sv_setiv(ST(2), (IV)rows);;
    sv_setiv(ST(3), (IV)cols);;
    ST(0) = sv_newmortal();
    sv_setiv(ST(0), (IV)ret);
    }
    XSRETURN(1);
#else
    c_fun_not_there("menu_spacing");
    XSRETURN(0);
#endif
}


/* Form functions */

/* form_cursor */

XS(XS_Curses_pos_form_cursor)
{
    dXSARGS;
#ifdef C_POS_FORM_CURSOR
    c_exactargs("pos_form_cursor", items, 1);
    {
    FORM *  form    = c_sv2form(ST(0), 0);
    int ret = pos_form_cursor(form);

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


/* form_data */

XS(XS_Curses_data_ahead)
{
    dXSARGS;
#ifdef C_DATA_AHEAD
    c_exactargs("data_ahead", items, 1);
    {
    FORM *  form    = c_sv2form(ST(0), 0);
    bool    ret = data_ahead(form);

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

XS(XS_Curses_data_behind)
{
    dXSARGS;
#ifdef C_DATA_BEHIND
    c_exactargs("data_behind", items, 1);
    {
    FORM *  form    = c_sv2form(ST(0), 0);
    bool    ret = data_behind(form);

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


/* form_driver */

XS(XS_Curses_form_driver)
{
    dXSARGS;
#ifdef C_FORM_DRIVER
    c_exactargs("form_driver", items, 2);
    {
    FORM *  form    = c_sv2form(ST(0), 0);
    int c   = (int)SvIV(ST(1));
    int ret = form_driver(form, c);

    ST(0) = sv_newmortal();
    sv_setiv(ST(0), (IV)ret);