diff options
author | Michael Gran <spk121@yahoo.com> | 2009-08-21 09:18:30 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-08-21 09:18:30 -0700 |
commit | 3f47e5262103a01476c9df5275d23f4364cb4266 (patch) | |
tree | 22abfddc366e52ff288cc923da62972346ae6c12 /libguile/numbers.h | |
parent | e23106d53eb03d7cb4962282396269176ea7482e (diff) | |
download | guile-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.h | 1 |
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); |