Searched refs:sexp_flonum_value (Results 1 – 10 of 10) sorted by relevance
/dports/lang/chibi-scheme/chibi-scheme-0.10/ |
H A D | bignum.c | 747 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 D | vm.c | 1784 …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 D | eval.c | 1597 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 D | sexp.c | 1134 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 D | qsort.c | 98 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 D | sexp.h | 805 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 D | accept.c | 29 #define sexp_zerop(x) ((x) == SEXP_ZERO || (sexp_flonump(x) && sexp_flonum_value(x) == 0.0))
|
H A D | json.c | 333 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 D | hash.c | 59 acc ^= (sexp_sint_t) sexp_flonum_value(obj); in hash_one()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/18/ |
H A D | threads.c | 173 d = sexp_flonum_value(timeout); in sexp_insert_timed()
|