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