Parent Directory | Revision Log | Patch
revision 1.11.2.3 by ossau, Wed Nov 14 00:02:59 2001 UTC | revision 1.11.2.4 by mvo, Mon Mar 11 17:56:39 2002 UTC | |
---|---|---|
# | Line 2106 SCM_DEFINE (scm_string_downcaseS, "strin | Line 2106 SCM_DEFINE (scm_string_downcaseS, "strin |
2106 | static SCM | static SCM |
2107 | string_titlecase_x (SCM str, int start, int end) | string_titlecase_x (SCM str, int start, int end) |
2108 | { | { |
2109 | char * sz; | unsigned char * sz; |
2110 | int i, in_word = 0; | int i, in_word = 0; |
2111 | ||
2112 | sz = SCM_STRING_CHARS (str); | sz = SCM_STRING_UCHARS (str); |
2113 | for(i = start; i < end; i++) | for(i = start; i < end; i++) |
2114 | { | { |
2115 | if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) | if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |