diff options
author | Michael Gran <spk121@yahoo.com> | 2009-07-27 21:02:23 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-07-27 21:02:23 -0700 |
commit | 77332b21a01fac906ae4707426e00f01e62c0415 (patch) | |
tree | b9504a012ee512354b12824cb8cbbeef25b7e1e1 /libguile/chars.h | |
parent | e5dc27b86d0eaa470f92cdaa9f4ed2a961338c49 (diff) | |
download | guile-77332b21a01fac906ae4707426e00f01e62c0415.tar.gz |
Replace global charnames variables with accessors
The global variables scm_charnames and scm_charnums are replaced with
the accessor functions scm_i_charname and scm_i_charname_to_num.
Also, the incomplete and broken EBCDIC support is removed.
* libguile/print.c (iprin1): use new func scm_i_charname
* libguile/read.c (scm_read_character): use new func
scm_i_charname_to_num
* libguile/chars.c (scm_i_charname): new function
(scm_i_charname_to_char): new function
(scm_charnames, scm_charnums): removed
* libguile/chars.h: new declarations
Diffstat (limited to 'libguile/chars.h')
-rw-r--r-- | libguile/chars.h | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/libguile/chars.h b/libguile/chars.h index 88dde4bd9..5bceea533 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -34,12 +34,6 @@ -SCM_API char *const scm_charnames[]; -SCM_API int scm_n_charnames; -SCM_API const char scm_charnums[]; - - - SCM_API SCM scm_char_p (SCM x); SCM_API SCM scm_char_eq_p (SCM x, SCM y); SCM_API SCM scm_char_less_p (SCM x, SCM y); @@ -63,6 +57,9 @@ SCM_API SCM scm_char_upcase (SCM chr); SCM_API SCM scm_char_downcase (SCM chr); SCM_API int scm_c_upcase (unsigned int c); SCM_API int scm_c_downcase (unsigned int c); +SCM_INTERNAL const char * scm_i_charname (SCM chr); +SCM_INTERNAL SCM scm_i_charname_to_char (const char *charname, + size_t charname_len); SCM_INTERNAL void scm_init_chars (void); #endif /* SCM_CHARS_H */ |