561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
|
# File 'ext/sollya_rb.c', line 561
static VALUE sollyarb_range_to_sollya(VALUE self)
{
VALUE beg = Qnil, end = Qnil;
int exclp;
rb_range_values(self, &beg, &end, &exclp);
beg = rb_funcallv(beg, id_to_mpfr, 0, NULL);
end = rb_funcallv(end, id_to_mpfr, 0, NULL);
mpfr_ptr mpbeg = mpfrrb_rb2ref_ext(beg);
mpfr_ptr mpend = mpfrrb_rb2ref_ext(end);
return sollyarb_ref2rb(sollya_lib_range_from_bounds(mpbeg, mpend), c_SolRange);
beg = rb_funcallv(beg, id_to_sollya, 0, NULL);
end = rb_funcallv(end, id_to_sollya, 0, NULL);
return sollyarb_ref2rb(sollya_lib_range(sollyarb_object_rb2ref(beg), sollyarb_object_rb2ref(end)), c_SolRange);
}
|