/ext/standard/formatted_print.c
C | 852 lines | 652 code | 106 blank | 94 comment | 124 complexity | cc0c9c1913758b1dde3cb6e2283c146e MD5 | raw file
Possible License(s): BSD-2-Clause, BSD-3-Clause, MPL-2.0-no-copyleft-exception, LGPL-2.1
- /*
- +----------------------------------------------------------------------+
- | Copyright (c) The PHP Group |
- +----------------------------------------------------------------------+
- | This source file is subject to version 3.01 of the PHP license, |
- | that is bundled with this package in the file LICENSE, and is |
- | available through the world-wide-web at the following url: |
- | http://www.php.net/license/3_01.txt |
- | If you did not receive a copy of the PHP license and are unable to |
- | obtain it through the world-wide-web, please send a note to |
- | license@php.net so we can mail you a copy immediately. |
- +----------------------------------------------------------------------+
- | Author: Stig S�ther Bakken <ssb@php.net> |
- +----------------------------------------------------------------------+
- */
- #include <math.h> /* modf() */
- #include "php.h"
- #include "ext/standard/head.h"
- #include "php_string.h"
- #include "zend_execute.h"
- #include <stdio.h>
- #include <locale.h>
- #ifdef ZTS
- #include "ext/standard/php_string.h"
- #define LCONV_DECIMAL_POINT (*lconv.decimal_point)
- #else
- #define LCONV_DECIMAL_POINT (*lconv->decimal_point)
- #endif
- #define ALIGN_LEFT 0
- #define ALIGN_RIGHT 1
- #define ADJ_WIDTH 1
- #define ADJ_PRECISION 2
- #define NUM_BUF_SIZE 500
- #define FLOAT_PRECISION 6
- #define MAX_FLOAT_PRECISION 53
- #if 0
- /* trick to control varargs functions through cpp */
- # define PRINTF_DEBUG(arg) php_printf arg
- #else
- # define PRINTF_DEBUG(arg)
- #endif
- static const char hexchars[] = "0123456789abcdef";
- static const char HEXCHARS[] = "0123456789ABCDEF";
- /* php_spintf_appendchar() {{{ */
- inline static void
- php_sprintf_appendchar(zend_string **buffer, size_t *pos, char add)
- {
- if ((*pos + 1) >= ZSTR_LEN(*buffer)) {
- PRINTF_DEBUG(("%s(): ereallocing buffer to %d bytes\n", get_active_function_name(), ZSTR_LEN(*buffer)));
- *buffer = zend_string_extend(*buffer, ZSTR_LEN(*buffer) << 1, 0);
- }
- PRINTF_DEBUG(("sprintf: appending '%c', pos=\n", add, *pos));
- ZSTR_VAL(*buffer)[(*pos)++] = add;
- }
- /* }}} */
- /* php_spintf_appendchar() {{{ */
- inline static void
- php_sprintf_appendchars(zend_string **buffer, size_t *pos, char *add, size_t len)
- {
- if ((*pos + len) >= ZSTR_LEN(*buffer)) {
- size_t nlen = ZSTR_LEN(*buffer);
- PRINTF_DEBUG(("%s(): ereallocing buffer to %d bytes\n", get_active_function_name(), ZSTR_LEN(*buffer)));
- do {
- nlen = nlen << 1;
- } while ((*pos + len) >= nlen);
- *buffer = zend_string_extend(*buffer, nlen, 0);
- }
- PRINTF_DEBUG(("sprintf: appending \"%s\", pos=\n", add, *pos));
- memcpy(ZSTR_VAL(*buffer) + (*pos), add, len);
- *pos += len;
- }
- /* }}} */
- /* php_spintf_appendstring() {{{ */
- inline static void
- php_sprintf_appendstring(zend_string **buffer, size_t *pos, char *add,
- size_t min_width, size_t max_width, char padding,
- size_t alignment, size_t len, int neg, int expprec, int always_sign)
- {
- register size_t npad;
- size_t req_size;
- size_t copy_len;
- size_t m_width;
- copy_len = (expprec ? MIN(max_width, len) : len);
- npad = (min_width < copy_len) ? 0 : min_width - copy_len;
- PRINTF_DEBUG(("sprintf: appendstring(%x, %d, %d, \"%s\", %d, '%c', %d)\n",
- *buffer, *pos, ZSTR_LEN(*buffer), add, min_width, padding, alignment));
- m_width = MAX(min_width, copy_len);
- if(m_width > INT_MAX - *pos - 1) {
- zend_error_noreturn(E_ERROR, "Field width %zd is too long", m_width);
- }
- req_size = *pos + m_width + 1;
- if (req_size > ZSTR_LEN(*buffer)) {
- size_t size = ZSTR_LEN(*buffer);
- while (req_size > size) {
- if (size > ZEND_SIZE_MAX/2) {
- zend_error_noreturn(E_ERROR, "Field width %zd is too long", req_size);
- }
- size <<= 1;
- }
- PRINTF_DEBUG(("sprintf ereallocing buffer to %d bytes\n", size));
- *buffer = zend_string_extend(*buffer, size, 0);
- }
- if (alignment == ALIGN_RIGHT) {
- if ((neg || always_sign) && padding=='0') {
- ZSTR_VAL(*buffer)[(*pos)++] = (neg) ? '-' : '+';
- add++;
- len--;
- copy_len--;
- }
- while (npad-- > 0) {
- ZSTR_VAL(*buffer)[(*pos)++] = padding;
- }
- }
- PRINTF_DEBUG(("sprintf: appending \"%s\"\n", add));
- memcpy(&ZSTR_VAL(*buffer)[*pos], add, copy_len + 1);
- *pos += copy_len;
- if (alignment == ALIGN_LEFT) {
- while (npad--) {
- ZSTR_VAL(*buffer)[(*pos)++] = padding;
- }
- }
- }
- /* }}} */
- /* php_spintf_appendint() {{{ */
- inline static void
- php_sprintf_appendint(zend_string **buffer, size_t *pos, zend_long number,
- size_t width, char padding, size_t alignment,
- int always_sign)
- {
- char numbuf[NUM_BUF_SIZE];
- register zend_ulong magn, nmagn;
- register unsigned int i = NUM_BUF_SIZE - 1, neg = 0;
- PRINTF_DEBUG(("sprintf: appendint(%x, %x, %x, %d, %d, '%c', %d)\n",
- *buffer, pos, &ZSTR_LEN(*buffer), number, width, padding, alignment));
- if (number < 0) {
- neg = 1;
- magn = ((zend_ulong) -(number + 1)) + 1;
- } else {
- magn = (zend_ulong) number;
- }
- /* Can't right-pad 0's on integers */
- if(alignment==0 && padding=='0') padding=' ';
- numbuf[i] = '\0';
- do {
- nmagn = magn / 10;
- numbuf[--i] = (unsigned char)(magn - (nmagn * 10)) + '0';
- magn = nmagn;
- }
- while (magn > 0 && i > 1);
- if (neg) {
- numbuf[--i] = '-';
- } else if (always_sign) {
- numbuf[--i] = '+';
- }
- PRINTF_DEBUG(("sprintf: appending %d as \"%s\", i=%d\n",
- number, &numbuf[i], i));
- php_sprintf_appendstring(buffer, pos, &numbuf[i], width, 0,
- padding, alignment, (NUM_BUF_SIZE - 1) - i,
- neg, 0, always_sign);
- }
- /* }}} */
- /* php_spintf_appenduint() {{{ */
- inline static void
- php_sprintf_appenduint(zend_string **buffer, size_t *pos,
- zend_ulong number,
- size_t width, char padding, size_t alignment)
- {
- char numbuf[NUM_BUF_SIZE];
- register zend_ulong magn, nmagn;
- register unsigned int i = NUM_BUF_SIZE - 1;
- PRINTF_DEBUG(("sprintf: appenduint(%x, %x, %x, %d, %d, '%c', %d)\n",
- *buffer, pos, &ZSTR_LEN(*buffer), number, width, padding, alignment));
- magn = (zend_ulong) number;
- /* Can't right-pad 0's on integers */
- if (alignment == 0 && padding == '0') padding = ' ';
- numbuf[i] = '\0';
- do {
- nmagn = magn / 10;
- numbuf[--i] = (unsigned char)(magn - (nmagn * 10)) + '0';
- magn = nmagn;
- } while (magn > 0 && i > 0);
- PRINTF_DEBUG(("sprintf: appending %d as \"%s\", i=%d\n", number, &numbuf[i], i));
- php_sprintf_appendstring(buffer, pos, &numbuf[i], width, 0,
- padding, alignment, (NUM_BUF_SIZE - 1) - i, 0, 0, 0);
- }
- /* }}} */
- /* php_spintf_appenddouble() {{{ */
- inline static void
- php_sprintf_appenddouble(zend_string **buffer, size_t *pos,
- double number,
- size_t width, char padding,
- size_t alignment, int precision,
- int adjust, char fmt,
- int always_sign
- )
- {
- char num_buf[NUM_BUF_SIZE];
- char *s = NULL;
- size_t s_len = 0;
- int is_negative = 0;
- #ifdef ZTS
- struct lconv lconv;
- #else
- struct lconv *lconv;
- #endif
- PRINTF_DEBUG(("sprintf: appenddouble(%x, %x, %x, %f, %d, '%c', %d, %c)\n",
- *buffer, pos, &ZSTR_LEN(*buffer), number, width, padding, alignment, fmt));
- if ((adjust & ADJ_PRECISION) == 0) {
- precision = FLOAT_PRECISION;
- } else if (precision > MAX_FLOAT_PRECISION) {
- php_error_docref(NULL, E_NOTICE, "Requested precision of %d digits was truncated to PHP maximum of %d digits", precision, MAX_FLOAT_PRECISION);
- precision = MAX_FLOAT_PRECISION;
- }
- if (zend_isnan(number)) {
- is_negative = (number<0);
- php_sprintf_appendstring(buffer, pos, "NaN", 3, 0, padding,
- alignment, 3, is_negative, 0, always_sign);
- return;
- }
- if (zend_isinf(number)) {
- is_negative = (number<0);
- php_sprintf_appendstring(buffer, pos, "INF", 3, 0, padding,
- alignment, 3, is_negative, 0, always_sign);
- return;
- }
- switch (fmt) {
- case 'e':
- case 'E':
- case 'f':
- case 'F':
- #ifdef ZTS
- localeconv_r(&lconv);
- #else
- lconv = localeconv();
- #endif
- s = php_conv_fp((fmt == 'f')?'F':fmt, number, 0, precision,
- (fmt == 'f')?LCONV_DECIMAL_POINT:'.',
- &is_negative, &num_buf[1], &s_len);
- if (is_negative) {
- num_buf[0] = '-';
- s = num_buf;
- s_len++;
- } else if (always_sign) {
- num_buf[0] = '+';
- s = num_buf;
- s_len++;
- }
- break;
- case 'g':
- case 'G':
- if (precision == 0)
- precision = 1;
- /*
- * * We use &num_buf[ 1 ], so that we have room for the sign
- */
- #ifdef ZTS
- localeconv_r(&lconv);
- #else
- lconv = localeconv();
- #endif
- s = php_gcvt(number, precision, LCONV_DECIMAL_POINT, (fmt == 'G')?'E':'e', &num_buf[1]);
- is_negative = 0;
- if (*s == '-') {
- is_negative = 1;
- s = &num_buf[1];
- } else if (always_sign) {
- num_buf[0] = '+';
- s = num_buf;
- }
- s_len = strlen(s);
- break;
- }
- php_sprintf_appendstring(buffer, pos, s, width, 0, padding,
- alignment, s_len, is_negative, 0, always_sign);
- }
- /* }}} */
- /* php_spintf_appendd2n() {{{ */
- inline static void
- php_sprintf_append2n(zend_string **buffer, size_t *pos, zend_long number,
- size_t width, char padding, size_t alignment, int n,
- const char *chartable, int expprec)
- {
- char numbuf[NUM_BUF_SIZE];
- register zend_ulong num;
- register zend_ulong i = NUM_BUF_SIZE - 1;
- register int andbits = (1 << n) - 1;
- PRINTF_DEBUG(("sprintf: append2n(%x, %x, %x, %d, %d, '%c', %d, %d, %x)\n",
- *buffer, pos, &ZSTR_LEN(*buffer), number, width, padding, alignment, n,
- chartable));
- PRINTF_DEBUG(("sprintf: append2n 2^%d andbits=%x\n", n, andbits));
- num = (zend_ulong) number;
- numbuf[i] = '\0';
- do {
- numbuf[--i] = chartable[(num & andbits)];
- num >>= n;
- }
- while (num > 0);
- php_sprintf_appendstring(buffer, pos, &numbuf[i], width, 0,
- padding, alignment, (NUM_BUF_SIZE - 1) - i,
- 0, expprec, 0);
- }
- /* }}} */
- /* php_spintf_getnumber() {{{ */
- inline static int
- php_sprintf_getnumber(char **buffer, size_t *len)
- {
- char *endptr;
- register zend_long num = ZEND_STRTOL(*buffer, &endptr, 10);
- register size_t i;
- if (endptr != NULL) {
- i = (endptr - *buffer);
- *len -= i;
- *buffer = endptr;
- }
- PRINTF_DEBUG(("sprintf_getnumber: number was %d bytes long\n", i));
- if (num >= INT_MAX || num < 0) {
- return -1;
- } else {
- return (int) num;
- }
- }
- /* }}} */
- /* php_formatted_print() {{{
- * New sprintf implementation for PHP.
- *
- * Modifiers:
- *
- * " " pad integers with spaces
- * "-" left adjusted field
- * n field size
- * "."n precision (floats only)
- * "+" Always place a sign (+ or -) in front of a number
- *
- * Type specifiers:
- *
- * "%" literal "%", modifiers are ignored.
- * "b" integer argument is printed as binary
- * "c" integer argument is printed as a single character
- * "d" argument is an integer
- * "f" the argument is a float
- * "o" integer argument is printed as octal
- * "s" argument is a string
- * "x" integer argument is printed as lowercase hexadecimal
- * "X" integer argument is printed as uppercase hexadecimal
- *
- * nb_additional_parameters is used for throwing errors:
- * - -1: ValueError is thrown (for vsprintf where args originates from an array)
- * - 0 or more: ArgumentCountError is thrown
- */
- static zend_string *
- php_formatted_print(char *format, size_t format_len, zval *args, int argc, int nb_additional_parameters)
- {
- size_t size = 240, outpos = 0;
- int alignment, currarg, adjusting, argnum, width, precision;
- char *temppos, padding;
- zend_string *result;
- int always_sign;
- int max_missing_argnum = -1;
- result = zend_string_alloc(size, 0);
- currarg = 0;
- argnum = 0;
- while (format_len) {
- int expprec;
- zval *tmp;
- temppos = memchr(format, '%', format_len);
- if (!temppos) {
- php_sprintf_appendchars(&result, &outpos, format, format_len);
- break;
- } else if (temppos != format) {
- php_sprintf_appendchars(&result, &outpos, format, temppos - format);
- format_len -= temppos - format;
- format = temppos;
- }
- format++; /* skip the '%' */
- format_len--;
- if (*format == '%') {
- php_sprintf_appendchar(&result, &outpos, '%');
- format++;
- format_len--;
- } else {
- /* starting a new format specifier, reset variables */
- alignment = ALIGN_RIGHT;
- adjusting = 0;
- padding = ' ';
- always_sign = 0;
- expprec = 0;
- PRINTF_DEBUG(("sprintf: first looking at '%c', inpos=%d\n",
- *format, format - Z_STRVAL_P(z_format)));
- if (isalpha((int)*format)) {
- width = precision = 0;
- argnum = currarg++;
- } else {
- /* first look for argnum */
- temppos = format;
- while (isdigit((int)*temppos)) temppos++;
- if (*temppos == '$') {
- argnum = php_sprintf_getnumber(&format, &format_len);
- if (argnum <= 0) {
- zend_value_error("Argument number must be greater than zero");
- goto fail;
- }
- argnum--;
- format++; /* skip the '$' */
- format_len--;
- } else {
- argnum = currarg++;
- }
- /* after argnum comes modifiers */
- PRINTF_DEBUG(("sprintf: looking for modifiers\n"
- "sprintf: now looking at '%c', inpos=%d\n",
- *format, format - Z_STRVAL_P(z_format)));
- for (;; format++, format_len--) {
- if (*format == ' ' || *format == '0') {
- padding = *format;
- } else if (*format == '-') {
- alignment = ALIGN_LEFT;
- /* space padding, the default */
- } else if (*format == '+') {
- always_sign = 1;
- } else if (*format == '\'') {
- if (format_len > 1) {
- format++;
- format_len--;
- padding = *format;
- } else {
- zend_value_error("Missing padding character");
- goto fail;
- }
- } else {
- PRINTF_DEBUG(("sprintf: end of modifiers\n"));
- break;
- }
- }
- PRINTF_DEBUG(("sprintf: padding='%c'\n", padding));
- PRINTF_DEBUG(("sprintf: alignment=%s\n",
- (alignment == ALIGN_LEFT) ? "left" : "right"));
- /* after modifiers comes width */
- if (isdigit((int)*format)) {
- PRINTF_DEBUG(("sprintf: getting width\n"));
- if ((width = php_sprintf_getnumber(&format, &format_len)) < 0) {
- zend_value_error("Width must be greater than zero and less than %d", INT_MAX);
- goto fail;
- }
- adjusting |= ADJ_WIDTH;
- } else {
- width = 0;
- }
- PRINTF_DEBUG(("sprintf: width=%d\n", width));
- /* after width and argnum comes precision */
- if (*format == '.') {
- format++;
- format_len--;
- PRINTF_DEBUG(("sprintf: getting precision\n"));
- if (isdigit((int)*format)) {
- if ((precision = php_sprintf_getnumber(&format, &format_len)) < 0) {
- zend_value_error("Precision must be greater than zero and less than %d", INT_MAX);
- goto fail;
- }
- adjusting |= ADJ_PRECISION;
- expprec = 1;
- } else {
- precision = 0;
- }
- } else {
- precision = 0;
- }
- PRINTF_DEBUG(("sprintf: precision=%d\n", precision));
- }
- if (*format == 'l') {
- format++;
- format_len--;
- }
- PRINTF_DEBUG(("sprintf: format character='%c'\n", *format));
- if (argnum >= argc) {
- max_missing_argnum = MAX(max_missing_argnum, argnum);
- continue;
- }
- /* now we expect to find a type specifier */
- tmp = &args[argnum];
- switch (*format) {
- case 's': {
- zend_string *t;
- zend_string *str = zval_get_tmp_string(tmp, &t);
- php_sprintf_appendstring(&result, &outpos,
- ZSTR_VAL(str),
- width, precision, padding,
- alignment,
- ZSTR_LEN(str),
- 0, expprec, 0);
- zend_tmp_string_release(t);
- break;
- }
- case 'd':
- php_sprintf_appendint(&result, &outpos,
- zval_get_long(tmp),
- width, padding, alignment,
- always_sign);
- break;
- case 'u':
- php_sprintf_appenduint(&result, &outpos,
- zval_get_long(tmp),
- width, padding, alignment);
- break;
- case 'g':
- case 'G':
- case 'e':
- case 'E':
- case 'f':
- case 'F':
- php_sprintf_appenddouble(&result, &outpos,
- zval_get_double(tmp),
- width, padding, alignment,
- precision, adjusting,
- *format, always_sign
- );
- break;
- case 'c':
- php_sprintf_appendchar(&result, &outpos,
- (char) zval_get_long(tmp));
- break;
- case 'o':
- php_sprintf_append2n(&result, &outpos,
- zval_get_long(tmp),
- width, padding, alignment, 3,
- hexchars, expprec);
- break;
- case 'x':
- php_sprintf_append2n(&result, &outpos,
- zval_get_long(tmp),
- width, padding, alignment, 4,
- hexchars, expprec);
- break;
- case 'X':
- php_sprintf_append2n(&result, &outpos,
- zval_get_long(tmp),
- width, padding, alignment, 4,
- HEXCHARS, expprec);
- break;
- case 'b':
- php_sprintf_append2n(&result, &outpos,
- zval_get_long(tmp),
- width, padding, alignment, 1,
- hexchars, expprec);
- break;
- case '%':
- php_sprintf_appendchar(&result, &outpos, '%');
- break;
- case '\0':
- if (!format_len) {
- zend_value_error("Missing format specifier at end of string");
- goto fail;
- }
- /* break missing intentionally */
- default:
- zend_value_error("Unknown format specifier '%c'", *format);
- goto fail;
- }
- format++;
- format_len--;
- }
- }
- if (max_missing_argnum >= 0) {
- if (nb_additional_parameters == -1) {
- zend_value_error("The arguments array must contain %d items, %d given", max_missing_argnum + 1, argc);
- } else {
- zend_argument_count_error("%d parameters are required, %d given", max_missing_argnum + nb_additional_parameters + 1, argc + nb_additional_parameters);
- }
- goto fail;
- }
- /* possibly, we have to make sure we have room for the terminating null? */
- ZSTR_VAL(result)[outpos]=0;
- ZSTR_LEN(result) = outpos;
- return result;
- fail:
- zend_string_efree(result);
- return NULL;
- }
- /* }}} */
- /* php_formatted_print_get_array() {{{ */
- static zval*
- php_formatted_print_get_array(zval *array, int *argc)
- {
- zval *args, *zv;
- int n;
- if (Z_TYPE_P(array) != IS_ARRAY) {
- convert_to_array(array);
- }
- n = zend_hash_num_elements(Z_ARRVAL_P(array));
- args = (zval *)safe_emalloc(n, sizeof(zval), 0);
- n = 0;
- ZEND_HASH_FOREACH_VAL(Z_ARRVAL_P(array), zv) {
- ZVAL_COPY_VALUE(&args[n], zv);
- n++;
- } ZEND_HASH_FOREACH_END();
- *argc = n;
- return args;
- }
- /* }}} */
- /* {{{ proto string sprintf(string format [, mixed arg1 [, mixed ...]])
- Return a formatted string */
- PHP_FUNCTION(sprintf)
- {
- zend_string *result;
- char *format;
- size_t format_len;
- zval *args;
- int argc;
- ZEND_PARSE_PARAMETERS_START(1, -1)
- Z_PARAM_STRING(format, format_len)
- Z_PARAM_VARIADIC('*', args, argc)
- ZEND_PARSE_PARAMETERS_END();
- result = php_formatted_print(format, format_len, args, argc, 1);
- if (result == NULL) {
- return;
- }
- RETVAL_STR(result);
- }
- /* }}} */
- /* {{{ proto string vsprintf(string format, array args)
- Return a formatted string */
- PHP_FUNCTION(vsprintf)
- {
- zend_string *result;
- char *format;
- size_t format_len;
- zval *array, *args;
- int argc;
- ZEND_PARSE_PARAMETERS_START(2, 2)
- Z_PARAM_STRING(format, format_len)
- Z_PARAM_ZVAL(array)
- ZEND_PARSE_PARAMETERS_END();
- args = php_formatted_print_get_array(array, &argc);
- result = php_formatted_print(format, format_len, args, argc, -1);
- efree(args);
- if (result == NULL) {
- return;
- }
- RETVAL_STR(result);
- }
- /* }}} */
- /* {{{ proto int printf(string format [, mixed arg1 [, mixed ...]])
- Output a formatted string */
- PHP_FUNCTION(printf)
- {
- zend_string *result;
- size_t rlen;
- char *format;
- size_t format_len;
- zval *args;
- int argc;
- ZEND_PARSE_PARAMETERS_START(1, -1)
- Z_PARAM_STRING(format, format_len)
- Z_PARAM_VARIADIC('*', args, argc)
- ZEND_PARSE_PARAMETERS_END();
- result = php_formatted_print(format, format_len, args, argc, 1);
- if (result == NULL) {
- return;
- }
- rlen = PHPWRITE(ZSTR_VAL(result), ZSTR_LEN(result));
- zend_string_efree(result);
- RETURN_LONG(rlen);
- }
- /* }}} */
- /* {{{ proto int vprintf(string format, array args)
- Output a formatted string */
- PHP_FUNCTION(vprintf)
- {
- zend_string *result;
- size_t rlen;
- char *format;
- size_t format_len;
- zval *array, *args;
- int argc;
- ZEND_PARSE_PARAMETERS_START(2, 2)
- Z_PARAM_STRING(format, format_len)
- Z_PARAM_ZVAL(array)
- ZEND_PARSE_PARAMETERS_END();
- args = php_formatted_print_get_array(array, &argc);
- result = php_formatted_print(format, format_len, args, argc, -1);
- efree(args);
- if (result == NULL) {
- return;
- }
- rlen = PHPWRITE(ZSTR_VAL(result), ZSTR_LEN(result));
- zend_string_efree(result);
- RETURN_LONG(rlen);
- }
- /* }}} */
- /* {{{ proto int fprintf(resource stream, string format [, mixed arg1 [, mixed ...]])
- Output a formatted string into a stream */
- PHP_FUNCTION(fprintf)
- {
- php_stream *stream;
- char *format;
- size_t format_len;
- zval *arg1, *args;
- int argc;
- zend_string *result;
- if (ZEND_NUM_ARGS() < 2) {
- WRONG_PARAM_COUNT;
- }
- ZEND_PARSE_PARAMETERS_START(2, -1)
- Z_PARAM_RESOURCE(arg1)
- Z_PARAM_STRING(format, format_len)
- Z_PARAM_VARIADIC('*', args, argc)
- ZEND_PARSE_PARAMETERS_END();
- php_stream_from_zval(stream, arg1);
- result = php_formatted_print(format, format_len, args, argc, 2);
- if (result == NULL) {
- return;
- }
- php_stream_write(stream, ZSTR_VAL(result), ZSTR_LEN(result));
- RETVAL_LONG(ZSTR_LEN(result));
- zend_string_efree(result);
- }
- /* }}} */
- /* {{{ proto int vfprintf(resource stream, string format, array args)
- Output a formatted string into a stream */
- PHP_FUNCTION(vfprintf)
- {
- php_stream *stream;
- char *format;
- size_t format_len;
- zval *arg1, *array, *args;
- int argc;
- zend_string *result;
- if (ZEND_NUM_ARGS() != 3) {
- WRONG_PARAM_COUNT;
- }
- ZEND_PARSE_PARAMETERS_START(3, 3)
- Z_PARAM_RESOURCE(arg1)
- Z_PARAM_STRING(format, format_len)
- Z_PARAM_ZVAL(array)
- ZEND_PARSE_PARAMETERS_END();
- php_stream_from_zval(stream, arg1);
- args = php_formatted_print_get_array(array, &argc);
- result = php_formatted_print(format, format_len, args, argc, -1);
- efree(args);
- if (result == NULL) {
- return;
- }
- php_stream_write(stream, ZSTR_VAL(result), ZSTR_LEN(result));
- RETVAL_LONG(ZSTR_LEN(result));
- zend_string_efree(result);
- }
- /* }}} */