Mercurial > hg > CbC > CbC_gcc
comparison libquadmath/printf/quadmath-printf.h @ 68:561a7518be6b
update gcc-4.6
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 21 Aug 2011 07:07:55 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
67:f6334be47118 | 68:561a7518be6b |
---|---|
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 ("") |