62 lines
1.6 KiB
C
62 lines
1.6 KiB
C
|
#include <newlib.h>
|
||
|
|
#include <reent.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include "setlocale.h"
|
||
|
|
|
||
|
|
struct __locale_t *
|
||
|
|
_duplocale_r (struct _reent *p, struct __locale_t *locobj)
|
||
|
|
{
|
||
|
|
struct __locale_t tmp_locale, *new_locale;
|
||
|
|
int i;
|
||
|
|
|
||
|
|
/* LC_GLOBAL_LOCALE denotes the global locale. */
|
||
|
|
if (locobj == LC_GLOBAL_LOCALE)
|
||
|
|
locobj = __get_global_locale ();
|
||
|
|
/* The "C" locale is used statically, never copied. */
|
||
|
|
else if (locobj == &__C_locale)
|
||
|
|
return (struct __locale_t *) &__C_locale;
|
||
|
|
/* Copy locale content. */
|
||
|
|
tmp_locale = *locobj;
|
||
|
|
#ifdef __HAVE_LOCALE_INFO__
|
||
|
|
for (i = 1; i < _LC_LAST; ++i)
|
||
|
|
if (locobj->lc_cat[i].buf)
|
||
|
|
{
|
||
|
|
/* If the object is not a "C" locale category, copy it. Just call
|
||
|
|
__loadlocale. It knows what to do to replicate the category. */
|
||
|
|
tmp_locale.lc_cat[i].ptr = NULL;
|
||
|
|
tmp_locale.lc_cat[i].buf = NULL;
|
||
|
|
if (!__loadlocale (&tmp_locale, i, tmp_locale.categories[i]))
|
||
|
|
goto error;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
/* Allocate new locale_t. */
|
||
|
|
new_locale = (struct __locale_t *) _calloc_r (p, 1, sizeof *new_locale);
|
||
|
|
if (!new_locale)
|
||
|
|
goto error;
|
||
|
|
|
||
|
|
*new_locale = tmp_locale;
|
||
|
|
return new_locale;
|
||
|
|
|
||
|
|
error:
|
||
|
|
/* An error occured while we had already (potentially) allocated memory.
|
||
|
|
Free memory and return NULL. errno is supposed to be set already. */
|
||
|
|
#ifdef __HAVE_LOCALE_INFO__
|
||
|
|
while (--i > 0)
|
||
|
|
if (tmp_locale.lc_cat[i].buf)
|
||
|
|
{
|
||
|
|
_free_r (p, (void *) tmp_locale.lc_cat[i].ptr);
|
||
|
|
_free_r (p, tmp_locale.lc_cat[i].buf);
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifndef _REENT_ONLY
|
||
|
|
struct __locale_t *
|
||
|
|
duplocale (struct __locale_t *locobj)
|
||
|
|
{
|
||
|
|
return _duplocale_r (_REENT, locobj);
|
||
|
|
}
|
||
|
|
#endif
|