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/strings.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/strings.h')
-rw-r--r-- | libguile/strings.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/strings.h b/libguile/strings.h index 390b4f6a8..d0cbb8dd3 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -152,6 +152,7 @@ SCM_INTERNAL SCM scm_i_string_start_writing (SCM str); SCM_INTERNAL void scm_i_string_stop_writing (void); SCM_INTERNAL int scm_i_is_narrow_string (SCM str); SCM_INTERNAL scm_t_wchar scm_i_string_ref (SCM str, size_t x); +SCM_INTERNAL int scm_i_string_strcmp (SCM sstr, size_t start_x, const char *cstr); SCM_INTERNAL void scm_i_string_set_x (SCM str, size_t p, scm_t_wchar chr); /* internal functions related to symbols. */ |