1 /* 2 ****************************************************************************** 3 * 4 * Copyright (C) 1998-2008, International Business Machines 5 * Corporation and others. All Rights Reserved. 6 * 7 ****************************************************************************** 8 * 9 * File uprntf_p.c 10 * 11 * Modification History: 12 * 13 * Date Name Description 14 * 11/23/98 stephen Creation. 15 * 03/12/99 stephen Modified for new C API. 16 * 08/07/2003 george Reunify printf implementations 17 ****************************************************************************** 18 */ 19 20 #include "unicode/utypes.h" 21 22 #if !UCONFIG_NO_FORMATTING 23 24 #include "unicode/ustring.h" 25 26 #include "uprintf.h" 27 #include "ufmt_cmn.h" 28 #include "cmemory.h" 29 #include "putilimp.h" 30 31 /* ANSI style formatting */ 32 /* Use US-ASCII characters only for formatting */ 33 34 /* % */ 35 #define UFMT_SIMPLE_PERCENT {ufmt_simple_percent, u_printf_simple_percent_handler} 36 /* s */ 37 #define UFMT_STRING {ufmt_string, u_printf_string_handler} 38 /* c */ 39 #define UFMT_CHAR {ufmt_char, u_printf_char_handler} 40 /* d, i */ 41 #define UFMT_INT {ufmt_int, u_printf_integer_handler} 42 /* u */ 43 #define UFMT_UINT {ufmt_int, u_printf_uinteger_handler} 44 /* o */ 45 #define UFMT_OCTAL {ufmt_int, u_printf_octal_handler} 46 /* x, X */ 47 #define UFMT_HEX {ufmt_int, u_printf_hex_handler} 48 /* f */ 49 #define UFMT_DOUBLE {ufmt_double, u_printf_double_handler} 50 /* e, E */ 51 #define UFMT_SCIENTIFIC {ufmt_double, u_printf_scientific_handler} 52 /* g, G */ 53 #define UFMT_SCIDBL {ufmt_double, u_printf_scidbl_handler} 54 /* n */ 55 #define UFMT_COUNT {ufmt_count, u_printf_count_handler} 56 57 /* non-ANSI extensions */ 58 /* Use US-ASCII characters only for formatting */ 59 60 /* p */ 61 #define UFMT_POINTER {ufmt_pointer, u_printf_pointer_handler} 62 /* V */ 63 #define UFMT_SPELLOUT {ufmt_double, u_printf_spellout_handler} 64 /* P */ 65 #define UFMT_PERCENT {ufmt_double, u_printf_percent_handler} 66 /* C K is old format */ 67 #define UFMT_UCHAR {ufmt_uchar, u_printf_uchar_handler} 68 /* S U is old format */ 69 #define UFMT_USTRING {ufmt_ustring, u_printf_ustring_handler} 70 71 72 #define UFMT_EMPTY {ufmt_empty, NULL} 73 74 /** 75 * A u_printf handler function. 76 * A u_printf handler is responsible for handling a single u_printf 77 * format specification, for example 'd' or 's'. 78 * @param stream The UFILE to which to write output. 79 * @param info A pointer to a <TT>u_printf_spec_info</TT> struct containing 80 * information on the format specification. 81 * @param args A pointer to the argument data 82 * @return The number of Unicode characters written to <TT>stream</TT>. 83 */ 84 typedef int32_t U_EXPORT2 85 u_printf_handler(const u_printf_stream_handler *handler, 86 87 void *context, 88 ULocaleBundle *formatBundle, 89 const u_printf_spec_info *info, 90 const ufmt_args *args); 91 92 typedef struct u_printf_info { 93 ufmt_type_info info; 94 u_printf_handler *handler; 95 } u_printf_info; 96 97 /** 98 * Struct encapsulating a single uprintf format specification. 99 */ 100 typedef struct u_printf_spec { 101 u_printf_spec_info fInfo; /* Information on this spec */ 102 int32_t fWidthPos; /* Position of width in arg list */ 103 int32_t fPrecisionPos; /* Position of precision in arg list */ 104 int32_t fArgPos; /* Position of data in arg list */ 105 } u_printf_spec; 106 107 #define UPRINTF_NUM_FMT_HANDLERS 108 108 109 /* We do not use handlers for 0-0x1f */ 110 #define UPRINTF_BASE_FMT_HANDLERS 0x20 111 112 /* buffer size for formatting */ 113 #define UPRINTF_BUFFER_SIZE 1024 114 #define UPRINTF_SYMBOL_BUFFER_SIZE 8 115 116 static const UChar gNullStr[] = {0x28, 0x6E, 0x75, 0x6C, 0x6C, 0x29, 0}; /* "(null)" */ 117 static const UChar gSpaceStr[] = {0x20, 0}; /* " " */ 118 119 /* Sets the sign of a format based on u_printf_spec_info */ 120 /* TODO: Is setting the prefix symbol to a positive sign a good idea in all locales? */ 121 static void 122 u_printf_set_sign(UNumberFormat *format, 123 const u_printf_spec_info *info, 124 UChar *prefixBuffer, 125 int32_t *prefixBufLen, 126 UErrorCode *status) 127 { 128 if(info->fShowSign) { 129 *prefixBufLen = unum_getTextAttribute(format, 130 UNUM_POSITIVE_PREFIX, 131 prefixBuffer, 132 *prefixBufLen, 133 status); 134 if (info->fSpace) { 135 /* Setting UNUM_PLUS_SIGN_SYMBOL affects the exponent too. */ 136 /* unum_setSymbol(format, UNUM_PLUS_SIGN_SYMBOL, gSpaceStr, 1, &status); */ 137 unum_setTextAttribute(format, UNUM_POSITIVE_PREFIX, gSpaceStr, 1, status); 138 } 139 else { 140 UChar plusSymbol[UPRINTF_SYMBOL_BUFFER_SIZE]; 141 int32_t symbolLen; 142 143 symbolLen = unum_getSymbol(format, 144 UNUM_PLUS_SIGN_SYMBOL, 145 plusSymbol, 146 sizeof(plusSymbol)/sizeof(*plusSymbol), 147 status); 148 unum_setTextAttribute(format, 149 UNUM_POSITIVE_PREFIX, 150 plusSymbol, 151 symbolLen, 152 status); 153 } 154 } 155 else { 156 *prefixBufLen = 0; 157 } 158 } 159 160 static void 161 u_printf_reset_sign(UNumberFormat *format, 162 const u_printf_spec_info *info, 163 UChar *prefixBuffer, 164 int32_t *prefixBufLen, 165 UErrorCode *status) 166 { 167 if(info->fShowSign) { 168 unum_setTextAttribute(format, 169 UNUM_POSITIVE_PREFIX, 170 prefixBuffer, 171 *prefixBufLen, 172 status); 173 } 174 } 175 176 177 /* handle a '%' */ 178 static int32_t 179 u_printf_simple_percent_handler(const u_printf_stream_handler *handler, 180 void *context, 181 ULocaleBundle *formatBundle, 182 const u_printf_spec_info *info, 183 const ufmt_args *args) 184 { 185 static const UChar PERCENT[] = { UP_PERCENT }; 186 187 /* put a single '%' onto the output */ 188 return handler->write(context, PERCENT, 1); 189 } 190 191 /* handle 's' */ 192 static int32_t 193 u_printf_string_handler(const u_printf_stream_handler *handler, 194 void *context, 195 ULocaleBundle *formatBundle, 196 const u_printf_spec_info *info, 197 const ufmt_args *args) 198 { 199 UChar *s; 200 UChar buffer[UFMT_DEFAULT_BUFFER_SIZE]; 201 int32_t len, written; 202 int32_t argSize; 203 const char *arg = (const char*)(args[0].ptrValue); 204 205 /* convert from the default codepage to Unicode */ 206 if (arg) { 207 argSize = (int32_t)strlen(arg) + 1; 208 if (argSize >= MAX_UCHAR_BUFFER_SIZE(buffer)) { 209 s = ufmt_defaultCPToUnicode(arg, argSize, 210 (UChar *)uprv_malloc(MAX_UCHAR_BUFFER_NEEDED(argSize)), 211 MAX_UCHAR_BUFFER_NEEDED(argSize)); 212 if(s == NULL) { 213 return 0; 214 } 215 } 216 else { 217 s = ufmt_defaultCPToUnicode(arg, argSize, buffer, 218 sizeof(buffer)/sizeof(UChar)); 219 } 220 } 221 else { 222 s = (UChar *)gNullStr; 223 } 224 len = u_strlen(s); 225 226 /* width = minimum # of characters to write */ 227 /* precision = maximum # of characters to write */ 228 if (info->fPrecision != -1 && info->fPrecision < len) { 229 len = info->fPrecision; 230 } 231 232 written = handler->pad_and_justify(context, info, s, len); 233 234 /* clean up */ 235 if (gNullStr != s && buffer != s) { 236 uprv_free(s); 237 } 238 239 return written; 240 } 241 242 static int32_t 243 u_printf_char_handler(const u_printf_stream_handler *handler, 244 void *context, 245 ULocaleBundle *formatBundle, 246 const u_printf_spec_info *info, 247 const ufmt_args *args) 248 { 249 UChar s[UTF_MAX_CHAR_LENGTH+1]; 250 int32_t len = 1, written; 251 unsigned char arg = (unsigned char)(args[0].int64Value); 252 253 /* convert from default codepage to Unicode */ 254 ufmt_defaultCPToUnicode((const char *)&arg, 2, s, sizeof(s)/sizeof(UChar)); 255 256 /* Remember that this may be an MBCS character */ 257 if (arg != 0) { 258 len = u_strlen(s); 259 } 260 261 /* width = minimum # of characters to write */ 262 /* precision = maximum # of characters to write */ 263 /* precision is ignored when handling a char */ 264 265 written = handler->pad_and_justify(context, info, s, len); 266 267 return written; 268 } 269 270 static int32_t 271 u_printf_double_handler(const u_printf_stream_handler *handler, 272 void *context, 273 ULocaleBundle *formatBundle, 274 const u_printf_spec_info *info, 275 const ufmt_args *args) 276 { 277 double num = (double) (args[0].doubleValue); 278 UNumberFormat *format; 279 UChar result[UPRINTF_BUFFER_SIZE]; 280 UChar prefixBuffer[UPRINTF_BUFFER_SIZE]; 281 int32_t prefixBufferLen = sizeof(prefixBuffer); 282 int32_t minDecimalDigits; 283 int32_t maxDecimalDigits; 284 int32_t resultLen; 285 UErrorCode status = U_ZERO_ERROR; 286 287 prefixBuffer[0] = 0; 288 289 /* mask off any necessary bits */ 290 /* if(! info->fIsLongDouble) 291 num &= DBL_MAX;*/ 292 293 /* get the formatter */ 294 format = u_locbund_getNumberFormat(formatBundle, UNUM_DECIMAL); 295 296 /* handle error */ 297 if(format == 0) 298 return 0; 299 300 /* save the formatter's state */ 301 minDecimalDigits = unum_getAttribute(format, UNUM_MIN_FRACTION_DIGITS); 302 maxDecimalDigits = unum_getAttribute(format, UNUM_MAX_FRACTION_DIGITS); 303 304 /* set the appropriate flags and number of decimal digits on the formatter */ 305 if(info->fPrecision != -1) { 306 /* set the # of decimal digits */ 307 unum_setAttribute(format, UNUM_FRACTION_DIGITS, info->fPrecision); 308 } 309 else if(info->fAlt) { 310 /* '#' means always show decimal point */ 311 /* copy of printf behavior on Solaris - '#' shows 6 digits */ 312 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 313 } 314 else { 315 /* # of decimal digits is 6 if precision not specified regardless of locale */ 316 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 317 } 318 319 /* set whether to show the sign */ 320 if (info->fShowSign) { 321 u_printf_set_sign(format, info, prefixBuffer, &prefixBufferLen, &status); 322 } 323 324 /* format the number */ 325 resultLen = unum_formatDouble(format, num, result, UPRINTF_BUFFER_SIZE, 0, &status); 326 327 if (U_FAILURE(status)) { 328 resultLen = 0; 329 } 330 331 /* restore the number format */ 332 /* TODO: Is this needed? */ 333 unum_setAttribute(format, UNUM_MIN_FRACTION_DIGITS, minDecimalDigits); 334 unum_setAttribute(format, UNUM_MAX_FRACTION_DIGITS, maxDecimalDigits); 335 336 if (info->fShowSign) { 337 /* Reset back to original value regardless of what the error was */ 338 UErrorCode localStatus = U_ZERO_ERROR; 339 u_printf_reset_sign(format, info, prefixBuffer, &prefixBufferLen, &localStatus); 340 } 341 342 return handler->pad_and_justify(context, info, result, resultLen); 343 } 344 345 /* HSYS */ 346 static int32_t 347 u_printf_integer_handler(const u_printf_stream_handler *handler, 348 void *context, 349 ULocaleBundle *formatBundle, 350 const u_printf_spec_info *info, 351 const ufmt_args *args) 352 { 353 int64_t num = args[0].int64Value; 354 UNumberFormat *format; 355 UChar result[UPRINTF_BUFFER_SIZE]; 356 UChar prefixBuffer[UPRINTF_BUFFER_SIZE]; 357 int32_t prefixBufferLen = sizeof(prefixBuffer); 358 int32_t minDigits = -1; 359 int32_t resultLen; 360 UErrorCode status = U_ZERO_ERROR; 361 362 prefixBuffer[0] = 0; 363 364 /* mask off any necessary bits */ 365 if (info->fIsShort) 366 num = (int16_t)num; 367 else if (!info->fIsLongLong) 368 num = (int32_t)num; 369 370 /* get the formatter */ 371 format = u_locbund_getNumberFormat(formatBundle, UNUM_DECIMAL); 372 373 /* handle error */ 374 if(format == 0) 375 return 0; 376 377 /* set the appropriate flags on the formatter */ 378 379 /* set the minimum integer digits */ 380 if(info->fPrecision != -1) { 381 /* set the minimum # of digits */ 382 minDigits = unum_getAttribute(format, UNUM_MIN_INTEGER_DIGITS); 383 unum_setAttribute(format, UNUM_MIN_INTEGER_DIGITS, info->fPrecision); 384 } 385 386 /* set whether to show the sign */ 387 if(info->fShowSign) { 388 u_printf_set_sign(format, info, prefixBuffer, &prefixBufferLen, &status); 389 } 390 391 /* format the number */ 392 resultLen = unum_formatInt64(format, num, result, UPRINTF_BUFFER_SIZE, 0, &status); 393 394 if (U_FAILURE(status)) { 395 resultLen = 0; 396 } 397 398 /* restore the number format */ 399 if (minDigits != -1) { 400 unum_setAttribute(format, UNUM_MIN_INTEGER_DIGITS, minDigits); 401 } 402 403 if (info->fShowSign) { 404 /* Reset back to original value regardless of what the error was */ 405 UErrorCode localStatus = U_ZERO_ERROR; 406 u_printf_reset_sign(format, info, prefixBuffer, &prefixBufferLen, &localStatus); 407 } 408 409 return handler->pad_and_justify(context, info, result, resultLen); 410 } 411 412 static int32_t 413 u_printf_hex_handler(const u_printf_stream_handler *handler, 414 void *context, 415 ULocaleBundle *formatBundle, 416 const u_printf_spec_info *info, 417 const ufmt_args *args) 418 { 419 int64_t num = args[0].int64Value; 420 UChar result[UPRINTF_BUFFER_SIZE]; 421 int32_t len = UPRINTF_BUFFER_SIZE; 422 423 424 /* mask off any necessary bits */ 425 if (info->fIsShort) 426 num &= UINT16_MAX; 427 else if (!info->fIsLongLong) 428 num &= UINT32_MAX; 429 430 /* format the number, preserving the minimum # of digits */ 431 ufmt_64tou(result, &len, num, 16, 432 (UBool)(info->fSpec == 0x0078), 433 (info->fPrecision == -1 && info->fZero) ? info->fWidth : info->fPrecision); 434 435 /* convert to alt form, if desired */ 436 if(num != 0 && info->fAlt && len < UPRINTF_BUFFER_SIZE - 2) { 437 /* shift the formatted string right by 2 chars */ 438 memmove(result + 2, result, len * sizeof(UChar)); 439 result[0] = 0x0030; 440 result[1] = info->fSpec; 441 len += 2; 442 } 443 444 return handler->pad_and_justify(context, info, result, len); 445 } 446 447 static int32_t 448 u_printf_octal_handler(const u_printf_stream_handler *handler, 449 void *context, 450 ULocaleBundle *formatBundle, 451 const u_printf_spec_info *info, 452 const ufmt_args *args) 453 { 454 int64_t num = args[0].int64Value; 455 UChar result[UPRINTF_BUFFER_SIZE]; 456 int32_t len = UPRINTF_BUFFER_SIZE; 457 458 459 /* mask off any necessary bits */ 460 if (info->fIsShort) 461 num &= UINT16_MAX; 462 else if (!info->fIsLongLong) 463 num &= UINT32_MAX; 464 465 /* format the number, preserving the minimum # of digits */ 466 ufmt_64tou(result, &len, num, 8, 467 FALSE, /* doesn't matter for octal */ 468 info->fPrecision == -1 && info->fZero ? info->fWidth : info->fPrecision); 469 470 /* convert to alt form, if desired */ 471 if(info->fAlt && result[0] != 0x0030 && len < UPRINTF_BUFFER_SIZE - 1) { 472 /* shift the formatted string right by 1 char */ 473 memmove(result + 1, result, len * sizeof(UChar)); 474 result[0] = 0x0030; 475 len += 1; 476 } 477 478 return handler->pad_and_justify(context, info, result, len); 479 } 480 481 static int32_t 482 u_printf_uinteger_handler(const u_printf_stream_handler *handler, 483 void *context, 484 ULocaleBundle *formatBundle, 485 const u_printf_spec_info *info, 486 const ufmt_args *args) 487 { 488 int64_t num = args[0].int64Value; 489 UNumberFormat *format; 490 UChar result[UPRINTF_BUFFER_SIZE]; 491 int32_t minDigits = -1; 492 int32_t resultLen; 493 UErrorCode status = U_ZERO_ERROR; 494 495 /* TODO: Fix this once uint64_t can be formatted. */ 496 if (info->fIsShort) 497 num &= UINT16_MAX; 498 else if (!info->fIsLongLong) 499 num &= UINT32_MAX; 500 501 /* get the formatter */ 502 format = u_locbund_getNumberFormat(formatBundle, UNUM_DECIMAL); 503 504 /* handle error */ 505 if(format == 0) 506 return 0; 507 508 /* set the appropriate flags on the formatter */ 509 510 /* set the minimum integer digits */ 511 if(info->fPrecision != -1) { 512 /* set the minimum # of digits */ 513 minDigits = unum_getAttribute(format, UNUM_MIN_INTEGER_DIGITS); 514 unum_setAttribute(format, UNUM_MIN_INTEGER_DIGITS, info->fPrecision); 515 } 516 517 /* To mirror other stdio implementations, we ignore the sign argument */ 518 519 /* format the number */ 520 resultLen = unum_formatInt64(format, num, result, UPRINTF_BUFFER_SIZE, 0, &status); 521 522 if (U_FAILURE(status)) { 523 resultLen = 0; 524 } 525 526 /* restore the number format */ 527 if (minDigits != -1) { 528 unum_setAttribute(format, UNUM_MIN_INTEGER_DIGITS, minDigits); 529 } 530 531 return handler->pad_and_justify(context, info, result, resultLen); 532 } 533 534 static int32_t 535 u_printf_pointer_handler(const u_printf_stream_handler *handler, 536 void *context, 537 ULocaleBundle *formatBundle, 538 const u_printf_spec_info *info, 539 const ufmt_args *args) 540 { 541 UChar result[UPRINTF_BUFFER_SIZE]; 542 int32_t len = UPRINTF_BUFFER_SIZE; 543 544 /* format the pointer in hex */ 545 ufmt_ptou(result, &len, args[0].ptrValue, TRUE/*, info->fPrecision*/); 546 547 return handler->pad_and_justify(context, info, result, len); 548 } 549 550 static int32_t 551 u_printf_scientific_handler(const u_printf_stream_handler *handler, 552 void *context, 553 ULocaleBundle *formatBundle, 554 const u_printf_spec_info *info, 555 const ufmt_args *args) 556 { 557 double num = (double) (args[0].doubleValue); 558 UNumberFormat *format; 559 UChar result[UPRINTF_BUFFER_SIZE]; 560 UChar prefixBuffer[UPRINTF_BUFFER_SIZE]; 561 int32_t prefixBufferLen = sizeof(prefixBuffer); 562 int32_t minDecimalDigits; 563 int32_t maxDecimalDigits; 564 UErrorCode status = U_ZERO_ERROR; 565 UChar srcExpBuf[UPRINTF_SYMBOL_BUFFER_SIZE]; 566 int32_t srcLen, expLen; 567 int32_t resultLen; 568 UChar expBuf[UPRINTF_SYMBOL_BUFFER_SIZE]; 569 570 prefixBuffer[0] = 0; 571 572 /* mask off any necessary bits */ 573 /* if(! info->fIsLongDouble) 574 num &= DBL_MAX;*/ 575 576 /* get the formatter */ 577 format = u_locbund_getNumberFormat(formatBundle, UNUM_SCIENTIFIC); 578 579 /* handle error */ 580 if(format == 0) 581 return 0; 582 583 /* set the appropriate flags on the formatter */ 584 585 srcLen = unum_getSymbol(format, 586 UNUM_EXPONENTIAL_SYMBOL, 587 srcExpBuf, 588 sizeof(srcExpBuf), 589 &status); 590 591 /* Upper/lower case the e */ 592 if (info->fSpec == (UChar)0x65 /* e */) { 593 expLen = u_strToLower(expBuf, (int32_t)sizeof(expBuf), 594 srcExpBuf, srcLen, 595 formatBundle->fLocale, 596 &status); 597 } 598 else { 599 expLen = u_strToUpper(expBuf, (int32_t)sizeof(expBuf), 600 srcExpBuf, srcLen, 601 formatBundle->fLocale, 602 &status); 603 } 604 605 unum_setSymbol(format, 606 UNUM_EXPONENTIAL_SYMBOL, 607 expBuf, 608 expLen, 609 &status); 610 611 /* save the formatter's state */ 612 minDecimalDigits = unum_getAttribute(format, UNUM_MIN_FRACTION_DIGITS); 613 maxDecimalDigits = unum_getAttribute(format, UNUM_MAX_FRACTION_DIGITS); 614 615 /* set the appropriate flags and number of decimal digits on the formatter */ 616 if(info->fPrecision != -1) { 617 /* set the # of decimal digits */ 618 if (info->fOrigSpec == (UChar)0x65 /* e */ || info->fOrigSpec == (UChar)0x45 /* E */) { 619 unum_setAttribute(format, UNUM_FRACTION_DIGITS, info->fPrecision); 620 } 621 else { 622 unum_setAttribute(format, UNUM_MIN_FRACTION_DIGITS, 1); 623 unum_setAttribute(format, UNUM_MAX_FRACTION_DIGITS, info->fPrecision); 624 } 625 } 626 else if(info->fAlt) { 627 /* '#' means always show decimal point */ 628 /* copy of printf behavior on Solaris - '#' shows 6 digits */ 629 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 630 } 631 else { 632 /* # of decimal digits is 6 if precision not specified */ 633 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 634 } 635 636 /* set whether to show the sign */ 637 if (info->fShowSign) { 638 u_printf_set_sign(format, info, prefixBuffer, &prefixBufferLen, &status); 639 } 640 641 /* format the number */ 642 resultLen = unum_formatDouble(format, num, result, UPRINTF_BUFFER_SIZE, 0, &status); 643 644 if (U_FAILURE(status)) { 645 resultLen = 0; 646 } 647 648 /* restore the number format */ 649 /* TODO: Is this needed? */ 650 unum_setAttribute(format, UNUM_MIN_FRACTION_DIGITS, minDecimalDigits); 651 unum_setAttribute(format, UNUM_MAX_FRACTION_DIGITS, maxDecimalDigits); 652 653 /* Since we're the only one using the scientific 654 format, we don't need to save the old exponent value. */ 655 /*unum_setSymbol(format, 656 UNUM_EXPONENTIAL_SYMBOL, 657 srcExpBuf, 658 srcLen, 659 &status);*/ 660 661 if (info->fShowSign) { 662 /* Reset back to original value regardless of what the error was */ 663 UErrorCode localStatus = U_ZERO_ERROR; 664 u_printf_reset_sign(format, info, prefixBuffer, &prefixBufferLen, &localStatus); 665 } 666 667 return handler->pad_and_justify(context, info, result, resultLen); 668 } 669 670 static int32_t 671 u_printf_percent_handler(const u_printf_stream_handler *handler, 672 void *context, 673 ULocaleBundle *formatBundle, 674 const u_printf_spec_info *info, 675 const ufmt_args *args) 676 { 677 double num = (double) (args[0].doubleValue); 678 UNumberFormat *format; 679 UChar result[UPRINTF_BUFFER_SIZE]; 680 UChar prefixBuffer[UPRINTF_BUFFER_SIZE]; 681 int32_t prefixBufferLen = sizeof(prefixBuffer); 682 int32_t minDecimalDigits; 683 int32_t maxDecimalDigits; 684 int32_t resultLen; 685 UErrorCode status = U_ZERO_ERROR; 686 687 prefixBuffer[0] = 0; 688 689 /* mask off any necessary bits */ 690 /* if(! info->fIsLongDouble) 691 num &= DBL_MAX;*/ 692 693 /* get the formatter */ 694 format = u_locbund_getNumberFormat(formatBundle, UNUM_PERCENT); 695 696 /* handle error */ 697 if(format == 0) 698 return 0; 699 700 /* save the formatter's state */ 701 minDecimalDigits = unum_getAttribute(format, UNUM_MIN_FRACTION_DIGITS); 702 maxDecimalDigits = unum_getAttribute(format, UNUM_MAX_FRACTION_DIGITS); 703 704 /* set the appropriate flags and number of decimal digits on the formatter */ 705 if(info->fPrecision != -1) { 706 /* set the # of decimal digits */ 707 unum_setAttribute(format, UNUM_FRACTION_DIGITS, info->fPrecision); 708 } 709 else if(info->fAlt) { 710 /* '#' means always show decimal point */ 711 /* copy of printf behavior on Solaris - '#' shows 6 digits */ 712 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 713 } 714 else { 715 /* # of decimal digits is 6 if precision not specified */ 716 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 717 } 718 719 /* set whether to show the sign */ 720 if (info->fShowSign) { 721 u_printf_set_sign(format, info, prefixBuffer, &prefixBufferLen, &status); 722 } 723 724 /* format the number */ 725 resultLen = unum_formatDouble(format, num, result, UPRINTF_BUFFER_SIZE, 0, &status); 726 727 if (U_FAILURE(status)) { 728 resultLen = 0; 729 } 730 731 /* restore the number format */ 732 /* TODO: Is this needed? */ 733 unum_setAttribute(format, UNUM_MIN_FRACTION_DIGITS, minDecimalDigits); 734 unum_setAttribute(format, UNUM_MAX_FRACTION_DIGITS, maxDecimalDigits); 735 736 if (info->fShowSign) { 737 /* Reset back to original value regardless of what the error was */ 738 UErrorCode localStatus = U_ZERO_ERROR; 739 u_printf_reset_sign(format, info, prefixBuffer, &prefixBufferLen, &localStatus); 740 } 741 742 return handler->pad_and_justify(context, info, result, resultLen); 743 } 744 745 static int32_t 746 u_printf_ustring_handler(const u_printf_stream_handler *handler, 747 void *context, 748 ULocaleBundle *formatBundle, 749 const u_printf_spec_info *info, 750 const ufmt_args *args) 751 { 752 int32_t len, written; 753 const UChar *arg = (const UChar*)(args[0].ptrValue); 754 755 /* allocate enough space for the buffer */ 756 if (arg == NULL) { 757 arg = gNullStr; 758 } 759 len = u_strlen(arg); 760 761 /* width = minimum # of characters to write */ 762 /* precision = maximum # of characters to write */ 763 if (info->fPrecision != -1 && info->fPrecision < len) { 764 len = info->fPrecision; 765 } 766 767 /* determine if the string should be padded */ 768 written = handler->pad_and_justify(context, info, arg, len); 769 770 return written; 771 } 772 773 static int32_t 774 u_printf_uchar_handler(const u_printf_stream_handler *handler, 775 void *context, 776 ULocaleBundle *formatBundle, 777 const u_printf_spec_info *info, 778 const ufmt_args *args) 779 { 780 int32_t written = 0; 781 UChar arg = (UChar)(args[0].int64Value); 782 783 /* width = minimum # of characters to write */ 784 /* precision = maximum # of characters to write */ 785 /* precision is ignored when handling a uchar */ 786 787 /* determine if the string should be padded */ 788 written = handler->pad_and_justify(context, info, &arg, 1); 789 790 return written; 791 } 792 793 static int32_t 794 u_printf_scidbl_handler(const u_printf_stream_handler *handler, 795 void *context, 796 ULocaleBundle *formatBundle, 797 const u_printf_spec_info *info, 798 const ufmt_args *args) 799 { 800 u_printf_spec_info scidbl_info; 801 double num = args[0].doubleValue; 802 int32_t retVal; 803 UNumberFormat *format; 804 int32_t maxSigDecimalDigits, significantDigits; 805 806 memcpy(&scidbl_info, info, sizeof(u_printf_spec_info)); 807 808 /* determine whether to use 'd', 'e' or 'f' notation */ 809 if (scidbl_info.fPrecision == -1 && num == uprv_trunc(num)) 810 { 811 /* use 'f' notation */ 812 scidbl_info.fSpec = 0x0066; 813 scidbl_info.fPrecision = 0; 814 /* call the double handler */ 815 retVal = u_printf_double_handler(handler, context, formatBundle, &scidbl_info, args); 816 } 817 else if(num < 0.0001 || (scidbl_info.fPrecision < 1 && 1000000.0 <= num) 818 || (scidbl_info.fPrecision != -1 && num > uprv_pow10(scidbl_info.fPrecision))) 819 { 820 /* use 'e' or 'E' notation */ 821 scidbl_info.fSpec = scidbl_info.fSpec - 2; 822 if (scidbl_info.fPrecision == -1) { 823 scidbl_info.fPrecision = 5; 824 } 825 /* call the scientific handler */ 826 retVal = u_printf_scientific_handler(handler, context, formatBundle, &scidbl_info, args); 827 } 828 else { 829 format = u_locbund_getNumberFormat(formatBundle, UNUM_DECIMAL); 830 /* Check for null pointer */ 831 if (format == NULL) { 832 return 0; 833 } 834 maxSigDecimalDigits = unum_getAttribute(format, UNUM_MAX_SIGNIFICANT_DIGITS); 835 significantDigits = scidbl_info.fPrecision; 836 837 /* use 'f' notation */ 838 scidbl_info.fSpec = 0x0066; 839 if (significantDigits == -1) { 840 significantDigits = 6; 841 } 842 unum_setAttribute(format, UNUM_SIGNIFICANT_DIGITS_USED, TRUE); 843 unum_setAttribute(format, UNUM_MAX_SIGNIFICANT_DIGITS, significantDigits); 844 /* call the double handler */ 845 retVal = u_printf_double_handler(handler, context, formatBundle, &scidbl_info, args); 846 unum_setAttribute(format, UNUM_MAX_SIGNIFICANT_DIGITS, maxSigDecimalDigits); 847 unum_setAttribute(format, UNUM_SIGNIFICANT_DIGITS_USED, FALSE); 848 } 849 return retVal; 850 } 851 852 static int32_t 853 u_printf_count_handler(const u_printf_stream_handler *handler, 854 void *context, 855 ULocaleBundle *formatBundle, 856 const u_printf_spec_info *info, 857 const ufmt_args *args) 858 { 859 int32_t *count = (int32_t*)(args[0].ptrValue); 860 861 /* in the special case of count, the u_printf_spec_info's width */ 862 /* will contain the # of chars written thus far */ 863 *count = info->fWidth; 864 865 return 0; 866 } 867 868 static int32_t 869 u_printf_spellout_handler(const u_printf_stream_handler *handler, 870 void *context, 871 ULocaleBundle *formatBundle, 872 const u_printf_spec_info *info, 873 const ufmt_args *args) 874 { 875 double num = (double) (args[0].doubleValue); 876 UNumberFormat *format; 877 UChar result[UPRINTF_BUFFER_SIZE]; 878 UChar prefixBuffer[UPRINTF_BUFFER_SIZE]; 879 int32_t prefixBufferLen = sizeof(prefixBuffer); 880 int32_t minDecimalDigits; 881 int32_t maxDecimalDigits; 882 int32_t resultLen; 883 UErrorCode status = U_ZERO_ERROR; 884 885 prefixBuffer[0] = 0; 886 887 /* mask off any necessary bits */ 888 /* if(! info->fIsLongDouble) 889 num &= DBL_MAX;*/ 890 891 /* get the formatter */ 892 format = u_locbund_getNumberFormat(formatBundle, UNUM_SPELLOUT); 893 894 /* handle error */ 895 if(format == 0) 896 return 0; 897 898 /* save the formatter's state */ 899 minDecimalDigits = unum_getAttribute(format, UNUM_MIN_FRACTION_DIGITS); 900 maxDecimalDigits = unum_getAttribute(format, UNUM_MAX_FRACTION_DIGITS); 901 902 /* set the appropriate flags and number of decimal digits on the formatter */ 903 if(info->fPrecision != -1) { 904 /* set the # of decimal digits */ 905 unum_setAttribute(format, UNUM_FRACTION_DIGITS, info->fPrecision); 906 } 907 else if(info->fAlt) { 908 /* '#' means always show decimal point */ 909 /* copy of printf behavior on Solaris - '#' shows 6 digits */ 910 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 911 } 912 else { 913 /* # of decimal digits is 6 if precision not specified */ 914 unum_setAttribute(format, UNUM_FRACTION_DIGITS, 6); 915 } 916 917 /* set whether to show the sign */ 918 if (info->fShowSign) { 919 u_printf_set_sign(format, info, prefixBuffer, &prefixBufferLen, &status); 920 } 921 922 /* format the number */ 923 resultLen = unum_formatDouble(format, num, result, UPRINTF_BUFFER_SIZE, 0, &status); 924 925 if (U_FAILURE(status)) { 926 resultLen = 0; 927 } 928 929 /* restore the number format */ 930 /* TODO: Is this needed? */ 931 unum_setAttribute(format, UNUM_MIN_FRACTION_DIGITS, minDecimalDigits); 932 unum_setAttribute(format, UNUM_MAX_FRACTION_DIGITS, maxDecimalDigits); 933 934 if (info->fShowSign) { 935 /* Reset back to original value regardless of what the error was */ 936 UErrorCode localStatus = U_ZERO_ERROR; 937 u_printf_reset_sign(format, info, prefixBuffer, &prefixBufferLen, &localStatus); 938 } 939 940 return handler->pad_and_justify(context, info, result, resultLen); 941 } 942 943 /* Use US-ASCII characters only for formatting. Most codepages have 944 characters 20-7F from Unicode. Using any other codepage specific 945 characters will make it very difficult to format the string on 946 non-Unicode machines */ 947 static const u_printf_info g_u_printf_infos[UPRINTF_NUM_FMT_HANDLERS] = { 948 /* 0x20 */ 949 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 950 UFMT_EMPTY, UFMT_SIMPLE_PERCENT,UFMT_EMPTY, UFMT_EMPTY, 951 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 952 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 953 954 /* 0x30 */ 955 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 956 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 957 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 958 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 959 960 /* 0x40 */ 961 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_UCHAR, 962 UFMT_EMPTY, UFMT_SCIENTIFIC, UFMT_EMPTY, UFMT_SCIDBL, 963 #ifdef U_USE_OBSOLETE_IO_FORMATTING 964 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_UCHAR/*deprecated*/, 965 #else 966 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 967 #endif 968 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 969 970 /* 0x50 */ 971 UFMT_PERCENT, UFMT_EMPTY, UFMT_EMPTY, UFMT_USTRING, 972 #ifdef U_USE_OBSOLETE_IO_FORMATTING 973 UFMT_EMPTY, UFMT_USTRING/*deprecated*/,UFMT_SPELLOUT, UFMT_EMPTY, 974 #else 975 UFMT_EMPTY, UFMT_EMPTY, UFMT_SPELLOUT, UFMT_EMPTY, 976 #endif 977 UFMT_HEX, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 978 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 979 980 /* 0x60 */ 981 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_CHAR, 982 UFMT_INT, UFMT_SCIENTIFIC, UFMT_DOUBLE, UFMT_SCIDBL, 983 UFMT_EMPTY, UFMT_INT, UFMT_EMPTY, UFMT_EMPTY, 984 UFMT_EMPTY, UFMT_EMPTY, UFMT_COUNT, UFMT_OCTAL, 985 986 /* 0x70 */ 987 UFMT_POINTER, UFMT_EMPTY, UFMT_EMPTY, UFMT_STRING, 988 UFMT_EMPTY, UFMT_UINT, UFMT_EMPTY, UFMT_EMPTY, 989 UFMT_HEX, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 990 UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, UFMT_EMPTY, 991 }; 992 993 /* flag characters for uprintf */ 994 #define FLAG_MINUS 0x002D 995 #define FLAG_PLUS 0x002B 996 #define FLAG_SPACE 0x0020 997 #define FLAG_POUND 0x0023 998 #define FLAG_ZERO 0x0030 999 #define FLAG_PAREN 0x0028 1000 1001 #define ISFLAG(s) (s) == FLAG_MINUS || \ 1002 (s) == FLAG_PLUS || \ 1003 (s) == FLAG_SPACE || \ 1004 (s) == FLAG_POUND || \ 1005 (s) == FLAG_ZERO || \ 1006 (s) == FLAG_PAREN 1007 1008 /* special characters for uprintf */ 1009 #define SPEC_ASTERISK 0x002A 1010 #define SPEC_DOLLARSIGN 0x0024 1011 #define SPEC_PERIOD 0x002E 1012 #define SPEC_PERCENT 0x0025 1013 1014 /* unicode digits */ 1015 #define DIGIT_ZERO 0x0030 1016 #define DIGIT_ONE 0x0031 1017 #define DIGIT_TWO 0x0032 1018 #define DIGIT_THREE 0x0033 1019 #define DIGIT_FOUR 0x0034 1020 #define DIGIT_FIVE 0x0035 1021 #define DIGIT_SIX 0x0036 1022 #define DIGIT_SEVEN 0x0037 1023 #define DIGIT_EIGHT 0x0038 1024 #define DIGIT_NINE 0x0039 1025 1026 #define ISDIGIT(s) (s) == DIGIT_ZERO || \ 1027 (s) == DIGIT_ONE || \ 1028 (s) == DIGIT_TWO || \ 1029 (s) == DIGIT_THREE || \ 1030 (s) == DIGIT_FOUR || \ 1031 (s) == DIGIT_FIVE || \ 1032 (s) == DIGIT_SIX || \ 1033 (s) == DIGIT_SEVEN || \ 1034 (s) == DIGIT_EIGHT || \ 1035 (s) == DIGIT_NINE 1036 1037 /* u_printf modifiers */ 1038 #define MOD_H 0x0068 1039 #define MOD_LOWERL 0x006C 1040 #define MOD_L 0x004C 1041 1042 #define ISMOD(s) (s) == MOD_H || \ 1043 (s) == MOD_LOWERL || \ 1044 (s) == MOD_L 1045 /* Returns an array of the parsed argument type given in the format string. */ 1046 static ufmt_args* parseArguments(const UChar *alias, va_list ap, UErrorCode *status) { 1047 ufmt_args *arglist = NULL; 1048 ufmt_type_info *typelist = NULL; 1049 UBool *islonglong = NULL; 1050 int32_t size = 0; 1051 int32_t pos = 0; 1052 UChar type; 1053 uint16_t handlerNum; 1054 const UChar *aliasStart = alias; 1055 1056 /* get maximum number of arguments */ 1057 for(;;) { 1058 /* find % */ 1059 while(*alias != UP_PERCENT && *alias != 0x0000) { 1060 alias++; 1061 } 1062 1063 if(*alias == 0x0000) { 1064 break; 1065 } 1066 1067 alias++; 1068 1069 /* handle the pos number */ 1070 if(ISDIGIT(*alias)) { 1071 1072 /* handle positional parameters */ 1073 if(ISDIGIT(*alias)) { 1074 pos = (int) (*alias++ - DIGIT_ZERO); 1075 1076 while(ISDIGIT(*alias)) { 1077 pos *= 10; 1078 pos += (int) (*alias++ - DIGIT_ZERO); 1079 } 1080 } 1081 1082 /* if there is no '$', don't read anything */ 1083 if(*alias != SPEC_DOLLARSIGN) { 1084 return NULL; 1085 } 1086 } else { 1087 return NULL; 1088 } 1089 1090 if (pos > size) { 1091 size = pos; 1092 } 1093 } 1094 1095 /* create the parsed argument list */ 1096 typelist = (ufmt_type_info*)uprv_malloc(sizeof(ufmt_type_info) * size); 1097 islonglong = (UBool*)uprv_malloc(sizeof(UBool) * size); 1098 arglist = (ufmt_args*)uprv_malloc(sizeof(ufmt_args) * size); 1099 1100 /* If malloc failed, return NULL */ 1101 if (!typelist || !islonglong || !arglist) { 1102 if (typelist) { 1103 uprv_free(typelist); 1104 } 1105 1106 if (islonglong) { 1107 uprv_free(islonglong); 1108 } 1109 1110 if (arglist) { 1111 uprv_free(arglist); 1112 } 1113 1114 *status = U_MEMORY_ALLOCATION_ERROR; 1115 return NULL; 1116 } 1117 1118 /* reset alias back to the beginning */ 1119 alias = aliasStart; 1120 1121 for(;;) { 1122 /* find % */ 1123 while(*alias != UP_PERCENT && *alias != 0x0000) { 1124 alias++; 1125 } 1126 1127 if(*alias == 0x0000) { 1128 break; 1129 } 1130 1131 alias++; 1132 1133 /* handle positional parameters */ 1134 if(ISDIGIT(*alias)) { 1135 pos = (int) (*alias++ - DIGIT_ZERO); 1136 1137 while(ISDIGIT(*alias)) { 1138 pos *= 10; 1139 pos += (int) (*alias++ - DIGIT_ZERO); 1140 } 1141 } 1142 /* offset position by 1 */ 1143 pos--; 1144 1145 /* skip over everything except for the type */ 1146 while (ISMOD(*alias) || ISFLAG(*alias) || ISDIGIT(*alias) || 1147 *alias == SPEC_ASTERISK || *alias == SPEC_PERIOD || *alias == SPEC_DOLLARSIGN) { 1148 islonglong[pos] = FALSE; 1149 if (ISMOD(*alias)) { 1150 alias++; 1151 if (*alias == MOD_LOWERL) { 1152 islonglong[pos] = TRUE; 1153 } 1154 } 1155 alias++; 1156 } 1157 type = *alias; 1158 1159 /* store the argument type in the correct position of the parsed argument list */ 1160 handlerNum = (uint16_t)(type - UPRINTF_BASE_FMT_HANDLERS); 1161 if (handlerNum < UPRINTF_NUM_FMT_HANDLERS) { 1162 typelist[pos] = g_u_printf_infos[ handlerNum ].info; 1163 } else { 1164 typelist[pos] = ufmt_empty; 1165 } 1166 } 1167 1168 /* store argument in arglist */ 1169 for (pos = 0; pos < size; pos++) { 1170 switch (typelist[pos]) { 1171 case ufmt_string: 1172 case ufmt_ustring: 1173 case ufmt_pointer: 1174 arglist[pos].ptrValue = va_arg(ap, void*); 1175 break; 1176 case ufmt_char: 1177 case ufmt_uchar: 1178 case ufmt_int: 1179 if (islonglong[pos]) { 1180 arglist[pos].int64Value = va_arg(ap, int64_t); 1181 } 1182 else { 1183 arglist[pos].int64Value = va_arg(ap, int32_t); 1184 } 1185 break; 1186 case ufmt_float: 1187 arglist[pos].floatValue = (float) va_arg(ap, double); 1188 break; 1189 case ufmt_double: 1190 arglist[pos].doubleValue = va_arg(ap, double); 1191 break; 1192 default: 1193 /* else args is ignored */ 1194 arglist[pos].ptrValue = NULL; 1195 break; 1196 } 1197 } 1198 1199 uprv_free(typelist); 1200 uprv_free(islonglong); 1201 1202 return arglist; 1203 } 1204 1205 /* We parse the argument list in Unicode */ 1206 U_CFUNC int32_t 1207 u_printf_parse(const u_printf_stream_handler *streamHandler, 1208 const UChar *fmt, 1209 void *context, 1210 u_localized_print_string *locStringContext, 1211 ULocaleBundle *formatBundle, 1212 int32_t *written, 1213 va_list ap) 1214 { 1215 uint16_t handlerNum; 1216 ufmt_args args; 1217 ufmt_type_info argType; 1218 u_printf_handler *handler; 1219 u_printf_spec spec; 1220 u_printf_spec_info *info = &(spec.fInfo); 1221 1222 const UChar *alias = fmt; 1223 const UChar *backup; 1224 const UChar *lastAlias; 1225 const UChar *orgAlias = fmt; 1226 /* parsed argument list */ 1227 ufmt_args *arglist = NULL; /* initialized it to avoid compiler warnings */ 1228 UErrorCode status = U_ZERO_ERROR; 1229 if (!locStringContext || locStringContext->available >= 0) { 1230 /* get the parsed list of argument types */ 1231 arglist = parseArguments(orgAlias, ap, &status); 1232 1233 /* Return error if parsing failed. */ 1234 if (U_FAILURE(status)) { 1235 return -1; 1236 } 1237 } 1238 1239 /* iterate through the pattern */ 1240 while(!locStringContext || locStringContext->available >= 0) { 1241 1242 /* find the next '%' */ 1243 lastAlias = alias; 1244 while(*alias != UP_PERCENT && *alias != 0x0000) { 1245 alias++; 1246 } 1247 1248 /* write any characters before the '%' */ 1249 if(alias > lastAlias) { 1250 *written += (streamHandler->write)(context, lastAlias, (int32_t)(alias - lastAlias)); 1251 } 1252 1253 /* break if at end of string */ 1254 if(*alias == 0x0000) { 1255 break; 1256 } 1257 1258 /* initialize spec to default values */ 1259 spec.fWidthPos = -1; 1260 spec.fPrecisionPos = -1; 1261 spec.fArgPos = -1; 1262 1263 uprv_memset(info, 0, sizeof(*info)); 1264 info->fPrecision = -1; 1265 info->fWidth = -1; 1266 info->fPadChar = 0x0020; 1267 1268 /* skip over the initial '%' */ 1269 alias++; 1270 1271 /* Check for positional argument */ 1272 if(ISDIGIT(*alias)) { 1273 1274 /* Save the current position */ 1275 backup = alias; 1276 1277 /* handle positional parameters */ 1278 if(ISDIGIT(*alias)) { 1279 spec.fArgPos = (int) (*alias++ - DIGIT_ZERO); 1280 1281 while(ISDIGIT(*alias)) { 1282 spec.fArgPos *= 10; 1283 spec.fArgPos += (int) (*alias++ - DIGIT_ZERO); 1284 } 1285 } 1286 1287 /* if there is no '$', don't read anything */ 1288 if(*alias != SPEC_DOLLARSIGN) { 1289 spec.fArgPos = -1; 1290 alias = backup; 1291 } 1292 /* munge the '$' */ 1293 else 1294 alias++; 1295 } 1296 1297 /* Get any format flags */ 1298 while(ISFLAG(*alias)) { 1299 switch(*alias++) { 1300 1301 /* left justify */ 1302 case FLAG_MINUS: 1303 info->fLeft = TRUE; 1304 break; 1305 1306 /* always show sign */ 1307 case FLAG_PLUS: 1308 info->fShowSign = TRUE; 1309 break; 1310 1311 /* use space if no sign present */ 1312 case FLAG_SPACE: 1313 info->fShowSign = TRUE; 1314 info->fSpace = TRUE; 1315 break; 1316 1317 /* use alternate form */ 1318 case FLAG_POUND: 1319 info->fAlt = TRUE; 1320 break; 1321 1322 /* pad with leading zeroes */ 1323 case FLAG_ZERO: 1324 info->fZero = TRUE; 1325 info->fPadChar = 0x0030; 1326 break; 1327 1328 /* pad character specified */ 1329 case FLAG_PAREN: 1330 1331 /* TODO test that all four are numbers */ 1332 /* first four characters are hex values for pad char */ 1333 info->fPadChar = (UChar)ufmt_digitvalue(*alias++); 1334 info->fPadChar = (UChar)((info->fPadChar * 16) + ufmt_digitvalue(*alias++)); 1335 info->fPadChar = (UChar)((info->fPadChar * 16) + ufmt_digitvalue(*alias++)); 1336 info->fPadChar = (UChar)((info->fPadChar * 16) + ufmt_digitvalue(*alias++)); 1337 1338 /* final character is ignored */ 1339 alias++; 1340 1341 break; 1342 } 1343 } 1344 1345 /* Get the width */ 1346 1347 /* width is specified out of line */ 1348 if(*alias == SPEC_ASTERISK) { 1349 1350 info->fWidth = -2; 1351 1352 /* Skip the '*' */ 1353 alias++; 1354 1355 /* Save the current position */ 1356 backup = alias; 1357 1358 /* handle positional parameters */ 1359 if(ISDIGIT(*alias)) { 1360 spec.fWidthPos = (int) (*alias++ - DIGIT_ZERO); 1361 1362 while(ISDIGIT(*alias)) { 1363 spec.fWidthPos *= 10; 1364 spec.fWidthPos += (int) (*alias++ - DIGIT_ZERO); 1365 } 1366 } 1367 1368 /* if there is no '$', don't read anything */ 1369 if(*alias != SPEC_DOLLARSIGN) { 1370 spec.fWidthPos = -1; 1371 alias = backup; 1372 } 1373 /* munge the '$' */ 1374 else 1375 alias++; 1376 } 1377 /* read the width, if present */ 1378 else if(ISDIGIT(*alias)){ 1379 info->fWidth = (int) (*alias++ - DIGIT_ZERO); 1380 1381 while(ISDIGIT(*alias)) { 1382 info->fWidth *= 10; 1383 info->fWidth += (int) (*alias++ - DIGIT_ZERO); 1384 } 1385 } 1386 1387 /* Get the precision */ 1388 1389 if(*alias == SPEC_PERIOD) { 1390 1391 /* eat up the '.' */ 1392 alias++; 1393 1394 /* precision is specified out of line */ 1395 if(*alias == SPEC_ASTERISK) { 1396 1397 info->fPrecision = -2; 1398 1399 /* Skip the '*' */ 1400 alias++; 1401 1402 /* save the current position */ 1403 backup = alias; 1404 1405 /* handle positional parameters */ 1406 if(ISDIGIT(*alias)) { 1407 spec.fPrecisionPos = (int) (*alias++ - DIGIT_ZERO); 1408 1409 while(ISDIGIT(*alias)) { 1410 spec.fPrecisionPos *= 10; 1411 spec.fPrecisionPos += (int) (*alias++ - DIGIT_ZERO); 1412 } 1413 1414 /* if there is no '$', don't read anything */ 1415 if(*alias != SPEC_DOLLARSIGN) { 1416 spec.fPrecisionPos = -1; 1417 alias = backup; 1418 } 1419 else { 1420 /* munge the '$' */ 1421 alias++; 1422 } 1423 } 1424 } 1425 /* read the precision */ 1426 else if(ISDIGIT(*alias)){ 1427 info->fPrecision = (int) (*alias++ - DIGIT_ZERO); 1428 1429 while(ISDIGIT(*alias)) { 1430 info->fPrecision *= 10; 1431 info->fPrecision += (int) (*alias++ - DIGIT_ZERO); 1432 } 1433 } 1434 } 1435 1436 /* Get any modifiers */ 1437 if(ISMOD(*alias)) { 1438 switch(*alias++) { 1439 1440 /* short */ 1441 case MOD_H: 1442 info->fIsShort = TRUE; 1443 break; 1444 1445 /* long or long long */ 1446 case MOD_LOWERL: 1447 if(*alias == MOD_LOWERL) { 1448 info->fIsLongLong = TRUE; 1449 /* skip over the next 'l' */ 1450 alias++; 1451 } 1452 else 1453 info->fIsLong = TRUE; 1454 break; 1455 1456 /* long double */ 1457 case MOD_L: 1458 info->fIsLongDouble = TRUE; 1459 break; 1460 } 1461 } 1462 1463 /* finally, get the specifier letter */ 1464 info->fSpec = *alias++; 1465 info->fOrigSpec = info->fSpec; 1466 1467 /* fill in the precision and width, if specified out of line */ 1468 1469 /* width specified out of line */ 1470 if(spec.fInfo.fWidth == -2) { 1471 if(spec.fWidthPos == -1) { 1472 /* read the width from the argument list */ 1473 info->fWidth = va_arg(ap, int32_t); 1474 } 1475 /* else handle positional parameter */ 1476 1477 /* if it's negative, take the absolute value and set left alignment */ 1478 if(info->fWidth < 0) { 1479 info->fWidth *= -1; /* Make positive */ 1480 info->fLeft = TRUE; 1481 } 1482 } 1483 1484 /* precision specified out of line */ 1485 if(info->fPrecision == -2) { 1486 if(spec.fPrecisionPos == -1) { 1487 /* read the precision from the argument list */ 1488 info->fPrecision = va_arg(ap, int32_t); 1489 } 1490 /* else handle positional parameter */ 1491 1492 /* if it's negative, set it to zero */ 1493 if(info->fPrecision < 0) 1494 info->fPrecision = 0; 1495 } 1496 1497 handlerNum = (uint16_t)(info->fSpec - UPRINTF_BASE_FMT_HANDLERS); 1498 if (handlerNum < UPRINTF_NUM_FMT_HANDLERS) { 1499 /* query the info function for argument information */ 1500 argType = g_u_printf_infos[ handlerNum ].info; 1501 1502 /* goto the correct argument on arg_list if position is specified */ 1503 if (spec.fArgPos > 0) { 1504 /* offset position by 1 */ 1505 spec.fArgPos--; 1506 switch(argType) { 1507 case ufmt_count: 1508 /* set the spec's width to the # of chars written */ 1509 info->fWidth = *written; 1510 /* fall through to set the pointer */ 1511 case ufmt_string: 1512 case ufmt_ustring: 1513 case ufmt_pointer: 1514 args.ptrValue = arglist[spec.fArgPos].ptrValue; 1515 break; 1516 case ufmt_char: 1517 case ufmt_uchar: 1518 case ufmt_int: 1519 args.int64Value = arglist[spec.fArgPos].int64Value; 1520 break; 1521 case ufmt_float: 1522 args.floatValue = arglist[spec.fArgPos].floatValue; 1523 break; 1524 case ufmt_double: 1525 args.doubleValue = arglist[spec.fArgPos].doubleValue; 1526 break; 1527 default: 1528 /* else args is ignored */ 1529 args.ptrValue = NULL; 1530 break; 1531 } 1532 } else { /* no positional argument specified */ 1533 switch(argType) { 1534 case ufmt_count: 1535 /* set the spec's width to the # of chars written */ 1536 info->fWidth = *written; 1537 /* fall through to set the pointer */ 1538 case ufmt_string: 1539 case ufmt_ustring: 1540 case ufmt_pointer: 1541 args.ptrValue = va_arg(ap, void*); 1542 break; 1543 case ufmt_char: 1544 case ufmt_uchar: 1545 case ufmt_int: 1546 if (info->fIsLongLong) { 1547 args.int64Value = va_arg(ap, int64_t); 1548 } 1549 else { 1550 args.int64Value = va_arg(ap, int32_t); 1551 } 1552 break; 1553 case ufmt_float: 1554 args.floatValue = (float) va_arg(ap, double); 1555 break; 1556 case ufmt_double: 1557 args.doubleValue = va_arg(ap, double); 1558 break; 1559 default: 1560 /* else args is ignored */ 1561 args.ptrValue = NULL; 1562 break; 1563 } 1564 } 1565 1566 /* call the handler function */ 1567 handler = g_u_printf_infos[ handlerNum ].handler; 1568 if(handler != 0) { 1569 *written += (*handler)(streamHandler, context, formatBundle, info, &args); 1570 } 1571 else { 1572 /* just echo unknown tags */ 1573 *written += (streamHandler->write)(context, fmt, (int32_t)(alias - lastAlias)); 1574 } 1575 } 1576 else { 1577 /* just echo unknown tags */ 1578 *written += (streamHandler->write)(context, fmt, (int32_t)(alias - lastAlias)); 1579 } 1580 } 1581 /* delete parsed argument list */ 1582 if (arglist != NULL) { 1583 uprv_free(arglist); 1584 } 1585 /* return # of characters in this format that have been parsed. */ 1586 return (int32_t)(alias - fmt); 1587 } 1588 1589 #endif /* #if !UCONFIG_NO_FORMATTING */ 1590
