File Manager

003 File Manager

Current Path: /usr/src/lib/libc/locale

📁 ..
📄 DESIGN.xlocale(7.32 KB)
📄 Makefile.inc(3.43 KB)
📄 Symbol.map(2.59 KB)
📄 ascii.c(5.08 KB)
📄 big5.5(2.24 KB)
📄 big5.c(5.2 KB)
📄 btowc.3(2.48 KB)
📄 btowc.c(2.14 KB)
📄 c16rtomb.c(2.59 KB)
📄 c16rtomb_iconv.c(190 B)
📄 c32rtomb.c(2.06 KB)
📄 c32rtomb_iconv.c(190 B)
📄 cXXrtomb_iconv.h(3.42 KB)
📄 collate.c(16.18 KB)
📄 collate.h(4.7 KB)
📄 collcmp.c(2.02 KB)
📄 ctype.3(3.55 KB)
📄 ctype.c(1.58 KB)
📄 ctype_l.3(3.86 KB)
📄 digittoint.3(2.51 KB)
📄 duplocale.3(2.66 KB)
📄 euc.5(3.76 KB)
📄 euc.c(11.7 KB)
📄 fix_grouping.c(2.49 KB)
📄 freelocale.3(2.09 KB)
📄 gb18030.5(2.92 KB)
📄 gb18030.c(6.26 KB)
📄 gb2312.5(2.11 KB)
📄 gb2312.c(4.96 KB)
📄 gbk.5(2.44 KB)
📄 gbk.c(5.07 KB)
📄 isalnum.3(4.19 KB)
📄 isalpha.3(4.02 KB)
📄 isascii.3(1.99 KB)
📄 isblank.3(2.94 KB)
📄 iscntrl.3(3.56 KB)
📄 isctype.c(3.87 KB)
📄 isdigit.3(3.49 KB)
📄 isgraph.3(4.72 KB)
📄 isideogram.3(1.87 KB)
📄 islower.3(3.55 KB)
📄 isphonogram.3(1.88 KB)
📄 isprint.3(4.43 KB)
📄 ispunct.3(3.71 KB)
📄 isrune.3(1.94 KB)
📄 isspace.3(3.22 KB)
📄 isspecial.3(1.83 KB)
📄 isupper.3(3.29 KB)
📄 iswalnum.3(3.96 KB)
📄 iswalnum_l.3(4.47 KB)
📄 iswctype.c(3.73 KB)
📄 isxdigit.3(3.34 KB)
📄 ldpart.c(4.19 KB)
📄 ldpart.h(1.65 KB)
📄 lmessages.c(3.67 KB)
📄 lmessages.h(1.91 KB)
📄 lmonetary.c(6.51 KB)
📄 lmonetary.h(2.54 KB)
📄 lnumeric.c(3.74 KB)
📄 lnumeric.h(2 KB)
📄 localeconv.3(6.66 KB)
📄 localeconv.c(3.95 KB)
📄 mblen.3(3.2 KB)
📄 mblen.c(2.16 KB)
📄 mblocal.h(4.86 KB)
📄 mbrlen.3(3.49 KB)
📄 mbrlen.c(2.01 KB)
📄 mbrtoc16.c(2.85 KB)
📄 mbrtoc16_iconv.c(190 B)
📄 mbrtoc32.c(1.95 KB)
📄 mbrtoc32_iconv.c(190 B)
📄 mbrtocXX_iconv.h(4.62 KB)
📄 mbrtowc.3(4.09 KB)
📄 mbrtowc.c(2.07 KB)
📄 mbsinit.3(2.01 KB)
📄 mbsinit.c(1.84 KB)
📄 mbsnrtowcs.c(3.14 KB)
📄 mbsrtowcs.3(3.71 KB)
📄 mbsrtowcs.c(2.17 KB)
📄 mbstowcs.3(2.94 KB)
📄 mbstowcs.c(2.1 KB)
📄 mbtowc.3(3.37 KB)
📄 mbtowc.c(2.32 KB)
📄 mskanji.5(2.36 KB)
📄 mskanji.c(5.29 KB)
📄 multibyte.3(4.88 KB)
📄 newlocale.3(3.64 KB)
📄 nextwctype.3(2.09 KB)
📄 nextwctype.c(3.02 KB)
📄 nl_langinfo.3(7.85 KB)
📄 nl_langinfo.c(6.14 KB)
📄 nomacros.c(474 B)
📄 none.c(5.69 KB)
📄 querylocale.3(2.66 KB)
📄 rpmatch.3(2.04 KB)
📄 rpmatch.c(1.92 KB)
📄 rune.c(6.88 KB)
📄 runefile.h(1.96 KB)
📄 runetype.c(2.88 KB)
📄 setlocale.3(5.58 KB)
📄 setlocale.c(7.81 KB)
📄 setlocale.h(1.62 KB)
📄 setrunelocale.c(6.31 KB)
📄 table.c(9.79 KB)
📄 toascii.3(2.27 KB)
📄 tolower.3(2.73 KB)
📄 tolower.c(2.61 KB)
📄 toupper.3(2.73 KB)
📄 toupper.c(2.62 KB)
📄 towlower.3(2.45 KB)
📄 towupper.3(2.45 KB)
📄 uselocale.3(2.14 KB)
📄 utf8.5(3.66 KB)
📄 utf8.c(10 KB)
📄 wcrtomb.3(3.18 KB)
📄 wcrtomb.c(2 KB)
📄 wcsftime.3(2.08 KB)
📄 wcsftime.c(3.99 KB)
📄 wcsnrtombs.c(3.67 KB)
📄 wcsrtombs.3(3.39 KB)
📄 wcsrtombs.c(2.17 KB)
📄 wcstod.3(2.13 KB)
📄 wcstod.c(3.73 KB)
📄 wcstof.c(2.7 KB)
📄 wcstoimax.c(3.85 KB)
📄 wcstol.3(2.8 KB)
📄 wcstol.c(3.56 KB)
📄 wcstold.c(2.73 KB)
📄 wcstoll.c(3.85 KB)
📄 wcstombs.3(3.01 KB)
📄 wcstombs.c(2.12 KB)
📄 wcstoul.c(3.53 KB)
📄 wcstoull.c(3.8 KB)
📄 wcstoumax.c(3.77 KB)
📄 wctob.c(2 KB)
📄 wctomb.3(3.21 KB)
📄 wctomb.c(2.14 KB)
📄 wctrans.3(3.01 KB)
📄 wctrans.c(2.74 KB)
📄 wctype.3(3 KB)
📄 wctype.c(3.03 KB)
📄 wcwidth.3(2.43 KB)
📄 wcwidth.c(2.44 KB)
📄 xlocale.3(6.92 KB)
📄 xlocale.c(8.63 KB)
📄 xlocale_private.h(7.86 KB)

Editing: xlocale.c

/*-
 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
 *
 * Copyright (c) 2011 The FreeBSD Foundation
 * All rights reserved.
 *
 * This software was developed by David Chisnall under sponsorship from
 * the FreeBSD Foundation.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 * $FreeBSD$
 */

#include <pthread.h>
#include <stdio.h>
#include <string.h>
#include <runetype.h>
#include "libc_private.h"
#include "xlocale_private.h"

/**
 * Each locale loader declares a global component.  This is used by setlocale()
 * and also by xlocale with LC_GLOBAL_LOCALE..
 */
extern struct xlocale_component __xlocale_global_collate;
extern struct xlocale_component __xlocale_global_ctype;
extern struct xlocale_component __xlocale_global_monetary;
extern struct xlocale_component __xlocale_global_numeric;
extern struct xlocale_component __xlocale_global_time;
extern struct xlocale_component __xlocale_global_messages;
/*
 * And another version for the statically-allocated C locale.  We only have
 * components for the parts that are expected to be sensible.
 */
extern struct xlocale_component __xlocale_C_collate;
extern struct xlocale_component __xlocale_C_ctype;

/*
 * The locale for this thread.
 */
_Thread_local locale_t __thread_locale;

/*
 * Flag indicating that one or more per-thread locales exist.
 */
int __has_thread_locale;
/*
 * Private functions in setlocale.c.
 */
const char *
__get_locale_env(int category);
int
__detect_path_locale(void);

struct _xlocale __xlocale_global_locale = {
	{0},
	{
		&__xlocale_global_collate,
		&__xlocale_global_ctype,
		&__xlocale_global_monetary,
		&__xlocale_global_numeric,
		&__xlocale_global_time,
		&__xlocale_global_messages
	},
	1,
	0,
	1,
	0
};

struct _xlocale __xlocale_C_locale = {
	{0},
	{
		&__xlocale_C_collate,
		&__xlocale_C_ctype,
		0, 0, 0, 0
	},
	1,
	0,
	1,
	0
};

static void*(*constructors[])(const char*, locale_t) =
{
	__collate_load,
	__ctype_load,
	__monetary_load,
	__numeric_load,
	__time_load,
	__messages_load
};

static pthread_key_t locale_info_key;
static int fake_tls;
static locale_t thread_local_locale;

static void init_key(void)
{

pthread_key_create(&locale_info_key, xlocale_release);
	pthread_setspecific(locale_info_key, (void*)42);
	if (pthread_getspecific(locale_info_key) == (void*)42) {
		pthread_setspecific(locale_info_key, 0);
	} else {
		fake_tls = 1;
	}
	/* At least one per-thread locale has now been set. */
	__has_thread_locale = 1;
	__detect_path_locale();
}

static pthread_once_t once_control = PTHREAD_ONCE_INIT;

static locale_t
get_thread_locale(void)
{

_once(&once_control, init_key);
	
	return (fake_tls ? thread_local_locale :
		pthread_getspecific(locale_info_key));
}

static void
set_thread_locale(locale_t loc)
{
	locale_t l = (loc == LC_GLOBAL_LOCALE) ? 0 : loc;

_once(&once_control, init_key);
	
	if (NULL != l) {
		xlocale_retain((struct xlocale_refcounted*)l);
	}
	locale_t old = get_thread_locale();
	if ((NULL != old) && (l != old)) {
		xlocale_release((struct xlocale_refcounted*)old);
	}
	if (fake_tls) {
		thread_local_locale = l;
	} else {
		pthread_setspecific(locale_info_key, l);
	}
	__thread_locale = l;
	__set_thread_rune_locale(loc);
}

/**
 * Clean up a locale, once its reference count reaches zero.  This function is
 * called by xlocale_release(), it should not be called directly.
 */
static void
destruct_locale(void *l)
{
	locale_t loc = l;

for (int type=0 ; type<XLC_LAST ; type++) {
		if (loc->components[type]) {
			xlocale_release(loc->components[type]);
		}
	}
	if (loc->csym) {
		free(loc->csym);
	}
	free(l);
}

/**
 * Allocates a new, uninitialised, locale.
 */
static locale_t
alloc_locale(void)
{
	locale_t new = calloc(sizeof(struct _xlocale), 1);

new->header.destructor = destruct_locale;
	new->monetary_locale_changed = 1;
	new->numeric_locale_changed = 1;
	return (new);
}
static void
copyflags(locale_t new, locale_t old)
{
	new->using_monetary_locale = old->using_monetary_locale;
	new->using_numeric_locale = old->using_numeric_locale;
	new->using_time_locale = old->using_time_locale;
	new->using_messages_locale = old->using_messages_locale;
}

static int dupcomponent(int type, locale_t base, locale_t new) 
{
	/* Always copy from the global locale, since it has mutable components.
	 */
	struct xlocale_component *src = base->components[type];

if (&__xlocale_global_locale == base) {
		new->components[type] = constructors[type](src->locale, new);
		if (new->components[type]) {
			strncpy(new->components[type]->locale, src->locale,
			    ENCODING_LEN);
			strncpy(new->components[type]->version, src->version,
			    XLOCALE_DEF_VERSION_LEN);
		}
	} else if (base->components[type]) {
		new->components[type] = xlocale_retain(base->components[type]);
	} else {
		/* If the component was NULL, return success - if base is a
		 * valid locale then the flag indicating that this isn't
		 * present should be set.  If it isn't a valid locale, then
		 * we're stuck anyway. */
		return 1;
	}
	return (0 != new->components[type]);
}

/*
 * Public interfaces.  These are the five public functions described by the
 * xlocale interface.  
 */

locale_t newlocale(int mask, const char *locale, locale_t base)
{
	locale_t orig_base;
	int type;
	const char *realLocale = locale;
	int useenv = 0;
	int success = 1;

_once(&once_control, init_key);

locale_t new = alloc_locale();
	if (NULL == new) {
		return (NULL);
	}

orig_base = base;
	FIX_LOCALE(base);
	copyflags(new, base);

if (NULL == locale) {
		realLocale = "C";
	} else if ('\0' == locale[0]) {
		useenv = 1;
	}

for (type=0 ; type<XLC_LAST ; type++) {
		if (mask & 1) {
			if (useenv) {
				realLocale = __get_locale_env(type + 1);
			}
			new->components[type] =
			     constructors[type](realLocale, new);
			if (new->components[type]) {
				strncpy(new->components[type]->locale,
				     realLocale, ENCODING_LEN);
			} else {
				success = 0;
				break;
			}
		} else {
			if (!dupcomponent(type, base, new)) {
				success = 0;
				break;
			}
		}
		mask >>= 1;
	}
	if (0 == success) {
		xlocale_release(new);
		new = NULL;
	} else if (base == orig_base) {
		xlocale_release(base);
	}

return (new);
}

locale_t duplocale(locale_t base)
{
	locale_t new = alloc_locale();
	int type;

_once(&once_control, init_key);

if (NULL == new) {
		return (NULL);
	}
	
	FIX_LOCALE(base);
	copyflags(new, base);

for (type=0 ; type<XLC_LAST ; type++) {
		dupcomponent(type, base, new);
	}

return (new);
}

/*
 * Free a locale_t.  This is quite a poorly named function.  It actually
 * disclaims a reference to a locale_t, rather than freeing it.  
 */
void
freelocale(locale_t loc)
{

/*
	 * Fail if we're passed something that isn't a locale. If we're
	 * passed the global locale, pretend that we freed it but don't
	 * actually do anything.
	 */
	if (loc != NULL && loc != LC_GLOBAL_LOCALE &&
	    loc != &__xlocale_global_locale)
		xlocale_release(loc);
}

/*
 * Returns the name or version of the locale for a particular component of a
 * locale_t.
 */
const char *querylocale(int mask, locale_t loc)
{
	int type = ffs(mask & ~LC_VERSION_MASK) - 1;
	FIX_LOCALE(loc);
	if (type >= XLC_LAST)
		return (NULL);
	if (mask & LC_VERSION_MASK) {
		if (loc->components[type])
			return (loc->components[type]->version);
		return ("");
	} else {
		if (loc->components[type])
			return (loc->components[type]->locale);
		return ("C");
	}
}

/*
 * Installs the specified locale_t as this thread's locale.
 */
locale_t uselocale(locale_t loc)
{
	locale_t old = get_thread_locale();
	if (NULL != loc) {
		set_thread_locale(loc);
	}
	return (old ? old : LC_GLOBAL_LOCALE);
}

003 File Manager

Editing: xlocale.c

Upload File

Create Folder