Home
last modified time | relevance | path

Searched refs:sexp_make_flonum (Results 1 – 10 of 10) sorted by relevance

/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/
H A Dtime.c78 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 Dbignum.c743 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 Dsexp.c142 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 Deval.c1526 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 Dvm.c1753 _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 Duvprims.stub97 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 Dapply-loop.c12 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 Djson.c69 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 Dsexp.h806 #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 Drand.c110 return sexp_make_flonum(ctx, (double)res / (double)RAND_MAX); in sexp_rs_random_real()