/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%                  L       OOO    CCCC   AAA   L      EEEEE                   %

%                  L      O   O  C      A   A  L      E                       %

%                  L      O   O  C      AAAAA  L      EEE                     %

%                  L      O   O  C      A   A  L      E                       %

%                  LLLLL   OOO    CCCC  A   A  LLLLL  EEEEE                   %

%                                                                             %

%                                                                             %

%                      MagickCore Image Locale Methods                        %

%                                                                             %

%                              Software Design                                %

%                                   Cristy                                    %

%                                 July 2003                                   %

%                                                                             %

%                                                                             %

%  Copyright @ 1999 ImageMagick Studio LLC, a non-profit organization         %

%  dedicated to making software imaging solutions freely available.           %

%                                                                             %

%  You may not use this file except in compliance with the License.  You may  %

%  obtain a copy of the License at                                            %

%                                                                             %

%    https://imagemagick.org/license/                                         %

%                                                                             %

%  Unless required by applicable law or agreed to in writing, software        %

%  distributed under the License is distributed on an "AS IS" BASIS,          %

%  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %

%  See the License for the specific language governing permissions and        %

%  limitations under the License.                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%

*/

/*

  Include declarations.

*/

#include "MagickCore/studio.h"

#include "MagickCore/blob.h"

#include "MagickCore/client.h"

#include "MagickCore/configure.h"

#include "MagickCore/exception.h"

#include "MagickCore/exception-private.h"

#include "MagickCore/image-private.h"

#include "MagickCore/linked-list.h"

#include "MagickCore/locale_.h"

#include "MagickCore/locale-private.h"

#include "MagickCore/log.h"

#include "MagickCore/memory_.h"

#include "MagickCore/memory-private.h"

#include "MagickCore/nt-base-private.h"

#include "MagickCore/semaphore.h"

#include "MagickCore/splay-tree.h"

#include "MagickCore/string_.h"

#include "MagickCore/string-private.h"

#include "MagickCore/token.h"

#include "MagickCore/utility.h"

#include "MagickCore/utility-private.h"

#include "MagickCore/xml-tree.h"

#include "MagickCore/xml-tree-private.h"

/*

  Define declarations.

*/

#if (defined(MAGICKCORE_HAVE_NEWLOCALE) || defined(MAGICKCORE_WINDOWS_SUPPORT)) && !defined(__MINGW32__)

#  define MAGICKCORE_LOCALE_SUPPORT

#endif

#if defined(MAGICKCORE_WINDOWS_SUPPORT)

#  if !defined(locale_t)

#    define locale_t _locale_t

#  endif

#endif

#define LocaleFilename  "locale.xml"

/*

  Static declarations.

*/

static const char

  *LocaleMap =

    "<?xml version=\"1.0\"?>"

    "<localemap>"

    "  <locale name=\"C\">"

    "    <Exception>"

    "     <Message name=\"\">"

    "     </Message>"

    "    </Exception>"

    "  </locale>"

    "</localemap>";

static SemaphoreInfo

  *locale_semaphore = (SemaphoreInfo *) NULL;

static SplayTreeInfo

  *locale_cache = (SplayTreeInfo *) NULL;

#if defined(MAGICKCORE_LOCALE_SUPPORT)

static volatile locale_t

  c_locale = (locale_t) NULL;

#endif

/*

  Forward declarations.

*/

static MagickBooleanType

  IsLocaleTreeInstantiated(ExceptionInfo *),

  LoadLocaleCache(SplayTreeInfo *,const char *,const char *,const char *,

    const size_t,ExceptionInfo *);

#if defined(MAGICKCORE_LOCALE_SUPPORT)

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+   A c q u i r e C L o c a l e                                               %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  AcquireCLocale() allocates the C locale object, or (locale_t) 0 with

%  errno set if it cannot be acquired.

%

%  The format of the AcquireCLocale method is:

%

%      locale_t AcquireCLocale(void)

%

*/

static locale_t AcquireCLocale(void)

{

#if defined(MAGICKCORE_HAVE_NEWLOCALE)

  if (c_locale == (locale_t) NULL)

    c_locale=newlocale(LC_ALL_MASK,"C",(locale_t) 0);

#elif defined(MAGICKCORE_WINDOWS_SUPPORT) && !defined(__MINGW32__)

  if (c_locale == (locale_t) NULL)

    c_locale=_create_locale(LC_ALL,"C");

#endif

  return(c_locale);

}

#endif

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%  A c q u i r e L o c a l e S p l a y T r e e                                %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  AcquireLocaleSplayTree() caches one or more locale configurations which

%  provides a mapping between locale attributes and a locale tag.

%

%  The format of the AcquireLocaleSplayTree method is:

%

%      SplayTreeInfo *AcquireLocaleSplayTree(const char *filename,

%        ExceptionInfo *exception)

%

%  A description of each parameter follows:

%

%    o filename: the font file tag.

%

%    o locale: the actual locale.

%

%    o exception: return any errors or warnings in this structure.

%

*/

static void *DestroyLocaleNode(void *locale_info)

{

  LocaleInfo

    *p;

  p=(LocaleInfo *) locale_info;

  if (p->path != (char *) NULL)

    p->path=DestroyString(p->path);

  if (p->tag != (char *) NULL)

    p->tag=DestroyString(p->tag);

  if (p->message != (char *) NULL)

    p->message=DestroyString(p->message);

  return(RelinquishMagickMemory(p));

}

static SplayTreeInfo *AcquireLocaleSplayTree(const char *filename,

  const char *locale,ExceptionInfo *exception)

{

  SplayTreeInfo

    *cache;

  cache=NewSplayTree(CompareSplayTreeString,(void *(*)(void *)) NULL,

    DestroyLocaleNode);

#if !MAGICKCORE_ZERO_CONFIGURATION_SUPPORT

  {

    const StringInfo

      *option;

    LinkedListInfo

      *options;

    options=GetLocaleOptions(filename,exception);

    option=(const StringInfo *) GetNextValueInLinkedList(options);

    while (option != (const StringInfo *) NULL)

    {

      (void) LoadLocaleCache(cache,(const char *)

        GetStringInfoDatum(option),GetStringInfoPath(option),locale,0,

        exception);

      option=(const StringInfo *) GetNextValueInLinkedList(options);

    }

    options=DestroyLocaleOptions(options);

    if (GetNumberOfNodesInSplayTree(cache) == 0)

      {

        options=GetLocaleOptions("english.xml",exception);

        option=(const StringInfo *) GetNextValueInLinkedList(options);

        while (option != (const StringInfo *) NULL)

        {

          (void) LoadLocaleCache(cache,(const char *)

            GetStringInfoDatum(option),GetStringInfoPath(option),locale,0,

            exception);

          option=(const StringInfo *) GetNextValueInLinkedList(options);

        }

        options=DestroyLocaleOptions(options);

      }

  }

#else

  magick_unreferenced(filename);

#endif

  if (GetNumberOfNodesInSplayTree(cache) == 0)

    (void) LoadLocaleCache(cache,LocaleMap,"built-in",locale,0,

      exception);

  return(cache);

}

#if defined(MAGICKCORE_LOCALE_SUPPORT)

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+   D e s t r o y C L o c a l e                                               %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  DestroyCLocale() releases the resources allocated for a locale object

%  returned by a call to the AcquireCLocale() method.

%

%  The format of the DestroyCLocale method is:

%

%      void DestroyCLocale(void)

%

*/

static void DestroyCLocale(void)

{

  if (c_locale != (locale_t) NULL)

#if defined(MAGICKCORE_WINDOWS_SUPPORT)

    _free_locale(c_locale);

#else

    freelocale(c_locale);

#endif

  c_locale=(locale_t) NULL;

}

#endif

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   D e s t r o y L o c a l e O p t i o n s                                   %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  DestroyLocaleOptions() releases memory associated with an locale

%  messages.

%

%  The format of the DestroyProfiles method is:

%

%      LinkedListInfo *DestroyLocaleOptions(Image *image)

%

%  A description of each parameter follows:

%

%    o image: the image.

%

*/

static void *DestroyOptions(void *message)

{

  return(DestroyStringInfo((StringInfo *) message));

}

MagickExport LinkedListInfo *DestroyLocaleOptions(LinkedListInfo *messages)

{

  assert(messages != (LinkedListInfo *) NULL);

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"...");

  return(DestroyLinkedList(messages,DestroyOptions));

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+  F o r m a t L o c a l e F i l e                                            %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  FormatLocaleFile() prints formatted output of a variable argument list to a

%  file in the "C" locale.

%

%  The format of the FormatLocaleFile method is:

%

%      ssize_t FormatLocaleFile(FILE *file,const char *format,...)

%

%  A description of each parameter follows.

%

%   o file:  the file.

%

%   o format:  A file describing the format to use to write the remaining

%     arguments.

%

*/

MagickPrivate ssize_t FormatLocaleFileList(FILE *file,

  const char *magick_restrict format,va_list operands)

{

  ssize_t

    n;

#if defined(MAGICKCORE_LOCALE_SUPPORT) && defined(MAGICKCORE_HAVE_VFPRINTF_L)

  {

    locale_t

      locale;

    locale=AcquireCLocale();

    if (locale == (locale_t) NULL)

      n=(ssize_t) vfprintf(file,format,operands);

    else

#if defined(MAGICKCORE_WINDOWS_SUPPORT)

      n=(ssize_t) _vfprintf_l(file,format,locale,operands);

#else

      n=(ssize_t) vfprintf_l(file,locale,format,operands);

#endif

  }

#else

#if defined(MAGICKCORE_LOCALE_SUPPORT) && defined(MAGICKCORE_HAVE_USELOCALE)

  {

    locale_t

      locale,

      previous_locale;

    locale=AcquireCLocale();

    if (locale == (locale_t) NULL)

      n=(ssize_t) vfprintf(file,format,operands);

    else

      {

        previous_locale=uselocale(locale);

        n=(ssize_t) vfprintf(file,format,operands);

        uselocale(previous_locale);

      }

  }

#else

  n=(ssize_t) vfprintf(file,format,operands);

#endif

#endif

  return(n);

}

MagickExport ssize_t FormatLocaleFile(FILE *file,

  const char *magick_restrict format,...)

{

  ssize_t

    n;

  va_list

    operands;

  va_start(operands,format);

  n=FormatLocaleFileList(file,format,operands);

  va_end(operands);

  return(n);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+  F o r m a t L o c a l e S t r i n g                                        %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  FormatLocaleString() prints formatted output of a variable argument list to

%  a string buffer in the "C" locale.

%

%  The format of the FormatLocaleString method is:

%

%      ssize_t FormatLocaleString(char *string,const size_t length,

%        const char *format,...)

%

%  A description of each parameter follows.

%

%   o string:  FormatLocaleString() returns the formatted string in this

%     character buffer.

%

%   o length: the maximum length of the string.

%

%   o format:  A string describing the format to use to write the remaining

%     arguments.

%

*/

MagickPrivate ssize_t FormatLocaleStringList(char *magick_restrict string,

  const size_t length,const char *magick_restrict format,va_list operands)

{

  ssize_t

    n;

#if defined(MAGICKCORE_LOCALE_SUPPORT) && defined(MAGICKCORE_HAVE_VSNPRINTF_L)

  {

    locale_t

      locale;

    locale=AcquireCLocale();

    if (locale == (locale_t) NULL)

      n=(ssize_t) vsnprintf(string,length,format,operands);

    else

#if defined(MAGICKCORE_WINDOWS_SUPPORT)

#if _MSC_VER

  #pragma warning(push)

  #pragma warning(disable:4996)

#endif

      n=(ssize_t) _vsnprintf_l(string,length,format,locale,operands);

#if _MSC_VER

  #pragma warning(pop)

#endif

#else

      n=(ssize_t) vsnprintf_l(string,length,locale,format,operands);

#endif

  }

#elif defined(MAGICKCORE_LOCALE_SUPPORT) && defined(MAGICKCORE_HAVE_USELOCALE)

  {

    locale_t

      locale,

      previous_locale;

    locale=AcquireCLocale();

    if (locale == (locale_t) NULL)

      n=(ssize_t) vsnprintf(string,length,format,operands);

    else

      {

        previous_locale=uselocale(locale);

        n=(ssize_t) vsnprintf(string,length,format,operands);

        uselocale(previous_locale);

      }

  }

#else

  n=(ssize_t) vsnprintf(string,length,format,operands);

#endif

  if (n < 0)

    string[length-1]='\0';

  return(n);

}

MagickExport ssize_t FormatLocaleString(char *magick_restrict string,

  const size_t length,const char *magick_restrict format,...)

{

  ssize_t

    n;

  va_list

    operands;

  va_start(operands,format);

  n=FormatLocaleStringList(string,length,format,operands);

  va_end(operands);

  return(n);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+   G e t L o c a l e I n f o _                                               %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  GetLocaleInfo_() searches the locale list for the specified tag and if

%  found returns attributes for that element.

%

%  The format of the GetLocaleInfo method is:

%

%      const LocaleInfo *GetLocaleInfo_(const char *tag,

%        ExceptionInfo *exception)

%

%  A description of each parameter follows:

%

%    o tag: the locale tag.

%

%    o exception: return any errors or warnings in this structure.

%

*/

MagickExport const LocaleInfo *GetLocaleInfo_(const char *tag,

  ExceptionInfo *exception)

{

  const LocaleInfo

    *locale_info;

  assert(exception != (ExceptionInfo *) NULL);

  if (IsLocaleTreeInstantiated(exception) == MagickFalse)

    return((const LocaleInfo *) NULL);

  LockSemaphoreInfo(locale_semaphore);

  if ((tag == (const char *) NULL) || (LocaleCompare(tag,"*") == 0))

    {

      ResetSplayTreeIterator(locale_cache);

      locale_info=(const LocaleInfo *) GetNextValueInSplayTree(locale_cache);

      UnlockSemaphoreInfo(locale_semaphore);

      return(locale_info);

    }

  locale_info=(const LocaleInfo *) GetValueFromSplayTree(locale_cache,tag);

  UnlockSemaphoreInfo(locale_semaphore);

  return(locale_info);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   G e t L o c a l e I n f o L i s t                                         %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  GetLocaleInfoList() returns any locale messages that match the

%  specified pattern.

%

%  The format of the GetLocaleInfoList function is:

%

%      const LocaleInfo **GetLocaleInfoList(const char *pattern,

%        size_t *number_messages,ExceptionInfo *exception)

%

%  A description of each parameter follows:

%

%    o pattern: Specifies a pointer to a text string containing a pattern.

%

%    o number_messages:  This integer returns the number of locale messages in

%    the list.

%

%    o exception: return any errors or warnings in this structure.

%

*/

#if defined(__cplusplus) || defined(c_plusplus)

extern "C" {

#endif

static int LocaleInfoCompare(const void *x,const void *y)

{

  const LocaleInfo

    **p,

    **q;

  p=(const LocaleInfo **) x,

  q=(const LocaleInfo **) y;

  if (LocaleCompare((*p)->path,(*q)->path) == 0)

    return(LocaleCompare((*p)->tag,(*q)->tag));

  return(LocaleCompare((*p)->path,(*q)->path));

}

#if defined(__cplusplus) || defined(c_plusplus)

}

#endif

MagickExport const LocaleInfo **GetLocaleInfoList(const char *pattern,

  size_t *number_messages,ExceptionInfo *exception)

{

  const LocaleInfo

    **messages;

  const LocaleInfo

    *p;

  ssize_t

    i;

  /*

    Allocate locale list.

  */

  assert(pattern != (char *) NULL);

  assert(number_messages != (size_t *) NULL);

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",pattern);

  *number_messages=0;

  p=GetLocaleInfo_("*",exception);

  if (p == (const LocaleInfo *) NULL)

    return((const LocaleInfo **) NULL);

  messages=(const LocaleInfo **) AcquireQuantumMemory((size_t)

    GetNumberOfNodesInSplayTree(locale_cache)+1UL,sizeof(*messages));

  if (messages == (const LocaleInfo **) NULL)

    return((const LocaleInfo **) NULL);

  /*

    Generate locale list.

  */

  LockSemaphoreInfo(locale_semaphore);

  ResetSplayTreeIterator(locale_cache);

  p=(const LocaleInfo *) GetNextValueInSplayTree(locale_cache);

  for (i=0; p != (const LocaleInfo *) NULL; )

  {

    if ((p->stealth == MagickFalse) &&

        (GlobExpression(p->tag,pattern,MagickTrue) != MagickFalse))

      messages[i++]=p;

    p=(const LocaleInfo *) GetNextValueInSplayTree(locale_cache);

  }

  UnlockSemaphoreInfo(locale_semaphore);

  qsort((void *) messages,(size_t) i,sizeof(*messages),LocaleInfoCompare);

  messages[i]=(LocaleInfo *) NULL;

  *number_messages=(size_t) i;

  return(messages);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   G e t L o c a l e L i s t                                                 %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  GetLocaleList() returns any locale messages that match the specified

%  pattern.

%

%  The format of the GetLocaleList function is:

%

%      char **GetLocaleList(const char *pattern,size_t *number_messages,

%        Exceptioninfo *exception)

%

%  A description of each parameter follows:

%

%    o pattern: Specifies a pointer to a text string containing a pattern.

%

%    o number_messages:  This integer returns the number of messages in the

%      list.

%

%    o exception: return any errors or warnings in this structure.

%

*/

#if defined(__cplusplus) || defined(c_plusplus)

extern "C" {

#endif

static int LocaleTagCompare(const void *x,const void *y)

{

  char

    **p,

    **q;

  p=(char **) x;

  q=(char **) y;

  return(LocaleCompare(*p,*q));

}

#if defined(__cplusplus) || defined(c_plusplus)

}

#endif

MagickExport char **GetLocaleList(const char *pattern,size_t *number_messages,

  ExceptionInfo *exception)

{

  char

    **messages;

  const LocaleInfo

    *p;

  ssize_t

    i;

  /*

    Allocate locale list.

  */

  assert(pattern != (char *) NULL);

  assert(number_messages != (size_t *) NULL);

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",pattern);

  *number_messages=0;

  p=GetLocaleInfo_("*",exception);

  if (p == (const LocaleInfo *) NULL)

    return((char **) NULL);

  messages=(char **) AcquireQuantumMemory((size_t)

    GetNumberOfNodesInSplayTree(locale_cache)+1UL,sizeof(*messages));

  if (messages == (char **) NULL)

    return((char **) NULL);

  LockSemaphoreInfo(locale_semaphore);

  p=(const LocaleInfo *) GetNextValueInSplayTree(locale_cache);

  for (i=0; p != (const LocaleInfo *) NULL; )

  {

    if ((p->stealth == MagickFalse) &&

        (GlobExpression(p->tag,pattern,MagickTrue) != MagickFalse))

      messages[i++]=ConstantString(p->tag);

    p=(const LocaleInfo *) GetNextValueInSplayTree(locale_cache);

  }

  UnlockSemaphoreInfo(locale_semaphore);

  qsort((void *) messages,(size_t) i,sizeof(*messages),LocaleTagCompare);

  messages[i]=(char *) NULL;

  *number_messages=(size_t) i;

  return(messages);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   G e t L o c a l e M e s s a g e                                           %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  GetLocaleMessage() returns a message in the current locale that matches the

%  supplied tag.

%

%  The format of the GetLocaleMessage method is:

%

%      const char *GetLocaleMessage(const char *tag)

%

%  A description of each parameter follows:

%

%    o tag: Return a message that matches this tag in the current locale.

%

*/

MagickExport const char *GetLocaleMessage(const char *tag)

{

  char

    name[MagickLocaleExtent];

  const LocaleInfo

    *locale_info;

  ExceptionInfo

    *exception;

  if ((tag == (const char *) NULL) || (*tag == '\0'))

    return(tag);

  exception=AcquireExceptionInfo();

  (void) FormatLocaleString(name,MagickLocaleExtent,"%s/",tag);

  locale_info=GetLocaleInfo_(name,exception);

  exception=DestroyExceptionInfo(exception);

  if (locale_info != (const LocaleInfo *) NULL)

    return(locale_info->message);

  return(tag);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%  G e t L o c a l e O p t i o n s                                            %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  GetLocaleOptions() returns any Magick configuration messages associated

%  with the specified filename.

%

%  The format of the GetLocaleOptions method is:

%

%      LinkedListInfo *GetLocaleOptions(const char *filename,

%        ExceptionInfo *exception)

%

%  A description of each parameter follows:

%

%    o filename: the locale file tag.

%

%    o exception: return any errors or warnings in this structure.

%

*/

MagickExport LinkedListInfo *GetLocaleOptions(const char *filename,

  ExceptionInfo *exception)

{

  char

    path[MagickPathExtent];

  const char

    *element;

  LinkedListInfo

    *messages,

    *paths;

  StringInfo

    *xml;

  assert(filename != (const char *) NULL);

  assert(exception != (ExceptionInfo *) NULL);

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",filename);

  (void) CopyMagickString(path,filename,MagickPathExtent);

  /*

    Load XML from configuration files to linked-list.

  */

  messages=NewLinkedList(0);

  paths=GetConfigurePaths(filename,exception);

  if (paths != (LinkedListInfo *) NULL)

    {

      ResetLinkedListIterator(paths);

      element=(const char *) GetNextValueInLinkedList(paths);

      while (element != (const char *) NULL)

      {

        (void) FormatLocaleString(path,MagickPathExtent,"%s%s",element,

          filename);

        (void) LogMagickEvent(LocaleEvent,GetMagickModule(),

          "Searching for locale file: \"%s\"",path);

        xml=ConfigureFileToStringInfo(path);

        if (xml != (StringInfo *) NULL)

          (void) AppendValueToLinkedList(messages,xml);

        element=(const char *) GetNextValueInLinkedList(paths);

      }

      paths=DestroyLinkedList(paths,RelinquishMagickMemory);

    }

#if defined(MAGICKCORE_WINDOWS_SUPPORT)

  {

    char

      *blob;

    blob=(char *) NTResourceToBlob(filename);

    if (blob != (char *) NULL)

      {

        xml=AcquireStringInfo(0);

        SetStringInfoLength(xml,strlen(blob)+1);

        SetStringInfoDatum(xml,(const unsigned char *) blob);

        blob=(char *) RelinquishMagickMemory(blob);

        SetStringInfoPath(xml,filename);

        (void) AppendValueToLinkedList(messages,xml);

      }

  }

#endif

  ResetLinkedListIterator(messages);

  return(messages);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   G e t L o c a l e V a l u e                                               %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  GetLocaleValue() returns the message associated with the locale info.

%

%  The format of the GetLocaleValue method is:

%

%      const char *GetLocaleValue(const LocaleInfo *locale_info)

%

%  A description of each parameter follows:

%

%    o locale_info:  The locale info.

%

*/

MagickExport const char *GetLocaleValue(const LocaleInfo *locale_info)

{

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"...");

  assert(locale_info != (LocaleInfo *) NULL);

  assert(locale_info->signature == MagickCoreSignature);

  return(locale_info->message);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+   I s L o c a l e T r e e I n s t a n t i a t e d                           %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  IsLocaleTreeInstantiated() determines if the locale tree is instantiated.

%  If not, it instantiates the tree and returns it.

%

%  The format of the IsLocaleInstantiated method is:

%

%      MagickBooleanType IsLocaleTreeInstantiated(ExceptionInfo *exception)

%

%  A description of each parameter follows.

%

%    o exception: return any errors or warnings in this structure.

%

*/

static MagickBooleanType IsLocaleTreeInstantiated(ExceptionInfo *exception)

{

  if (locale_cache == (SplayTreeInfo *) NULL)

    {

      if (locale_semaphore == (SemaphoreInfo *) NULL)

        ActivateSemaphoreInfo(&locale_semaphore);

      LockSemaphoreInfo(locale_semaphore);

      if (locale_cache == (SplayTreeInfo *) NULL)

        {

          char

            *locale;

          const char

            *p;

          locale=(char *) NULL;

          p=setlocale(LC_CTYPE,(const char *) NULL);

          if (p != (const char *) NULL)

            locale=ConstantString(p);

          if (locale == (char *) NULL)

            locale=GetEnvironmentValue("LC_ALL");

          if (locale == (char *) NULL)

            locale=GetEnvironmentValue("LC_MESSAGES");

          if (locale == (char *) NULL)

            locale=GetEnvironmentValue("LC_CTYPE");

          if (locale == (char *) NULL)

            locale=GetEnvironmentValue("LANG");

          if (locale == (char *) NULL)

            locale=ConstantString("C");

          locale_cache=AcquireLocaleSplayTree(LocaleFilename,locale,exception);

          locale=DestroyString(locale);

        }

      UnlockSemaphoreInfo(locale_semaphore);

    }

  return(locale_cache != (SplayTreeInfo *) NULL ? MagickTrue : MagickFalse);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

+   I n t e r p r e t L o c a l e V a l u e                                   %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  InterpretLocaleValue() interprets the string as a floating point number in

%  the "C" locale and returns its value as a double. If sentinel is not a null

%  pointer, the method also sets the value pointed by sentinel to point to the

%  first character after the number.

%

%  The format of the InterpretLocaleValue method is:

%

%      double InterpretLocaleValue(const char *value,char **sentinel)

%

%  A description of each parameter follows:

%

%    o value: the string value.

%

%    o sentinel:  if sentinel is not NULL, a pointer to the character after the

%      last character used in the conversion is stored in the location

%      referenced by sentinel.

%

*/

MagickExport double InterpretLocaleValue(const char *magick_restrict string,

  char *magick_restrict *sentinel)

{

  char

    *q;

  double

    value;

  if ((*string == '0') && ((string[1] | 0x20)=='x'))

    value=(double) strtoul(string,&q,16);

  else

    {

#if defined(MAGICKCORE_LOCALE_SUPPORT) && defined(MAGICKCORE_HAVE_STRTOD_L)

      locale_t

        locale;

      locale=AcquireCLocale();

      if (locale == (locale_t) NULL)

        value=strtod(string,&q);

      else

#if defined(MAGICKCORE_WINDOWS_SUPPORT)

        value=_strtod_l(string,&q,locale);

#else

        value=strtod_l(string,&q,locale);

#endif

#else

      value=strtod(string,&q);

#endif

    }

  if (sentinel != (char **) NULL)

    *sentinel=q;

  return(value);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%  L i s t L o c a l e I n f o                                                %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  ListLocaleInfo() lists the locale info to a file.

%

%  The format of the ListLocaleInfo method is:

%

%      MagickBooleanType ListLocaleInfo(FILE *file,ExceptionInfo *exception)

%

%  A description of each parameter follows.

%

%    o file:  An pointer to a FILE.

%

%    o exception: return any errors or warnings in this structure.

%

*/

MagickExport MagickBooleanType ListLocaleInfo(FILE *file,

  ExceptionInfo *exception)

{

  const char