diff options
Diffstat (limited to 'src/ellinika/elmorph.c')
-rw-r--r-- | src/ellinika/elmorph.c | 41 |
1 files changed, 1 insertions, 40 deletions
diff --git a/src/ellinika/elmorph.c b/src/ellinika/elmorph.c index 6d6a69a..56bead3 100644 --- a/src/ellinika/elmorph.c +++ b/src/ellinika/elmorph.c @@ -769,46 +769,6 @@ SCM_DEFINE_PUBLIC(scm_elstr_char_phoneme, "elstr-char-phoneme", } #undef FUNC_NAME -SCM_DEFINE_PUBLIC(scm_utf8_toupper, "utf8-toupper", 1, 0, 0, - (SCM string), -"Convert STRING to uppercase\n") -#define FUNC_NAME s_scm_utf8_toupper -{ - char *str; - SCM scm; - - SCM_ASSERT(scm_is_string(string), string, SCM_ARG1, FUNC_NAME); - str = scm_to_locale_string(string); - if (utf8_toupper(str, strlen(str))) - scm_misc_error(FUNC_NAME, - "cannot convert to upper case: ~S", - scm_list_1(string)); - scm = scm_from_locale_string(str); - free(str); - return scm; -} -#undef FUNC_NAME - -SCM_DEFINE_PUBLIC(scm_utf8_tolower, "utf8-tolower", 1, 0, 0, - (SCM string), -"Convert STRING to lowercase\n") -#define FUNC_NAME s_scm_utf8_tolower -{ - char *str; - SCM scm; - - SCM_ASSERT(scm_is_string(string), string, SCM_ARG1, FUNC_NAME); - str = scm_to_locale_string(string); - if (utf8_tolower(str, strlen(str))) - scm_misc_error(FUNC_NAME, - "cannot convert to lower case: ~S", - scm_list_1(string)); - scm = scm_from_locale_string(str); - free(str); - return scm; -} -#undef FUNC_NAME - static SCM _elstr_thema_aoristoy(SCM el, int destructive, const char *func_name) { @@ -1036,4 +996,5 @@ scm_init_ellinika_elmorph_module() scm_c_export(deftab[i].sym, NULL); } #include "elmorph.x" + elmorph_utf8scm_init(); } |