libquadmath/printf/quadmath-printf.h

   1 /* GCC Quad-Precision Math Library
   2    Copyright (C) 2011 Free Software Foundation, Inc.
   3    Written by Jakub Jelinek  <jakub@redhat.com>
   4
   5 This file is part of the libquadmath library.
   6 Libquadmath is free software; you can redistribute it and/or
   7 modify it under the terms of the GNU Library General Public
   8 License as published by the Free Software Foundation; either
   9 version 2 of the License, or (at your option) any later version.
  10
  11 Libquadmath is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 Library General Public License for more details.
  15
  16 You should have received a copy of the GNU Library General Public
  17 License along with libquadmath; see the file COPYING.LIB.  If
  18 not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
  19 Boston, MA 02110-1301, USA.  */
  20
  21 #include <stdlib.h>
  22 #include <stdio.h>
  23 #ifdef HAVE_LIMITS_H
  24 #include <limits.h>
  25 #endif
  26 #ifdef HAVE_LANGINFO_H
  27 #include <langinfo.h>
  28 #endif
  29 #ifdef HAVE_CTYPE_H
  30 #include <ctype.h>
  31 #endif
  32 #ifdef HAVE_WCHAR_H
  33 #include <wchar.h>
  34 #endif
  35 #ifdef HAVE_WCTYPE_H
  36 #include <wctype.h>
  37 #endif
  38 #ifdef HAVE_PRINTF_HOOKS
  39 #include <printf.h>
  40 #endif
  41 #ifdef HAVE_LOCALE_H
  42 #include <locale.h>
  43 #endif
  44 #include "quadmath-imp.h"
  45 #include "gmp-impl.h"
  46
  47 #ifdef HAVE_WCHAR_H
  48 #define L_(x) L##x
  49 #else
  50 #define L_(x) x
  51 #undef wchar_t
  52 #undef wint_t
  53 #undef putwc
  54 #undef WEOF
  55 #define wchar_t char
  56 #define wint_t int
  57 #define putwc(c,f) putc(c,f)
  58 #define WEOF EOF
  59 #endif
  60
  61 #ifndef HAVE_CTYPE_H
  62 /* Won't work for EBCDIC.  */
  63 #undef isupper
  64 #undef isdigit
  65 #undef isxdigit
  66 #undef tolower
  67 #define isupper(x) \
  68   ({__typeof(x) __is_x = (x); __is_x >= 'A' && __is_x <= 'Z'; })
  69 #define isdigit(x) \
  70   ({__typeof(x) __is_x = (x); __is_x >= '0' && __is_x <= '9'; })
  71 #define isxdigit(x) \
  72   ({__typeof(x) __is_x = (x); \
  73     (__is_x >= '0' && __is_x <= '9') \
  74     || ((x) >= 'A' && (x) <= 'F') \
  75     || ((x) >= 'a' && (x) <= 'f'); })
  76 #define tolower(x) \
  77   ({__typeof(x) __is_x = (x); \
  78     (__is_x >= 'A' && __is_x <= 'Z') ? __is_x - 'A' + 'a' : __is_x; })
  79 #endif
  80
  81 #ifndef CHAR_MAX
  82 #ifdef __CHAR_UNSIGNED__
  83 #define CHAR_MAX (2 * __SCHAR_MAX__ + 1)
  84 #else
  85 #define CHAR_MAX __SCHAR_MAX__
  86 #endif
  87 #endif
  88
  89 #ifndef HAVE_PRINTF_HOOKS
  90 #define printf_info __quadmath_printf_info
  91 struct printf_info
  92 {
  93   int prec;                     /* Precision.  */
  94   int width;                    /* Width.  */
  95   wchar_t spec;                 /* Format letter.  */
  96   unsigned int is_long_double:1;/* L flag.  */
  97   unsigned int is_short:1;      /* h flag.  */
  98   unsigned int is_long:1;       /* l flag.  */
  99   unsigned int alt:1;           /* # flag.  */
 100   unsigned int space:1;         /* Space flag.  */
 101   unsigned int left:1;          /* - flag.  */
 102   unsigned int showsign:1;      /* + flag.  */
 103   unsigned int group:1;         /* ' flag.  */
 104   unsigned int extra:1;         /* For special use.  */
 105   unsigned int is_char:1;       /* hh flag.  */
 106   unsigned int wide:1;          /* Nonzero for wide character streams.  */
 107   unsigned int i18n:1;          /* I flag.  */
 108   unsigned short int user;      /* Bits for user-installed modifiers.  */
 109   wchar_t pad;                  /* Padding character.  */
 110 };
 111 #endif
 112
 113 struct __quadmath_printf_file
 114 {
 115   FILE *fp;
 116   char *str;
 117   size_t size;
 118   size_t len;
 119   int file_p;
 120 };
 121
 122 int
 123 __quadmath_printf_fp (struct __quadmath_printf_file *fp,
 124                       const struct printf_info *info,
 125                       const void *const *args) attribute_hidden;
 126 int
 127 __quadmath_printf_fphex (struct __quadmath_printf_file *fp,
 128                          const struct printf_info *info,
 129                          const void *const *args) attribute_hidden;
 130
 131 size_t __quadmath_do_pad (struct __quadmath_printf_file *fp, int wide,
 132                           int c, size_t n) attribute_hidden;
 133
 134 static inline __attribute__((__unused__)) size_t
 135 __quadmath_do_put (struct __quadmath_printf_file *fp, int wide,
 136                    const char *s, size_t n)
 137 {
 138   size_t len;
 139   if (fp->file_p)
 140     {
 141       if (wide)
 142         {
 143           size_t cnt;
 144           const wchar_t *ls = (const wchar_t *) s;
 145           for (cnt = 0; cnt < n; cnt++)
 146             if (putwc (ls[cnt], fp->fp) == WEOF)
 147               break;
 148           return cnt;
 149         }
 150       return fwrite (s, 1, n, fp->fp);
 151     }
 152   len = MIN (fp->size, n);
 153   memcpy (fp->str, s, len);
 154   fp->str += len;
 155   fp->size -= len;
 156   fp->len += n;
 157   return n;
 158 }
 159
 160 static inline __attribute__((__unused__)) int
 161 __quadmath_do_putc (struct __quadmath_printf_file *fp, int wide,
 162                     wchar_t c)
 163 {
 164   if (fp->file_p)
 165     return wide ? (int) putwc (c, fp->fp) : putc (c, fp->fp);
 166   if (fp->size)
 167     {
 168       *(fp->str++) = c;
 169       fp->size--;
 170     }
 171   fp->len++;
 172   return (unsigned char) c;
 173 }
 174
 175 #define PUT(f, s, n) __quadmath_do_put (f, wide, s, n)
 176 #define PAD(f, c, n) __quadmath_do_pad (f, wide, c, n)
 177 #define PUTC(c, f) __quadmath_do_putc (f, wide, c)
 178
 179 #define nl_langinfo_wc(x) \
 180   ({ union { const char *mb; wchar_t wc; } u; u.mb = nl_langinfo (x); u.wc; })
 181
 182 #undef _itoa
 183 #define _itoa __quadmath_itoa
 184
 185 #undef NAN
 186 #define NAN __builtin_nanf ("")