1  /* Compatibility functions for floating point formatting.
       2     Copyright (C) 1995-2023 Free Software Foundation, Inc.
       3     This file is part of the GNU C Library.
       4  
       5     The GNU C Library is free software; you can redistribute it and/or
       6     modify it under the terms of the GNU Lesser General Public
       7     License as published by the Free Software Foundation; either
       8     version 2.1 of the License, or (at your option) any later version.
       9  
      10     The GNU C Library is distributed in the hope that it will be useful,
      11     but WITHOUT ANY WARRANTY; without even the implied warranty of
      12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      13     Lesser General Public License for more details.
      14  
      15     You should have received a copy of the GNU Lesser General Public
      16     License along with the GNU C Library; if not, see
      17     <https://www.gnu.org/licenses/>.  */
      18  
      19  #include <math.h>
      20  #include <stdio.h>
      21  #include <stdlib.h>
      22  #include <sys/param.h>
      23  #include <libc-lock.h>
      24  #include <math_ldbl_opt.h>
      25  #include <set-freeres.h>
      26  
      27  #ifndef SPRINTF
      28  # define SPRINTF sprintf
      29  #endif
      30  
      31  #define APPEND(a, b) APPEND2 (a, b)
      32  #define APPEND2(a, b) a##b
      33  
      34  
      35  #define FCVT_BUFFER APPEND (FUNC_PREFIX, fcvt_buffer)
      36  #define FCVT_BUFPTR APPEND (FUNC_PREFIX, fcvt_bufptr)
      37  #define ECVT_BUFFER APPEND (FUNC_PREFIX, ecvt_buffer)
      38  
      39  
      40  static char FCVT_BUFFER[MAXDIG];
      41  static char ECVT_BUFFER[MAXDIG];
      42  static char *FCVT_BUFPTR;
      43  
      44  char *
      45  __FCVT (FLOAT_TYPE value, int ndigit, int *decpt, int *sign)
      46  {
      47    if (FCVT_BUFPTR == NULL)
      48      {
      49        if (__FCVT_R (value, ndigit, decpt, sign, FCVT_BUFFER, MAXDIG) != -1)
      50  	return FCVT_BUFFER;
      51  
      52        FCVT_BUFPTR = (char *) malloc (FCVT_MAXDIG);
      53        if (FCVT_BUFPTR == NULL)
      54  	return FCVT_BUFFER;
      55      }
      56  
      57    (void) __FCVT_R (value, ndigit, decpt, sign, FCVT_BUFPTR, FCVT_MAXDIG);
      58  
      59    return FCVT_BUFPTR;
      60  }
      61  
      62  
      63  char *
      64  __ECVT (FLOAT_TYPE value, int ndigit, int *decpt, int *sign)
      65  {
      66    (void) __ECVT_R (value, ndigit, decpt, sign, ECVT_BUFFER, MAXDIG);
      67  
      68    return ECVT_BUFFER;
      69  }
      70  
      71  char *
      72  __GCVT (FLOAT_TYPE value, int ndigit, char *buf)
      73  {
      74    SPRINTF (buf, "%.*" FLOAT_FMT_FLAG "g", MIN (ndigit, NDIGIT_MAX), value);
      75    return buf;
      76  }
      77  
      78  weak_alias (FCVT_BUFPTR, __EFGCVT_FREEMEM_PTR);