src/util/strtod.c

   1 /*
   2  * Copyright 2010 VMware, Inc.
   3  * All Rights Reserved.
   4  *
   5  * Permission is hereby granted, free of charge, to any person obtaining a
   6  * copy of this software and associated documentation files (the
   7  * "Software"), to deal in the Software without restriction, including
   8  * without limitation the rights to use, copy, modify, merge, publish,
   9  * distribute, sub license, and/or sell copies of the Software, and to
  10  * permit persons to whom the Software is furnished to do so, subject to
  11  * the following conditions:
  12  *
  13  * The above copyright notice and this permission notice (including the
  14  * next paragraph) shall be included in all copies or substantial portions
  15  * of the Software.
  16  *
  17  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  18  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  19  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
  20  * IN NO EVENT SHALL VMWARE AND/OR ITS SUPPLIERS BE LIABLE FOR
  21  * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  22  * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  23  * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  24  */
  25
  26
  27 #include <stdlib.h>
  28
  29 #if defined(_GNU_SOURCE) && defined(HAVE_STRTOD_L)
  30 #include <locale.h>
  31 #ifdef HAVE_XLOCALE_H
  32 #include <xlocale.h>
  33 #endif
  34 static locale_t loc;
  35 #endif
  36
  37 #include "strtod.h"
  38
  39
  40 void
  41 _mesa_locale_init(void)
  42 {
  43 #if defined(_GNU_SOURCE) && defined(HAVE_STRTOD_L)
  44    loc = newlocale(LC_CTYPE_MASK, "C", NULL);
  45 #endif
  46 }
  47
  48 void
  49 _mesa_locale_fini(void)
  50 {
  51 #if defined(_GNU_SOURCE) && defined(HAVE_STRTOD_L)
  52    freelocale(loc);
  53 #endif
  54 }
  55
  56 /**
  57  * Wrapper around strtod which uses the "C" locale so the decimal
  58  * point is always '.'
  59  */
  60 double
  61 _mesa_strtod(const char *s, char **end)
  62 {
  63 #if defined(_GNU_SOURCE) && defined(HAVE_STRTOD_L)
  64    return strtod_l(s, end, loc);
  65 #else
  66    return strtod(s, end);
  67 #endif
  68 }
  69
  70
  71 /**
  72  * Wrapper around strtof which uses the "C" locale so the decimal
  73  * point is always '.'
  74  */
  75 float
  76 _mesa_strtof(const char *s, char **end)
  77 {
  78 #if defined(_GNU_SOURCE) && defined(HAVE_STRTOD_L)
  79    return strtof_l(s, end, loc);
  80 #elif defined(HAVE_STRTOF)
  81    return strtof(s, end);
  82 #else
  83    return (float) strtod(s, end);
  84 #endif
  85 }