diff options
Diffstat (limited to 'libguile/numbers.h')
-rw-r--r-- | libguile/numbers.h | 188 |
1 files changed, 94 insertions, 94 deletions
diff --git a/libguile/numbers.h b/libguile/numbers.h index f09c1cba5..cfc2ba80d 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -246,99 +246,99 @@ typedef struct scm_dbl -extern SCM scm_exact_p SCM_P ((SCM x)); -extern SCM scm_odd_p SCM_P ((SCM n)); -extern SCM scm_even_p SCM_P ((SCM n)); -extern SCM scm_abs SCM_P ((SCM x)); -extern SCM scm_quotient SCM_P ((SCM x, SCM y)); -extern SCM scm_remainder SCM_P ((SCM x, SCM y)); -extern SCM scm_modulo SCM_P ((SCM x, SCM y)); -extern SCM scm_gcd SCM_P ((SCM x, SCM y)); -extern SCM scm_lcm SCM_P ((SCM n1, SCM n2)); -extern SCM scm_logand SCM_P ((SCM n1, SCM n2)); -extern SCM scm_logior SCM_P ((SCM n1, SCM n2)); -extern SCM scm_logxor SCM_P ((SCM n1, SCM n2)); -extern SCM scm_logtest SCM_P ((SCM n1, SCM n2)); -extern SCM scm_logbit_p SCM_P ((SCM n1, SCM n2)); -extern SCM scm_lognot SCM_P ((SCM n)); -extern SCM scm_integer_expt SCM_P ((SCM z1, SCM z2)); -extern SCM scm_ash SCM_P ((SCM n, SCM cnt)); -extern SCM scm_bit_extract SCM_P ((SCM n, SCM start, SCM end)); -extern SCM scm_logcount SCM_P ((SCM n)); -extern SCM scm_integer_length SCM_P ((SCM n)); -extern SCM scm_mkbig SCM_P ((scm_sizet nlen, int sign)); -extern SCM scm_big2inum SCM_P ((SCM b, scm_sizet l)); -extern SCM scm_adjbig SCM_P ((SCM b, scm_sizet nlen)); -extern SCM scm_normbig SCM_P ((SCM b)); -extern SCM scm_copybig SCM_P ((SCM b, int sign)); -extern SCM scm_long2big SCM_P ((long n)); -extern SCM scm_long_long2big SCM_P ((long_long n)); -extern SCM scm_2ulong2big SCM_P ((unsigned long * np)); -extern SCM scm_ulong2big SCM_P ((unsigned long n)); -extern int scm_bigcomp SCM_P ((SCM x, SCM y)); -extern long scm_pseudolong SCM_P ((long x)); -extern void scm_longdigs SCM_P ((long x, SCM_BIGDIG digs[])); -extern SCM scm_addbig SCM_P ((SCM_BIGDIG *x, scm_sizet nx, int xsgn, SCM bigy, int sgny)); -extern SCM scm_mulbig SCM_P ((SCM_BIGDIG *x, scm_sizet nx, SCM_BIGDIG *y, scm_sizet ny, int sgn)); -extern unsigned int scm_divbigdig SCM_P ((SCM_BIGDIG *ds, scm_sizet h, SCM_BIGDIG div)); -extern SCM scm_divbigint SCM_P ((SCM x, long z, int sgn, int mode)); -extern SCM scm_divbigbig SCM_P ((SCM_BIGDIG *x, scm_sizet nx, SCM_BIGDIG *y, scm_sizet ny, int sgn, int modes)); -extern scm_sizet scm_iint2str SCM_P ((long num, int rad, char *p)); -extern SCM scm_number_to_string SCM_P ((SCM x, SCM radix)); -extern int scm_floprint SCM_P ((SCM sexp, SCM port, scm_print_state *pstate)); -extern int scm_bigprint SCM_P ((SCM exp, SCM port, scm_print_state *pstate)); -extern SCM scm_istr2int SCM_P ((char *str, long len, long radix)); -extern SCM scm_istr2flo SCM_P ((char *str, long len, long radix)); -extern SCM scm_istring2number SCM_P ((char *str, long len, long radix)); -extern SCM scm_string_to_number SCM_P ((SCM str, SCM radix)); -extern SCM scm_makdbl SCM_P ((double x, double y)); -extern SCM scm_bigequal SCM_P ((SCM x, SCM y)); -extern SCM scm_floequal SCM_P ((SCM x, SCM y)); -extern SCM scm_number_p SCM_P ((SCM x)); -extern SCM scm_real_p SCM_P ((SCM x)); -extern SCM scm_integer_p SCM_P ((SCM x)); -extern SCM scm_inexact_p SCM_P ((SCM x)); -extern SCM scm_num_eq_p SCM_P ((SCM x, SCM y)); -extern SCM scm_less_p SCM_P ((SCM x, SCM y)); -extern SCM scm_gr_p SCM_P ((SCM x, SCM y)); -extern SCM scm_leq_p SCM_P ((SCM x, SCM y)); -extern SCM scm_geq_p SCM_P ((SCM x, SCM y)); -extern SCM scm_zero_p SCM_P ((SCM z)); -extern SCM scm_positive_p SCM_P ((SCM x)); -extern SCM scm_negative_p SCM_P ((SCM x)); -extern SCM scm_max SCM_P ((SCM x, SCM y)); -extern SCM scm_min SCM_P ((SCM x, SCM y)); -extern SCM scm_sum SCM_P ((SCM x, SCM y)); -extern SCM scm_difference SCM_P ((SCM x, SCM y)); -extern SCM scm_product SCM_P ((SCM x, SCM y)); -extern double scm_num2dbl SCM_P ((SCM a, const char * why)); -extern SCM scm_divide SCM_P ((SCM x, SCM y)); -extern double scm_asinh SCM_P ((double x)); -extern double scm_acosh SCM_P ((double x)); -extern double scm_atanh SCM_P ((double x)); -extern double scm_truncate SCM_P ((double x)); -extern double scm_round SCM_P ((double x)); -extern double scm_exact_to_inexact SCM_P ((double z)); -extern SCM scm_sys_expt SCM_P ((SCM z1, SCM z2)); -extern SCM scm_sys_atan2 SCM_P ((SCM z1, SCM z2)); -extern SCM scm_make_rectangular SCM_P ((SCM z1, SCM z2)); -extern SCM scm_make_polar SCM_P ((SCM z1, SCM z2)); -extern SCM scm_real_part SCM_P ((SCM z)); -extern SCM scm_imag_part SCM_P ((SCM z)); -extern SCM scm_magnitude SCM_P ((SCM z)); -extern SCM scm_angle SCM_P ((SCM z)); -extern SCM scm_inexact_to_exact SCM_P ((SCM z)); -extern SCM scm_trunc SCM_P ((SCM x)); -extern SCM scm_dbl2big SCM_P ((double d)); -extern double scm_big2dbl SCM_P ((SCM b)); -extern SCM scm_long2num SCM_P ((long sl)); -extern SCM scm_long_long2num SCM_P ((long_long sl)); -extern SCM scm_ulong2num SCM_P ((unsigned long sl)); -extern long scm_num2long SCM_P ((SCM num, char *pos, const char *s_caller)); -extern long_long scm_num2long_long SCM_P ((SCM num, char *pos, - const char *s_caller)); -extern unsigned long scm_num2ulong SCM_P ((SCM num, char *pos, - const char *s_caller)); -extern void scm_init_numbers SCM_P ((void)); +extern SCM scm_exact_p (SCM x); +extern SCM scm_odd_p (SCM n); +extern SCM scm_even_p (SCM n); +extern SCM scm_abs (SCM x); +extern SCM scm_quotient (SCM x, SCM y); +extern SCM scm_remainder (SCM x, SCM y); +extern SCM scm_modulo (SCM x, SCM y); +extern SCM scm_gcd (SCM x, SCM y); +extern SCM scm_lcm (SCM n1, SCM n2); +extern SCM scm_logand (SCM n1, SCM n2); +extern SCM scm_logior (SCM n1, SCM n2); +extern SCM scm_logxor (SCM n1, SCM n2); +extern SCM scm_logtest (SCM n1, SCM n2); +extern SCM scm_logbit_p (SCM n1, SCM n2); +extern SCM scm_lognot (SCM n); +extern SCM scm_integer_expt (SCM z1, SCM z2); +extern SCM scm_ash (SCM n, SCM cnt); +extern SCM scm_bit_extract (SCM n, SCM start, SCM end); +extern SCM scm_logcount (SCM n); +extern SCM scm_integer_length (SCM n); +extern SCM scm_mkbig (scm_sizet nlen, int sign); +extern SCM scm_big2inum (SCM b, scm_sizet l); +extern SCM scm_adjbig (SCM b, scm_sizet nlen); +extern SCM scm_normbig (SCM b); +extern SCM scm_copybig (SCM b, int sign); +extern SCM scm_long2big (long n); +extern SCM scm_long_long2big (long_long n); +extern SCM scm_2ulong2big (unsigned long * np); +extern SCM scm_ulong2big (unsigned long n); +extern int scm_bigcomp (SCM x, SCM y); +extern long scm_pseudolong (long x); +extern void scm_longdigs (long x, SCM_BIGDIG digs[]); +extern SCM scm_addbig (SCM_BIGDIG *x, scm_sizet nx, int xsgn, SCM bigy, int sgny); +extern SCM scm_mulbig (SCM_BIGDIG *x, scm_sizet nx, SCM_BIGDIG *y, scm_sizet ny, int sgn); +extern unsigned int scm_divbigdig (SCM_BIGDIG *ds, scm_sizet h, SCM_BIGDIG div); +extern SCM scm_divbigint (SCM x, long z, int sgn, int mode); +extern SCM scm_divbigbig (SCM_BIGDIG *x, scm_sizet nx, SCM_BIGDIG *y, scm_sizet ny, int sgn, int modes); +extern scm_sizet scm_iint2str (long num, int rad, char *p); +extern SCM scm_number_to_string (SCM x, SCM radix); +extern int scm_floprint (SCM sexp, SCM port, scm_print_state *pstate); +extern int scm_bigprint (SCM exp, SCM port, scm_print_state *pstate); +extern SCM scm_istr2int (char *str, long len, long radix); +extern SCM scm_istr2flo (char *str, long len, long radix); +extern SCM scm_istring2number (char *str, long len, long radix); +extern SCM scm_string_to_number (SCM str, SCM radix); +extern SCM scm_makdbl (double x, double y); +extern SCM scm_bigequal (SCM x, SCM y); +extern SCM scm_floequal (SCM x, SCM y); +extern SCM scm_number_p (SCM x); +extern SCM scm_real_p (SCM x); +extern SCM scm_integer_p (SCM x); +extern SCM scm_inexact_p (SCM x); +extern SCM scm_num_eq_p (SCM x, SCM y); +extern SCM scm_less_p (SCM x, SCM y); +extern SCM scm_gr_p (SCM x, SCM y); +extern SCM scm_leq_p (SCM x, SCM y); +extern SCM scm_geq_p (SCM x, SCM y); +extern SCM scm_zero_p (SCM z); +extern SCM scm_positive_p (SCM x); +extern SCM scm_negative_p (SCM x); +extern SCM scm_max (SCM x, SCM y); +extern SCM scm_min (SCM x, SCM y); +extern SCM scm_sum (SCM x, SCM y); +extern SCM scm_difference (SCM x, SCM y); +extern SCM scm_product (SCM x, SCM y); +extern double scm_num2dbl (SCM a, const char * why); +extern SCM scm_divide (SCM x, SCM y); +extern double scm_asinh (double x); +extern double scm_acosh (double x); +extern double scm_atanh (double x); +extern double scm_truncate (double x); +extern double scm_round (double x); +extern double scm_exact_to_inexact (double z); +extern SCM scm_sys_expt (SCM z1, SCM z2); +extern SCM scm_sys_atan2 (SCM z1, SCM z2); +extern SCM scm_make_rectangular (SCM z1, SCM z2); +extern SCM scm_make_polar (SCM z1, SCM z2); +extern SCM scm_real_part (SCM z); +extern SCM scm_imag_part (SCM z); +extern SCM scm_magnitude (SCM z); +extern SCM scm_angle (SCM z); +extern SCM scm_inexact_to_exact (SCM z); +extern SCM scm_trunc (SCM x); +extern SCM scm_dbl2big (double d); +extern double scm_big2dbl (SCM b); +extern SCM scm_long2num (long sl); +extern SCM scm_long_long2num (long_long sl); +extern SCM scm_ulong2num (unsigned long sl); +extern long scm_num2long (SCM num, char *pos, const char *s_caller); +extern long_long scm_num2long_long (SCM num, char *pos, + const char *s_caller); +extern unsigned long scm_num2ulong (SCM num, char *pos, + const char *s_caller); +extern void scm_init_numbers (void); #endif /* NUMBERSH */ |