src/libs/libgroff/iftoa.c

   1 /* Copyright (C) 1989-2018 Free Software Foundation, Inc.
   2      Written by James Clark (jjc@jclark.com)
   3
   4 This file is part of groff.
   5
   6 groff is free software; you can redistribute it and/or modify it under
   7 the terms of the GNU General Public License as published by the Free
   8 Software Foundation, either version 3 of the License, or
   9 (at your option) any later version.
  10
  11 groff is distributed in the hope that it will be useful, but WITHOUT ANY
  12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  18
  19 #define INT_DIGITS 19           /* enough for 64-bit integer */
  20
  21 #ifdef __cplusplus
  22 extern "C" {
  23 #endif
  24
  25 /* Prototype */
  26 char *if_to_a(int, int);
  27
  28 char *if_to_a(int i, int decimal_point)
  29 {
  30   /* room for a -, INT_DIGITS digits, a decimal point, and a terminating '\0' */
  31   static char buf[INT_DIGITS + 3];
  32   char *p = buf + INT_DIGITS + 2;
  33   int point = 0;
  34   buf[INT_DIGITS + 2] = '\0';
  35   /* assert(decimal_point <= INT_DIGITS); */
  36   if (i >= 0) {
  37     do {
  38       *--p = '0' + (i % 10);
  39       i /= 10;
  40       if (++point == decimal_point)
  41         *--p = '.';
  42     } while (i != 0 || point < decimal_point);
  43   }
  44   else {                        /* i < 0 */
  45     do {
  46       *--p = '0' - (i % 10);
  47       i /= 10;
  48       if (++point == decimal_point)
  49         *--p = '.';
  50     } while (i != 0 || point < decimal_point);
  51     *--p = '-';
  52   }
  53   if (decimal_point > 0) {
  54     char *q;
  55     /* there must be a dot, so this will terminate */
  56     for (q = buf + INT_DIGITS + 2; q[-1] == '0'; --q)
  57       ;
  58     if (q[-1] == '.') {
  59       if (q - 1 == p) {
  60         q[-1] = '0';
  61         q[0] = '\0';
  62       }
  63       else
  64         q[-1] = '\0';
  65     }
  66     else
  67       *q = '\0';
  68   }
  69   return p;
  70 }
  71
  72 #ifdef __cplusplus
  73 }
  74 #endif