summaryrefslogtreecommitdiff
path: root/libguile/numbers.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/numbers.h')
-rw-r--r--libguile/numbers.h188
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 */