static VALUE rb_gsl_spline_info(VALUE obj)
{
rb_gsl_spline *p = NULL;
char buf[256];
Data_Get_Struct(obj, rb_gsl_spline, p);
sprintf(buf, "Class: %s\n", rb_class2name(CLASS_OF(obj)));
sprintf(buf, "%sSuperClass: %s\n", buf, rb_class2name(RCLASS_SUPER(RCLASS_SUPER(obj))));
sprintf(buf, "%sType: %s\n", buf, gsl_interp_name(p->s->interp));
sprintf(buf, "%sxmin: %f\n", buf, p->s->interp->xmin);
sprintf(buf, "%sxmax: %f\n", buf, p->s->interp->xmax);
sprintf(buf, "%sSize: %d\n", buf, (int) p->s->size);
return rb_str_new2(buf);
}
static VALUE rb_gsl_interp_info(VALUE obj)
{
rb_gsl_interp *p;
char buf[256];
Data_Get_Struct(obj, rb_gsl_interp, p);
sprintf(buf, "Class: %s\n", rb_class2name(CLASS_OF(obj)));
#ifdef RUBY_1_9_LATER
sprintf(buf, "%sSuperClass: %s\n", buf, rb_class2name(RCLASS_SUPER(CLASS_OF(obj))));
#else
sprintf(buf, "%sSuperClass: %s\n", buf, rb_class2name(RCLASS(CLASS_OF(obj))->super));
#endif
sprintf(buf, "%sType: %s\n", buf, gsl_interp_name(p->p));
sprintf(buf, "%sxmin: %f\n", buf, p->p->xmin);
sprintf(buf, "%sxmax: %f\n", buf, p->p->xmax);
sprintf(buf, "%sSize: %d\n", buf, (int) p->p->size);
return rb_str_new2(buf);
}
static VALUE rb_gsl_interp_name(VALUE obj)
{
rb_gsl_interp *rgi = NULL;
Data_Get_Struct(obj, rb_gsl_interp, rgi);
return rb_str_new2(gsl_interp_name(rgi->p));
}
const char *
gsl_spline_name(const gsl_spline * spline)
{
return gsl_interp_name(spline->interp);
}
static VALUE rb_gsl_spline_name(VALUE obj)
{
rb_gsl_spline *sp = NULL;
Data_Get_Struct(obj, rb_gsl_spline, sp);
return rb_str_new2(gsl_interp_name(sp->s->interp));
}
