Annotation of embedaddon/php/main/spprintf.c, revision 1.1
1.1 ! misho 1: /*
! 2: +----------------------------------------------------------------------+
! 3: | PHP Version 5 |
! 4: +----------------------------------------------------------------------+
! 5: | Copyright (c) 1997-2012 The PHP Group |
! 6: +----------------------------------------------------------------------+
! 7: | This source file is subject to version 3.01 of the PHP license, |
! 8: | that is bundled with this package in the file LICENSE, and is |
! 9: | available through the world-wide-web at the following url: |
! 10: | http://www.php.net/license/3_01.txt |
! 11: | If you did not receive a copy of the PHP license and are unable to |
! 12: | obtain it through the world-wide-web, please send a note to |
! 13: | license@php.net so we can mail you a copy immediately. |
! 14: +----------------------------------------------------------------------+
! 15: | Author: Marcus Boerger <helly@php.net> |
! 16: +----------------------------------------------------------------------+
! 17: */
! 18:
! 19: /* $Id: spprintf.c 321634 2012-01-01 13:15:04Z felipe $ */
! 20:
! 21: /* This is the spprintf implementation.
! 22: * It has emerged from apache snprintf. See original header:
! 23: */
! 24:
! 25: /* ====================================================================
! 26: * Copyright (c) 1995-1998 The Apache Group. All rights reserved.
! 27: *
! 28: * Redistribution and use in source and binary forms, with or without
! 29: * modification, are permitted provided that the following conditions
! 30: * are met:
! 31: *
! 32: * 1. Redistributions of source code must retain the above copyright
! 33: * notice, this list of conditions and the following disclaimer.
! 34: *
! 35: * 2. Redistributions in binary form must reproduce the above copyright
! 36: * notice, this list of conditions and the following disclaimer in
! 37: * the documentation and/or other materials provided with the
! 38: * distribution.
! 39: *
! 40: * 3. All advertising materials mentioning features or use of this
! 41: * software must display the following acknowledgment:
! 42: * "This product includes software developed by the Apache Group
! 43: * for use in the Apache HTTP server project (http://www.apache.org/)."
! 44: *
! 45: * 4. The names "Apache Server" and "Apache Group" must not be used to
! 46: * endorse or promote products derived from this software without
! 47: * prior written permission.
! 48: *
! 49: * 5. Redistributions of any form whatsoever must retain the following
! 50: * acknowledgment:
! 51: * "This product includes software developed by the Apache Group
! 52: * for use in the Apache HTTP server project (http://www.apache.org/)."
! 53: *
! 54: * THIS SOFTWARE IS PROVIDED BY THE APACHE GROUP ``AS IS'' AND ANY
! 55: * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
! 56: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
! 57: * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE APACHE GROUP OR
! 58: * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
! 59: * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
! 60: * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
! 61: * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
! 62: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
! 63: * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
! 64: * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
! 65: * OF THE POSSIBILITY OF SUCH DAMAGE.
! 66: * ====================================================================
! 67: *
! 68: * This software consists of voluntary contributions made by many
! 69: * individuals on behalf of the Apache Group and was originally based
! 70: * on public domain software written at the National Center for
! 71: * Supercomputing Applications, University of Illinois, Urbana-Champaign.
! 72: * For more information on the Apache Group and the Apache HTTP server
! 73: * project, please see <http://www.apache.org/>.
! 74: *
! 75: * This code is based on, and used with the permission of, the
! 76: * SIO stdio-replacement strx_* functions by Panos Tsirigotis
! 77: * <panos@alumni.cs.colorado.edu> for xinetd.
! 78: */
! 79: #define _GNU_SOURCE
! 80: #include "php.h"
! 81:
! 82: #include <stddef.h>
! 83: #include <stdio.h>
! 84: #include <ctype.h>
! 85: #include <sys/types.h>
! 86: #include <stdarg.h>
! 87: #include <string.h>
! 88: #include <stdlib.h>
! 89: #include <math.h>
! 90: #ifdef HAVE_INTTYPES_H
! 91: #include <inttypes.h>
! 92: #endif
! 93:
! 94: #ifdef HAVE_LOCALE_H
! 95: #include <locale.h>
! 96: #define LCONV_DECIMAL_POINT (*lconv->decimal_point)
! 97: #else
! 98: #define LCONV_DECIMAL_POINT '.'
! 99: #endif
! 100:
! 101: #include "snprintf.h"
! 102:
! 103: #define FALSE 0
! 104: #define TRUE 1
! 105: #define NUL '\0'
! 106: #define INT_NULL ((int *)0)
! 107:
! 108: #define S_NULL "(null)"
! 109: #define S_NULL_LEN 6
! 110:
! 111: #define FLOAT_DIGITS 6
! 112: #define EXPONENT_LENGTH 10
! 113:
! 114: #include "ext/standard/php_smart_str.h"
! 115:
! 116: /* {{{ macros */
! 117:
! 118: /*
! 119: * NUM_BUF_SIZE is the size of the buffer used for arithmetic conversions
! 120: *
! 121: * XXX: this is a magic number; do not decrease it
! 122: * Emax = 1023
! 123: * NDIG = 320
! 124: * NUM_BUF_SIZE >= strlen("-") + Emax + strlrn(".") + NDIG + strlen("E+1023") + 1;
! 125: */
! 126: #define NUM_BUF_SIZE 2048
! 127:
! 128: /*
! 129: * The INS_CHAR macro inserts a character in the buffer.
! 130: *
! 131: * NOTE: Evaluation of the ch argument should not have any side-effects
! 132: */
! 133: #define INS_CHAR_NR(xbuf, ch) do { \
! 134: smart_str_appendc(xbuf, ch); \
! 135: } while (0)
! 136:
! 137: #define INS_STRING(xbuf, s, slen) do { \
! 138: smart_str_appendl(xbuf, s, slen); \
! 139: } while (0)
! 140:
! 141: #define INS_CHAR(xbuf, ch) \
! 142: INS_CHAR_NR(xbuf, ch)
! 143:
! 144: /*
! 145: * Macro that does padding. The padding is done by printing
! 146: * the character ch.
! 147: */
! 148: #define PAD(xbuf, count, ch) do { \
! 149: if ((count) > 0) { \
! 150: size_t newlen; \
! 151: smart_str_alloc(xbuf, (count), 0); \
! 152: memset(xbuf->c + xbuf->len, ch, (count)); \
! 153: xbuf->len += (count); \
! 154: } \
! 155: } while (0)
! 156:
! 157: #define NUM(c) (c - '0')
! 158:
! 159: #define STR_TO_DEC(str, num) do { \
! 160: num = NUM(*str++); \
! 161: while (isdigit((int)*str)) { \
! 162: num *= 10; \
! 163: num += NUM(*str++); \
! 164: if (num >= INT_MAX / 10) { \
! 165: while (isdigit((int)*str++)); \
! 166: break; \
! 167: } \
! 168: } \
! 169: } while (0)
! 170:
! 171: /*
! 172: * This macro does zero padding so that the precision
! 173: * requirement is satisfied. The padding is done by
! 174: * adding '0's to the left of the string that is going
! 175: * to be printed.
! 176: */
! 177: #define FIX_PRECISION(adjust, precision, s, s_len) do { \
! 178: if (adjust) \
! 179: while (s_len < precision) { \
! 180: *--s = '0'; \
! 181: s_len++; \
! 182: } \
! 183: } while (0)
! 184:
! 185: /* }}} */
! 186:
! 187:
! 188: #if !HAVE_STRNLEN
! 189: static size_t strnlen(const char *s, size_t maxlen) {
! 190: char *r = memchr(s, '\0', maxlen);
! 191: return r ? r-s : maxlen;
! 192: }
! 193: #endif
! 194:
! 195: /*
! 196: * Do format conversion placing the output in buffer
! 197: */
! 198: static void xbuf_format_converter(smart_str *xbuf, const char *fmt, va_list ap) /* {{{ */
! 199: {
! 200: char *s = NULL;
! 201: int s_len, free_zcopy;
! 202: zval *zvp, zcopy;
! 203:
! 204: int min_width = 0;
! 205: int precision = 0;
! 206: enum {
! 207: LEFT, RIGHT
! 208: } adjust;
! 209: char pad_char;
! 210: char prefix_char;
! 211:
! 212: double fp_num;
! 213: wide_int i_num = (wide_int) 0;
! 214: u_wide_int ui_num;
! 215:
! 216: char num_buf[NUM_BUF_SIZE];
! 217: char char_buf[2]; /* for printing %% and %<unknown> */
! 218:
! 219: #ifdef HAVE_LOCALE_H
! 220: struct lconv *lconv = NULL;
! 221: #endif
! 222:
! 223: /*
! 224: * Flag variables
! 225: */
! 226: length_modifier_e modifier;
! 227: boolean_e alternate_form;
! 228: boolean_e print_sign;
! 229: boolean_e print_blank;
! 230: boolean_e adjust_precision;
! 231: boolean_e adjust_width;
! 232: bool_int is_negative;
! 233:
! 234: while (*fmt) {
! 235: if (*fmt != '%') {
! 236: INS_CHAR(xbuf, *fmt);
! 237: } else {
! 238: /*
! 239: * Default variable settings
! 240: */
! 241: adjust = RIGHT;
! 242: alternate_form = print_sign = print_blank = NO;
! 243: pad_char = ' ';
! 244: prefix_char = NUL;
! 245: free_zcopy = 0;
! 246:
! 247: fmt++;
! 248:
! 249: /*
! 250: * Try to avoid checking for flags, width or precision
! 251: */
! 252: if (isascii((int)*fmt) && !islower((int)*fmt)) {
! 253: /*
! 254: * Recognize flags: -, #, BLANK, +
! 255: */
! 256: for (;; fmt++) {
! 257: if (*fmt == '-')
! 258: adjust = LEFT;
! 259: else if (*fmt == '+')
! 260: print_sign = YES;
! 261: else if (*fmt == '#')
! 262: alternate_form = YES;
! 263: else if (*fmt == ' ')
! 264: print_blank = YES;
! 265: else if (*fmt == '0')
! 266: pad_char = '0';
! 267: else
! 268: break;
! 269: }
! 270:
! 271: /*
! 272: * Check if a width was specified
! 273: */
! 274: if (isdigit((int)*fmt)) {
! 275: STR_TO_DEC(fmt, min_width);
! 276: adjust_width = YES;
! 277: } else if (*fmt == '*') {
! 278: min_width = va_arg(ap, int);
! 279: fmt++;
! 280: adjust_width = YES;
! 281: if (min_width < 0) {
! 282: adjust = LEFT;
! 283: min_width = -min_width;
! 284: }
! 285: } else
! 286: adjust_width = NO;
! 287:
! 288: /*
! 289: * Check if a precision was specified
! 290: */
! 291: if (*fmt == '.') {
! 292: adjust_precision = YES;
! 293: fmt++;
! 294: if (isdigit((int)*fmt)) {
! 295: STR_TO_DEC(fmt, precision);
! 296: } else if (*fmt == '*') {
! 297: precision = va_arg(ap, int);
! 298: fmt++;
! 299: if (precision < 0)
! 300: precision = 0;
! 301: } else
! 302: precision = 0;
! 303:
! 304: if (precision > FORMAT_CONV_MAX_PRECISION) {
! 305: precision = FORMAT_CONV_MAX_PRECISION;
! 306: }
! 307: } else
! 308: adjust_precision = NO;
! 309: } else
! 310: adjust_precision = adjust_width = NO;
! 311:
! 312: /*
! 313: * Modifier check
! 314: */
! 315: switch (*fmt) {
! 316: case 'L':
! 317: fmt++;
! 318: modifier = LM_LONG_DOUBLE;
! 319: break;
! 320: case 'I':
! 321: fmt++;
! 322: #if SIZEOF_LONG_LONG
! 323: if (*fmt == '6' && *(fmt+1) == '4') {
! 324: fmt += 2;
! 325: modifier = LM_LONG_LONG;
! 326: } else
! 327: #endif
! 328: if (*fmt == '3' && *(fmt+1) == '2') {
! 329: fmt += 2;
! 330: modifier = LM_LONG;
! 331: } else {
! 332: #ifdef _WIN64
! 333: modifier = LM_LONG_LONG;
! 334: #else
! 335: modifier = LM_LONG;
! 336: #endif
! 337: }
! 338: break;
! 339: case 'l':
! 340: fmt++;
! 341: #if SIZEOF_LONG_LONG
! 342: if (*fmt == 'l') {
! 343: fmt++;
! 344: modifier = LM_LONG_LONG;
! 345: } else
! 346: #endif
! 347: modifier = LM_LONG;
! 348: break;
! 349: case 'z':
! 350: fmt++;
! 351: modifier = LM_SIZE_T;
! 352: break;
! 353: case 'j':
! 354: fmt++;
! 355: #if SIZEOF_INTMAX_T
! 356: modifier = LM_INTMAX_T;
! 357: #else
! 358: modifier = LM_SIZE_T;
! 359: #endif
! 360: break;
! 361: case 't':
! 362: fmt++;
! 363: #if SIZEOF_PTRDIFF_T
! 364: modifier = LM_PTRDIFF_T;
! 365: #else
! 366: modifier = LM_SIZE_T;
! 367: #endif
! 368: break;
! 369: case 'h':
! 370: fmt++;
! 371: if (*fmt == 'h') {
! 372: fmt++;
! 373: }
! 374: /* these are promoted to int, so no break */
! 375: default:
! 376: modifier = LM_STD;
! 377: break;
! 378: }
! 379:
! 380: /*
! 381: * Argument extraction and printing.
! 382: * First we determine the argument type.
! 383: * Then, we convert the argument to a string.
! 384: * On exit from the switch, s points to the string that
! 385: * must be printed, s_len has the length of the string
! 386: * The precision requirements, if any, are reflected in s_len.
! 387: *
! 388: * NOTE: pad_char may be set to '0' because of the 0 flag.
! 389: * It is reset to ' ' by non-numeric formats
! 390: */
! 391: switch (*fmt) {
! 392: case 'Z':
! 393: #if SUHOSIN_PATCH
! 394: zend_suhosin_log(S_MISC, "'Z' specifier within format string");
! 395: goto skip_output;
! 396: #else
! 397: zvp = (zval*) va_arg(ap, zval*);
! 398: zend_make_printable_zval(zvp, &zcopy, &free_zcopy);
! 399: if (free_zcopy) {
! 400: zvp = &zcopy;
! 401: }
! 402: s_len = Z_STRLEN_P(zvp);
! 403: s = Z_STRVAL_P(zvp);
! 404: if (adjust_precision && precision < s_len) {
! 405: s_len = precision;
! 406: }
! 407: #endif
! 408: break;
! 409: case 'u':
! 410: switch(modifier) {
! 411: default:
! 412: i_num = (wide_int) va_arg(ap, unsigned int);
! 413: break;
! 414: case LM_LONG_DOUBLE:
! 415: goto fmt_error;
! 416: case LM_LONG:
! 417: i_num = (wide_int) va_arg(ap, unsigned long int);
! 418: break;
! 419: case LM_SIZE_T:
! 420: i_num = (wide_int) va_arg(ap, size_t);
! 421: break;
! 422: #if SIZEOF_LONG_LONG
! 423: case LM_LONG_LONG:
! 424: i_num = (wide_int) va_arg(ap, u_wide_int);
! 425: break;
! 426: #endif
! 427: #if SIZEOF_INTMAX_T
! 428: case LM_INTMAX_T:
! 429: i_num = (wide_int) va_arg(ap, uintmax_t);
! 430: break;
! 431: #endif
! 432: #if SIZEOF_PTRDIFF_T
! 433: case LM_PTRDIFF_T:
! 434: i_num = (wide_int) va_arg(ap, ptrdiff_t);
! 435: break;
! 436: #endif
! 437: }
! 438: /*
! 439: * The rest also applies to other integer formats, so fall
! 440: * into that case.
! 441: */
! 442: case 'd':
! 443: case 'i':
! 444: /*
! 445: * Get the arg if we haven't already.
! 446: */
! 447: if ((*fmt) != 'u') {
! 448: switch(modifier) {
! 449: default:
! 450: i_num = (wide_int) va_arg(ap, int);
! 451: break;
! 452: case LM_LONG_DOUBLE:
! 453: goto fmt_error;
! 454: case LM_LONG:
! 455: i_num = (wide_int) va_arg(ap, long int);
! 456: break;
! 457: case LM_SIZE_T:
! 458: #if SIZEOF_SSIZE_T
! 459: i_num = (wide_int) va_arg(ap, ssize_t);
! 460: #else
! 461: i_num = (wide_int) va_arg(ap, size_t);
! 462: #endif
! 463: break;
! 464: #if SIZEOF_LONG_LONG
! 465: case LM_LONG_LONG:
! 466: i_num = (wide_int) va_arg(ap, wide_int);
! 467: break;
! 468: #endif
! 469: #if SIZEOF_INTMAX_T
! 470: case LM_INTMAX_T:
! 471: i_num = (wide_int) va_arg(ap, intmax_t);
! 472: break;
! 473: #endif
! 474: #if SIZEOF_PTRDIFF_T
! 475: case LM_PTRDIFF_T:
! 476: i_num = (wide_int) va_arg(ap, ptrdiff_t);
! 477: break;
! 478: #endif
! 479: }
! 480: }
! 481: s = ap_php_conv_10(i_num, (*fmt) == 'u', &is_negative,
! 482: &num_buf[NUM_BUF_SIZE], &s_len);
! 483: FIX_PRECISION(adjust_precision, precision, s, s_len);
! 484:
! 485: if (*fmt != 'u') {
! 486: if (is_negative)
! 487: prefix_char = '-';
! 488: else if (print_sign)
! 489: prefix_char = '+';
! 490: else if (print_blank)
! 491: prefix_char = ' ';
! 492: }
! 493: break;
! 494:
! 495:
! 496: case 'o':
! 497: switch(modifier) {
! 498: default:
! 499: ui_num = (u_wide_int) va_arg(ap, unsigned int);
! 500: break;
! 501: case LM_LONG_DOUBLE:
! 502: goto fmt_error;
! 503: case LM_LONG:
! 504: ui_num = (u_wide_int) va_arg(ap, unsigned long int);
! 505: break;
! 506: case LM_SIZE_T:
! 507: ui_num = (u_wide_int) va_arg(ap, size_t);
! 508: break;
! 509: #if SIZEOF_LONG_LONG
! 510: case LM_LONG_LONG:
! 511: ui_num = (u_wide_int) va_arg(ap, u_wide_int);
! 512: break;
! 513: #endif
! 514: #if SIZEOF_INTMAX_T
! 515: case LM_INTMAX_T:
! 516: ui_num = (u_wide_int) va_arg(ap, uintmax_t);
! 517: break;
! 518: #endif
! 519: #if SIZEOF_PTRDIFF_T
! 520: case LM_PTRDIFF_T:
! 521: ui_num = (u_wide_int) va_arg(ap, ptrdiff_t);
! 522: break;
! 523: #endif
! 524: }
! 525: s = ap_php_conv_p2(ui_num, 3, *fmt,
! 526: &num_buf[NUM_BUF_SIZE], &s_len);
! 527: FIX_PRECISION(adjust_precision, precision, s, s_len);
! 528: if (alternate_form && *s != '0') {
! 529: *--s = '0';
! 530: s_len++;
! 531: }
! 532: break;
! 533:
! 534:
! 535: case 'x':
! 536: case 'X':
! 537: switch(modifier) {
! 538: default:
! 539: ui_num = (u_wide_int) va_arg(ap, unsigned int);
! 540: break;
! 541: case LM_LONG_DOUBLE:
! 542: goto fmt_error;
! 543: case LM_LONG:
! 544: ui_num = (u_wide_int) va_arg(ap, unsigned long int);
! 545: break;
! 546: case LM_SIZE_T:
! 547: ui_num = (u_wide_int) va_arg(ap, size_t);
! 548: break;
! 549: #if SIZEOF_LONG_LONG
! 550: case LM_LONG_LONG:
! 551: ui_num = (u_wide_int) va_arg(ap, u_wide_int);
! 552: break;
! 553: #endif
! 554: #if SIZEOF_INTMAX_T
! 555: case LM_INTMAX_T:
! 556: ui_num = (u_wide_int) va_arg(ap, uintmax_t);
! 557: break;
! 558: #endif
! 559: #if SIZEOF_PTRDIFF_T
! 560: case LM_PTRDIFF_T:
! 561: ui_num = (u_wide_int) va_arg(ap, ptrdiff_t);
! 562: break;
! 563: #endif
! 564: }
! 565: s = ap_php_conv_p2(ui_num, 4, *fmt,
! 566: &num_buf[NUM_BUF_SIZE], &s_len);
! 567: FIX_PRECISION(adjust_precision, precision, s, s_len);
! 568: if (alternate_form && i_num != 0) {
! 569: *--s = *fmt; /* 'x' or 'X' */
! 570: *--s = '0';
! 571: s_len += 2;
! 572: }
! 573: break;
! 574:
! 575:
! 576: case 's':
! 577: case 'v':
! 578: s = va_arg(ap, char *);
! 579: if (s != NULL) {
! 580: if (!adjust_precision) {
! 581: s_len = strlen(s);
! 582: } else {
! 583: s_len = strnlen(s, precision);
! 584: }
! 585: } else {
! 586: s = S_NULL;
! 587: s_len = S_NULL_LEN;
! 588: }
! 589: pad_char = ' ';
! 590: break;
! 591:
! 592:
! 593: case 'f':
! 594: case 'F':
! 595: case 'e':
! 596: case 'E':
! 597: switch(modifier) {
! 598: case LM_LONG_DOUBLE:
! 599: fp_num = (double) va_arg(ap, long double);
! 600: break;
! 601: case LM_STD:
! 602: fp_num = va_arg(ap, double);
! 603: break;
! 604: default:
! 605: goto fmt_error;
! 606: }
! 607:
! 608: if (zend_isnan(fp_num)) {
! 609: s = "nan";
! 610: s_len = 3;
! 611: } else if (zend_isinf(fp_num)) {
! 612: s = "inf";
! 613: s_len = 3;
! 614: } else {
! 615: #ifdef HAVE_LOCALE_H
! 616: if (!lconv) {
! 617: lconv = localeconv();
! 618: }
! 619: #endif
! 620: s = php_conv_fp((*fmt == 'f')?'F':*fmt, fp_num, alternate_form,
! 621: (adjust_precision == NO) ? FLOAT_DIGITS : precision,
! 622: (*fmt == 'f')?LCONV_DECIMAL_POINT:'.',
! 623: &is_negative, &num_buf[1], &s_len);
! 624: if (is_negative)
! 625: prefix_char = '-';
! 626: else if (print_sign)
! 627: prefix_char = '+';
! 628: else if (print_blank)
! 629: prefix_char = ' ';
! 630: }
! 631: break;
! 632:
! 633:
! 634: case 'g':
! 635: case 'k':
! 636: case 'G':
! 637: case 'H':
! 638: switch(modifier) {
! 639: case LM_LONG_DOUBLE:
! 640: fp_num = (double) va_arg(ap, long double);
! 641: break;
! 642: case LM_STD:
! 643: fp_num = va_arg(ap, double);
! 644: break;
! 645: default:
! 646: goto fmt_error;
! 647: }
! 648:
! 649: if (zend_isnan(fp_num)) {
! 650: s = "NAN";
! 651: s_len = 3;
! 652: break;
! 653: } else if (zend_isinf(fp_num)) {
! 654: if (fp_num > 0) {
! 655: s = "INF";
! 656: s_len = 3;
! 657: } else {
! 658: s = "-INF";
! 659: s_len = 4;
! 660: }
! 661: break;
! 662: }
! 663:
! 664: if (adjust_precision == NO)
! 665: precision = FLOAT_DIGITS;
! 666: else if (precision == 0)
! 667: precision = 1;
! 668: /*
! 669: * * We use &num_buf[ 1 ], so that we have room for the sign
! 670: */
! 671: #ifdef HAVE_LOCALE_H
! 672: if (!lconv) {
! 673: lconv = localeconv();
! 674: }
! 675: #endif
! 676: s = php_gcvt(fp_num, precision, (*fmt=='H' || *fmt == 'k') ? '.' : LCONV_DECIMAL_POINT, (*fmt == 'G' || *fmt == 'H')?'E':'e', &num_buf[1]);
! 677: if (*s == '-')
! 678: prefix_char = *s++;
! 679: else if (print_sign)
! 680: prefix_char = '+';
! 681: else if (print_blank)
! 682: prefix_char = ' ';
! 683:
! 684: s_len = strlen(s);
! 685:
! 686: if (alternate_form && (strchr(s, '.')) == NULL)
! 687: s[s_len++] = '.';
! 688: break;
! 689:
! 690:
! 691: case 'c':
! 692: char_buf[0] = (char) (va_arg(ap, int));
! 693: s = &char_buf[0];
! 694: s_len = 1;
! 695: pad_char = ' ';
! 696: break;
! 697:
! 698:
! 699: case '%':
! 700: char_buf[0] = '%';
! 701: s = &char_buf[0];
! 702: s_len = 1;
! 703: pad_char = ' ';
! 704: break;
! 705:
! 706:
! 707: case 'n':
! 708: #if SUHOSIN_PATCH
! 709: zend_suhosin_log(S_MISC, "'n' specifier within format string");
! 710: #else
! 711: *(va_arg(ap, int *)) = xbuf->len;
! 712: #endif
! 713: goto skip_output;
! 714:
! 715: /*
! 716: * Always extract the argument as a "char *" pointer. We
! 717: * should be using "void *" but there are still machines
! 718: * that don't understand it.
! 719: * If the pointer size is equal to the size of an unsigned
! 720: * integer we convert the pointer to a hex number, otherwise
! 721: * we print "%p" to indicate that we don't handle "%p".
! 722: */
! 723: case 'p':
! 724: if (sizeof(char *) <= sizeof(u_wide_int)) {
! 725: ui_num = (u_wide_int)((size_t) va_arg(ap, char *));
! 726: s = ap_php_conv_p2(ui_num, 4, 'x',
! 727: &num_buf[NUM_BUF_SIZE], &s_len);
! 728: if (ui_num != 0) {
! 729: *--s = 'x';
! 730: *--s = '0';
! 731: s_len += 2;
! 732: }
! 733: } else {
! 734: s = "%p";
! 735: s_len = 2;
! 736: }
! 737: pad_char = ' ';
! 738: break;
! 739:
! 740:
! 741: case NUL:
! 742: /*
! 743: * The last character of the format string was %.
! 744: * We ignore it.
! 745: */
! 746: continue;
! 747:
! 748:
! 749: fmt_error:
! 750: php_error(E_ERROR, "Illegal length modifier specified '%c' in s[np]printf call", *fmt);
! 751: /*
! 752: * The default case is for unrecognized %'s.
! 753: * We print %<char> to help the user identify what
! 754: * option is not understood.
! 755: * This is also useful in case the user wants to pass
! 756: * the output of format_converter to another function
! 757: * that understands some other %<char> (like syslog).
! 758: * Note that we can't point s inside fmt because the
! 759: * unknown <char> could be preceded by width etc.
! 760: */
! 761: default:
! 762: char_buf[0] = '%';
! 763: char_buf[1] = *fmt;
! 764: s = char_buf;
! 765: s_len = 2;
! 766: pad_char = ' ';
! 767: break;
! 768: }
! 769:
! 770: if (prefix_char != NUL) {
! 771: *--s = prefix_char;
! 772: s_len++;
! 773: }
! 774: if (adjust_width && adjust == RIGHT && min_width > s_len) {
! 775: if (pad_char == '0' && prefix_char != NUL) {
! 776: INS_CHAR(xbuf, *s);
! 777: s++;
! 778: s_len--;
! 779: min_width--;
! 780: }
! 781: PAD(xbuf, min_width - s_len, pad_char);
! 782: }
! 783: /*
! 784: * Print the string s.
! 785: */
! 786: INS_STRING(xbuf, s, s_len);
! 787:
! 788: if (adjust_width && adjust == LEFT && min_width > s_len)
! 789: PAD(xbuf, min_width - s_len, pad_char);
! 790: if (free_zcopy) {
! 791: zval_dtor(&zcopy);
! 792: }
! 793: }
! 794: skip_output:
! 795: fmt++;
! 796: }
! 797: return;
! 798: }
! 799: /* }}} */
! 800:
! 801: /*
! 802: * This is the general purpose conversion function.
! 803: */
! 804: PHPAPI int vspprintf(char **pbuf, size_t max_len, const char *format, va_list ap) /* {{{ */
! 805: {
! 806: smart_str xbuf = {0};
! 807:
! 808: xbuf_format_converter(&xbuf, format, ap);
! 809:
! 810: if (max_len && xbuf.len > max_len) {
! 811: xbuf.len = max_len;
! 812: }
! 813: smart_str_0(&xbuf);
! 814:
! 815: *pbuf = xbuf.c;
! 816:
! 817: return xbuf.len;
! 818: }
! 819: /* }}} */
! 820:
! 821: PHPAPI int spprintf(char **pbuf, size_t max_len, const char *format, ...) /* {{{ */
! 822: {
! 823: int cc;
! 824: va_list ap;
! 825:
! 826: va_start(ap, format);
! 827: cc = vspprintf(pbuf, max_len, format, ap);
! 828: va_end(ap);
! 829: return (cc);
! 830: }
! 831: /* }}} */
! 832:
! 833: /*
! 834: * Local variables:
! 835: * tab-width: 4
! 836: * c-basic-offset: 4
! 837: * End:
! 838: * vim600: sw=4 ts=4 fdm=marker
! 839: * vim<600: sw=4 ts=4
! 840: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to spprintf.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / main