URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [newlib-1.18.0/] [newlib/] [libc/] [sys/] [linux/] [iconv/] [gconv_open.c] - Rev 859
Go to most recent revision | Compare with Previous | Blame | View Log
/* Find matching transformation algorithms and initialize steps. Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with the GNU C Library; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. */ #include <errno.h> #include <locale.h> #include <stdlib.h> #include <string.h> #include <gconv_int.h> int internal_function __gconv_open (const char *toset, const char *fromset, __gconv_t *handle, int flags) { struct __gconv_step *steps; size_t nsteps; __gconv_t result = NULL; size_t cnt = 0; int res; int conv_flags = 0; const char *errhand; const char *ignore; struct trans_struct *trans = NULL; char old_locale[20], *old_locale_p; char *old, *new; size_t len; /* Find out whether any error handling method is specified. */ errhand = strchr (toset, '/'); if (errhand != NULL) errhand = strchr (errhand + 1, '/'); if (__builtin_expect (errhand != NULL, 1)) { if (*++errhand == '\0') errhand = NULL; else { /* Make copy without the error handling description. */ char *newtoset = (char *) alloca (errhand - toset + 1); char *tok; char *ptr; newtoset[errhand - toset] = '\0'; toset = memcpy (newtoset, toset, errhand - toset); /* Find the appropriate transliteration handlers. */ old = (char *)(errhand); len = strlen (old) + 1; new = (char *) alloca (len); tok = (char *) memcpy (new, old, len); tok = strtok_r (tok, ",", &ptr); /* Set locale to default C locale. */ old_locale_p = setlocale(LC_ALL, "C"); strncpy(old_locale, old_locale_p, 20); while (tok != NULL) { if (strcasecmp (tok, "TRANSLIT") == 0) { /* It's the builtin transliteration handling. We only support it for working on the internal encoding. */ static const char *internal_trans_names[1] = { "INTERNAL" }; struct trans_struct *lastp = NULL; struct trans_struct *runp; for (runp = trans; runp != NULL; runp = runp->next) if (runp->trans_fct == __gconv_transliterate) break; else lastp = runp; if (runp == NULL) { struct trans_struct *newp; newp = (struct trans_struct *) alloca (sizeof (*newp)); memset (newp, '\0', sizeof (*newp)); /* We leave the `name' field zero to signal that this is an internal transliteration step. */ newp->csnames = internal_trans_names; newp->ncsnames = 1; newp->trans_fct = __gconv_transliterate; if (lastp == NULL) trans = newp; else lastp->next = newp; } } else if (strcasecmp (tok, "IGNORE") == 0) /* Set the flag to ignore all errors. */ conv_flags |= __GCONV_IGNORE_ERRORS; else { /* `tok' is possibly a module name. We'll see later whether we can find it. But first see that we do not already a module of this name. */ struct trans_struct *lastp = NULL; struct trans_struct *runp; for (runp = trans; runp != NULL; runp = runp->next) if (runp->name != NULL && strcasecmp (tok, runp->name) == 0) break; else lastp = runp; if (runp == NULL) { struct trans_struct *newp; newp = (struct trans_struct *) alloca (sizeof (*newp)); memset (newp, '\0', sizeof (*newp)); newp->name = tok; if (lastp == NULL) trans = newp; else lastp->next = newp; } } tok = strtok_r (NULL, ",", &ptr); } } } /* For the source character set we ignore the error handler specification. XXX Is this really always the best? */ ignore = strchr (fromset, '/'); if (ignore != NULL && (ignore = strchr (ignore + 1, '/')) != NULL && *++ignore != '\0') { char *newfromset = (char *) alloca (ignore - fromset + 1); newfromset[ignore - fromset] = '\0'; fromset = memcpy (newfromset, fromset, ignore - fromset); } res = __gconv_find_transform (toset, fromset, &steps, &nsteps, flags); if (res == __GCONV_OK) { /* Find the modules. */ struct trans_struct *lastp = NULL; struct trans_struct *runp; for (runp = trans; runp != NULL; runp = runp->next) { if (runp->name == NULL || __builtin_expect (__gconv_translit_find (runp), 0) == 0) lastp = runp; else /* This means we haven't found the module. Remove it. */ if (lastp == NULL) trans = runp->next; else lastp->next = runp->next; } /* Allocate room for handle. */ result = (__gconv_t) malloc (sizeof (struct __gconv_info) + (nsteps * sizeof (struct __gconv_step_data))); if (result == NULL) res = __GCONV_NOMEM; else { size_t n; /* Remember the list of steps. */ result->__steps = steps; result->__nsteps = nsteps; /* Clear the array for the step data. */ memset (result->__data, '\0', nsteps * sizeof (struct __gconv_step_data)); /* Call all initialization functions for the transformation step implementations. */ for (cnt = 0; cnt < nsteps; ++cnt) { size_t size; /* Would have to be done if we would not clear the whole array above. */ #if 0 /* Reset the counter. */ result->__data[cnt].__invocation_counter = 0; /* It's a regular use. */ result->__data[cnt].__internal_use = 0; #endif /* We use the `mbstate_t' member in DATA. */ result->__data[cnt].__statep = &result->__data[cnt].__state; /* Now see whether we can use any of the transliteration modules for this step. */ for (runp = trans; runp != NULL; runp = runp->next) for (n = 0; n < runp->ncsnames; ++n) if (strcasecmp (steps[cnt].__from_name, runp->csnames[n]) == 0) { void *data = NULL; /* Match! Now try the initializer. */ if (runp->trans_init_fct == NULL || (runp->trans_init_fct (&data, steps[cnt].__to_name) == __GCONV_OK)) { /* Append at the end of the list. */ struct __gconv_trans_data *newp; struct __gconv_trans_data **lastp; newp = (struct __gconv_trans_data *) malloc (sizeof (struct __gconv_trans_data)); if (newp == NULL) { res = __GCONV_NOMEM; goto bail; } newp->__trans_fct = runp->trans_fct; newp->__trans_context_fct = runp->trans_context_fct; newp->__trans_end_fct = runp->trans_end_fct; newp->__data = data; newp->__next = NULL; lastp = &result->__data[cnt].__trans; while (*lastp != NULL) lastp = &(*lastp)->__next; *lastp = newp; } break; } /* If this is the last step we must not allocate an output buffer. */ if (cnt < nsteps - 1) { result->__data[cnt].__flags = conv_flags; /* Allocate the buffer. */ size = (GCONV_NCHAR_GOAL * steps[cnt].__max_needed_to); result->__data[cnt].__outbuf = (char *) malloc (size); if (result->__data[cnt].__outbuf == NULL) { res = __GCONV_NOMEM; goto bail; } result->__data[cnt].__outbufend = result->__data[cnt].__outbuf + size; } else { /* Handle the last entry. */ result->__data[cnt].__flags = conv_flags | __GCONV_IS_LAST; break; } } } if (res != __GCONV_OK) { /* Something went wrong. Free all the resources. */ int serrno; bail: serrno = errno; if (result != NULL) { while (cnt-- > 0) { struct __gconv_trans_data *transp; transp = result->__data[cnt].__trans; while (transp != NULL) { struct __gconv_trans_data *curp = transp; transp = transp->__next; if (__builtin_expect (curp->__trans_end_fct != NULL, 0)) curp->__trans_end_fct (curp->__data); free (curp); } free (result->__data[cnt].__outbuf); } free (result); result = NULL; } __gconv_close_transform (steps, nsteps); __set_errno (serrno); } } *handle = result; setlocale(LC_ALL, old_locale); return res; }
Go to most recent revision | Compare with Previous | Blame | View Log