1999-04-17 00:37:12 +00:00
|
|
|
|
/*
|
|
|
|
|
+----------------------------------------------------------------------+
|
2014-09-19 16:33:14 +00:00
|
|
|
|
| PHP Version 7 |
|
1999-04-17 00:37:12 +00:00
|
|
|
|
+----------------------------------------------------------------------+
|
2015-01-15 15:27:30 +00:00
|
|
|
|
| Copyright (c) 1997-2015 The PHP Group |
|
1999-04-17 00:37:12 +00:00
|
|
|
|
+----------------------------------------------------------------------+
|
2006-01-01 12:51:34 +00:00
|
|
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
1999-07-16 13:13:16 +00:00
|
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
2003-06-10 20:04:29 +00:00
|
|
|
|
| available through the world-wide-web at the following url: |
|
2006-01-01 12:51:34 +00:00
|
|
|
|
| http://www.php.net/license/3_01.txt |
|
1999-07-16 13:13:16 +00:00
|
|
|
|
| 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. |
|
1999-04-17 00:37:12 +00:00
|
|
|
|
+----------------------------------------------------------------------+
|
2014-12-30 08:16:21 +00:00
|
|
|
|
| Author: Stig S<EFBFBD>ther Bakken <ssb@php.net> |
|
1999-04-17 00:37:12 +00:00
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
|
|
|
|
#include <math.h> /* modf() */
|
|
|
|
|
#include "php.h"
|
1999-04-22 00:25:57 +00:00
|
|
|
|
#include "ext/standard/head.h"
|
1999-12-04 19:19:57 +00:00
|
|
|
|
#include "php_string.h"
|
1999-04-17 00:37:12 +00:00
|
|
|
|
#include "zend_execute.h"
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
2002-06-17 11:50:25 +00:00
|
|
|
|
#ifdef HAVE_LOCALE_H
|
|
|
|
|
#include <locale.h>
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#ifdef ZTS
|
2014-12-06 11:09:35 +00:00
|
|
|
|
#include "ext/standard/php_string.h"
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#define LCONV_DECIMAL_POINT (*lconv.decimal_point)
|
|
|
|
|
#else
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#define LCONV_DECIMAL_POINT (*lconv->decimal_point)
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#endif
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#else
|
|
|
|
|
#define LCONV_DECIMAL_POINT '.'
|
2002-06-17 11:50:25 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
#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
|
2010-11-19 16:36:10 +00:00
|
|
|
|
#define MAX_FLOAT_PRECISION 53
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
|
/* trick to control varargs functions through cpp */
|
1999-08-02 19:17:14 +00:00
|
|
|
|
# define PRINTF_DEBUG(arg) php_printf arg
|
1999-04-17 00:37:12 +00:00
|
|
|
|
#else
|
|
|
|
|
# define PRINTF_DEBUG(arg)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
static char hexchars[] = "0123456789abcdef";
|
|
|
|
|
static char HEXCHARS[] = "0123456789ABCDEF";
|
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_appendchar() {{{ */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inline static void
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_sprintf_appendchar(zend_string **buffer, size_t *pos, char add)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
2014-02-13 13:54:23 +00:00
|
|
|
|
if (!*buffer || (*pos + 1) >= (*buffer)->len) {
|
2014-12-13 22:06:14 +00:00
|
|
|
|
PRINTF_DEBUG(("%s(): ereallocing buffer to %d bytes\n", get_active_function_name(), (*buffer)->len));
|
2015-03-19 23:02:42 +00:00
|
|
|
|
*buffer = zend_string_extend(*buffer, (*buffer)->len << 1, 0);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf: appending '%c', pos=\n", add, *pos));
|
2014-02-13 13:54:23 +00:00
|
|
|
|
(*buffer)->val[(*pos)++] = add;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_appendstring() {{{ */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inline static void
|
2014-08-25 18:22:49 +00:00
|
|
|
|
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)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
2014-08-25 18:22:49 +00:00
|
|
|
|
register size_t npad;
|
|
|
|
|
size_t req_size;
|
|
|
|
|
size_t copy_len;
|
|
|
|
|
size_t m_width;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2003-02-15 15:57:31 +00:00
|
|
|
|
copy_len = (expprec ? MIN(max_width, len) : len);
|
2014-08-16 10:55:13 +00:00
|
|
|
|
npad = (min_width < copy_len) ? 0 : min_width - copy_len;
|
2000-07-18 16:34:30 +00:00
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
PRINTF_DEBUG(("sprintf: appendstring(%x, %d, %d, \"%s\", %d, '%c', %d)\n",
|
2014-02-13 13:54:23 +00:00
|
|
|
|
*buffer, *pos, (*buffer)->len, add, min_width, padding, alignment));
|
2008-03-17 23:06:32 +00:00
|
|
|
|
m_width = MAX(min_width, copy_len);
|
2003-02-15 15:57:31 +00:00
|
|
|
|
|
2008-03-17 23:06:32 +00:00
|
|
|
|
if(m_width > INT_MAX - *pos - 1) {
|
|
|
|
|
zend_error_noreturn(E_ERROR, "Field width %d is too long", m_width);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
req_size = *pos + m_width + 1;
|
2003-02-15 15:57:31 +00:00
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
if (!*buffer || req_size > (*buffer)->len) {
|
2014-08-25 17:24:55 +00:00
|
|
|
|
size_t size = (*buffer)->len;
|
2014-02-13 13:54:23 +00:00
|
|
|
|
while (req_size > size) {
|
2014-08-16 10:55:13 +00:00
|
|
|
|
if (size > ZEND_SIZE_MAX/2) {
|
2015-01-03 09:22:58 +00:00
|
|
|
|
zend_error_noreturn(E_ERROR, "Field width %zd is too long", req_size);
|
2008-03-17 23:06:32 +00:00
|
|
|
|
}
|
2014-02-13 13:54:23 +00:00
|
|
|
|
size <<= 1;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2014-02-13 13:54:23 +00:00
|
|
|
|
PRINTF_DEBUG(("sprintf ereallocing buffer to %d bytes\n", size));
|
2015-03-19 23:02:42 +00:00
|
|
|
|
*buffer = zend_string_extend(*buffer, size, 0);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
if (alignment == ALIGN_RIGHT) {
|
2004-01-21 04:00:07 +00:00
|
|
|
|
if ((neg || always_sign) && padding=='0') {
|
2014-02-13 13:54:23 +00:00
|
|
|
|
(*buffer)->val[(*pos)++] = (neg) ? '-' : '+';
|
2000-07-18 16:34:30 +00:00
|
|
|
|
add++;
|
|
|
|
|
len--;
|
2003-05-30 13:49:33 +00:00
|
|
|
|
copy_len--;
|
2000-07-18 16:34:30 +00:00
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
while (npad-- > 0) {
|
2014-02-13 13:54:23 +00:00
|
|
|
|
(*buffer)->val[(*pos)++] = padding;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf: appending \"%s\"\n", add));
|
2014-02-13 13:54:23 +00:00
|
|
|
|
memcpy(&(*buffer)->val[*pos], add, copy_len + 1);
|
2003-02-15 15:57:31 +00:00
|
|
|
|
*pos += copy_len;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
if (alignment == ALIGN_LEFT) {
|
|
|
|
|
while (npad--) {
|
2014-02-13 13:54:23 +00:00
|
|
|
|
(*buffer)->val[(*pos)++] = padding;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_appendint() {{{ */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inline static void
|
2014-08-25 18:22:49 +00:00
|
|
|
|
php_sprintf_appendint(zend_string **buffer, size_t *pos, zend_long number,
|
2015-01-03 09:22:58 +00:00
|
|
|
|
size_t width, char padding, size_t alignment,
|
2002-09-21 15:08:59 +00:00
|
|
|
|
int always_sign)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
|
|
|
|
char numbuf[NUM_BUF_SIZE];
|
2014-08-25 17:24:55 +00:00
|
|
|
|
register zend_ulong magn, nmagn;
|
2001-07-18 16:48:52 +00:00
|
|
|
|
register unsigned int i = NUM_BUF_SIZE - 1, neg = 0;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
PRINTF_DEBUG(("sprintf: appendint(%x, %x, %x, %d, %d, '%c', %d)\n",
|
2014-02-13 13:54:23 +00:00
|
|
|
|
*buffer, pos, &(*buffer)->len, number, width, padding, alignment));
|
1999-04-17 00:37:12 +00:00
|
|
|
|
if (number < 0) {
|
|
|
|
|
neg = 1;
|
2014-08-25 17:24:55 +00:00
|
|
|
|
magn = ((zend_ulong) -(number + 1)) + 1;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
} else {
|
2014-08-25 17:24:55 +00:00
|
|
|
|
magn = (zend_ulong) number;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-03 20:08:33 +00:00
|
|
|
|
/* Can't right-pad 0's on integers */
|
|
|
|
|
if(alignment==0 && padding=='0') padding=' ';
|
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
numbuf[i] = '\0';
|
|
|
|
|
|
|
|
|
|
do {
|
|
|
|
|
nmagn = magn / 10;
|
|
|
|
|
|
2001-07-19 08:12:12 +00:00
|
|
|
|
numbuf[--i] = (unsigned char)(magn - (nmagn * 10)) + '0';
|
1999-04-17 00:37:12 +00:00
|
|
|
|
magn = nmagn;
|
|
|
|
|
}
|
2014-12-30 08:16:21 +00:00
|
|
|
|
while (magn > 0 && i > 1);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
if (neg) {
|
|
|
|
|
numbuf[--i] = '-';
|
2002-09-21 15:08:59 +00:00
|
|
|
|
} else if (always_sign) {
|
|
|
|
|
numbuf[--i] = '+';
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf: appending %d as \"%s\", i=%d\n",
|
|
|
|
|
number, &numbuf[i], i));
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(buffer, pos, &numbuf[i], width, 0,
|
2000-07-18 16:34:30 +00:00
|
|
|
|
padding, alignment, (NUM_BUF_SIZE - 1) - i,
|
2004-01-21 04:00:07 +00:00
|
|
|
|
neg, 0, always_sign);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_appenduint() {{{ */
|
2001-05-20 00:23:49 +00:00
|
|
|
|
inline static void
|
2014-08-25 18:22:49 +00:00
|
|
|
|
php_sprintf_appenduint(zend_string **buffer, size_t *pos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zend_ulong number,
|
2014-08-25 18:22:49 +00:00
|
|
|
|
size_t width, char padding, size_t alignment)
|
2001-05-20 00:23:49 +00:00
|
|
|
|
{
|
|
|
|
|
char numbuf[NUM_BUF_SIZE];
|
2014-08-25 17:24:55 +00:00
|
|
|
|
register zend_ulong magn, nmagn;
|
2001-07-18 16:48:52 +00:00
|
|
|
|
register unsigned int i = NUM_BUF_SIZE - 1;
|
2001-05-20 00:23:49 +00:00
|
|
|
|
|
|
|
|
|
PRINTF_DEBUG(("sprintf: appenduint(%x, %x, %x, %d, %d, '%c', %d)\n",
|
2014-02-13 13:54:23 +00:00
|
|
|
|
*buffer, pos, &(*buffer)->len, number, width, padding, alignment));
|
2014-08-25 17:24:55 +00:00
|
|
|
|
magn = (zend_ulong) number;
|
2001-05-20 00:23:49 +00:00
|
|
|
|
|
|
|
|
|
/* Can't right-pad 0's on integers */
|
|
|
|
|
if (alignment == 0 && padding == '0') padding = ' ';
|
|
|
|
|
|
|
|
|
|
numbuf[i] = '\0';
|
|
|
|
|
|
|
|
|
|
do {
|
|
|
|
|
nmagn = magn / 10;
|
|
|
|
|
|
2001-07-19 08:12:12 +00:00
|
|
|
|
numbuf[--i] = (unsigned char)(magn - (nmagn * 10)) + '0';
|
2001-05-20 00:23:49 +00:00
|
|
|
|
magn = nmagn;
|
2002-09-21 15:08:59 +00:00
|
|
|
|
} while (magn > 0 && i > 0);
|
|
|
|
|
|
2001-05-20 00:23:49 +00:00
|
|
|
|
PRINTF_DEBUG(("sprintf: appending %d as \"%s\", i=%d\n", number, &numbuf[i], i));
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(buffer, pos, &numbuf[i], width, 0,
|
2004-01-21 04:00:07 +00:00
|
|
|
|
padding, alignment, (NUM_BUF_SIZE - 1) - i, 0, 0, 0);
|
2001-05-20 00:23:49 +00:00
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_appenddouble() {{{ */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inline static void
|
2014-08-25 18:22:49 +00:00
|
|
|
|
php_sprintf_appenddouble(zend_string **buffer, size_t *pos,
|
2014-02-13 13:54:23 +00:00
|
|
|
|
double number,
|
2014-08-25 18:22:49 +00:00
|
|
|
|
size_t width, char padding,
|
|
|
|
|
size_t alignment, int precision,
|
2002-09-21 15:08:59 +00:00
|
|
|
|
int adjust, char fmt,
|
2002-10-11 04:44:14 +00:00
|
|
|
|
int always_sign
|
2014-12-13 22:06:14 +00:00
|
|
|
|
)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
2006-12-06 09:52:51 +00:00
|
|
|
|
char num_buf[NUM_BUF_SIZE];
|
2006-12-19 11:54:38 +00:00
|
|
|
|
char *s = NULL;
|
2014-08-25 18:22:49 +00:00
|
|
|
|
size_t s_len = 0;
|
2014-08-16 10:55:13 +00:00
|
|
|
|
int is_negative = 0;
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#ifdef HAVE_LOCALE_H
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#ifdef ZTS
|
|
|
|
|
struct lconv lconv;
|
|
|
|
|
#else
|
2006-12-19 11:54:38 +00:00
|
|
|
|
struct lconv *lconv;
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#endif
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#endif
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
PRINTF_DEBUG(("sprintf: appenddouble(%x, %x, %x, %f, %d, '%c', %d, %c)\n",
|
2014-02-13 13:54:23 +00:00
|
|
|
|
*buffer, pos, &(*buffer)->len, number, width, padding, alignment, fmt));
|
1999-04-17 00:37:12 +00:00
|
|
|
|
if ((adjust & ADJ_PRECISION) == 0) {
|
|
|
|
|
precision = FLOAT_PRECISION;
|
|
|
|
|
} else if (precision > MAX_FLOAT_PRECISION) {
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_error_docref(NULL, E_NOTICE, "Requested precision of %d digits was truncated to PHP maximum of %d digits", precision, MAX_FLOAT_PRECISION);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
precision = MAX_FLOAT_PRECISION;
|
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2000-08-20 06:08:14 +00:00
|
|
|
|
if (zend_isnan(number)) {
|
2006-12-06 09:52:51 +00:00
|
|
|
|
is_negative = (number<0);
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(buffer, pos, "NaN", 3, 0, padding,
|
2009-11-02 17:37:32 +00:00
|
|
|
|
alignment, 3, is_negative, 0, always_sign);
|
2000-08-14 10:02:14 +00:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2000-08-20 06:08:14 +00:00
|
|
|
|
if (zend_isinf(number)) {
|
2006-12-06 09:52:51 +00:00
|
|
|
|
is_negative = (number<0);
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(buffer, pos, "INF", 3, 0, padding,
|
2009-11-02 17:37:32 +00:00
|
|
|
|
alignment, 3, is_negative, 0, always_sign);
|
2000-08-14 10:02:14 +00:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2015-01-03 09:22:58 +00:00
|
|
|
|
switch (fmt) {
|
2006-12-06 09:52:51 +00:00
|
|
|
|
case 'e':
|
|
|
|
|
case 'E':
|
|
|
|
|
case 'f':
|
2006-12-18 09:26:54 +00:00
|
|
|
|
case 'F':
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#ifdef HAVE_LOCALE_H
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#ifdef ZTS
|
|
|
|
|
localeconv_r(&lconv);
|
|
|
|
|
#else
|
2006-12-19 11:54:38 +00:00
|
|
|
|
lconv = localeconv();
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#endif
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#endif
|
2006-12-19 11:54:38 +00:00
|
|
|
|
s = php_conv_fp((fmt == 'f')?'F':fmt, number, 0, precision,
|
2006-12-19 13:13:29 +00:00
|
|
|
|
(fmt == 'f')?LCONV_DECIMAL_POINT:'.',
|
2006-12-06 09:52:51 +00:00
|
|
|
|
&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++;
|
2002-10-15 12:07:36 +00:00
|
|
|
|
}
|
2006-12-06 09:52:51 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'g':
|
|
|
|
|
case 'G':
|
|
|
|
|
if (precision == 0)
|
|
|
|
|
precision = 1;
|
|
|
|
|
/*
|
|
|
|
|
* * We use &num_buf[ 1 ], so that we have room for the sign
|
|
|
|
|
*/
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#ifdef HAVE_LOCALE_H
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#ifdef ZTS
|
|
|
|
|
localeconv_r(&lconv);
|
|
|
|
|
#else
|
2006-12-19 11:54:38 +00:00
|
|
|
|
lconv = localeconv();
|
2014-12-06 10:59:43 +00:00
|
|
|
|
#endif
|
2006-12-19 13:13:29 +00:00
|
|
|
|
#endif
|
|
|
|
|
s = php_gcvt(number, precision, LCONV_DECIMAL_POINT, (fmt == 'G')?'E':'e', &num_buf[1]);
|
2006-12-06 09:52:51 +00:00
|
|
|
|
is_negative = 0;
|
|
|
|
|
if (*s == '-') {
|
|
|
|
|
is_negative = 1;
|
|
|
|
|
s = &num_buf[1];
|
|
|
|
|
} else if (always_sign) {
|
|
|
|
|
num_buf[0] = '+';
|
|
|
|
|
s = num_buf;
|
2003-02-13 17:25:31 +00:00
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2006-12-06 09:52:51 +00:00
|
|
|
|
s_len = strlen(s);
|
|
|
|
|
break;
|
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(buffer, pos, s, width, 0, padding,
|
2006-12-06 09:52:51 +00:00
|
|
|
|
alignment, s_len, is_negative, 0, always_sign);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_appendd2n() {{{ */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inline static void
|
2014-08-25 18:22:49 +00:00
|
|
|
|
php_sprintf_append2n(zend_string **buffer, size_t *pos, zend_long number,
|
|
|
|
|
size_t width, char padding, size_t alignment, int n,
|
2000-07-18 16:34:30 +00:00
|
|
|
|
char *chartable, int expprec)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
|
|
|
|
char numbuf[NUM_BUF_SIZE];
|
2014-08-25 17:24:55 +00:00
|
|
|
|
register zend_ulong num;
|
|
|
|
|
register zend_ulong i = NUM_BUF_SIZE - 1;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
register int andbits = (1 << n) - 1;
|
|
|
|
|
|
|
|
|
|
PRINTF_DEBUG(("sprintf: append2n(%x, %x, %x, %d, %d, '%c', %d, %d, %x)\n",
|
2014-02-13 13:54:23 +00:00
|
|
|
|
*buffer, pos, &(*buffer)->len, number, width, padding, alignment, n,
|
1999-04-17 00:37:12 +00:00
|
|
|
|
chartable));
|
|
|
|
|
PRINTF_DEBUG(("sprintf: append2n 2^%d andbits=%x\n", n, andbits));
|
|
|
|
|
|
2014-08-25 17:24:55 +00:00
|
|
|
|
num = (zend_ulong) number;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
numbuf[i] = '\0';
|
|
|
|
|
|
|
|
|
|
do {
|
|
|
|
|
numbuf[--i] = chartable[(num & andbits)];
|
|
|
|
|
num >>= n;
|
|
|
|
|
}
|
|
|
|
|
while (num > 0);
|
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(buffer, pos, &numbuf[i], width, 0,
|
2000-07-18 16:34:30 +00:00
|
|
|
|
padding, alignment, (NUM_BUF_SIZE - 1) - i,
|
2004-01-21 04:00:07 +00:00
|
|
|
|
0, expprec, 0);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_spintf_getnumber() {{{ */
|
2007-01-13 16:31:17 +00:00
|
|
|
|
inline static int
|
2014-08-25 18:22:49 +00:00
|
|
|
|
php_sprintf_getnumber(char *buffer, size_t *pos)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
|
|
|
|
char *endptr;
|
2014-08-25 18:22:49 +00:00
|
|
|
|
register zend_long num = ZEND_STRTOL(&buffer[*pos], &endptr, 10);
|
|
|
|
|
register size_t i = 0;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
if (endptr != NULL) {
|
|
|
|
|
i = (endptr - &buffer[*pos]);
|
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf_getnumber: number was %d bytes long\n", i));
|
|
|
|
|
*pos += i;
|
2007-01-13 16:31:17 +00:00
|
|
|
|
|
|
|
|
|
if (num >= INT_MAX || num < 0) {
|
|
|
|
|
return -1;
|
|
|
|
|
} else {
|
|
|
|
|
return (int) num;
|
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2007-04-09 21:19:38 +00:00
|
|
|
|
/* php_formatted_print() {{{
|
1999-04-17 00:37:12 +00:00
|
|
|
|
* New sprintf implementation for PHP.
|
|
|
|
|
*
|
|
|
|
|
* Modifiers:
|
|
|
|
|
*
|
|
|
|
|
* " " pad integers with spaces
|
|
|
|
|
* "-" left adjusted field
|
|
|
|
|
* n field size
|
|
|
|
|
* "."n precision (floats only)
|
2002-09-21 15:08:59 +00:00
|
|
|
|
* "+" Always place a sign (+ or -) in front of a number
|
1999-04-17 00:37:12 +00:00
|
|
|
|
*
|
|
|
|
|
* 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
|
|
|
|
|
*
|
|
|
|
|
*/
|
2014-02-13 13:54:23 +00:00
|
|
|
|
static zend_string *
|
2015-05-05 18:38:52 +00:00
|
|
|
|
php_formatted_print(zend_execute_data *execute_data, int use_array, int format_offset)
|
1999-04-17 00:37:12 +00:00
|
|
|
|
{
|
2014-03-06 10:42:16 +00:00
|
|
|
|
zval *newargs = NULL;
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zval *args, *z_format;
|
2014-08-16 10:55:13 +00:00
|
|
|
|
int argc;
|
2014-08-25 18:22:49 +00:00
|
|
|
|
size_t size = 240, inpos = 0, outpos = 0, temppos;
|
2007-01-13 16:31:17 +00:00
|
|
|
|
int alignment, currarg, adjusting, argnum, width, precision;
|
2014-02-13 13:54:23 +00:00
|
|
|
|
char *format, padding;
|
|
|
|
|
zend_string *result;
|
2002-09-21 15:08:59 +00:00
|
|
|
|
int always_sign;
|
2014-10-23 07:45:11 +00:00
|
|
|
|
size_t format_len;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
#ifndef FAST_ZPP
|
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS(), "+", &args, &argc) == FAILURE) {
|
2015-05-05 20:50:50 +00:00
|
|
|
|
return NULL;
|
2008-07-01 10:01:09 +00:00
|
|
|
|
}
|
2015-05-05 18:38:52 +00:00
|
|
|
|
#else
|
|
|
|
|
ZEND_PARSE_PARAMETERS_START(1, -1)
|
|
|
|
|
Z_PARAM_VARIADIC('+', args, argc)
|
2015-05-05 20:50:50 +00:00
|
|
|
|
ZEND_PARSE_PARAMETERS_END_EX(return NULL);
|
2015-05-05 18:38:52 +00:00
|
|
|
|
#endif
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2003-01-09 17:29:31 +00:00
|
|
|
|
/* verify the number of args */
|
2015-01-03 09:22:58 +00:00
|
|
|
|
if ((use_array && argc != (2 + format_offset))
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|| (!use_array && argc < (1 + format_offset))) {
|
2008-06-25 10:16:52 +00:00
|
|
|
|
WRONG_PARAM_COUNT_WITH_RETVAL(NULL);
|
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-03-06 10:47:43 +00:00
|
|
|
|
convert_to_string_ex(&args[format_offset]);
|
2001-08-07 19:44:45 +00:00
|
|
|
|
if (use_array) {
|
|
|
|
|
int i = 1;
|
2014-03-06 10:06:41 +00:00
|
|
|
|
zval *zv;
|
2014-04-16 08:07:58 +00:00
|
|
|
|
zval *array;
|
2001-08-07 19:44:45 +00:00
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
z_format = &args[format_offset];
|
2014-04-16 08:07:58 +00:00
|
|
|
|
array = &args[1 + format_offset];
|
2014-06-05 12:04:11 +00:00
|
|
|
|
if (Z_TYPE_P(array) != IS_ARRAY) {
|
|
|
|
|
SEPARATE_ZVAL(array);
|
|
|
|
|
convert_to_array(array);
|
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-04-16 08:07:58 +00:00
|
|
|
|
argc = 1 + zend_hash_num_elements(Z_ARRVAL_P(array));
|
2014-02-13 13:54:23 +00:00
|
|
|
|
newargs = (zval *)safe_emalloc(argc, sizeof(zval), 0);
|
|
|
|
|
ZVAL_COPY_VALUE(&newargs[0], z_format);
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-04-18 15:18:11 +00:00
|
|
|
|
ZEND_HASH_FOREACH_VAL(Z_ARRVAL_P(array), zv) {
|
2014-02-13 13:54:23 +00:00
|
|
|
|
ZVAL_COPY_VALUE(&newargs[i], zv);
|
|
|
|
|
i++;
|
2014-04-18 15:18:11 +00:00
|
|
|
|
} ZEND_HASH_FOREACH_END();
|
2003-01-09 17:29:31 +00:00
|
|
|
|
args = newargs;
|
|
|
|
|
format_offset = 0;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
format = Z_STRVAL(args[format_offset]);
|
2014-08-25 17:24:55 +00:00
|
|
|
|
format_len = Z_STRLEN(args[format_offset]);
|
|
|
|
|
result = zend_string_alloc(size, 0);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
currarg = 1;
|
|
|
|
|
|
2014-08-25 17:24:55 +00:00
|
|
|
|
while (inpos < Z_STRLEN(args[format_offset])) {
|
2014-02-24 07:10:16 +00:00
|
|
|
|
int expprec = 0;
|
2014-06-05 12:04:11 +00:00
|
|
|
|
zval *tmp;
|
2000-07-18 16:34:30 +00:00
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
PRINTF_DEBUG(("sprintf: format[%d]='%c'\n", inpos, format[inpos]));
|
|
|
|
|
PRINTF_DEBUG(("sprintf: outpos=%d\n", outpos));
|
|
|
|
|
if (format[inpos] != '%') {
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_sprintf_appendchar(&result, &outpos, format[inpos++]);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
} else if (format[inpos + 1] == '%') {
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_sprintf_appendchar(&result, &outpos, '%');
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inpos += 2;
|
|
|
|
|
} else {
|
|
|
|
|
/* starting a new format specifier, reset variables */
|
|
|
|
|
alignment = ALIGN_RIGHT;
|
|
|
|
|
adjusting = 0;
|
|
|
|
|
padding = ' ';
|
2002-09-21 15:08:59 +00:00
|
|
|
|
always_sign = 0;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
inpos++; /* skip the '%' */
|
|
|
|
|
|
|
|
|
|
PRINTF_DEBUG(("sprintf: first looking at '%c', inpos=%d\n",
|
|
|
|
|
format[inpos], inpos));
|
|
|
|
|
if (isascii((int)format[inpos]) && !isalpha((int)format[inpos])) {
|
2001-04-09 15:44:24 +00:00
|
|
|
|
/* first look for argnum */
|
|
|
|
|
temppos = inpos;
|
|
|
|
|
while (isdigit((int)format[temppos])) temppos++;
|
|
|
|
|
if (format[temppos] == '$') {
|
|
|
|
|
argnum = php_sprintf_getnumber(format, &inpos);
|
2002-03-22 09:09:18 +00:00
|
|
|
|
|
2007-01-13 16:31:17 +00:00
|
|
|
|
if (argnum <= 0) {
|
2002-03-22 09:09:18 +00:00
|
|
|
|
efree(result);
|
2014-03-06 10:06:41 +00:00
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_error_docref(NULL, E_WARNING, "Argument number must be greater than zero");
|
2002-03-22 09:09:18 +00:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
2004-01-13 23:11:31 +00:00
|
|
|
|
|
2001-04-09 15:44:24 +00:00
|
|
|
|
inpos++; /* skip the '$' */
|
|
|
|
|
} else {
|
|
|
|
|
argnum = currarg++;
|
|
|
|
|
}
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
|
|
|
|
argnum += format_offset;
|
2001-04-09 15:44:24 +00:00
|
|
|
|
|
|
|
|
|
/* after argnum comes modifiers */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
PRINTF_DEBUG(("sprintf: looking for modifiers\n"
|
|
|
|
|
"sprintf: now looking at '%c', inpos=%d\n",
|
|
|
|
|
format[inpos], inpos));
|
|
|
|
|
for (;; inpos++) {
|
|
|
|
|
if (format[inpos] == ' ' || format[inpos] == '0') {
|
|
|
|
|
padding = format[inpos];
|
|
|
|
|
} else if (format[inpos] == '-') {
|
|
|
|
|
alignment = ALIGN_LEFT;
|
|
|
|
|
/* space padding, the default */
|
2002-09-21 15:08:59 +00:00
|
|
|
|
} else if (format[inpos] == '+') {
|
|
|
|
|
always_sign = 1;
|
2014-05-12 01:44:14 +00:00
|
|
|
|
} else if (format[inpos] == '\'' && inpos+1<format_len) {
|
1999-04-17 00:37:12 +00:00
|
|
|
|
padding = format[++inpos];
|
|
|
|
|
} 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[inpos])) {
|
|
|
|
|
PRINTF_DEBUG(("sprintf: getting width\n"));
|
2007-01-13 16:31:17 +00:00
|
|
|
|
if ((width = php_sprintf_getnumber(format, &inpos)) < 0) {
|
|
|
|
|
efree(result);
|
2014-03-06 10:42:16 +00:00
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_error_docref(NULL, E_WARNING, "Width must be greater than zero and less than %d", INT_MAX);
|
2014-03-06 10:06:41 +00:00
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
2007-01-13 16:31:17 +00:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
adjusting |= ADJ_WIDTH;
|
|
|
|
|
} else {
|
|
|
|
|
width = 0;
|
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf: width=%d\n", width));
|
|
|
|
|
|
2001-04-09 15:44:24 +00:00
|
|
|
|
/* after width and argnum comes precision */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
if (format[inpos] == '.') {
|
|
|
|
|
inpos++;
|
|
|
|
|
PRINTF_DEBUG(("sprintf: getting precision\n"));
|
|
|
|
|
if (isdigit((int)format[inpos])) {
|
2007-01-13 16:31:17 +00:00
|
|
|
|
if ((precision = php_sprintf_getnumber(format, &inpos)) < 0) {
|
|
|
|
|
efree(result);
|
2014-03-06 10:42:16 +00:00
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_error_docref(NULL, E_WARNING, "Precision must be greater than zero and less than %d", INT_MAX);
|
2014-03-06 10:06:41 +00:00
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
2007-01-13 16:31:17 +00:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
adjusting |= ADJ_PRECISION;
|
2000-07-18 16:34:30 +00:00
|
|
|
|
expprec = 1;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
} else {
|
|
|
|
|
precision = 0;
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
precision = 0;
|
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf: precision=%d\n", precision));
|
|
|
|
|
} else {
|
|
|
|
|
width = precision = 0;
|
2003-01-09 17:29:31 +00:00
|
|
|
|
argnum = currarg++ + format_offset;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
|
|
|
|
|
2005-01-26 00:01:26 +00:00
|
|
|
|
if (argnum >= argc) {
|
|
|
|
|
efree(result);
|
2014-03-06 10:42:16 +00:00
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_error_docref(NULL, E_WARNING, "Too few arguments");
|
2005-01-26 00:01:26 +00:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
if (format[inpos] == 'l') {
|
|
|
|
|
inpos++;
|
|
|
|
|
}
|
|
|
|
|
PRINTF_DEBUG(("sprintf: format character='%c'\n", format[inpos]));
|
|
|
|
|
/* now we expect to find a type specifier */
|
2014-06-05 12:04:11 +00:00
|
|
|
|
tmp = &args[argnum];
|
1999-04-17 00:37:12 +00:00
|
|
|
|
switch (format[inpos]) {
|
2003-12-29 22:26:48 +00:00
|
|
|
|
case 's': {
|
2014-06-05 12:04:11 +00:00
|
|
|
|
zend_string *str = zval_get_string(tmp);
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendstring(&result, &outpos,
|
2014-04-21 15:51:15 +00:00
|
|
|
|
str->val,
|
2002-10-26 22:18:40 +00:00
|
|
|
|
width, precision, padding,
|
2000-07-18 16:34:30 +00:00
|
|
|
|
alignment,
|
2014-04-21 15:51:15 +00:00
|
|
|
|
str->len,
|
2004-01-21 04:00:07 +00:00
|
|
|
|
0, expprec, 0);
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zend_string_release(str);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
2003-12-29 22:26:48 +00:00
|
|
|
|
}
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
case 'd':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendint(&result, &outpos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zval_get_long(tmp),
|
2002-09-21 15:08:59 +00:00
|
|
|
|
width, padding, alignment,
|
|
|
|
|
always_sign);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
|
|
|
|
|
2001-05-20 00:23:49 +00:00
|
|
|
|
case 'u':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appenduint(&result, &outpos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zval_get_long(tmp),
|
2004-01-21 04:00:07 +00:00
|
|
|
|
width, padding, alignment);
|
2001-05-20 00:23:49 +00:00
|
|
|
|
break;
|
|
|
|
|
|
2006-12-06 09:52:51 +00:00
|
|
|
|
case 'g':
|
|
|
|
|
case 'G':
|
1999-04-17 00:37:12 +00:00
|
|
|
|
case 'e':
|
2006-12-06 09:52:51 +00:00
|
|
|
|
case 'E':
|
1999-04-17 00:37:12 +00:00
|
|
|
|
case 'f':
|
2004-11-15 13:42:22 +00:00
|
|
|
|
case 'F':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appenddouble(&result, &outpos,
|
2014-06-05 12:04:11 +00:00
|
|
|
|
zval_get_double(tmp),
|
2000-07-18 16:34:30 +00:00
|
|
|
|
width, padding, alignment,
|
|
|
|
|
precision, adjusting,
|
2002-10-11 04:44:14 +00:00
|
|
|
|
format[inpos], always_sign
|
2014-12-13 22:06:14 +00:00
|
|
|
|
);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
case 'c':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_appendchar(&result, &outpos,
|
2014-12-13 22:06:14 +00:00
|
|
|
|
(char) zval_get_long(tmp));
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'o':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_append2n(&result, &outpos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zval_get_long(tmp),
|
2000-07-18 16:34:30 +00:00
|
|
|
|
width, padding, alignment, 3,
|
|
|
|
|
hexchars, expprec);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'x':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_append2n(&result, &outpos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zval_get_long(tmp),
|
2000-07-18 16:34:30 +00:00
|
|
|
|
width, padding, alignment, 4,
|
|
|
|
|
hexchars, expprec);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'X':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_append2n(&result, &outpos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zval_get_long(tmp),
|
2000-07-18 16:34:30 +00:00
|
|
|
|
width, padding, alignment, 4,
|
|
|
|
|
HEXCHARS, expprec);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'b':
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_sprintf_append2n(&result, &outpos,
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zval_get_long(tmp),
|
2000-07-18 16:34:30 +00:00
|
|
|
|
width, padding, alignment, 1,
|
|
|
|
|
hexchars, expprec);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '%':
|
2014-12-13 22:06:14 +00:00
|
|
|
|
php_sprintf_appendchar(&result, &outpos, '%');
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
inpos++;
|
|
|
|
|
}
|
|
|
|
|
}
|
2014-03-06 10:06:41 +00:00
|
|
|
|
|
|
|
|
|
if (newargs) {
|
|
|
|
|
efree(newargs);
|
|
|
|
|
}
|
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
/* possibly, we have to make sure we have room for the terminating null? */
|
2014-02-13 13:54:23 +00:00
|
|
|
|
result->val[outpos]=0;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
result->len = outpos;
|
1999-04-17 00:37:12 +00:00
|
|
|
|
return result;
|
|
|
|
|
}
|
2001-06-06 13:06:12 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2000-06-25 17:21:04 +00:00
|
|
|
|
/* {{{ proto string sprintf(string format [, mixed arg1 [, mixed ...]])
|
1999-10-18 20:00:42 +00:00
|
|
|
|
Return a formatted string */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
PHP_FUNCTION(user_sprintf)
|
|
|
|
|
{
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zend_string *result;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
if ((result=php_formatted_print(execute_data, 0, 0))==NULL) {
|
2001-08-07 19:44:45 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
2014-02-13 13:54:23 +00:00
|
|
|
|
RETVAL_STR(result);
|
2001-08-07 19:44:45 +00:00
|
|
|
|
}
|
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
|
|
/* {{{ proto string vsprintf(string format, array args)
|
|
|
|
|
Return a formatted string */
|
|
|
|
|
PHP_FUNCTION(vsprintf)
|
|
|
|
|
{
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zend_string *result;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
if ((result=php_formatted_print(execute_data, 1, 0))==NULL) {
|
1999-04-17 00:37:12 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
2014-02-13 13:54:23 +00:00
|
|
|
|
RETVAL_STR(result);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
1999-10-18 20:00:42 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2000-06-25 17:21:04 +00:00
|
|
|
|
/* {{{ proto int printf(string format [, mixed arg1 [, mixed ...]])
|
1999-10-18 20:00:42 +00:00
|
|
|
|
Output a formatted string */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
PHP_FUNCTION(user_printf)
|
|
|
|
|
{
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zend_string *result;
|
2014-08-25 18:22:49 +00:00
|
|
|
|
size_t rlen;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
if ((result=php_formatted_print(execute_data, 0, 0))==NULL) {
|
2001-08-07 19:44:45 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
2014-02-13 13:54:23 +00:00
|
|
|
|
rlen = PHPWRITE(result->val, result->len);
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zend_string_free(result);
|
|
|
|
|
RETURN_LONG(rlen);
|
2001-08-07 19:44:45 +00:00
|
|
|
|
}
|
|
|
|
|
/* }}} */
|
|
|
|
|
|
2001-12-06 18:59:22 +00:00
|
|
|
|
/* {{{ proto int vprintf(string format, array args)
|
2001-08-07 19:44:45 +00:00
|
|
|
|
Output a formatted string */
|
|
|
|
|
PHP_FUNCTION(vprintf)
|
|
|
|
|
{
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zend_string *result;
|
2014-08-25 18:22:49 +00:00
|
|
|
|
size_t rlen;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
if ((result=php_formatted_print(execute_data, 1, 0))==NULL) {
|
1999-04-17 00:37:12 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
2014-02-13 13:54:23 +00:00
|
|
|
|
rlen = PHPWRITE(result->val, result->len);
|
2014-08-25 17:24:55 +00:00
|
|
|
|
zend_string_free(result);
|
|
|
|
|
RETURN_LONG(rlen);
|
1999-04-17 00:37:12 +00:00
|
|
|
|
}
|
1999-10-18 20:00:42 +00:00
|
|
|
|
/* }}} */
|
1999-04-17 00:37:12 +00:00
|
|
|
|
|
2003-01-09 17:29:31 +00:00
|
|
|
|
/* {{{ proto int fprintf(resource stream, string format [, mixed arg1 [, mixed ...]])
|
|
|
|
|
Output a formatted string into a stream */
|
|
|
|
|
PHP_FUNCTION(fprintf)
|
|
|
|
|
{
|
|
|
|
|
php_stream *stream;
|
2008-08-10 21:49:01 +00:00
|
|
|
|
zval *arg1;
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zend_string *result;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2008-06-25 10:16:52 +00:00
|
|
|
|
if (ZEND_NUM_ARGS() < 2) {
|
|
|
|
|
WRONG_PARAM_COUNT;
|
2003-01-09 17:29:31 +00:00
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
|
if (zend_parse_parameters(1, "r", &arg1) == FAILURE) {
|
2008-06-25 10:16:52 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_stream_from_zval(stream, arg1);
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
if ((result=php_formatted_print(execute_data, 0, 1))==NULL) {
|
2003-01-09 17:29:31 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_stream_write(stream, result->val, result->len);
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
2014-08-25 17:24:55 +00:00
|
|
|
|
RETVAL_LONG(result->len);
|
|
|
|
|
zend_string_free(result);
|
2003-01-09 17:29:31 +00:00
|
|
|
|
}
|
2006-06-26 18:48:56 +00:00
|
|
|
|
/* }}} */
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
|
|
|
|
/* {{{ proto int vfprintf(resource stream, string format, array args)
|
|
|
|
|
Output a formatted string into a stream */
|
|
|
|
|
PHP_FUNCTION(vfprintf)
|
|
|
|
|
{
|
|
|
|
|
php_stream *stream;
|
2008-08-10 21:49:01 +00:00
|
|
|
|
zval *arg1;
|
2014-02-13 13:54:23 +00:00
|
|
|
|
zend_string *result;
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2003-01-09 17:29:31 +00:00
|
|
|
|
if (ZEND_NUM_ARGS() != 3) {
|
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-12-13 22:06:14 +00:00
|
|
|
|
if (zend_parse_parameters(1, "r", &arg1) == FAILURE) {
|
2008-06-25 10:16:52 +00:00
|
|
|
|
RETURN_FALSE;
|
2003-01-09 17:29:31 +00:00
|
|
|
|
}
|
2015-01-03 09:22:58 +00:00
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_stream_from_zval(stream, arg1);
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
2015-05-05 18:38:52 +00:00
|
|
|
|
if ((result=php_formatted_print(execute_data, 1, 1))==NULL) {
|
2003-01-09 17:29:31 +00:00
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
2014-02-13 13:54:23 +00:00
|
|
|
|
php_stream_write(stream, result->val, result->len);
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
2014-08-25 17:24:55 +00:00
|
|
|
|
RETVAL_LONG(result->len);
|
|
|
|
|
zend_string_free(result);
|
2003-01-09 17:29:31 +00:00
|
|
|
|
}
|
2006-06-26 18:48:56 +00:00
|
|
|
|
/* }}} */
|
2003-01-09 17:29:31 +00:00
|
|
|
|
|
1999-04-17 00:37:12 +00:00
|
|
|
|
/*
|
|
|
|
|
* Local variables:
|
|
|
|
|
* tab-width: 4
|
|
|
|
|
* c-basic-offset: 4
|
|
|
|
|
* End:
|
2001-09-09 13:29:31 +00:00
|
|
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
|
|
|
* vim<600: sw=4 ts=4
|
1999-04-17 00:37:12 +00:00
|
|
|
|
*/
|