1 /* Provide a version of _doprnt in terms of fprintf. 2 Copyright (C) 1998-2020 Free Software Foundation, Inc. 3 Contributed by Kaveh Ghazi (ghazi@caip.rutgers.edu) 3/29/98 4 5 This program is free software; you can redistribute it and/or modify it 6 under the terms of the GNU General Public License as published by the 7 Free Software Foundation; either version 2, or (at your option) any 8 later version. 9 10 This program 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 13 GNU General Public License for more details. 14 15 You should have received a copy of the GNU General Public License 16 along with this program; if not, write to the Free Software 17 Foundation, 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ 18 19 #include "config.h" 20 #include "ansidecl.h" 21 #include "safe-ctype.h" 22 23 #include <stdio.h> 24 #include <stdarg.h> 25 #ifdef HAVE_STRING_H 26 #include <string.h> 27 #endif 28 #ifdef HAVE_STDLIB_H 29 #include <stdlib.h> 30 #endif 31 32 #undef _doprnt 33 34 #ifdef HAVE__DOPRNT 35 #define TEST 36 #endif 37 38 #ifdef TEST /* Make sure to use the internal one. */ 39 #define _doprnt my_doprnt 40 #endif 41 42 #define COPY_VA_INT \ 43 do { \ 44 const int value = abs (va_arg (ap, int)); \ 45 char buf[32]; \ 46 ptr++; /* Go past the asterisk. */ \ 47 *sptr = '\0'; /* NULL terminate sptr. */ \ 48 sprintf(buf, "%d", value); \ 49 strcat(sptr, buf); \ 50 while (*sptr) sptr++; \ 51 } while (0) 52 53 #define PRINT_CHAR(CHAR) \ 54 do { \ 55 putc(CHAR, stream); \ 56 ptr++; \ 57 total_printed++; \ 58 continue; \ 59 } while (0) 60 61 #define PRINT_TYPE(TYPE) \ 62 do { \ 63 int result; \ 64 TYPE value = va_arg (ap, TYPE); \ 65 *sptr++ = *ptr++; /* Copy the type specifier. */ \ 66 *sptr = '\0'; /* NULL terminate sptr. */ \ 67 result = fprintf(stream, specifier, value); \ 68 if (result == -1) \ 69 return -1; \ 70 else \ 71 { \ 72 total_printed += result; \ 73 continue; \ 74 } \ 75 } while (0) 76 77 int 78 _doprnt (const char *format, va_list ap, FILE *stream) 79 { 80 const char * ptr = format; 81 char specifier[128]; 82 int total_printed = 0; 83 84 while (*ptr != '\0') 85 { 86 if (*ptr != '%') /* While we have regular characters, print them. */ 87 PRINT_CHAR(*ptr); 88 else /* We got a format specifier! */ 89 { 90 char * sptr = specifier; 91 int wide_width = 0, short_width = 0; 92 93 *sptr++ = *ptr++; /* Copy the % and move forward. */ 94 95 while (strchr ("-+ #0", *ptr)) /* Move past flags. */ 96 *sptr++ = *ptr++; 97 98 if (*ptr == '*') 99 COPY_VA_INT; 100 else 101 while (ISDIGIT(*ptr)) /* Handle explicit numeric value. */ 102 *sptr++ = *ptr++; 103 104 if (*ptr == '.') 105 { 106 *sptr++ = *ptr++; /* Copy and go past the period. */ 107 if (*ptr == '*') 108 COPY_VA_INT; 109 else 110 while (ISDIGIT(*ptr)) /* Handle explicit numeric value. */ 111 *sptr++ = *ptr++; 112 } 113 while (strchr ("hlL", *ptr)) 114 { 115 switch (*ptr) 116 { 117 case 'h': 118 short_width = 1; 119 break; 120 case 'l': 121 wide_width++; 122 break; 123 case 'L': 124 wide_width = 2; 125 break; 126 default: 127 abort(); 128 } 129 *sptr++ = *ptr++; 130 } 131 132 switch (*ptr) 133 { 134 case 'd': 135 case 'i': 136 case 'o': 137 case 'u': 138 case 'x': 139 case 'X': 140 case 'c': 141 { 142 /* Short values are promoted to int, so just copy it 143 as an int and trust the C library printf to cast it 144 to the right width. */ 145 if (short_width) 146 PRINT_TYPE(int); 147 else 148 { 149 switch (wide_width) 150 { 151 case 0: 152 PRINT_TYPE(int); 153 break; 154 case 1: 155 PRINT_TYPE(long); 156 break; 157 case 2: 158 default: 159 #if defined(__GNUC__) || defined(HAVE_LONG_LONG) 160 PRINT_TYPE(long long); 161 #else 162 PRINT_TYPE(long); /* Fake it and hope for the best. */ 163 #endif 164 break; 165 } /* End of switch (wide_width) */ 166 } /* End of else statement */ 167 } /* End of integer case */ 168 break; 169 case 'f': 170 case 'e': 171 case 'E': 172 case 'g': 173 case 'G': 174 { 175 if (wide_width == 0) 176 PRINT_TYPE(double); 177 else 178 { 179 #if defined(__GNUC__) || defined(HAVE_LONG_DOUBLE) 180 PRINT_TYPE(long double); 181 #else 182 PRINT_TYPE(double); /* Fake it and hope for the best. */ 183 #endif 184 } 185 } 186 break; 187 case 's': 188 PRINT_TYPE(char *); 189 break; 190 case 'p': 191 PRINT_TYPE(void *); 192 break; 193 case '%': 194 PRINT_CHAR('%'); 195 break; 196 default: 197 abort(); 198 } /* End of switch (*ptr) */ 199 } /* End of else statement */ 200 } 201 202 return total_printed; 203 } 204 205 #ifdef TEST 206 207 #include <math.h> 208 #ifndef M_PI 209 #define M_PI (3.1415926535897932385) 210 #endif 211 212 #define RESULT(x) do \ 213 { \ 214 int i = (x); \ 215 printf ("printed %d characters\n", i); \ 216 fflush(stdin); \ 217 } while (0) 218 219 static int checkit (const char * format, ...) ATTRIBUTE_PRINTF_1; 220 221 static int 222 checkit (const char* format, ...) 223 { 224 int result; 225 va_list args; 226 va_start (args, format); 227 228 result = _doprnt (format, args, stdout); 229 va_end (args); 230 231 return result; 232 } 233 234 int 235 main (void) 236 { 237 RESULT(checkit ("<%d>\n", 0x12345678)); 238 RESULT(printf ("<%d>\n", 0x12345678)); 239 240 RESULT(checkit ("<%200d>\n", 5)); 241 RESULT(printf ("<%200d>\n", 5)); 242 243 RESULT(checkit ("<%.300d>\n", 6)); 244 RESULT(printf ("<%.300d>\n", 6)); 245 246 RESULT(checkit ("<%100.150d>\n", 7)); 247 RESULT(printf ("<%100.150d>\n", 7)); 248 249 RESULT(checkit ("<%s>\n", 250 "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\ 251 777777777777777777333333333333366666666666622222222222777777777777733333")); 252 RESULT(printf ("<%s>\n", 253 "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\ 254 777777777777777777333333333333366666666666622222222222777777777777733333")); 255 256 RESULT(checkit ("<%f><%0+#f>%s%d%s>\n", 257 1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx")); 258 RESULT(printf ("<%f><%0+#f>%s%d%s>\n", 259 1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx")); 260 261 RESULT(checkit ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI)); 262 RESULT(printf ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI)); 263 264 RESULT(checkit ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI)); 265 RESULT(printf ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI)); 266 267 RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n", 268 75, 75, 75, 75, 75, 75, 75)); 269 RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n", 270 75, 75, 75, 75, 75, 75, 75)); 271 272 RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n", 273 75, 75, 75, 75, 75, 75, 75)); 274 RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n", 275 75, 75, 75, 75, 75, 75, 75)); 276 277 RESULT(checkit ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456)); 278 RESULT(printf ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456)); 279 280 #if defined(__GNUC__) || defined (HAVE_LONG_LONG) 281 RESULT(checkit ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345)); 282 RESULT(printf ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345)); 283 RESULT(checkit ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345)); 284 RESULT(printf ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345)); 285 #endif 286 287 #if defined(__GNUC__) || defined (HAVE_LONG_DOUBLE) 288 RESULT(checkit ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n", 289 1.23456, 1.234567890123456789L, 1.23456)); 290 RESULT(printf ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n", 291 1.23456, 1.234567890123456789L, 1.23456)); 292 #endif 293 294 return 0; 295 } 296 #endif /* TEST */ 297