g2_wrap.c

ViennaRNA-1.6.1

    XSRETURN(argvi);
}


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


XS(_wrap_g2_line) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 5) || (items > 5)) {
        croak("Usage: g2_line(dev,x1,y1,x2,y2);");
    }
    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_line(arg1,arg2,arg3,arg4,arg5);
    
    
    XSRETURN(argvi);
}


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


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


XS(_wrap_g2_poly_line) {
    int arg1 ;
    int arg2 ;
    double *arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_poly_line(dev,N_pt,points);");
    }
    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_poly_line. Expected %s", SWIGTYPE_p_double->name);
        }
    }
    g2_poly_line(arg1,arg2,arg3);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_triangle) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    double arg6 ;
    double arg7 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 7) || (items > 7)) {
        croak("Usage: g2_triangle(dev,x1,y1,x2,y2,x3,y3);");
    }
    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));
    
    arg6 = (double) SvNV(ST(5));
    
    arg7 = (double) SvNV(ST(6));
    
    g2_triangle(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_filled_triangle) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    double arg6 ;
    double arg7 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 7) || (items > 7)) {
        croak("Usage: g2_filled_triangle(dev,x1,y1,x2,y2,x3,y3);");
    }
    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));
    
    arg6 = (double) SvNV(ST(5));
    
    arg7 = (double) SvNV(ST(6));
    
    g2_filled_triangle(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_rectangle) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 5) || (items > 5)) {
        croak("Usage: g2_rectangle(dev,x1,y1,x2,y2);");
    }
    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_rectangle(arg1,arg2,arg3,arg4,arg5);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_filled_rectangle) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 5) || (items > 5)) {
        croak("Usage: g2_filled_rectangle(dev,x1,y1,x2,y2);");
    }
    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_filled_rectangle(arg1,arg2,arg3,arg4,arg5);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_polygon) {
    int arg1 ;
    int arg2 ;
    double *arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_polygon(dev,N_pt,points);");
    }
    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_polygon. Expected %s", SWIGTYPE_p_double->name);
        }
    }
    g2_polygon(arg1,arg2,arg3);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_filled_polygon) {
    int arg1 ;
    int arg2 ;
    double *arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_filled_polygon(dev,N_pt,points);");
    }
    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_filled_polygon. Expected %s", SWIGTYPE_p_double->name);
        }
    }
    g2_filled_polygon(arg1,arg2,arg3);
    
    
    XSRETURN(argvi);
}


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


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


XS(_wrap_g2_ellipse) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 5) || (items > 5)) {
        croak("Usage: g2_ellipse(dev,x,y,r1,r2);");
    }
    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_ellipse(arg1,arg2,arg3,arg4,arg5);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_filled_ellipse) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 5) || (items > 5)) {
        croak("Usage: g2_filled_ellipse(dev,x,y,r1,r2);");
    }
    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_filled_ellipse(arg1,arg2,arg3,arg4,arg5);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_arc) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    double arg6 ;
    double arg7 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 7) || (items > 7)) {
        croak("Usage: g2_arc(dev,x,y,r1,r2,a1,a2);");
    }
    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));
    
    arg6 = (double) SvNV(ST(5));
    
    arg7 = (double) SvNV(ST(6));
    
    g2_arc(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_filled_arc) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    double arg4 ;
    double arg5 ;
    double arg6 ;
    double arg7 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 7) || (items > 7)) {
        croak("Usage: g2_filled_arc(dev,x,y,r1,r2,a1,a2);");
    }
    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));
    
    arg6 = (double) SvNV(ST(5));
    
    arg7 = (double) SvNV(ST(6));
    
    g2_filled_arc(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_string) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    char *arg4 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 4) || (items > 4)) {
        croak("Usage: g2_string(dev,x,y,text);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    if (!SvOK((SV*) ST(3))) arg4 = 0;
    else arg4 = (char *) SvPV(ST(3), PL_na);
    g2_string(arg1,arg2,arg3,arg4);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_image) {
    int arg1 ;
    double arg2 ;
    double arg3 ;
    int arg4 ;
    int arg5 ;
    int *arg6 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 6) || (items > 6)) {
        croak("Usage: g2_image(dev,x,y,x_size,y_size,pens);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (double) SvNV(ST(2));
    
    arg4 = (int) SvIV(ST(3));
    arg5 = (int) SvIV(ST(4));
    {
        if (SWIG_ConvertPtr(ST(5), (void **) &arg6, SWIGTYPE_p_int,0) < 0) {
            croak("Type error in argument 6 of g2_image. Expected %s", SWIGTYPE_p_int->name);
        }
    }
    g2_image(arg1,arg2,arg3,arg4,arg5,arg6);
    
    
    XSRETURN(argvi);
}


XS(_wrap_g2_set_QP) {
    int arg1 ;
    double arg2 ;
    int arg3 ;
    int argvi = 0;
    dXSARGS;
    
    if ((items < 3) || (items > 3)) {
        croak("Usage: g2_set_QP(dev,d,shape);");
    }
    arg1 = (int) SvIV(ST(0));
    arg2 = (double) SvNV(ST(1));
    
    arg3 = (int) SvIV(ST(2));
    g2_set_QP(arg1,arg2,(enum QPshape)arg3);
    
    
    XSRETURN(argvi);
}