summaryrefslogtreecommitdiff
path: root/libguile/numbers.h
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-21 09:18:30 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-21 09:18:30 -0700
commit3f47e5262103a01476c9df5275d23f4364cb4266 (patch)
tree22abfddc366e52ff288cc923da62972346ae6c12 /libguile/numbers.h
parente23106d53eb03d7cb4962282396269176ea7482e (diff)
downloadguile-3f47e5262103a01476c9df5275d23f4364cb4266.tar.gz
Use string accessors for string->number conversion
* libguile/numbers.c (scm_i_print_fraction): use string accessors (XDIGIT2UINT): use libunistring function (mem2uinteger, mem2integer, mem2decimal_from_point, mem2ureal) (mem2complex): take scheme string instead of c string; use accessors (scm_i_string_to_number): new function (scm_c_locale_string_to_number): use scm_i_string_to_number * libguile/numbers.h: declaration for scm_i_string_to_number * libguile/strings.c (scm_i_string_strcmp): new function * libguile/strings.h: declaration for scm_i_string_strcmp
Diffstat (limited to 'libguile/numbers.h')
-rw-r--r--libguile/numbers.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/numbers.h b/libguile/numbers.h
index bb72d7ac8..eaa57287a 100644
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -212,6 +212,7 @@ SCM_API int scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate);
SCM_API int scm_bigprint (SCM exp, SCM port, scm_print_state *pstate);
SCM_API SCM scm_c_locale_stringn_to_number (const char *mem, size_t len,
unsigned int radix);
+SCM_INTERNAL SCM scm_i_string_to_number (SCM str, unsigned int radix);
SCM_API SCM scm_string_to_number (SCM str, SCM radix);
SCM_API SCM scm_bigequal (SCM x, SCM y);
SCM_API SCM scm_real_equalp (SCM x, SCM y);