g2_wrap.c

ViennaRNA-1.6.1

XS(_wrap_g2_open_PS) {
    char *arg1 ;
    int arg2 ;
    int arg3 ;
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_open_PS(file_name,paper,orientation);");
    }
    if (!SvOK((SV*) ST(0))) arg1 = 0;
    else arg1 = (char *) SvPV(ST(0), PL_na);
    arg2 = (int) SvIV(ST(1));
    arg3 = (int) SvIV(ST(2));
    result = (int)g2_open_PS((char const *)arg1,(enum g2_PS_paper)arg2,(enum g2_PS_orientation)arg3);
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_open_EPSF) {
    char *arg1 ;
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_open_EPSF(file_name);");
    }
    if (!SvOK((SV*) ST(0))) arg1 = 0;
    else arg1 = (char *) SvPV(ST(0), PL_na);
    result = (int)g2_open_EPSF((char const *)arg1);
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_open_EPSF_CLIP) {
    char *arg1 ;
    long arg2 ;
    long arg3 ;
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_open_EPSF_CLIP(file_name,width,height);");
    }
    if (!SvOK((SV*) ST(0))) arg1 = 0;
    else arg1 = (char *) SvPV(ST(0), PL_na);
    arg2 = (long) SvIV(ST(1));
    arg3 = (long) SvIV(ST(2));
    result = (int)g2_open_EPSF_CLIP((char const *)arg1,arg2,arg3);
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_open_gd) {
    char *arg1 ;
    int arg2 ;
    int arg3 ;
    int arg4 ;
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 4) || (items > 4)) {
        croak("Usage: g2_open_gd(filename,width,height,gd_type);");
    }
    if (!SvOK((SV*) ST(0))) arg1 = 0;
    else arg1 = (char *) SvPV(ST(0), PL_na);
    arg2 = (int) SvIV(ST(1));
    arg3 = (int) SvIV(ST(2));
    arg4 = (int) SvIV(ST(3));
    result = (int)g2_open_gd((char const *)arg1,arg2,arg3,(enum g2_gd_type)arg4);
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_open_win32) {
    int arg1 ;
    int arg2 ;
    char *arg3 ;
    int arg4 ;
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 4) || (items > 4)) {
        croak("Usage: g2_open_win32(width,height,filename,type);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    if (!SvOK((SV*) ST(2))) arg3 = 0;
    else arg3 = (char *) SvPV(ST(2), PL_na);
    arg4 = (int) SvIV(ST(3));
    result = (int)g2_open_win32(arg1,arg2,(char const *)arg3,arg4);
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_open_vd) {
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 0) || (items > 0)) {
        croak("Usage: g2_open_vd();");
    }
    result = (int)g2_open_vd();
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_attach) {
    int arg1 ;
    int arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_attach(vd_dev,dev);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    g2_attach(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_detach) {
    int arg1 ;
    int arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_detach(vd_dev,dev);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    g2_detach(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_close) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_close(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_close(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_auto_flush) {
    int arg1 ;
    int arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_set_auto_flush(dev,on_off);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    g2_set_auto_flush(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_flush) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_flush(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_flush(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_save) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_save(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_save(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_coordinate_system) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 5) || (items > 5)) {
        croak("Usage: g2_set_coordinate_system(dev,x_origin,y_origin,x_mul,y_mul);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    arg4 = (double) SvNV(ST(3));
    
    arg5 = (double) SvNV(ST(4));
    
    g2_set_coordinate_system(arg1,arg2,arg3,arg4,arg5);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_ld) {
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 0) || (items > 0)) {
        croak("Usage: g2_ld();");
    }
    result = (int)g2_ld();
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_set_ld) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_set_ld(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_set_ld(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_ink) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    int result;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 4) || (items > 4)) {
        croak("Usage: g2_ink(pd_dev,red,green,blue);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    arg4 = (double) SvNV(ST(3));
    
    result = (int)g2_ink(arg1,arg2,arg3,arg4);
    
    ST(argvi) = sv_newmortal();
    sv_setiv(ST(argvi++), (IV) result);
    XSRETURN(argvi);
}


XS(_wrap_g2_pen) {
    int arg1 ;
    int arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_pen(dev,color);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    g2_pen(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_dash) {
    int arg1 ;
    int arg2 ;
    double *arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_set_dash(dev,N,dashes);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    {
        if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_double,0) < 0) {
            croak("Type error in argument 3 of g2_set_dash. Expected %s", SWIGTYPE_p_double->name);
        }
    }
    g2_set_dash(arg1,arg2,arg3);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_font_size) {
    int arg1 ;
    double arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_set_font_size(dev,size);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    g2_set_font_size(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_line_width) {
    int arg1 ;
    double arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_set_line_width(dev,w);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    g2_set_line_width(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_clear_palette) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_clear_palette(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_clear_palette(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_reset_palette) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_reset_palette(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_reset_palette(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_allocate_basic_colors) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_allocate_basic_colors(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_allocate_basic_colors(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_clear) {
    int arg1 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 1) || (items > 1)) {
        croak("Usage: g2_clear(dev);");
    }
    arg1 = (int) SvIV(ST(0));
    g2_clear(arg1);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_background) {
    int arg1 ;
    int arg2 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 2) || (items > 2)) {
        croak("Usage: g2_set_background(dev,color);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (int) SvIV(ST(1));
    g2_set_background(arg1,arg2);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_move) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_move(dev,x,y);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    g2_move(arg1,arg2,arg3);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_move_r) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_move_r(dev,dx,dy);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    g2_move_r(arg1,arg2,arg3);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_plot) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_plot(dev,x,y);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    g2_plot(arg1,arg2,arg3);