410 |
static SCM |
static SCM |
411 |
string_capitalize_x (SCM str) |
string_capitalize_x (SCM str) |
412 |
{ |
{ |
413 |
char *sz; |
unsigned char *sz; |
414 |
long i, len; |
long i, len; |
415 |
int in_word=0; |
int in_word=0; |
416 |
|
|
417 |
len = SCM_STRING_LENGTH(str); |
len = SCM_STRING_LENGTH(str); |
418 |
sz = SCM_STRING_CHARS (str); |
sz = SCM_STRING_UCHARS (str); |
419 |
for(i=0; i<len; i++) { |
for(i=0; i<len; i++) { |
420 |
if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) { |
if (!SCM_FALSEP (scm_char_alphabetic_p (SCM_MAKE_CHAR (sz[i])))) { |
421 |
if(!in_word) { |
if(!in_word) { |