view release on metacpan or  search on metacpan

CursesFun.c  view on Meta::CPAN

#else
    c_fun_not_there("nl");
    XSRETURN(0);
#endif
}

#else
XS(XS_Curses_nl)
{
    dXSARGS;
#ifdef C_NL
    c_exactargs("nl", items, 0);
    {
    nl();
    }
    XSRETURN(0);
#else
    c_fun_not_there("nl");
    XSRETURN(0);
#endif
}

#endif
#ifdef C_INTNONL
XS(XS_Curses_nonl)
{
    dXSARGS;
#ifdef C_NONL
    c_exactargs("nonl", items, 0);
    {
    int ret = nonl();

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

#else
XS(XS_Curses_nonl)
{
    dXSARGS;
#ifdef C_NONL
    c_exactargs("nonl", items, 0);
    {
    nonl();
    }
    XSRETURN(0);
#else
    c_fun_not_there("nonl");
    XSRETURN(0);
#endif
}

#endif

/* curs_overlay */

XS(XS_Curses_overlay)
{
    dXSARGS;
#ifdef C_OVERLAY
    c_exactargs("overlay", items, 2);
    {
    WINDOW *srcwin  = c_sv2window(ST(0), 0);
    WINDOW *dstwin  = c_sv2window(ST(1), 1);
    int ret = overlay(srcwin, dstwin);

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

XS(XS_Curses_overwrite)
{
    dXSARGS;
#ifdef C_OVERWRITE
    c_exactargs("overwrite", items, 2);
    {
    WINDOW *srcwin  = c_sv2window(ST(0), 0);
    WINDOW *dstwin  = c_sv2window(ST(1), 1);
    int ret = overwrite(srcwin, dstwin);

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

XS(XS_Curses_copywin)
{
    dXSARGS;
#ifdef C_COPYWIN
    c_exactargs("copywin", items, 9);
    {
    WINDOW *srcwin  = c_sv2window(ST(0), 0);
    WINDOW *dstwin  = c_sv2window(ST(1), 1);
    int sminrow = (int)SvIV(ST(2));
    int smincol = (int)SvIV(ST(3));
    int dminrow = (int)SvIV(ST(4));
    int dmincol = (int)SvIV(ST(5));
    int dmaxrow = (int)SvIV(ST(6));
    int dmaxcol = (int)SvIV(ST(7));
    int overlay = (int)SvIV(ST(8));
    int ret = copywin(srcwin, dstwin, sminrow, smincol, dminrow, dmincol, dmaxrow, dmaxcol, overlay);

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


/* curs_pad */

XS(XS_Curses_newpad)
{
    dXSARGS;
#ifdef C_NEWPAD
    c_exactargs("newpad", items, 2);
    {
    int lines_  = (int)SvIV(ST(0));
    int cols    = (int)SvIV(ST(1));
    WINDOW *    ret = newpad(lines_, cols);

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

XS(XS_Curses_subpad)
{
    dXSARGS;
#ifdef C_SUBPAD
    c_exactargs("subpad", items, 5);
    {
    WINDOW *orig    = c_sv2window(ST(0), 0);
    int lines_  = (int)SvIV(ST(1));
    int cols    = (int)SvIV(ST(2));
    int beginy  = (int)SvIV(ST(3));
    int beginx  = (int)SvIV(ST(4));
    WINDOW *    ret = subpad(orig, lines_, cols, beginy, beginx);

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

XS(XS_Curses_prefresh)
{
    dXSARGS;