2964 need POSIX 2008 locale object support
Reviewed by: Robert Mustacchi <rm@joyent.com>

*** 1,6 ****
--- 1,7 ----
  /*
+  * Copyright 2013 Garrett D'Amore <garrett@damore.org>
   * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
   * Copyright (c) 1989, 1993
   *      The Regents of the University of California.  All rights reserved.
   * (c) UNIX System Laboratories, Inc.
   * All or some portions of this file are derived from material licensed
*** 37,61 ****
   */
  
  #include "lint.h"
  #include <wctype.h>
  #include <stdio.h>
  #include "runetype.h"
  
  static wint_t
! __change_case_ext(wint_t c, int lower)
  {
          size_t lim;
-         _RuneRange *rr;
-         _RuneEntry *base, *re;
  
          if (c < 0 || c == EOF)
                  return (c);
  
!         rr = lower ?
!             &_CurrentRuneLocale->__maplower_ext :
!             &_CurrentRuneLocale->__mapupper_ext;
          /* Binary search -- see bsearch.c for explanation. */
          base = rr->__ranges;
          for (lim = rr->__nranges; lim != 0; lim >>= 1) {
                  re = base + (lim >> 1);
                  if (re->__min <= c && c <= re->__max) {
--- 38,64 ----
   */
  
  #include "lint.h"
  #include <wctype.h>
  #include <stdio.h>
+ #include "localeimpl.h"
+ #include "lctype.h"
  #include "runetype.h"
  
  static wint_t
! change_case_ext(locale_t loc, wint_t c, int lower)
  {
+         const _RuneLocale *rl;
+         const _RuneRange *rr;
+         const _RuneEntry *base, *re;
          size_t lim;
  
          if (c < 0 || c == EOF)
                  return (c);
  
!         rl = loc->runelocale;
!         rr = lower ? &rl->__maplower_ext : &rl->__mapupper_ext;
          /* Binary search -- see bsearch.c for explanation. */
          base = rr->__ranges;
          for (lim = rr->__nranges; lim != 0; lim >>= 1) {
                  re = base + (lim >> 1);
                  if (re->__min <= c && c <= re->__max) {
*** 67,88 ****
          }
  
          return (c);
  }
  
  #undef towlower
  wint_t
  towlower(wint_t wc)
  {
!         return ((wc < 0 || wc >= _CACHED_RUNES) ?
!             __change_case_ext(wc, 1) :
!             _CurrentRuneLocale->__maplower[wc]);
  }
  
  #undef towupper
  wint_t
  towupper(wint_t wc)
  {
!         return ((wc < 0 || wc >= _CACHED_RUNES) ?
!             __change_case_ext(wc, 0) :
!             _CurrentRuneLocale->__mapupper[wc]);
  }
--- 70,111 ----
          }
  
          return (c);
  }
  
+ wint_t
+ towlower_l(wint_t wc, locale_t loc)
+ {
+         return (iswascii(wc) ? __trans_lower[wc] :
+             (wc < 0 || wc >= _CACHED_RUNES) ?
+             change_case_ext(loc, wc, 1) :
+             loc->runelocale->__maplower[wc]);
+ }
+ 
  #undef towlower
  wint_t
  towlower(wint_t wc)
  {
!         return (iswascii(wc) ? __trans_lower[wc] :
!             (wc < 0 || wc >= _CACHED_RUNES) ?
!             change_case_ext(uselocale(NULL), wc, 1) :
!             uselocale(NULL)->runelocale->__maplower[wc]);
  }
  
+ wint_t
+ towupper_l(wint_t wc, locale_t loc)
+ {
+         return (iswascii(wc) ? __trans_upper[wc] :
+             (wc < 0 || wc >= _CACHED_RUNES) ?
+             change_case_ext(loc, wc, 0) :
+             loc->runelocale->__mapupper[wc]);
+ }
+ 
  #undef towupper
  wint_t
  towupper(wint_t wc)
  {
!         return (iswascii(wc) ? __trans_upper[wc] :
!             (wc < 0 || wc >= _CACHED_RUNES) ?
!             change_case_ext(uselocale(NULL), wc, 0) :
!             uselocale(NULL)->runelocale->__mapupper[wc]);
  }