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 tolower
  66 #define isupper(x) ((x) >= 'A' && (x) <= 'Z')
  67 #define isdigit(x) ((x) >= '0' && (x) <= '9')
  68 #define tolower(x) (isupper (x) ? (x) - 'A' + 'a' : (x))
  69 #endif
  70
  71 #ifndef CHAR_MAX
  72 #ifdef __CHAR_UNSIGNED__
  73 #define CHAR_MAX (2 * __SCHAR_MAX__ + 1)
  74 #else
  75 #define CHAR_MAX __SCHAR_MAX__
  76 #endif
  77 #endif
  78
  79 #ifndef HAVE_PRINTF_HOOKS
  80 #define printf_info __quadmath_printf_info
  81 struct printf_info
  82 {
  83   int prec;                     /* Precision.  */
  84   int width;                    /* Width.  */
  85   wchar_t spec;                 /* Format letter.  */
  86   unsigned int is_long_double:1;/* L flag.  */
  87   unsigned int is_short:1;      /* h flag.  */
  88   unsigned int is_long:1;       /* l flag.  */
  89   unsigned int alt:1;           /* # flag.  */
  90   unsigned int space:1;         /* Space flag.  */
  91   unsigned int left:1;          /* - flag.  */
  92   unsigned int showsign:1;      /* + flag.  */
  93   unsigned int group:1;         /* ' flag.  */
  94   unsigned int extra:1;         /* For special use.  */
  95   unsigned int is_char:1;       /* hh flag.  */
  96   unsigned int wide:1;          /* Nonzero for wide character streams.  */
  97   unsigned int i18n:1;          /* I flag.  */
  98   unsigned short int user;      /* Bits for user-installed modifiers.  */
  99   wchar_t pad;                  /* Padding character.  */
 100 };
 101 #endif
 102
 103 struct __quadmath_printf_file
 104 {
 105   FILE *fp;
 106   char *str;
 107   size_t size;
 108   size_t len;
 109   int file_p;
 110 };
 111
 112 int
 113 __quadmath_printf_fp (struct __quadmath_printf_file *fp,
 114                       const struct printf_info *info,
 115                       const void *const *args) attribute_hidden;
 116 int
 117 __quadmath_printf_fphex (struct __quadmath_printf_file *fp,
 118                          const struct printf_info *info,
 119                          const void *const *args) attribute_hidden;
 120
 121 size_t __quadmath_do_pad (struct __quadmath_printf_file *fp, int wide,
 122                           int c, size_t n) attribute_hidden;
 123
 124 static inline __attribute__((__unused__)) size_t
 125 __quadmath_do_put (struct __quadmath_printf_file *fp, int wide,
 126                    const char *s, size_t n)
 127 {
 128   size_t len;
 129   if (fp->file_p)
 130     {
 131       if (wide)
 132         {
 133           size_t cnt;
 134           const wchar_t *ls = (const wchar_t *) s;
 135           for (cnt = 0; cnt < n; cnt++)
 136             if (putwc (ls[cnt], fp->fp) == WEOF)
 137               break;
 138           return cnt;
 139         }
 140       return fwrite (s, 1, n, fp->fp);
 141     }
 142   len = MIN (fp->size, n);
 143   memcpy (fp->str, s, len);
 144   fp->str += len;
 145   fp->size -= len;
 146   fp->len += n;
 147   return n;
 148 }
 149
 150 static inline __attribute__((__unused__)) int
 151 __quadmath_do_putc (struct __quadmath_printf_file *fp, int wide,
 152                     wchar_t c)
 153 {
 154   if (fp->file_p)
 155     return wide ? (int) putwc (c, fp->fp) : putc (c, fp->fp);
 156   if (fp->size)
 157     {
 158       *(fp->str++) = c;
 159       fp->size--;
 160     }
 161   fp->len++;
 162   return (unsigned char) c;
 163 }
 164
 165 #define PUT(f, s, n) __quadmath_do_put (f, wide, s, n)
 166 #define PAD(f, c, n) __quadmath_do_pad (f, wide, c, n)
 167 #define PUTC(c, f) __quadmath_do_putc (f, wide, c)
 168
 169 #define nl_langinfo_wc(x) \
 170   ({ union { const char *mb; wchar_t wc; } u; u.mb = nl_langinfo (x); u.wc; })
 171
 172 #undef _itoa
 173 #define _itoa __quadmath_itoa