Home
last modified time | relevance | path

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

/dports/lang/chibi-scheme/chibi-scheme-0.10/
H A Dbignum.c747 if (isinf(sexp_flonum_value(res))) in sexp_bignum_sqrt()
955 return sexp_flonum_value(x); in sexp_to_double()
1727 if (sexp_flonum_value(a) != trunc(sexp_flonum_value(a))) { in sexp_quotient()
1751 if (sexp_flonum_value(b) != trunc(sexp_flonum_value(b))) { in sexp_quotient()
1803 sexp_flonum_value(a) != trunc(sexp_flonum_value(a))) { in sexp_remainder()
1830 sexp_flonum_value(b) != trunc(sexp_flonum_value(b))) { in sexp_remainder()
1890 g = sexp_flonum_value(b); in sexp_compare()
1904 f = sexp_flonum_value(a); in sexp_compare()
1905 g = sexp_flonum_value(b); in sexp_compare()
1914 f = sexp_flonum_value(a); in sexp_compare()
[all …]
H A Dvm.c1784 …sexp_make_flonum(ctx, tmp1==SEXP_ZERO ? -sexp_flonum_value(tmp2) : sexp_fixnum_to_double(tmp1)-sex… in sexp_apply()
1823 if (sexp_flonump(tmp1) && sexp_flonum_value(tmp1) == 0.0) in sexp_apply()
1837 if (sexp_flonum_value(_ARG1) == trunc(sexp_flonum_value(_ARG1))) in sexp_apply()
1838 _ARG1 = sexp_make_fixnum(sexp_flonum_value(_ARG1)); in sexp_apply()
1916 i = sexp_flonum_value(tmp1) < sexp_flonum_value(tmp2); in sexp_apply()
1918 i = sexp_flonum_value(tmp1) < (double)sexp_unbox_fixnum(tmp2); in sexp_apply()
1920 i = (double)sexp_unbox_fixnum(tmp1) < sexp_flonum_value(tmp2); in sexp_apply()
1947 i = sexp_flonum_value(tmp1) <= sexp_flonum_value(tmp2);
1968 && sexp_flonum_value(sexp_complex_imag(tmp1)) == 0.0) {
1984 && sexp_flonum_value(sexp_complex_imag(tmp2)) == 0.0) {
[all …]
H A Deval.c1597 d = sexp_flonum_value(z); in define_math_rounder()
1624 d = sexp_flonum_value(z); in sexp_inexact_sqrt()
1754 x1 = sexp_flonum_value(x); in sexp_expt_op()
1769 e1 = sexp_flonum_value(e); in sexp_expt_op()
1857 if (isinf(sexp_flonum_value(z)) || isnan(sexp_flonum_value(z))) { in sexp_inexact_to_exact()
1859 } else if (sexp_flonum_value(z) != trunc(sexp_flonum_value(z))) { in sexp_inexact_to_exact()
1861 res = sexp_double_to_ratio_2(ctx, sexp_flonum_value(z)); in sexp_inexact_to_exact()
1866 } else if ((sexp_flonum_value(z) > SEXP_MAX_FIXNUM) in sexp_inexact_to_exact()
1867 || sexp_flonum_value(z) < SEXP_MIN_FIXNUM) { in sexp_inexact_to_exact()
1868 res = sexp_double_to_bignum(ctx, sexp_flonum_value(z)); in sexp_inexact_to_exact()
[all …]
H A Dsexp.c1134 sexp_flonum_value(x) = f; in sexp_make_flonum()
1139 float sexp_flonum_value (sexp x) { in sexp_flonum_value() function
2168 f = sexp_flonum_value(obj); in sexp_write_one()
2372 f = sexp_flonum_value(obj); in sexp_write_one()
2939 rho = sqrt(sexp_flonum_value(sexp_complex_real(den)) * in sexp_read_number()
2940 sexp_flonum_value(sexp_complex_real(den)) + in sexp_read_number()
2944 sexp_flonum_value(sexp_complex_real(den))); in sexp_read_number()
3317 && (isnan(sexp_flonum_value(res)) || isinf(sexp_flonum_value(res)))) in sexp_read_raw()
3328 res = sexp_double_to_ratio(ctx, sexp_flonum_value(res)); in sexp_read_raw()
3332 res = sexp_make_fixnum(sexp_flonum_value(res)); in sexp_read_raw()
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/95/
H A Dqsort.c98 res = sexp_flonum_value(a) > sexp_flonum_value(b) ? 1 : in sexp_object_compare()
99 sexp_flonum_value(a) < sexp_flonum_value(b) ? -1 : 0; in sexp_object_compare()
/dports/lang/chibi-scheme/chibi-scheme-0.10/include/chibi/
H A Dsexp.h805 SEXP_API float sexp_flonum_value (sexp x);
815 #define sexp_flonum_value(f) ((f)->value.flonum) macro
987 #define sexp_fp_integerp(x) (sexp_flonum_value(x) == trunc(sexp_flonum_value(x)))
1052 (sexp_flonum_value(x) == 0 && \
1072 #define sexp_negate_flonum(x) sexp_flonum_value(x) = -(sexp_flonum_value(x))
1104 #define sexp_infp(x) (sexp_flonump(x) && isinf(sexp_flonum_value(x)))
1110 #define sexp_flonum_eqv(x, y) (sexp_flonum_value(x) == sexp_flonum_value(y))
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)))
[all …]
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/
H A Daccept.c29 #define sexp_zerop(x) ((x) == SEXP_ZERO || (sexp_flonump(x) && sexp_flonum_value(x) == 0.0))
H A Djson.c333 snprintf(cout, sizeof(cout), "%.*G", FLONUM_SIGNIFICANT_DIGITS, sexp_flonum_value(obj)); in json_write_flonum()
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/69/
H A Dhash.c59 acc ^= (sexp_sint_t) sexp_flonum_value(obj); in hash_one()
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/18/
H A Dthreads.c173 d = sexp_flonum_value(timeout); in sexp_insert_timed()