/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/ |
H A D | time.c | 78 car = sexp_make_flonum(ctx, second); in sexp_current_ntp_clock_values() 98 return sexp_make_flonum(ctx, ((double)t / (10 * 1000 * 1000))); in sexp_current_clock_second() 104 return sexp_make_flonum(ctx, tv.tv_sec + tv.tv_usec / 1000000.0); in sexp_current_clock_second() 107 return sexp_make_flonum(ctx, res); in sexp_current_clock_second()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/ |
H A D | bignum.c | 743 res = sexp_make_flonum(ctx, sexp_bignum_to_double(a)); in sexp_bignum_sqrt() 1074 sexp_complex_real(res) = sexp_make_flonum(ctx, e2x*cos(y)); in sexp_complex_exp() 1075 sexp_complex_imag(res) = sexp_make_flonum(ctx, e2x*sin(y)); in sexp_complex_exp() 1087 sexp_complex_imag(res) = sexp_make_flonum(ctx, atan2(y, x)); in sexp_complex_log() 1112 sexp_complex_real(res) = sexp_make_flonum(ctx, sqrt((x+r)/2)); in sexp_complex_sqrt() 1124 sexp_complex_real(res) = sexp_make_flonum(ctx, sin(x)*cosh(y)); in sexp_complex_sin() 1125 sexp_complex_imag(res) = sexp_make_flonum(ctx, cos(x)*sinh(y)); in sexp_complex_sin() 1175 sexp_complex_real(tmp) = sexp_make_flonum(ctx, acos(-1)/2); in sexp_complex_acos() 1194 sexp_complex_imag(tmp1) = sexp_make_flonum(ctx, 0.5); in sexp_complex_atan() 1603 : sexp_make_flonum(ctx, f)); in sexp_div() [all …]
|
H A D | sexp.c | 142 f = sexp_make_flonum(ctx, 0.0f); in sexp_write_uvector() 1131 sexp sexp_make_flonum (sexp ctx, double f) { in sexp_make_flonum() function 1144 sexp sexp_make_flonum (sexp ctx, float f) { in sexp_make_flonum() function 2760 res = sexp_make_flonum(ctx, val); in sexp_read_float_tail() 2892 return sexp_make_flonum(ctx, (negativep ? -whole : whole)); in sexp_read_number() 2964 res = sexp_make_flonum(ctx, (double)(negativep ? -val : val) in sexp_read_number() 2992 return inexactp ? sexp_make_flonum(ctx, negativep ? -val : val) in sexp_read_number() 3338 res = sexp_make_flonum(ctx, sexp_unbox_fixnum(res)); in sexp_read_raw() 3645 res = sexp_make_flonum(ctx, sexp_pos_infinity); in sexp_read_raw() 3647 res = sexp_make_flonum(ctx, sexp_neg_infinity); in sexp_read_raw() [all …]
|
H A D | eval.c | 1526 return sexp_make_flonum(ctx, cname(d)); \ 1545 return sexp_make_flonum(ctx, cname(d)); \ 1571 return sexp_make_flonum(ctx, cname(sexp_flonum_value(z))); \ 1607 tmp = sexp_make_flonum(ctx, d); in define_math_rounder() 1614 return sexp_make_flonum(ctx, log(d)); in define_math_rounder() 1643 res = sexp_make_flonum(ctx, r); in sexp_inexact_sqrt() 1740 res = sexp_make_flonum(ctx, pow(0, 0)); /* +nan.0 */ in sexp_expt_op() 1746 res = sexp_make_flonum(ctx, pow(10.0, 1e100)); /* +inf.0 */ in sexp_expt_op() 1787 res = sexp_make_flonum(ctx, f); in sexp_expt_op() 1830 res = sexp_make_flonum(ctx, sexp_bignum_to_double(i)); in sexp_exact_to_inexact() [all …]
|
H A D | vm.c | 1753 _ARG1 = sexp_make_flonum(ctx, sexp_flonum_value(tmp1) + (double)sexp_unbox_fixnum(tmp2)); in sexp_apply() 1755 _ARG1 = sexp_make_flonum(ctx, (double)sexp_unbox_fixnum(tmp1) + sexp_flonum_value(tmp2)); in sexp_apply() 1782 _ARG1 = sexp_make_flonum(ctx, sexp_flonum_value(tmp1) - sexp_fixnum_to_double(tmp2)); in sexp_apply() 1784 …_ARG1 = sexp_make_flonum(ctx, tmp1==SEXP_ZERO ? -sexp_flonum_value(tmp2) : sexp_fixnum_to_double(t… in sexp_apply() 1811 _ARG1 = sexp_make_flonum(ctx, sexp_flonum_value(tmp1) * (double)sexp_unbox_fixnum(tmp2)); in sexp_apply() 1813 _ARG1 = sexp_make_flonum(ctx, (double)sexp_unbox_fixnum(tmp1) * sexp_flonum_value(tmp2)); in sexp_apply() 1824 _ARG1 = sexp_make_flonum(ctx, 0.0); in sexp_apply() 1854 _ARG1 = sexp_make_flonum(ctx, sexp_flonum_value(tmp1) / (double)sexp_unbox_fixnum(tmp2)); in sexp_apply() 1856 _ARG1 = sexp_make_flonum(ctx, (double)sexp_unbox_fixnum(tmp1) / sexp_flonum_value(tmp2)); in sexp_apply()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/160/ |
H A D | uvprims.stub | 97 real = sexp_make_flonum(ctx, uv[i*2]); 98 imag = sexp_make_flonum(ctx, uv[i*2 + 1]); 111 real = sexp_make_flonum(ctx, uv[i*2]); 112 imag = sexp_make_flonum(ctx, uv[i*2 + 1]);
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/tests/foreign/ |
H A D | apply-loop.c | 12 tmp = sexp_make_flonum(ctx, 3.14); in sexp_apply_times_to_pi()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/ |
H A D | json.c | 69 sexp_make_flonum(ctx, sign * res) : in json_read_number() 454 res = sexp_make_flonum(ctx, sexp_bignum_to_double(obj)); in json_write()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/include/chibi/ |
H A D | sexp.h | 806 #define sexp_flonum_value_set(f, x) (f = sexp_make_flonum(NULL, x)) 808 SEXP_API sexp sexp_make_flonum(sexp ctx, float f); 810 #define sexp_make_flonum(ctx, x) ((sexp) ((((union sexp_flonum_conv)((float)(x))).bits & ~SEXP_EXT… macro 818 SEXP_API sexp sexp_make_flonum(sexp ctx, double f); 1019 #define sexp_fixnum_to_flonum(ctx, x) (sexp_make_flonum(ctx, sexp_unbox_fixnum(x))) 1070 #define sexp_negate_flonum(x) (x) = sexp_make_flonum(NULL, -(sexp_flonum_value(x))) 1516 #define sexp_fp_add(x,a,b) (sexp_make_flonum(x, sexp_flonum_value(a) + sexp_flonum_value(b))) 1517 #define sexp_fp_sub(x,a,b) (sexp_make_flonum(x, sexp_flonum_value(a) - sexp_flonum_value(b))) 1518 #define sexp_fp_mul(x,a,b) (sexp_make_flonum(x, sexp_flonum_value(a) * sexp_flonum_value(b))) 1519 #define sexp_fp_div(x,a,b) (sexp_make_flonum(x, sexp_flonum_value(a) / sexp_flonum_value(b)))
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/27/ |
H A D | rand.c | 110 return sexp_make_flonum(ctx, (double)res / (double)RAND_MAX); in sexp_rs_random_real()
|