1 1.8 christos /* $NetBSD: localeconv.c,v 1.8 1997/07/13 19:54:55 christos Exp $ */ 2 1.7 kleink 3 1.1 cgd /* 4 1.6 jtc * Written by J.T. Conklin <jtc (at) netbsd.org>. 5 1.6 jtc * Public domain. 6 1.1 cgd */ 7 1.1 cgd 8 1.8 christos #include <sys/cdefs.h> 9 1.1 cgd #if defined(LIBC_SCCS) && !defined(lint) 10 1.8 christos __RCSID("$NetBSD: localeconv.c,v 1.8 1997/07/13 19:54:55 christos Exp $"); 11 1.1 cgd #endif /* LIBC_SCCS and not lint */ 12 1.1 cgd 13 1.5 jtc #include <sys/localedef.h> 14 1.1 cgd #include <locale.h> 15 1.1 cgd 16 1.4 jtc /* 17 1.4 jtc * The localeconv() function constructs a struct lconv from the current 18 1.4 jtc * monetary and numeric locales. 19 1.4 jtc * 20 1.4 jtc * Because localeconv() may be called many times (especially by library 21 1.4 jtc * routines like printf() & strtod()), the approprate members of the 22 1.4 jtc * lconv structure are computed only when the monetary or numeric 23 1.4 jtc * locale has been changed. 24 1.4 jtc */ 25 1.4 jtc int __mlocale_changed = 1; 26 1.4 jtc int __nlocale_changed = 1; 27 1.4 jtc 28 1.1 cgd /* 29 1.1 cgd * Return the current locale conversion. 30 1.1 cgd */ 31 1.1 cgd struct lconv * 32 1.1 cgd localeconv() 33 1.1 cgd { 34 1.4 jtc static struct lconv ret; 35 1.4 jtc 36 1.4 jtc if (__mlocale_changed) { 37 1.4 jtc /* LC_MONETARY */ 38 1.4 jtc ret.int_curr_symbol = _CurrentMonetaryLocale->int_curr_symbol; 39 1.4 jtc ret.currency_symbol = _CurrentMonetaryLocale->currency_symbol; 40 1.4 jtc ret.mon_decimal_point = _CurrentMonetaryLocale->mon_decimal_point; 41 1.4 jtc ret.mon_thousands_sep = _CurrentMonetaryLocale->mon_thousands_sep; 42 1.4 jtc ret.mon_grouping = _CurrentMonetaryLocale->mon_grouping; 43 1.4 jtc ret.positive_sign = _CurrentMonetaryLocale->positive_sign; 44 1.4 jtc ret.negative_sign = _CurrentMonetaryLocale->negative_sign; 45 1.4 jtc ret.int_frac_digits = _CurrentMonetaryLocale->int_frac_digits; 46 1.4 jtc ret.frac_digits = _CurrentMonetaryLocale->frac_digits; 47 1.4 jtc ret.p_cs_precedes = _CurrentMonetaryLocale->p_cs_precedes; 48 1.4 jtc ret.p_sep_by_space = _CurrentMonetaryLocale->p_sep_by_space; 49 1.4 jtc ret.n_cs_precedes = _CurrentMonetaryLocale->n_cs_precedes; 50 1.4 jtc ret.n_sep_by_space = _CurrentMonetaryLocale->n_sep_by_space; 51 1.4 jtc ret.p_sign_posn = _CurrentMonetaryLocale->p_sign_posn; 52 1.4 jtc ret.n_sign_posn = _CurrentMonetaryLocale->n_sign_posn; 53 1.4 jtc __mlocale_changed = 0; 54 1.4 jtc } 55 1.4 jtc 56 1.4 jtc if (__nlocale_changed) { 57 1.4 jtc /* LC_NUMERIC */ 58 1.4 jtc ret.decimal_point = (char *) _CurrentNumericLocale->decimal_point; 59 1.4 jtc ret.thousands_sep = (char *) _CurrentNumericLocale->thousands_sep; 60 1.4 jtc ret.grouping = (char *) _CurrentNumericLocale->grouping; 61 1.4 jtc __nlocale_changed = 0; 62 1.4 jtc } 63 1.1 cgd 64 1.4 jtc return (&ret); 65 1.1 cgd } 66