git.saurik.com Git - apple/libc.git/blob - locale/FreeBSD/lnumeric.c

1 /*

4 *

5 * Redistribution and use in source and binary forms, with or without

6 * modification, are permitted provided that the following conditions

7 * are met:

8 * 1. Redistributions of source code must retain the above copyright

9 * notice, this list of conditions and the following disclaimer.

10 * 2. Redistributions in binary form must reproduce the above copyright

11 * notice, this list of conditions and the following disclaimer in the

12 * documentation and/or other materials provided with the distribution.

13 *

14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND

15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

17 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE

18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

24 * SUCH DAMAGE.

25 */

27 #include <sys/cdefs.h>

28 __FBSDID("$FreeBSD: src/lib/libc/locale/lnumeric.c,v 1.16 2003/06/26 10:46:16 phantom Exp $");

30 #include "xlocale_private.h"

32 #include <limits.h>

33 #include <string.h>

35 #include "ldpart.h"

36 #include "lnumeric.h"

 extern const char *__fix_locale_grouping_str(const char *);

40 #define LCNUMERIC_SIZE (sizeof(struct lc_numeric_T) / sizeof(char *))

42 static const struct lc_numeric_T _C_numeric_locale = {

43 ".", /* decimal_point */

44 "", /* thousands_sep */

45 "" /* grouping [C99 7.11.2.1]*/

46 };

48 __private_extern__ int

 __numeric_load_locale(const char *name, locale_t loc)

50 {

51 int ret;

52 struct __xlocale_st_numeric *xp;

53 static struct __xlocale_st_numeric *cache = NULL;

55 /* 'name' must be already checked. */

         if (strcmp(name, "C") == 0 || strcmp(name, "POSIX") == 0) {

57 if (!loc->_numeric_using_locale)

58 return (_LDP_CACHE);

59 loc->_numeric_using_locale = 0;

60 XL_RELEASE(loc->__lc_numeric);

61 loc->__lc_numeric = NULL;

62 loc->__nlocale_changed = 1;

63 return (_LDP_CACHE);

64 }

         if (loc->_numeric_using_locale && strcmp(name, loc->__lc_numeric->_numeric_locale_buf) == 0)

67 return (_LDP_CACHE);

68 /*

69 * If the locale name is the same as our cache, use the cache.

70 */

         if (cache && cache->_numeric_locale_buf && strcmp(name, cache->_numeric_locale_buf) == 0) {

72 loc->_numeric_using_locale = 1;

73 XL_RELEASE(loc->__lc_numeric);

74 loc->__lc_numeric = cache;

75 XL_RETAIN(loc->__lc_numeric);

76 loc->__nlocale_changed = 1;

77 return (_LDP_CACHE);

78 }

         if ((xp = (struct __xlocale_st_numeric *)malloc(sizeof(*xp))) == NULL)

80 return _LDP_ERROR;

81 xp->__refcount = 1;

82 xp->__free_extra = (__free_extra_t)__ldpart_free_extra;

83 xp->_numeric_locale_buf = NULL;

         ret = __part_load_locale(name, &loc->_numeric_using_locale,

                 &xp->_numeric_locale_buf, "LC_NUMERIC",

87 LCNUMERIC_SIZE, LCNUMERIC_SIZE,

                 (const char **)&xp->_numeric_locale);

89 if (ret != _LDP_ERROR)

90 loc->__nlocale_changed = 1;

91 else

92 free(xp);

93 if (ret == _LDP_LOADED) {

94 /* Can't be empty according to C99 */

                 if (*xp->_numeric_locale.decimal_point == '\0')

96 xp->_numeric_locale.decimal_point =

97 _C_numeric_locale.decimal_point;

98 xp->_numeric_locale.grouping =

                     __fix_locale_grouping_str(xp->_numeric_locale.grouping);

100 XL_RELEASE(loc->__lc_numeric);

101 loc->__lc_numeric = xp;

102 XL_RELEASE(cache);

103 cache = xp;

104 XL_RETAIN(cache);

105 }

106 return (ret);

107 }

108

109 __private_extern__ struct lc_numeric_T *

110 __get_current_numeric_locale(locale_t loc)

111 {

112 return (loc->_numeric_using_locale

113 ? &loc->__lc_numeric->_numeric_locale

114 : (struct lc_numeric_T *)&_C_numeric_locale);

115 }

116

117 #ifdef LOCALE_DEBUG

118 void

119 numericdebug(void) {

120 locale_t loc = __current_locale();

 printf( "decimal_point = %s\n"

         "thousands_sep = %s\n"

         "grouping = %s\n",

124 loc->__lc_numeric->_numeric_locale.decimal_point,

125 loc->__lc_numeric->_numeric_locale.thousands_sep,

126 loc->__lc_numeric->_numeric_locale.grouping

127 );

128 }

129 #endif /* LOCALE_DEBUG */