diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-13 14:05:13 +0300 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-14 02:27:27 +0300 |
| commit | ce29f168ed52f08228b99a789785271a4a3c9b0e (patch) | |
| tree | acdcf09cc887bc508d8d803ad971f96e9da442be /src/ellinika/elmorph.c | |
| parent | bee3becef44e298f59d72cee3c8e552bccb10d65 (diff) | |
| download | ellinika-ce29f168ed52f08228b99a789785271a4a3c9b0e.tar.gz ellinika-ce29f168ed52f08228b99a789785271a4a3c9b0e.tar.bz2 | |
Implement escape function.
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(); } |