mirror of
https://github.com/php/php-src.git
synced 2024-11-25 10:54:15 +08:00
3515 lines
96 KiB
C
3515 lines
96 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 4 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 2001 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 2.02 of the PHP license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available at through the world-wide-web at |
|
|
| http://www.php.net/license/2_02.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: Tsukada Takuya <tsukada@fminn.nagano.nagano.jp> |
|
|
| Rui Hirokawa <hirokawa@php.net> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
/*
|
|
* PHP4 Multibyte String module "mbstring" (currently only for Japanese)
|
|
*
|
|
* History:
|
|
* 2000.5.19 Release php-4.0RC2_jstring-1.0
|
|
* 2001.4.1 Release php4_jstring-1.0.91
|
|
* 2001.4.30 Release php4_jstring-1.1 (contribute to The PHP Group)
|
|
* 2001.5.1 Renamed from jstring to mbstring (hirokawa@php.net)
|
|
*/
|
|
|
|
/*
|
|
* PHP3 Internationalization support program.
|
|
*
|
|
* Copyright (c) 1999,2000 by the PHP3 internationalization team.
|
|
* All rights reserved.
|
|
*
|
|
* See README_PHP3-i18n-ja for more detail.
|
|
*
|
|
* Authors:
|
|
* Hironori Sato <satoh@jpnnet.com>
|
|
* Shigeru Kanemoto <sgk@happysize.co.jp>
|
|
* Tsukada Takuya <tsukada@fminn.nagano.nagano.jp>
|
|
* Rui Hirokawa <rui_hirokawa@ybb.ne.jp>
|
|
*/
|
|
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include "php.h"
|
|
#include "php_ini.h"
|
|
#include "php_variables.h"
|
|
#include "mbstring.h"
|
|
#include "ext/standard/php_string.h"
|
|
#include "ext/standard/php_mail.h"
|
|
#include "ext/standard/url.h"
|
|
#include "main/php_output.h"
|
|
#include "ext/standard/info.h"
|
|
|
|
#include "php_variables.h"
|
|
#include "php_globals.h"
|
|
#include "rfc1867.h"
|
|
#include "php_content_types.h"
|
|
#include "SAPI.h"
|
|
|
|
#ifdef ZEND_MULTIBYTE
|
|
#include "zend_multibyte.h"
|
|
#endif /* ZEND_MULTIBYTE */
|
|
|
|
#if HAVE_MBSTRING
|
|
|
|
#if HAVE_MBREGEX
|
|
#include "mbregex.h"
|
|
#endif
|
|
|
|
#if defined(HAVE_MBSTR_JA)
|
|
static const enum mbfl_no_encoding php_mbstr_default_identify_list[] = {
|
|
mbfl_no_encoding_ascii,
|
|
mbfl_no_encoding_jis,
|
|
mbfl_no_encoding_utf8,
|
|
mbfl_no_encoding_euc_jp,
|
|
mbfl_no_encoding_sjis
|
|
};
|
|
#endif
|
|
|
|
|
|
#if defined(HAVE_MBSTR_CN) & !defined(HAVE_MBSTR_JA)
|
|
static const enum mbfl_no_encoding php_mbstr_default_identify_list[] = {
|
|
mbfl_no_encoding_ascii,
|
|
mbfl_no_encoding_utf8,
|
|
mbfl_no_encoding_euc_cn,
|
|
mbfl_no_encoding_cp936
|
|
};
|
|
#endif
|
|
|
|
#if defined(HAVE_MBSTR_TW) & !defined(HAVE_MBSTR_CN) & !defined(HAVE_MBSTR_JA)
|
|
static const enum mbfl_no_encoding php_mbstr_default_identify_list[] = {
|
|
mbfl_no_encoding_ascii,
|
|
mbfl_no_encoding_utf8,
|
|
mbfl_no_encoding_euc_tw,
|
|
mbfl_no_encoding_big5
|
|
};
|
|
#endif
|
|
|
|
#if defined(HAVE_MBSTR_KR) & !defined(HAVE_MBSTR_TW) & !defined(HAVE_MBSTR_CN) & !defined(HAVE_MBSTR_JA)
|
|
static const enum mbfl_no_encoding php_mbstr_default_identify_list[] = {
|
|
mbfl_no_encoding_ascii,
|
|
mbfl_no_encoding_utf8,
|
|
mbfl_no_encoding_euc_kr,
|
|
mbfl_no_encoding_uhc
|
|
};
|
|
#endif
|
|
|
|
#if defined(HAVE_MBSTR_RU) & !defined(HAVE_MBSTR_KR) & !defined(HAVE_MBSTR_TW) & !defined(HAVE_MBSTR_CN) & !defined(HAVE_MBSTR_JA)
|
|
static const enum mbfl_no_encoding php_mbstr_default_identify_list[] = {
|
|
mbfl_no_encoding_ascii,
|
|
mbfl_no_encoding_utf8,
|
|
mbfl_no_encoding_koi8r,
|
|
mbfl_no_encoding_cp1251,
|
|
mbfl_no_encoding_cp866
|
|
};
|
|
#endif
|
|
|
|
#if !defined(HAVE_MBSTR_RU) & !defined(HAVE_MBSTR_KR) & !defined(HAVE_MBSTR_TW) & !defined(HAVE_MBSTR_CN) & !defined(HAVE_MBSTR_JA)
|
|
static const enum mbfl_no_encoding php_mbstr_default_identify_list[] = {
|
|
mbfl_no_encoding_ascii,
|
|
mbfl_no_encoding_utf8
|
|
};
|
|
#endif
|
|
|
|
static const int php_mbstr_default_identify_list_size = sizeof(php_mbstr_default_identify_list)/sizeof(enum mbfl_no_encoding);
|
|
|
|
static unsigned char third_and_rest_force_ref[] = { 3, BYREF_NONE, BYREF_NONE, BYREF_FORCE_REST };
|
|
static unsigned char second_args_force_ref[] = { 2, BYREF_NONE, BYREF_FORCE };
|
|
#if HAVE_MBREGEX
|
|
static unsigned char third_argument_force_ref[] = { 3, BYREF_NONE, BYREF_NONE, BYREF_FORCE };
|
|
#endif
|
|
#if defined(MBSTR_ENC_TRANS)
|
|
SAPI_POST_HANDLER_FUNC(php_mbstr_post_handler);
|
|
|
|
static sapi_post_entry mbstr_post_entries[] = {
|
|
{ DEFAULT_POST_CONTENT_TYPE, sizeof(DEFAULT_POST_CONTENT_TYPE)-1, sapi_read_standard_form_data, php_mbstr_post_handler },
|
|
{ MULTIPART_CONTENT_TYPE, sizeof(MULTIPART_CONTENT_TYPE)-1, NULL, rfc1867_post_handler },
|
|
{ NULL, 0, NULL, NULL }
|
|
};
|
|
#endif
|
|
|
|
static struct mb_overload_def mb_ovld[] = {
|
|
{MB_OVERLOAD_MAIL, "mail", "mb_send_mail", "mb_orig_mail"},
|
|
{MB_OVERLOAD_STRING, "strlen", "mb_strlen", "mb_orig_strlen"},
|
|
{MB_OVERLOAD_STRING, "strpos", "mb_strpos", "mb_orig_strrpos"},
|
|
{MB_OVERLOAD_STRING, "strrpos", "mb_strrpos", "mb_orig_strrpos"},
|
|
{MB_OVERLOAD_STRING, "substr", "mb_substr", "mb_orig_substr"},
|
|
#if HAVE_MBREGEX
|
|
{MB_OVERLOAD_REGEX, "ereg", "mb_ereg", "mb_orig_ereg"},
|
|
{MB_OVERLOAD_REGEX, "eregi", "mb_eregi", "mb_orig_eregi"},
|
|
{MB_OVERLOAD_REGEX, "ereg_replace", "mb_ereg_replace", "mb_orig_ereg_replace"},
|
|
{MB_OVERLOAD_REGEX, "eregi_replace", "mb_eregi_replace", "mb_orig_eregi_replace"},
|
|
{MB_OVERLOAD_REGEX, "split", "mb_split", "mb_orig_split"},
|
|
#endif
|
|
{0, NULL, NULL, NULL}
|
|
};
|
|
|
|
#if HAVE_MBREGEX
|
|
struct def_mbctype_tbl {
|
|
enum mbfl_no_encoding mbfl_encoding;
|
|
int regex_encoding;
|
|
};
|
|
|
|
struct def_mbctype_tbl mbctype_tbl[] = {
|
|
{mbfl_no_encoding_ascii,MBCTYPE_ASCII},
|
|
{mbfl_no_encoding_euc_jp,MBCTYPE_EUC},
|
|
{mbfl_no_encoding_sjis,MBCTYPE_SJIS},
|
|
{mbfl_no_encoding_utf8,MBCTYPE_UTF8},
|
|
{mbfl_no_encoding_pass,-1}
|
|
};
|
|
#endif
|
|
|
|
function_entry mbstring_functions[] = {
|
|
PHP_FE(mb_language, NULL)
|
|
PHP_FE(mb_internal_encoding, NULL)
|
|
PHP_FE(mb_http_input, NULL)
|
|
PHP_FE(mb_http_output, NULL)
|
|
PHP_FE(mb_detect_order, NULL)
|
|
PHP_FE(mb_substitute_character, NULL)
|
|
PHP_FE(mb_parse_str, second_args_force_ref)
|
|
PHP_FE(mb_output_handler, NULL)
|
|
PHP_FE(mb_preferred_mime_name, NULL)
|
|
PHP_FE(mb_strlen, NULL)
|
|
PHP_FE(mb_strpos, NULL)
|
|
PHP_FE(mb_strrpos, NULL)
|
|
PHP_FE(mb_substr, NULL)
|
|
PHP_FE(mb_strcut, NULL)
|
|
PHP_FE(mb_strwidth, NULL)
|
|
PHP_FE(mb_strimwidth, NULL)
|
|
PHP_FE(mb_convert_encoding, NULL)
|
|
PHP_FE(mb_detect_encoding, NULL)
|
|
PHP_FE(mb_convert_kana, NULL)
|
|
PHP_FE(mb_encode_mimeheader, NULL)
|
|
PHP_FE(mb_decode_mimeheader, NULL)
|
|
PHP_FE(mb_convert_variables, third_and_rest_force_ref)
|
|
PHP_FE(mb_encode_numericentity, NULL)
|
|
PHP_FE(mb_decode_numericentity, NULL)
|
|
PHP_FE(mb_send_mail, NULL)
|
|
PHP_FE(mb_get_info, NULL)
|
|
PHP_FALIAS(mbstrlen, mb_strlen, NULL)
|
|
PHP_FALIAS(mbstrpos, mb_strpos, NULL)
|
|
PHP_FALIAS(mbstrrpos, mb_strrpos, NULL)
|
|
PHP_FALIAS(mbsubstr, mb_substr, NULL)
|
|
PHP_FALIAS(mbstrcut, mb_strcut, NULL)
|
|
PHP_FALIAS(i18n_internal_encoding, mb_internal_encoding, NULL)
|
|
PHP_FALIAS(i18n_http_input, mb_http_input, NULL)
|
|
PHP_FALIAS(i18n_http_output, mb_http_output, NULL)
|
|
PHP_FALIAS(i18n_convert, mb_convert_encoding, NULL)
|
|
PHP_FALIAS(i18n_discover_encoding, mb_detect_encoding, NULL)
|
|
PHP_FALIAS(i18n_mime_header_encode, mb_encode_mimeheader, NULL)
|
|
PHP_FALIAS(i18n_mime_header_decode, mb_decode_mimeheader, NULL)
|
|
PHP_FALIAS(i18n_ja_jp_hantozen, mb_convert_kana, NULL)
|
|
#if HAVE_MBREGEX
|
|
PHP_FE(mb_regex_encoding, NULL)
|
|
PHP_FE(mb_ereg, third_argument_force_ref)
|
|
PHP_FE(mb_eregi, third_argument_force_ref)
|
|
PHP_FE(mb_ereg_replace, NULL)
|
|
PHP_FE(mb_eregi_replace, NULL)
|
|
PHP_FE(mb_split, NULL)
|
|
PHP_FE(mb_ereg_match, NULL)
|
|
PHP_FE(mb_ereg_search, NULL)
|
|
PHP_FE(mb_ereg_search_pos, NULL)
|
|
PHP_FE(mb_ereg_search_regs, NULL)
|
|
PHP_FE(mb_ereg_search_init, NULL)
|
|
PHP_FE(mb_ereg_search_getregs, NULL)
|
|
PHP_FE(mb_ereg_search_getpos, NULL)
|
|
PHP_FE(mb_ereg_search_setpos, NULL)
|
|
PHP_FALIAS(mbregex_encoding, mb_regex_encoding, NULL)
|
|
PHP_FALIAS(mbereg, mb_ereg, NULL)
|
|
PHP_FALIAS(mberegi, mb_eregi, NULL)
|
|
PHP_FALIAS(mbereg_replace, mb_ereg_replace, NULL)
|
|
PHP_FALIAS(mberegi_replace, mb_eregi_replace, NULL)
|
|
PHP_FALIAS(mbsplit, mb_split, NULL)
|
|
PHP_FALIAS(mbereg_match, mb_ereg_match, NULL)
|
|
PHP_FALIAS(mbereg_search, mb_ereg_search, NULL)
|
|
PHP_FALIAS(mbereg_search_pos, mb_ereg_search_pos, NULL)
|
|
PHP_FALIAS(mbereg_search_regs, mb_ereg_search_regs, NULL)
|
|
PHP_FALIAS(mbereg_search_init, mb_ereg_search_init, NULL)
|
|
PHP_FALIAS(mbereg_search_getregs, mb_ereg_search_getregs, NULL)
|
|
PHP_FALIAS(mbereg_search_getpos, mb_ereg_search_getpos, NULL)
|
|
PHP_FALIAS(mbereg_search_setpos, mb_ereg_search_setpos, NULL)
|
|
#endif
|
|
{ NULL, NULL, NULL }
|
|
};
|
|
|
|
zend_module_entry mbstring_module_entry = {
|
|
STANDARD_MODULE_HEADER,
|
|
"mbstring",
|
|
mbstring_functions,
|
|
PHP_MINIT(mbstring),
|
|
PHP_MSHUTDOWN(mbstring),
|
|
PHP_RINIT(mbstring),
|
|
PHP_RSHUTDOWN(mbstring),
|
|
PHP_MINFO(mbstring),
|
|
NO_VERSION_YET,
|
|
STANDARD_MODULE_PROPERTIES
|
|
};
|
|
|
|
ZEND_DECLARE_MODULE_GLOBALS(mbstring)
|
|
|
|
#ifdef COMPILE_DL_MBSTRING
|
|
ZEND_GET_MODULE(mbstring)
|
|
#endif
|
|
|
|
|
|
/* Return 0 if input contains any illegal encoding, otherwise 1.
|
|
* Even if any illegal encoding is detected the result may contain a list
|
|
* of parsed encodings.
|
|
*/
|
|
static int
|
|
php_mbstring_parse_encoding_list(const char *value, int value_length, int **return_list, int *return_size, int persistent)
|
|
{
|
|
int n, l, size, bauto, *src, *list, *entry, ret = 1;
|
|
char *p, *p1, *p2, *endp, *tmpstr;
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
list = NULL;
|
|
if (value == NULL || value_length <= 0) {
|
|
if (return_list)
|
|
*return_list = NULL;
|
|
if (return_size)
|
|
*return_size = 0;
|
|
return 0;
|
|
} else {
|
|
/* copy the value string for work */
|
|
tmpstr = (char *)estrndup(value, value_length);
|
|
if (tmpstr == NULL) {
|
|
return 0;
|
|
}
|
|
/* count the number of listed encoding names */
|
|
endp = tmpstr + value_length;
|
|
n = 1;
|
|
p1 = tmpstr;
|
|
while ((p2 = php_memnstr(p1, ",", 1, endp)) != NULL) {
|
|
p1 = p2 + 1;
|
|
n++;
|
|
}
|
|
size = n + php_mbstr_default_identify_list_size;
|
|
/* make list */
|
|
list = (int *)pecalloc(size, sizeof(int), persistent);
|
|
if (list != NULL) {
|
|
entry = list;
|
|
n = 0;
|
|
bauto = 0;
|
|
p1 = tmpstr;
|
|
do {
|
|
p2 = p = php_memnstr(p1, ",", 1, endp);
|
|
if (p == NULL) {
|
|
p = endp;
|
|
}
|
|
*p = '\0';
|
|
/* trim spaces */
|
|
while (p1 < p && (*p1 == ' ' || *p1 == '\t')) {
|
|
p1++;
|
|
}
|
|
p--;
|
|
while (p > p1 && (*p == ' ' || *p == '\t')) {
|
|
*p = '\0';
|
|
p--;
|
|
}
|
|
/* convert to the encoding number and check encoding */
|
|
no_encoding = mbfl_name2no_encoding(p1);
|
|
if (no_encoding == mbfl_no_encoding_auto) {
|
|
if (!bauto) {
|
|
bauto = 1;
|
|
l = php_mbstr_default_identify_list_size;
|
|
src = (int*)php_mbstr_default_identify_list;
|
|
while (l > 0) {
|
|
*entry++ = *src++;
|
|
l--;
|
|
n++;
|
|
}
|
|
}
|
|
} else if (no_encoding != mbfl_no_encoding_invalid) {
|
|
*entry++ = no_encoding;
|
|
n++;
|
|
} else {
|
|
ret = 0;
|
|
}
|
|
p1 = p2 + 1;
|
|
} while (n < size && p2 != NULL);
|
|
if (n > 0) {
|
|
if (return_list)
|
|
*return_list = list;
|
|
else
|
|
pefree(list, persistent);
|
|
} else {
|
|
pefree(list, persistent);
|
|
if (return_list)
|
|
*return_list = NULL;
|
|
ret = 0;
|
|
}
|
|
if (return_size)
|
|
*return_size = n;
|
|
} else {
|
|
if (return_list)
|
|
*return_list = NULL;
|
|
if (return_size)
|
|
*return_size = 0;
|
|
ret = 0;
|
|
}
|
|
efree(tmpstr);
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
/* {{{ php_mb_check_encoding_list */
|
|
PHPAPI int php_mb_check_encoding_list(const char *encoding_list TSRMLS_DC) {
|
|
return php_mbstring_parse_encoding_list(encoding_list, strlen(encoding_list), NULL, NULL, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
/* Return 0 if input contains any illegal encoding, otherwise 1.
|
|
* Even if any illegal encoding is detected the result may contain a list
|
|
* of parsed encodings.
|
|
*/
|
|
static int
|
|
php_mbstring_parse_encoding_array(zval *array, int **return_list, int *return_size, int persistent)
|
|
{
|
|
zval **hash_entry;
|
|
HashTable *target_hash;
|
|
int i, n, l, size, bauto, *list, *entry, *src, ret = 1;
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
list = NULL;
|
|
if (Z_TYPE_P(array) == IS_ARRAY) {
|
|
target_hash = Z_ARRVAL_P(array);
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
i = zend_hash_num_elements(target_hash);
|
|
size = i + php_mbstr_default_identify_list_size;
|
|
list = (int *)pecalloc(size, sizeof(int), persistent);
|
|
if (list != NULL) {
|
|
entry = list;
|
|
bauto = 0;
|
|
n = 0;
|
|
while (i > 0) {
|
|
if (zend_hash_get_current_data(target_hash, (void **) &hash_entry) == FAILURE) {
|
|
break;
|
|
}
|
|
convert_to_string_ex(hash_entry);
|
|
no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(hash_entry));
|
|
if (no_encoding == mbfl_no_encoding_auto) {
|
|
if (!bauto) {
|
|
bauto = 1;
|
|
l = php_mbstr_default_identify_list_size;
|
|
src = (int*)php_mbstr_default_identify_list;
|
|
while (l > 0) {
|
|
*entry++ = *src++;
|
|
l--;
|
|
n++;
|
|
}
|
|
}
|
|
} else if (no_encoding != mbfl_no_encoding_invalid) {
|
|
*entry++ = no_encoding;
|
|
n++;
|
|
} else {
|
|
ret = 0;;
|
|
}
|
|
zend_hash_move_forward(target_hash);
|
|
i--;
|
|
}
|
|
if (n > 0) {
|
|
if (return_list)
|
|
*return_list = list;
|
|
else
|
|
pefree(list, persistent);
|
|
} else {
|
|
pefree(list, persistent);
|
|
if (return_list)
|
|
*return_list = NULL;
|
|
ret = 0;
|
|
}
|
|
if (return_size)
|
|
*return_size = n;
|
|
} else {
|
|
if (return_list)
|
|
*return_list = NULL;
|
|
if (return_size)
|
|
*return_size = 0;
|
|
ret = 0;
|
|
}
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
#if HAVE_MBREGEX
|
|
static void
|
|
php_mbregex_free_cache(mb_regex_t *pre)
|
|
{
|
|
mbre_free_pattern(pre);
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
/* php.ini directive handler */
|
|
static PHP_INI_MH(OnUpdate_mbstring_language)
|
|
{
|
|
enum mbfl_no_language no_language;
|
|
|
|
no_language = mbfl_name2no_language(new_value);
|
|
if (no_language != mbfl_no_language_invalid) {
|
|
switch (no_language) {
|
|
case mbfl_no_language_japanese:
|
|
MBSTRG(language) = mbfl_no_language_japanese;
|
|
MBSTRG(current_language) = mbfl_no_language_japanese;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_jp;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_jp;
|
|
break;
|
|
case mbfl_no_language_korean:
|
|
MBSTRG(language) = mbfl_no_language_korean;
|
|
MBSTRG(current_language) = mbfl_no_language_korean;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_kr;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_kr;
|
|
break;
|
|
case mbfl_no_language_simplified_chinese:
|
|
MBSTRG(language) = mbfl_no_language_simplified_chinese;
|
|
MBSTRG(current_language) = mbfl_no_language_simplified_chinese;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_cn;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_cn;
|
|
break;
|
|
case mbfl_no_language_traditional_chinese:
|
|
MBSTRG(language) = mbfl_no_language_traditional_chinese;
|
|
MBSTRG(current_language) = mbfl_no_language_traditional_chinese;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_tw;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_tw;
|
|
break;
|
|
case mbfl_no_language_russian:
|
|
MBSTRG(language) = mbfl_no_language_russian;
|
|
MBSTRG(current_language) = mbfl_no_language_russian;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_koi8r;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_koi8r;
|
|
break;
|
|
case mbfl_no_language_english:
|
|
default:
|
|
MBSTRG(language) = mbfl_no_language_english;
|
|
MBSTRG(current_language) = mbfl_no_language_english;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_8859_1;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_8859_1;
|
|
break;
|
|
}
|
|
|
|
} else {
|
|
return FAILURE;
|
|
}
|
|
return SUCCESS;
|
|
}
|
|
|
|
static PHP_INI_MH(OnUpdate_mbstring_detect_order)
|
|
{
|
|
int *list, size;
|
|
|
|
if (php_mbstring_parse_encoding_list(new_value, new_value_length, &list, &size, 1)) {
|
|
if (MBSTRG(detect_order_list) != NULL) {
|
|
free(MBSTRG(detect_order_list));
|
|
}
|
|
MBSTRG(detect_order_list) = list;
|
|
MBSTRG(detect_order_list_size) = size;
|
|
} else {
|
|
return FAILURE;
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
static PHP_INI_MH(OnUpdate_mbstring_http_input)
|
|
{
|
|
int *list, size;
|
|
|
|
if (php_mbstring_parse_encoding_list(new_value, new_value_length, &list, &size, 1)) {
|
|
if (MBSTRG(http_input_list) != NULL) {
|
|
free(MBSTRG(http_input_list));
|
|
}
|
|
MBSTRG(http_input_list) = list;
|
|
MBSTRG(http_input_list_size) = size;
|
|
} else {
|
|
return FAILURE;
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
|
|
static PHP_INI_MH(OnUpdate_mbstring_http_output)
|
|
{
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
no_encoding = mbfl_name2no_encoding(new_value);
|
|
if (no_encoding != mbfl_no_encoding_invalid) {
|
|
MBSTRG(http_output_encoding) = no_encoding;
|
|
MBSTRG(current_http_output_encoding) = no_encoding;
|
|
} else {
|
|
if (new_value != NULL && new_value_length > 0) {
|
|
return FAILURE;
|
|
}
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
static PHP_INI_MH(OnUpdate_mbstring_internal_encoding)
|
|
{
|
|
enum mbfl_no_encoding no_encoding;
|
|
#if HAVE_MBREGEX
|
|
struct def_mbctype_tbl *p = NULL;
|
|
#endif
|
|
|
|
no_encoding = mbfl_name2no_encoding(new_value);
|
|
if (no_encoding != mbfl_no_encoding_invalid) {
|
|
MBSTRG(internal_encoding) = no_encoding;
|
|
MBSTRG(current_internal_encoding) = no_encoding;
|
|
#if HAVE_MBREGEX
|
|
p=&(mbctype_tbl[0]);
|
|
while(p->regex_encoding >= 0){
|
|
if (p->mbfl_encoding == MBSTRG(internal_encoding)){
|
|
MBSTRG(default_mbctype) = p->regex_encoding;
|
|
MBSTRG(current_mbctype) = p->regex_encoding;
|
|
break;
|
|
}
|
|
p++;
|
|
}
|
|
#endif
|
|
} else {
|
|
if (new_value != NULL && new_value_length > 0) {
|
|
return FAILURE;
|
|
}
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
#ifdef ZEND_MULTIBYTE
|
|
static PHP_INI_MH(OnUpdate_mbstring_script_encoding)
|
|
{
|
|
int *list, size;
|
|
|
|
if (php_mbstring_parse_encoding_list(new_value, new_value_length, &list, &size, 1)) {
|
|
if (MBSTRG(script_encoding_list) != NULL) {
|
|
free(MBSTRG(script_encoding_list));
|
|
}
|
|
MBSTRG(script_encoding_list) = list;
|
|
MBSTRG(script_encoding_list_size) = size;
|
|
} else {
|
|
return FAILURE;
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
#endif /* ZEND_MULTIBYTE */
|
|
|
|
static PHP_INI_MH(OnUpdate_mbstring_substitute_character)
|
|
{
|
|
if (new_value != NULL) {
|
|
if (strcasecmp("none", new_value) == 0) {
|
|
MBSTRG(filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_NONE;
|
|
} else if (strcasecmp("long", new_value) == 0) {
|
|
MBSTRG(filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_LONG;
|
|
} else {
|
|
MBSTRG(filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_CHAR;
|
|
MBSTRG(filter_illegal_substchar) = zend_atoi(new_value, new_value_length);
|
|
}
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
/* php.ini directive registration */
|
|
PHP_INI_BEGIN()
|
|
PHP_INI_ENTRY("mbstring.language", NULL, PHP_INI_ALL, OnUpdate_mbstring_language)
|
|
PHP_INI_ENTRY("mbstring.detect_order", NULL, PHP_INI_ALL, OnUpdate_mbstring_detect_order)
|
|
PHP_INI_ENTRY("mbstring.http_input", NULL, PHP_INI_ALL, OnUpdate_mbstring_http_input)
|
|
PHP_INI_ENTRY("mbstring.http_output", NULL, PHP_INI_ALL, OnUpdate_mbstring_http_output)
|
|
PHP_INI_ENTRY("mbstring.internal_encoding", NULL, PHP_INI_ALL, OnUpdate_mbstring_internal_encoding)
|
|
#ifdef ZEND_MULTIBYTE
|
|
PHP_INI_ENTRY("mbstring.script_encoding", NULL, PHP_INI_ALL, OnUpdate_mbstring_script_encoding)
|
|
#endif /* ZEND_MULTIBYTE */
|
|
PHP_INI_ENTRY("mbstring.substitute_character", NULL, PHP_INI_ALL, OnUpdate_mbstring_substitute_character)
|
|
STD_PHP_INI_ENTRY("mbstring.func_overload", "0", PHP_INI_SYSTEM, OnUpdateInt, func_overload, zend_mbstring_globals, mbstring_globals)
|
|
PHP_INI_END()
|
|
|
|
|
|
/* module global initialize handler */
|
|
static void
|
|
php_mbstring_init_globals(zend_mbstring_globals *pglobals TSRMLS_DC)
|
|
{
|
|
MBSTRG(language) = mbfl_no_language_english;
|
|
MBSTRG(current_language) = mbfl_no_language_english;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_8859_1;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_8859_1;
|
|
|
|
#if defined(HAVE_MBSTR_CN) & !defined(HAVE_MBSTR_JA)
|
|
MBSTRG(language) = mbfl_no_language_simplified_chinese;
|
|
MBSTRG(current_language) = mbfl_no_language_simplified_chinese;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_cn;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_cn;
|
|
#endif
|
|
#if defined(HAVE_MBSTR_TW) & !defined(HAVE_MBSTR_JA)
|
|
MBSTRG(language) = mbfl_no_language_traditional_chinese;
|
|
MBSTRG(current_language) = mbfl_no_language_traditional_chinese;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_tw;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_tw;
|
|
#endif
|
|
#if defined(HAVE_MBSTR_KR) & !defined(HAVE_MBSTR_JA)
|
|
MBSTRG(language) = mbfl_no_language_korean;
|
|
MBSTRG(current_language) = mbfl_no_language_korean;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_kr;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_kr;
|
|
#endif
|
|
#if defined(HAVE_MBSTR_JA)
|
|
MBSTRG(language) = mbfl_no_language_japanese;
|
|
MBSTRG(current_language) = mbfl_no_language_japanese;
|
|
MBSTRG(internal_encoding) = mbfl_no_encoding_euc_jp;
|
|
MBSTRG(current_internal_encoding) = mbfl_no_encoding_euc_jp;
|
|
#endif
|
|
#ifdef ZEND_MULTIBYTE
|
|
MBSTRG(script_encoding_list) = NULL;
|
|
MBSTRG(script_encoding_list_size) = 0;
|
|
#endif /* ZEND_MULTIBYTE */
|
|
MBSTRG(http_output_encoding) = mbfl_no_encoding_pass;
|
|
MBSTRG(current_http_output_encoding) = mbfl_no_encoding_pass;
|
|
MBSTRG(http_input_identify) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_get) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_post) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_cookie) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_string) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_list) = NULL;
|
|
MBSTRG(http_input_list_size) = 0;
|
|
MBSTRG(detect_order_list) = NULL;
|
|
MBSTRG(detect_order_list_size) = 0;
|
|
MBSTRG(current_detect_order_list) = NULL;
|
|
MBSTRG(current_detect_order_list_size) = 0;
|
|
MBSTRG(filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_CHAR;
|
|
MBSTRG(filter_illegal_substchar) = 0x3f; /* '?' */
|
|
MBSTRG(current_filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_CHAR;
|
|
MBSTRG(current_filter_illegal_substchar) = 0x3f; /* '?' */
|
|
MBSTRG(func_overload) = 0;
|
|
pglobals->outconv = NULL;
|
|
#if HAVE_MBREGEX
|
|
MBSTRG(default_mbctype) = MBCTYPE_EUC;
|
|
MBSTRG(current_mbctype) = MBCTYPE_EUC;
|
|
zend_hash_init(&(MBSTRG(ht_rc)), 0, NULL, (void (*)(void *)) php_mbregex_free_cache, 1);
|
|
MBSTRG(search_str) = (zval**)0;
|
|
MBSTRG(search_str_val) = (zval*)0;
|
|
MBSTRG(search_re) = (mb_regex_t*)0;
|
|
MBSTRG(search_pos) = 0;
|
|
MBSTRG(search_regs) = (struct mbre_registers*)0;
|
|
#endif
|
|
}
|
|
|
|
PHP_MINIT_FUNCTION(mbstring)
|
|
{
|
|
#ifdef ZTS
|
|
ts_allocate_id(&mbstring_globals_id, sizeof(zend_mbstring_globals), (ts_allocate_ctor) php_mbstring_init_globals, NULL);
|
|
#else
|
|
php_mbstring_init_globals(&mbstring_globals TSRMLS_CC);
|
|
#endif
|
|
|
|
REGISTER_INI_ENTRIES();
|
|
|
|
#if defined(MBSTR_ENC_TRANS)
|
|
sapi_unregister_post_entry(mbstr_post_entries);
|
|
sapi_register_post_entries(mbstr_post_entries);
|
|
#endif
|
|
|
|
REGISTER_LONG_CONSTANT("MB_OVERLOAD_MAIL", MB_OVERLOAD_MAIL, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("MB_OVERLOAD_STRING", MB_OVERLOAD_STRING, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("MB_OVERLOAD_REGEX", MB_OVERLOAD_REGEX, CONST_CS | CONST_PERSISTENT);
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
|
|
PHP_MSHUTDOWN_FUNCTION(mbstring)
|
|
{
|
|
UNREGISTER_INI_ENTRIES();
|
|
|
|
if (MBSTRG(http_input_list)) {
|
|
free(MBSTRG(http_input_list));
|
|
}
|
|
#ifdef ZEND_MULTIBYTE
|
|
if (MBSTRG(script_encoding_list)) {
|
|
free(MBSTRG(script_encoding_list));
|
|
}
|
|
#endif /* ZEND_MULTIBYTE */
|
|
if (MBSTRG(detect_order_list)) {
|
|
free(MBSTRG(detect_order_list));
|
|
}
|
|
|
|
#if HAVE_MBREGEX
|
|
zend_hash_destroy(&MBSTRG(ht_rc));
|
|
#endif
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
|
|
PHP_RINIT_FUNCTION(mbstring)
|
|
{
|
|
int n, *list=NULL, *entry;
|
|
zend_function *func, *orig;
|
|
struct mb_overload_def *p;
|
|
|
|
MBSTRG(current_language) = MBSTRG(language);
|
|
MBSTRG(current_internal_encoding) = MBSTRG(internal_encoding);
|
|
MBSTRG(current_http_output_encoding) = MBSTRG(http_output_encoding);
|
|
MBSTRG(current_filter_illegal_mode) = MBSTRG(filter_illegal_mode);
|
|
MBSTRG(current_filter_illegal_substchar) = MBSTRG(filter_illegal_substchar);
|
|
|
|
n = 0;
|
|
if (MBSTRG(detect_order_list)) {
|
|
list = MBSTRG(detect_order_list);
|
|
n = MBSTRG(detect_order_list_size);
|
|
}
|
|
if (n <= 0) {
|
|
list = (int*)php_mbstr_default_identify_list;
|
|
n = php_mbstr_default_identify_list_size;
|
|
}
|
|
entry = (int *)emalloc(n*sizeof(int));
|
|
if (entry != NULL) {
|
|
MBSTRG(current_detect_order_list) = entry;
|
|
MBSTRG(current_detect_order_list_size) = n;
|
|
while (n > 0) {
|
|
*entry++ = *list++;
|
|
n--;
|
|
}
|
|
}
|
|
|
|
/* override original function. */
|
|
if (MBSTRG(func_overload)){
|
|
p = &(mb_ovld[0]);
|
|
|
|
while (p->type > 0) {
|
|
if ((MBSTRG(func_overload) & p->type) == p->type &&
|
|
zend_hash_find(EG(function_table), p->save_func, strlen(p->save_func)+1 , (void **)&orig) != SUCCESS) {
|
|
zend_hash_find(EG(function_table), p->ovld_func, strlen(p->ovld_func)+1 , (void **)&func);
|
|
|
|
if (zend_hash_find(EG(function_table), p->orig_func,
|
|
strlen(p->orig_func)+1, (void **)&orig) != SUCCESS) {
|
|
php_error(E_ERROR, "mbstring couldn't find function %s.", p->orig_func);
|
|
}
|
|
zend_hash_add(EG(function_table), p->save_func, strlen(p->save_func)+1, orig, sizeof(zend_function), NULL);
|
|
if (zend_hash_update(EG(function_table), p->orig_func, strlen(p->orig_func)+1,
|
|
func, sizeof(zend_function), NULL) == FAILURE){
|
|
php_error(E_ERROR, "mbstring couldn't replace function %s.", p->orig_func);
|
|
}
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
|
|
PHP_RSHUTDOWN_FUNCTION(mbstring)
|
|
{
|
|
struct mb_overload_def *p;
|
|
zend_function *orig;
|
|
|
|
if (MBSTRG(current_detect_order_list) != NULL) {
|
|
efree(MBSTRG(current_detect_order_list));
|
|
MBSTRG(current_detect_order_list) = NULL;
|
|
MBSTRG(current_detect_order_list_size) = 0;
|
|
}
|
|
if (MBSTRG(outconv) != NULL) {
|
|
mbfl_buffer_converter_delete(MBSTRG(outconv) TSRMLS_CC);
|
|
MBSTRG(outconv) = NULL;
|
|
}
|
|
|
|
/* clear http input identification. */
|
|
MBSTRG(http_input_identify) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_post) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_get) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_cookie) = mbfl_no_encoding_invalid;
|
|
MBSTRG(http_input_identify_string) = mbfl_no_encoding_invalid;
|
|
|
|
/* clear overloaded function. */
|
|
if (MBSTRG(func_overload)){
|
|
p = &(mb_ovld[0]);
|
|
while (p->type > 0 && zend_hash_find(EG(function_table), p->save_func, strlen(p->save_func)+1 , (void **)&orig) == SUCCESS) {
|
|
zend_hash_update(EG(function_table), p->orig_func, strlen(p->orig_func)+1, orig, sizeof(zend_function), NULL);
|
|
zend_hash_del(EG(function_table), p->save_func, strlen(p->save_func)+1);
|
|
p++;
|
|
}
|
|
}
|
|
|
|
#if HAVE_MBREGEX
|
|
MBSTRG(current_mbctype) = MBSTRG(default_mbctype);
|
|
if (MBSTRG(search_str)) {
|
|
if (ZVAL_REFCOUNT(*MBSTRG(search_str)) > 1) {
|
|
ZVAL_DELREF(*MBSTRG(search_str));
|
|
} else {
|
|
zval_dtor(*MBSTRG(search_str));
|
|
FREE_ZVAL(*MBSTRG(search_str));
|
|
}
|
|
MBSTRG(search_str) = (zval **)0;
|
|
MBSTRG(search_str_val) = (zval *)0;
|
|
}
|
|
MBSTRG(search_pos) = 0;
|
|
if (MBSTRG(search_re)) {
|
|
efree(MBSTRG(search_re));
|
|
MBSTRG(search_re) = (mb_regex_t *)0;
|
|
}
|
|
if (MBSTRG(search_regs)) {
|
|
mbre_free_registers(MBSTRG(search_regs));
|
|
efree(MBSTRG(search_regs));
|
|
MBSTRG(search_regs) = (struct mbre_registers*)0;
|
|
}
|
|
zend_hash_clean(&MBSTRG(ht_rc));
|
|
#endif
|
|
|
|
return SUCCESS;
|
|
}
|
|
|
|
|
|
PHP_MINFO_FUNCTION(mbstring)
|
|
{
|
|
php_info_print_table_start();
|
|
php_info_print_table_header(2, "Multibyte Support", "enabled");
|
|
#if defined(HAVE_MBSTR_JA)
|
|
php_info_print_table_row(2, "japanese support", "enabled");
|
|
#endif
|
|
#if defined(HAVE_MBSTR_CN)
|
|
php_info_print_table_row(2, "simplified chinese support", "enabled");
|
|
#endif
|
|
#if defined(HAVE_MBSTR_TW)
|
|
php_info_print_table_row(2, "traditional chinese support", "enabled");
|
|
#endif
|
|
#if defined(HAVE_MBSTR_KR)
|
|
php_info_print_table_row(2, "korean support", "enabled");
|
|
#endif
|
|
#if defined(MBSTR_ENC_TRANS)
|
|
php_info_print_table_row(2, "http input encoding translation", "enabled");
|
|
#endif
|
|
#if defined(HAVE_MBREGEX)
|
|
php_info_print_table_row(2, "multibyte (japanese) regex support", "enabled");
|
|
#endif
|
|
php_info_print_table_end();
|
|
|
|
DISPLAY_INI_ENTRIES();
|
|
}
|
|
|
|
|
|
|
|
/* {{{ proto string mb_language([string language])
|
|
Sets the current language or Returns the current language as a string */
|
|
PHP_FUNCTION(mb_language)
|
|
{
|
|
pval **arg1;
|
|
char *name;
|
|
enum mbfl_no_language no_language;
|
|
|
|
if (ZEND_NUM_ARGS() == 0) {
|
|
name = (char *)mbfl_no_language2name(MBSTRG(current_language));
|
|
if (name != NULL) {
|
|
RETURN_STRING(name, 1);
|
|
} else {
|
|
RETURN_FALSE;
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
convert_to_string_ex(arg1);
|
|
no_language = mbfl_name2no_language(Z_STRVAL_PP(arg1));
|
|
if (no_language == mbfl_no_language_invalid) {
|
|
php_error(E_WARNING, "%s() unknown language \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg1));
|
|
RETURN_FALSE;
|
|
} else {
|
|
MBSTRG(current_language) = no_language;
|
|
RETURN_TRUE;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_internal_encoding([string encoding])
|
|
Sets the current internal encoding or Returns the current internal encoding as a string */
|
|
PHP_FUNCTION(mb_internal_encoding)
|
|
{
|
|
pval **arg1;
|
|
char *name;
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
if (ZEND_NUM_ARGS() == 0) {
|
|
name = (char *)mbfl_no_encoding2name(MBSTRG(current_internal_encoding));
|
|
if (name != NULL) {
|
|
RETURN_STRING(name, 1);
|
|
} else {
|
|
RETURN_FALSE;
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
convert_to_string_ex(arg1);
|
|
no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg1));
|
|
if (no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg1));
|
|
RETURN_FALSE;
|
|
} else {
|
|
MBSTRG(current_internal_encoding) = no_encoding;
|
|
#ifdef ZEND_MULTIBYTE
|
|
zend_multibyte_set_internal_encoding(Z_STRVAL_PP(arg1), Z_STRLEN_PP(arg1) TSRMLS_CC);
|
|
#endif /* ZEND_MULTIBYTE */
|
|
RETURN_TRUE;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto false|string mb_http_input([string type])
|
|
Returns the input encoding */
|
|
PHP_FUNCTION(mb_http_input)
|
|
{
|
|
pval **arg1;
|
|
int result=0, retname, n, *entry;
|
|
char *name;
|
|
|
|
retname = 1;
|
|
if (ZEND_NUM_ARGS() == 0) {
|
|
result = MBSTRG(http_input_identify);
|
|
} else if (ARG_COUNT(ht) == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
convert_to_string_ex(arg1);
|
|
switch (*(Z_STRVAL_PP(arg1))) {
|
|
case 'G':
|
|
case 'g':
|
|
result = MBSTRG(http_input_identify_get);
|
|
break;
|
|
case 'P':
|
|
case 'p':
|
|
result = MBSTRG(http_input_identify_post);
|
|
break;
|
|
case 'C':
|
|
case 'c':
|
|
result = MBSTRG(http_input_identify_cookie);
|
|
break;
|
|
case 'S':
|
|
case 's':
|
|
result = MBSTRG(http_input_identify_string);
|
|
break;
|
|
case 'I':
|
|
case 'i':
|
|
if (array_init(return_value) == FAILURE) {
|
|
RETURN_FALSE;
|
|
}
|
|
entry = MBSTRG(http_input_list);
|
|
n = MBSTRG(http_input_list_size);
|
|
while (n > 0) {
|
|
name = (char *)mbfl_no_encoding2name(*entry);
|
|
if (name) {
|
|
add_next_index_string(return_value, name, 1);
|
|
}
|
|
entry++;
|
|
n--;
|
|
}
|
|
retname = 0;
|
|
break;
|
|
default:
|
|
result = MBSTRG(http_input_identify);
|
|
break;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
if (retname) {
|
|
name = (char *)mbfl_no_encoding2name(result);
|
|
if (name != NULL) {
|
|
RETVAL_STRING(name, 1);
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto string mb_http_output([string encoding])
|
|
Sets the current output_encoding or returns the current output_encoding as a string */
|
|
PHP_FUNCTION(mb_http_output)
|
|
{
|
|
pval **arg1;
|
|
char *name;
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
if (ZEND_NUM_ARGS() == 0) {
|
|
name = (char *)mbfl_no_encoding2name(MBSTRG(current_http_output_encoding));
|
|
if (name != NULL) {
|
|
RETURN_STRING(name, 1);
|
|
} else {
|
|
RETURN_FALSE;
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
convert_to_string_ex(arg1);
|
|
no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg1));
|
|
if (no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg1));
|
|
RETURN_FALSE;
|
|
} else {
|
|
MBSTRG(current_http_output_encoding) = no_encoding;
|
|
RETURN_TRUE;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto boolean|array mb_detect_order([mixed encoding-list])
|
|
Sets the current detect_order or Return the current detect_order as a array */
|
|
PHP_FUNCTION(mb_detect_order)
|
|
{
|
|
pval **arg1;
|
|
int n, size, *list, *entry;
|
|
char *name;
|
|
|
|
if (ZEND_NUM_ARGS() == 0) {
|
|
if (array_init(return_value) == FAILURE) {
|
|
RETURN_FALSE;
|
|
}
|
|
entry = MBSTRG(current_detect_order_list);
|
|
n = MBSTRG(current_detect_order_list_size);
|
|
while (n > 0) {
|
|
name = (char *)mbfl_no_encoding2name(*entry);
|
|
if (name) {
|
|
add_next_index_string(return_value, name, 1);
|
|
}
|
|
entry++;
|
|
n--;
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
list = NULL;
|
|
size = 0;
|
|
switch (Z_TYPE_PP(arg1)) {
|
|
case IS_ARRAY:
|
|
if (!php_mbstring_parse_encoding_array(*arg1, &list, &size, 0)) {
|
|
if (list) {
|
|
efree(list);
|
|
}
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
convert_to_string_ex(arg1);
|
|
if (!php_mbstring_parse_encoding_list(Z_STRVAL_PP(arg1), Z_STRLEN_PP(arg1), &list, &size, 0)) {
|
|
if (list) {
|
|
efree(list);
|
|
}
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
}
|
|
if (list == NULL) {
|
|
RETVAL_FALSE;
|
|
} else {
|
|
if (MBSTRG(current_detect_order_list)) {
|
|
efree(MBSTRG(current_detect_order_list));
|
|
}
|
|
MBSTRG(current_detect_order_list) = list;
|
|
MBSTRG(current_detect_order_list_size) = size;
|
|
RETVAL_TRUE;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto mixed mb_substitute_character([mixed substchar])
|
|
Sets the current substitute_character or returns the current substitute_character */
|
|
PHP_FUNCTION(mb_substitute_character)
|
|
{
|
|
pval **arg1;
|
|
|
|
if (ZEND_NUM_ARGS() == 0) {
|
|
if (MBSTRG(current_filter_illegal_mode) == MBFL_OUTPUTFILTER_ILLEGAL_MODE_NONE) {
|
|
RETVAL_STRING("none", 1);
|
|
} else if(MBSTRG(current_filter_illegal_mode) == MBFL_OUTPUTFILTER_ILLEGAL_MODE_LONG) {
|
|
RETVAL_STRING("long", 1);
|
|
} else {
|
|
RETVAL_LONG(MBSTRG(current_filter_illegal_substchar));
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
RETVAL_TRUE;
|
|
switch (Z_TYPE_PP(arg1)) {
|
|
case IS_STRING:
|
|
if (strcasecmp("none", Z_STRVAL_PP(arg1)) == 0) {
|
|
MBSTRG(current_filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_NONE;
|
|
} else if (strcasecmp("long", Z_STRVAL_PP(arg1)) == 0) {
|
|
MBSTRG(current_filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_LONG;
|
|
} else {
|
|
convert_to_long_ex(arg1);
|
|
if (Z_LVAL_PP(arg1)< 0xffff && Z_LVAL_PP(arg1)> 0x0) {
|
|
MBSTRG(current_filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_CHAR;
|
|
MBSTRG(current_filter_illegal_substchar) = Z_LVAL_PP(arg1);
|
|
} else {
|
|
php_error(E_WARNING, "%s() unknown character.",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
break;
|
|
default:
|
|
convert_to_long_ex(arg1);
|
|
if (Z_LVAL_PP(arg1)< 0xffff && Z_LVAL_PP(arg1)> 0x0) {
|
|
MBSTRG(current_filter_illegal_mode) = MBFL_OUTPUTFILTER_ILLEGAL_MODE_CHAR;
|
|
MBSTRG(current_filter_illegal_substchar) = Z_LVAL_PP(arg1);
|
|
} else {
|
|
php_error(E_WARNING, "%() unknown character.",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETVAL_FALSE;
|
|
}
|
|
break;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto string mb_preferred_mime_name(string encoding)
|
|
Return the preferred MIME name (charset) as a string */
|
|
PHP_FUNCTION(mb_preferred_mime_name)
|
|
{
|
|
pval **arg1;
|
|
enum mbfl_no_encoding no_encoding;
|
|
const char *name;
|
|
|
|
if (ZEND_NUM_ARGS() == 1 && zend_get_parameters_ex(1, &arg1) != FAILURE) {
|
|
convert_to_string_ex(arg1);
|
|
no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg1));
|
|
if (no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg1));
|
|
RETVAL_FALSE;
|
|
} else {
|
|
name = mbfl_no2preferred_mime_name(no_encoding);
|
|
if (name == NULL || *name == '\0') {
|
|
php_error(E_WARNING, "%s() no name for \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg1));
|
|
RETVAL_FALSE;
|
|
} else {
|
|
RETVAL_STRING((char *)name, 1);
|
|
}
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
#if defined(MBSTR_ENC_TRANS)
|
|
static void
|
|
php_mbstr_encoding_handler(zval *arg, char *res, char *separator TSRMLS_DC)
|
|
{
|
|
char *var, *val, *s1, *s2;
|
|
char *strtok_buf = NULL, **val_list;
|
|
zval *array_ptr = (zval *) arg;
|
|
int n, num, val_len, *len_list, *elist, elistsz;
|
|
enum mbfl_no_encoding from_encoding, to_encoding;
|
|
mbfl_string string, resvar, resval;
|
|
mbfl_encoding_detector *identd = NULL;
|
|
mbfl_buffer_converter *convd = NULL;
|
|
|
|
mbfl_string_init_set(&string, MBSTRG(current_language), MBSTRG(current_internal_encoding));
|
|
mbfl_string_init_set(&resvar, MBSTRG(current_language), MBSTRG(current_internal_encoding));
|
|
mbfl_string_init_set(&resval, MBSTRG(current_language), MBSTRG(current_internal_encoding));
|
|
|
|
if (!res || *res == '\0') {
|
|
return;
|
|
}
|
|
|
|
/* count the variables(separators) contained in the "res".
|
|
* separator may contain multiple separator chars.
|
|
* separaror chars are set in php.ini (arg_separator.input)
|
|
*/
|
|
num = 1;
|
|
for (s1=res; *s1 != '\0'; s1++)
|
|
for (s2=separator; *s2 != '\0'; s2++)
|
|
if (*s1 == *s2)
|
|
num++;
|
|
|
|
num *= 2; /* need space for variable name and value */
|
|
|
|
val_list = (char **)ecalloc(num, sizeof(char *));
|
|
len_list = (int *)ecalloc(num, sizeof(int));
|
|
|
|
/* split and decode the query */
|
|
n = 0;
|
|
strtok_buf = NULL;
|
|
var = php_strtok_r(res, separator, &strtok_buf);
|
|
while (var) {
|
|
val = strchr(var, '=');
|
|
val_list[n] = var;
|
|
len_list[n] = php_url_decode(var, strlen(var));
|
|
n++;
|
|
if (val) { /* have a value */
|
|
*val++ = '\0';
|
|
val_list[n] = val;
|
|
len_list[n] = php_url_decode(val, strlen(val));
|
|
} else {
|
|
val_list[n] = NULL;
|
|
len_list[n] = 0;
|
|
}
|
|
n++;
|
|
var = php_strtok_r(NULL, separator, &strtok_buf);
|
|
}
|
|
num = n; /* make sure to process initilized vars only */
|
|
|
|
/* initialize converter */
|
|
to_encoding = MBSTRG(current_internal_encoding);
|
|
elist = MBSTRG(http_input_list);
|
|
elistsz = MBSTRG(http_input_list_size);
|
|
if (elistsz <= 0) {
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
} else if (elistsz == 1) {
|
|
from_encoding = *elist;
|
|
} else {
|
|
/* auto detect */
|
|
from_encoding = mbfl_no_encoding_invalid;
|
|
identd = mbfl_encoding_detector_new(elist, elistsz TSRMLS_CC);
|
|
if (identd) {
|
|
n = 0;
|
|
while (n < num) {
|
|
string.val = val_list[n];
|
|
string.len = len_list[n];
|
|
if (mbfl_encoding_detector_feed(identd, &string TSRMLS_CC)) {
|
|
break;
|
|
}
|
|
n++;
|
|
}
|
|
from_encoding = mbfl_encoding_detector_judge(identd TSRMLS_CC);
|
|
mbfl_encoding_detector_delete(identd TSRMLS_CC);
|
|
}
|
|
if (from_encoding == mbfl_no_encoding_invalid) {
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
}
|
|
}
|
|
convd = NULL;
|
|
if (from_encoding != mbfl_no_encoding_pass) {
|
|
convd = mbfl_buffer_converter_new(from_encoding, to_encoding, 0 TSRMLS_CC);
|
|
if (convd != NULL) {
|
|
mbfl_buffer_converter_illegal_mode(convd, MBSTRG(current_filter_illegal_mode) TSRMLS_CC);
|
|
mbfl_buffer_converter_illegal_substchar(convd, MBSTRG(current_filter_illegal_substchar) TSRMLS_CC);
|
|
} else {
|
|
php_error(E_WARNING, "%s() unable to create converter",
|
|
get_active_function_name(TSRMLS_C));
|
|
}
|
|
}
|
|
|
|
/* convert encoding */
|
|
string.no_encoding = from_encoding;
|
|
|
|
n = 0;
|
|
while (n < num) {
|
|
string.val = val_list[n];
|
|
string.len = len_list[n];
|
|
if (convd != NULL && mbfl_buffer_converter_feed_result(convd, &string, &resvar TSRMLS_CC) != NULL) {
|
|
var = resvar.val;
|
|
} else {
|
|
var = val_list[n];
|
|
}
|
|
n++;
|
|
string.val = val_list[n];
|
|
string.len = len_list[n];
|
|
if (convd != NULL && mbfl_buffer_converter_feed_result(convd, &string, &resval TSRMLS_CC) != NULL) {
|
|
val = resval.val;
|
|
val_len = resval.len;
|
|
} else {
|
|
val = val_list[n];
|
|
val_len = len_list[n];
|
|
}
|
|
n++;
|
|
/* add variable to symbol table */
|
|
php_register_variable_safe(var, val, val_len, array_ptr TSRMLS_CC);
|
|
if (convd != NULL){
|
|
mbfl_string_clear(&resvar);
|
|
mbfl_string_clear(&resval);
|
|
}
|
|
}
|
|
MBSTRG(http_input_identify) = from_encoding;
|
|
|
|
if (convd != NULL) {
|
|
mbfl_buffer_converter_delete(convd TSRMLS_CC);
|
|
}
|
|
if (val_list != NULL) {
|
|
efree((void *)val_list);
|
|
}
|
|
if (len_list != NULL) {
|
|
efree((void *)len_list);
|
|
}
|
|
|
|
}
|
|
|
|
SAPI_POST_HANDLER_FUNC(php_mbstr_post_handler)
|
|
{
|
|
MBSTRG(http_input_identify_post) = mbfl_no_encoding_invalid;
|
|
|
|
php_mbstr_encoding_handler(arg, SG(request_info).post_data, "&" TSRMLS_CC);
|
|
|
|
if (MBSTRG(http_input_identify) != mbfl_no_encoding_invalid) {
|
|
MBSTRG(http_input_identify_post) = MBSTRG(http_input_identify);
|
|
}
|
|
}
|
|
|
|
|
|
#define IS_SJIS1(c) ((((c)>=0x81 && (c)<=0x9f) || ((c)>=0xe0 && (c)<=0xf5)) ? 1 : 0)
|
|
#define IS_SJIS2(c) ((((c)>=0x40 && (c)<=0x7e) || ((c)>=0x80 && (c)<=0xfc)) ? 1 : 0)
|
|
|
|
char *mbstr_strrchr(const char *s, char c TSRMLS_DC){
|
|
unsigned char *p = (unsigned char *)s, *last = NULL;
|
|
while(*p++) {
|
|
if (*p == c) {
|
|
last = p;
|
|
}
|
|
if (*p == '\0'){
|
|
break;
|
|
}
|
|
if (MBSTRG(current_language) == mbfl_no_language_japanese
|
|
&& IS_SJIS1(*p) && IS_SJIS2(*(p+1))) {
|
|
p++;
|
|
}
|
|
}
|
|
return last;
|
|
}
|
|
|
|
int mbstr_is_mb_leadbyte(const char *s TSRMLS_DC){
|
|
unsigned char *p = (unsigned char *)s;
|
|
if (MBSTRG(current_language) == mbfl_no_language_japanese
|
|
&& IS_SJIS1(*p) && IS_SJIS2(*(p+1))){
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* http input processing */
|
|
void mbstr_treat_data(int arg, char *str, zval* destArray TSRMLS_DC)
|
|
{
|
|
char *res = NULL, *separator=NULL;
|
|
const char *c_var;
|
|
pval *array_ptr;
|
|
int free_buffer=0;
|
|
|
|
switch (arg) {
|
|
case PARSE_POST:
|
|
case PARSE_GET:
|
|
case PARSE_COOKIE:
|
|
ALLOC_ZVAL(array_ptr);
|
|
array_init(array_ptr);
|
|
INIT_PZVAL(array_ptr);
|
|
switch (arg) {
|
|
case PARSE_POST:
|
|
PG(http_globals)[TRACK_VARS_POST] = array_ptr;
|
|
break;
|
|
case PARSE_GET:
|
|
PG(http_globals)[TRACK_VARS_GET] = array_ptr;
|
|
break;
|
|
case PARSE_COOKIE:
|
|
PG(http_globals)[TRACK_VARS_COOKIE] = array_ptr;
|
|
break;
|
|
}
|
|
break;
|
|
default:
|
|
array_ptr=destArray;
|
|
break;
|
|
}
|
|
|
|
if (arg==PARSE_POST) {
|
|
sapi_handle_post(array_ptr TSRMLS_CC);
|
|
return;
|
|
}
|
|
|
|
if (arg == PARSE_GET) { /* GET data */
|
|
c_var = SG(request_info).query_string;
|
|
if (c_var && *c_var) {
|
|
res = (char *) estrdup(c_var);
|
|
free_buffer = 1;
|
|
} else {
|
|
free_buffer = 0;
|
|
}
|
|
} else if (arg == PARSE_COOKIE) { /* Cookie data */
|
|
c_var = SG(request_info).cookie_data;
|
|
if (c_var && *c_var) {
|
|
res = (char *) estrdup(c_var);
|
|
free_buffer = 1;
|
|
} else {
|
|
free_buffer = 0;
|
|
}
|
|
} else if (arg == PARSE_STRING) { /* String data */
|
|
res = str;
|
|
free_buffer = 1;
|
|
}
|
|
|
|
if (!res) {
|
|
return;
|
|
}
|
|
|
|
switch (arg) {
|
|
case PARSE_POST:
|
|
case PARSE_GET:
|
|
case PARSE_STRING:
|
|
separator = (char *) estrdup(PG(arg_separator).input);
|
|
break;
|
|
case PARSE_COOKIE:
|
|
separator = ";\0";
|
|
break;
|
|
}
|
|
|
|
switch(arg) {
|
|
case PARSE_POST:
|
|
MBSTRG(http_input_identify_post) = mbfl_no_encoding_invalid;
|
|
break;
|
|
case PARSE_GET:
|
|
MBSTRG(http_input_identify_get) = mbfl_no_encoding_invalid;
|
|
break;
|
|
case PARSE_COOKIE:
|
|
MBSTRG(http_input_identify_cookie) = mbfl_no_encoding_invalid;
|
|
break;
|
|
case PARSE_STRING:
|
|
MBSTRG(http_input_identify_string) = mbfl_no_encoding_invalid;
|
|
break;
|
|
}
|
|
|
|
php_mbstr_encoding_handler(array_ptr, res, separator TSRMLS_CC);
|
|
|
|
if (MBSTRG(http_input_identify) != mbfl_no_encoding_invalid) {
|
|
switch(arg){
|
|
case PARSE_POST:
|
|
MBSTRG(http_input_identify_post) = MBSTRG(http_input_identify);
|
|
break;
|
|
case PARSE_GET:
|
|
MBSTRG(http_input_identify_get) = MBSTRG(http_input_identify);
|
|
break;
|
|
case PARSE_COOKIE:
|
|
MBSTRG(http_input_identify_cookie) = MBSTRG(http_input_identify);
|
|
break;
|
|
case PARSE_STRING:
|
|
MBSTRG(http_input_identify_string) = MBSTRG(http_input_identify);
|
|
break;
|
|
}
|
|
}
|
|
|
|
if(arg != PARSE_COOKIE) {
|
|
efree(separator);
|
|
}
|
|
|
|
if (free_buffer) {
|
|
efree(res);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
/* {{{ proto bool mb_parse_str(string encoded_string [, array result])
|
|
Parses GET/POST/COOKIE data and sets global variables */
|
|
PHP_FUNCTION(mb_parse_str)
|
|
{
|
|
pval **arg_str, **arg_array, *track_vars_array;
|
|
char *var, *val, *encstr, *strtok_buf, **str_list, *separator;
|
|
int n, num, val_len, *len_list, *elist, elistsz, old_rg, argc;
|
|
enum mbfl_no_encoding from_encoding, to_encoding;
|
|
mbfl_string string, resvar, resval;
|
|
mbfl_encoding_detector *identd;
|
|
mbfl_buffer_converter *convd;
|
|
|
|
track_vars_array = NULL;
|
|
argc = ZEND_NUM_ARGS();
|
|
if (argc == 1) {
|
|
if (zend_get_parameters_ex(1, &arg_str) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
} else if (argc == 2) {
|
|
if (zend_get_parameters_ex(2, &arg_str, &arg_array) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
/* Clear out the array */
|
|
zval_dtor(*arg_array);
|
|
array_init(*arg_array);
|
|
track_vars_array = *arg_array;
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
separator = (char *)estrdup(PG(arg_separator).input);
|
|
if (separator == NULL) {
|
|
RETURN_FALSE;
|
|
}
|
|
convert_to_string_ex(arg_str);
|
|
encstr = estrndup(Z_STRVAL_PP(arg_str), Z_STRLEN_PP(arg_str));
|
|
if (encstr == NULL) {
|
|
efree((void *)separator);
|
|
RETURN_FALSE;
|
|
}
|
|
mbfl_string_init_set(&string, MBSTRG(current_language), MBSTRG(current_internal_encoding));
|
|
mbfl_string_init_set(&resvar, MBSTRG(current_language), MBSTRG(current_internal_encoding));
|
|
mbfl_string_init_set(&resval, MBSTRG(current_language), MBSTRG(current_internal_encoding));
|
|
|
|
/* count the variables contained in the query */
|
|
num = 1;
|
|
var = encstr;
|
|
n = Z_STRLEN_PP(arg_str);
|
|
while (n > 0) {
|
|
if (*var == *separator) {
|
|
num++;
|
|
}
|
|
var++;
|
|
n--;
|
|
}
|
|
num *= 2;
|
|
str_list = (char **)ecalloc(num, sizeof(char *));
|
|
if (str_list == NULL) {
|
|
efree((void *)separator);
|
|
efree((void *)encstr);
|
|
RETURN_FALSE;
|
|
}
|
|
len_list = (int *)ecalloc(num, sizeof(int));
|
|
if (len_list == NULL) {
|
|
efree((void *)separator);
|
|
efree((void *)encstr);
|
|
efree((void *)str_list);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
/* split and decode the query */
|
|
n = 0;
|
|
strtok_buf = NULL;
|
|
var = php_strtok_r(encstr, separator, &strtok_buf);
|
|
while (var && n < num) {
|
|
val = strchr(var, '=');
|
|
if (val) { /* have a value */
|
|
*val++ = '\0';
|
|
str_list[n] = var;
|
|
len_list[n] = php_url_decode(var, strlen(var));
|
|
n++;
|
|
str_list[n] = val;
|
|
len_list[n] = php_url_decode(val, strlen(val));
|
|
} else {
|
|
str_list[n] = var;
|
|
len_list[n] = php_url_decode(var, strlen(var));
|
|
n++;
|
|
str_list[n] = NULL;
|
|
len_list[n] = 0;
|
|
}
|
|
n++;
|
|
var = php_strtok_r(NULL, separator, &strtok_buf);
|
|
}
|
|
num = n;
|
|
|
|
/* initialize converter */
|
|
to_encoding = MBSTRG(current_internal_encoding);
|
|
elist = MBSTRG(http_input_list);
|
|
elistsz = MBSTRG(http_input_list_size);
|
|
if (elistsz <= 0) {
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
} else if (elistsz == 1) {
|
|
from_encoding = *elist;
|
|
} else {
|
|
/* auto detect */
|
|
from_encoding = mbfl_no_encoding_invalid;
|
|
identd = mbfl_encoding_detector_new(elist, elistsz TSRMLS_CC);
|
|
if (identd != NULL) {
|
|
n = 0;
|
|
while (n < num) {
|
|
string.val = str_list[n];
|
|
string.len = len_list[n];
|
|
if (mbfl_encoding_detector_feed(identd, &string TSRMLS_CC)) {
|
|
break;
|
|
}
|
|
n++;
|
|
}
|
|
from_encoding = mbfl_encoding_detector_judge(identd TSRMLS_CC);
|
|
mbfl_encoding_detector_delete(identd TSRMLS_CC);
|
|
}
|
|
if (from_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unable to detect encoding",
|
|
get_active_function_name(TSRMLS_C));
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
}
|
|
}
|
|
convd = NULL;
|
|
if (from_encoding != mbfl_no_encoding_pass) {
|
|
convd = mbfl_buffer_converter_new(from_encoding, to_encoding, 0 TSRMLS_CC);
|
|
if (convd != NULL) {
|
|
mbfl_buffer_converter_illegal_mode(convd, MBSTRG(current_filter_illegal_mode) TSRMLS_CC);
|
|
mbfl_buffer_converter_illegal_substchar(convd, MBSTRG(current_filter_illegal_substchar) TSRMLS_CC);
|
|
} else {
|
|
php_error(E_WARNING, "%s() unable to create converter",
|
|
get_active_function_name(TSRMLS_C));
|
|
}
|
|
}
|
|
|
|
/* convert encoding */
|
|
string.no_encoding = from_encoding;
|
|
old_rg = PG(register_globals);
|
|
if(argc == 1) {
|
|
PG(register_globals) = 1;
|
|
} else {
|
|
PG(register_globals) = 0;
|
|
}
|
|
n = 0;
|
|
while (n < num) {
|
|
/* convert variable name */
|
|
string.val = str_list[n];
|
|
string.len = len_list[n];
|
|
if (convd != NULL && mbfl_buffer_converter_feed_result(convd, &string, &resvar TSRMLS_CC) != NULL) {
|
|
var = resvar.val;
|
|
} else {
|
|
var = str_list[n];
|
|
}
|
|
n++;
|
|
/* convert value */
|
|
string.val = str_list[n];
|
|
string.len = len_list[n];
|
|
if (convd != NULL && mbfl_buffer_converter_feed_result(convd, &string, &resval TSRMLS_CC) != NULL) {
|
|
val = resval.val;
|
|
val_len = resval.len;
|
|
} else {
|
|
val = str_list[n];
|
|
val_len = len_list[n];
|
|
}
|
|
n++;
|
|
/* add variable to symbol table */
|
|
php_register_variable_safe(var, val, val_len, track_vars_array TSRMLS_CC);
|
|
mbfl_string_clear(&resvar);
|
|
mbfl_string_clear(&resval);
|
|
}
|
|
PG(register_globals) = old_rg;
|
|
|
|
if (convd != NULL) {
|
|
mbfl_buffer_converter_delete(convd TSRMLS_CC);
|
|
}
|
|
efree((void *)str_list);
|
|
efree((void *)len_list);
|
|
efree((void *)encstr);
|
|
efree((void *)separator);
|
|
MBSTRG(http_input_identify) = from_encoding;
|
|
MBSTRG(http_input_identify_string) = from_encoding;
|
|
RETURN_TRUE;
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_output_handler(string contents, int status)
|
|
Returns string in output buffer converted to the http_output encoding */
|
|
PHP_FUNCTION(mb_output_handler)
|
|
{
|
|
char *arg_string;
|
|
size_t arg_string_len;
|
|
long arg_status;
|
|
mbfl_string string, result;
|
|
const char *charset;
|
|
char *p;
|
|
enum mbfl_no_encoding encoding;
|
|
int last_feed, len;
|
|
unsigned char send_text_mimetype = 0;
|
|
char *s, *mimetype = NULL;
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sl", &arg_string, &arg_string_len, &arg_status) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
encoding = MBSTRG(current_http_output_encoding);
|
|
|
|
/* start phase only */
|
|
if ((arg_status & PHP_OUTPUT_HANDLER_START) != 0) {
|
|
/* delete the converter just in case. */
|
|
if (MBSTRG(outconv)) {
|
|
mbfl_buffer_converter_delete(MBSTRG(outconv) TSRMLS_CC);
|
|
MBSTRG(outconv) = NULL;
|
|
}
|
|
if (encoding == mbfl_no_encoding_pass) {
|
|
RETURN_STRINGL(arg_string, arg_string_len, 1);
|
|
}
|
|
|
|
/* analyze mime type */
|
|
if (SG(sapi_headers).mimetype &&
|
|
strncmp(SG(sapi_headers).mimetype, "text/", 5) == 0) {
|
|
if ((s = strchr(SG(sapi_headers).mimetype,';')) == NULL){
|
|
mimetype = estrdup(SG(sapi_headers).mimetype);
|
|
} else {
|
|
mimetype = estrndup(SG(sapi_headers).mimetype,s-SG(sapi_headers).mimetype);
|
|
}
|
|
send_text_mimetype = 1;
|
|
} else if (SG(sapi_headers).send_default_content_type) {
|
|
mimetype = SG(default_mimetype) ? SG(default_mimetype) : SAPI_DEFAULT_MIMETYPE;
|
|
}
|
|
|
|
/* if content-type is not yet set, set it and activate the converter */
|
|
if (SG(sapi_headers).send_default_content_type || send_text_mimetype) {
|
|
charset = mbfl_no2preferred_mime_name(encoding);
|
|
if (charset) {
|
|
len = (sizeof ("Content-Type:")-1) + strlen(mimetype) + (sizeof (";charset=")-1) + strlen(charset) + 1;
|
|
p = emalloc(len);
|
|
strcpy(p, "Content-Type:");
|
|
strcat(p, mimetype);
|
|
strcat(p, ";charset=");
|
|
strcat(p, charset);
|
|
if (sapi_add_header(p, len, 0) != FAILURE)
|
|
SG(sapi_headers).send_default_content_type = 0;
|
|
}
|
|
/* activate the converter */
|
|
MBSTRG(outconv) = mbfl_buffer_converter_new(MBSTRG(current_internal_encoding), encoding, 0 TSRMLS_CC);
|
|
if (send_text_mimetype){
|
|
efree(mimetype);
|
|
}
|
|
}
|
|
}
|
|
|
|
/* just return if the converter is not activated. */
|
|
if (MBSTRG(outconv) == NULL) {
|
|
RETURN_STRINGL(arg_string, arg_string_len, 1);
|
|
}
|
|
|
|
/* flag */
|
|
last_feed = ((arg_status & PHP_OUTPUT_HANDLER_END) != 0);
|
|
/* mode */
|
|
mbfl_buffer_converter_illegal_mode(MBSTRG(outconv), MBSTRG(current_filter_illegal_mode) TSRMLS_CC);
|
|
mbfl_buffer_converter_illegal_substchar(MBSTRG(outconv), MBSTRG(current_filter_illegal_substchar) TSRMLS_CC);
|
|
|
|
/* feed the string */
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
string.val = arg_string;
|
|
string.len = arg_string_len;
|
|
mbfl_buffer_converter_feed(MBSTRG(outconv), &string TSRMLS_CC);
|
|
if (last_feed)
|
|
mbfl_buffer_converter_flush(MBSTRG(outconv) TSRMLS_CC);
|
|
|
|
/* get the converter output, and return it */
|
|
mbfl_buffer_converter_result(MBSTRG(outconv), &result TSRMLS_CC);
|
|
RETVAL_STRINGL(result.val, result.len, 0); /* the string is already strdup()'ed */
|
|
|
|
/* delete the converter if it is the last feed. */
|
|
if (last_feed) {
|
|
mbfl_buffer_converter_delete(MBSTRG(outconv) TSRMLS_CC);
|
|
MBSTRG(outconv) = NULL;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto int mb_strlen(string str [, string encoding])
|
|
Get character numbers of a string */
|
|
PHP_FUNCTION(mb_strlen)
|
|
{
|
|
pval **arg1, **arg2;
|
|
int n;
|
|
mbfl_string string;
|
|
|
|
n = ZEND_NUM_ARGS();
|
|
if ((n == 1 && zend_get_parameters_ex(1, &arg1) == FAILURE) ||
|
|
(n == 2 && zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) ||
|
|
n < 1 || n > 2) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
if (Z_TYPE_PP(arg1) == IS_ARRAY ||
|
|
Z_TYPE_PP(arg1) == IS_OBJECT) {
|
|
php_error(E_NOTICE, "%s() arg1 is invalid.",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
if (( n ==2 && Z_TYPE_PP(arg2) == IS_ARRAY) ||
|
|
( n ==2 && Z_TYPE_PP(arg2) == IS_OBJECT)) {
|
|
php_error(E_NOTICE, "%s() arg2 is invalid.",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
if (n == 2) {
|
|
convert_to_string_ex(arg2);
|
|
string.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg2));
|
|
if(string.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg2));
|
|
RETURN_FALSE;
|
|
}
|
|
}
|
|
|
|
n = mbfl_strlen(&string TSRMLS_CC);
|
|
if (n >= 0) {
|
|
RETVAL_LONG(n);
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto int mb_strpos(string haystack, string needle [, int offset [, string encoding]])
|
|
Find position of first occurrence of a string within another */
|
|
PHP_FUNCTION(mb_strpos)
|
|
{
|
|
pval **arg1, **arg2, **arg3, **arg4;
|
|
int offset, n, reverse = 0;
|
|
mbfl_string haystack, needle;
|
|
|
|
mbfl_string_init(&haystack);
|
|
mbfl_string_init(&needle);
|
|
haystack.no_language = MBSTRG(current_language);
|
|
haystack.no_encoding = MBSTRG(current_internal_encoding);
|
|
needle.no_language = MBSTRG(current_language);
|
|
needle.no_encoding = MBSTRG(current_internal_encoding);
|
|
offset = 0;
|
|
switch (ZEND_NUM_ARGS()) {
|
|
case 2:
|
|
if (zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 3:
|
|
if (zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_long_ex(arg3);
|
|
offset = Z_LVAL_PP(arg3);
|
|
break;
|
|
case 4:
|
|
if (zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_long_ex(arg3);
|
|
offset = Z_LVAL_PP(arg3);
|
|
convert_to_string_ex(arg4);
|
|
haystack.no_encoding = needle.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg4));
|
|
if(haystack.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg4));
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
convert_to_string_ex(arg2);
|
|
|
|
if (offset < 0 || offset > Z_STRLEN_PP(arg1)) {
|
|
php_error(E_WARNING,"%s() offset not contained in string",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
if (Z_STRLEN_PP(arg2) == 0) {
|
|
php_error(E_WARNING,"%s() empty needle",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
haystack.val = Z_STRVAL_PP(arg1);
|
|
haystack.len = Z_STRLEN_PP(arg1);
|
|
needle.val = Z_STRVAL_PP(arg2);
|
|
needle.len = Z_STRLEN_PP(arg2);
|
|
|
|
n = mbfl_strpos(&haystack, &needle, offset, reverse TSRMLS_CC);
|
|
if (n >= 0) {
|
|
RETVAL_LONG(n);
|
|
} else {
|
|
switch (-n) {
|
|
case 1:
|
|
break;
|
|
case 2:
|
|
php_error(E_WARNING,"%s() needle has not positive length.",
|
|
get_active_function_name(TSRMLS_C));
|
|
break;
|
|
case 4:
|
|
php_error(E_WARNING,"%s() unknown encoding or conversion error.",
|
|
get_active_function_name(TSRMLS_C));
|
|
break;
|
|
case 8:
|
|
php_error(E_NOTICE,"%s() argument is empty.",
|
|
get_active_function_name(TSRMLS_C));
|
|
break;
|
|
default:
|
|
php_error(E_WARNING,"%s() unknown error in mb_strpos.",
|
|
get_active_function_name(TSRMLS_C));
|
|
break;
|
|
}
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto int mb_strrpos(string haystack, string needle [, string encoding])
|
|
Find the last occurrence of a character in a string within another */
|
|
PHP_FUNCTION(mb_strrpos)
|
|
{
|
|
pval **arg1, **arg2, **arg3;
|
|
int n;
|
|
mbfl_string haystack, needle;
|
|
|
|
mbfl_string_init(&haystack);
|
|
mbfl_string_init(&needle);
|
|
haystack.no_language = MBSTRG(current_language);
|
|
haystack.no_encoding = MBSTRG(current_internal_encoding);
|
|
needle.no_language = MBSTRG(current_language);
|
|
needle.no_encoding = MBSTRG(current_internal_encoding);
|
|
switch (ZEND_NUM_ARGS()) {
|
|
case 2:
|
|
if (zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 3:
|
|
if (zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string_ex(arg3);
|
|
haystack.no_encoding = needle.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg3));
|
|
if(haystack.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg3));
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
convert_to_string_ex(arg2);
|
|
if (Z_STRLEN_PP(arg1) <= 0) {
|
|
php_error(E_WARNING,"%s() empty haystack",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
if (Z_STRLEN_PP(arg2) <= 0) {
|
|
php_error(E_WARNING,"%s() empty needle",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
haystack.val = Z_STRVAL_PP(arg1);
|
|
haystack.len = Z_STRLEN_PP(arg1);
|
|
needle.val = Z_STRVAL_PP(arg2);
|
|
needle.len = Z_STRLEN_PP(arg2);
|
|
n = mbfl_strpos(&haystack, &needle, 0, 1 TSRMLS_CC);
|
|
if (n >= 0) {
|
|
RETVAL_LONG(n);
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_substr(string str, int start [, int length [, string encoding]])
|
|
Returns part of a string */
|
|
PHP_FUNCTION(mb_substr)
|
|
{
|
|
pval **arg1, **arg2, **arg3, **arg4;
|
|
int argc, from, len, mblen;
|
|
mbfl_string string, result, *ret;
|
|
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
|
|
argc = ZEND_NUM_ARGS();
|
|
switch (argc) {
|
|
case 2:
|
|
if (zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 3:
|
|
if (zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 4:
|
|
if (zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string_ex(arg4);
|
|
string.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg4));
|
|
if (string.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg4));
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
convert_to_long_ex(arg2);
|
|
from = Z_LVAL_PP(arg2);
|
|
if (argc >= 3) {
|
|
convert_to_long_ex(arg3);
|
|
len = Z_LVAL_PP(arg3);
|
|
} else {
|
|
len = Z_STRLEN_PP(arg1);
|
|
}
|
|
|
|
/* measures length */
|
|
mblen = 0;
|
|
if (from < 0 || len < 0) {
|
|
mblen = mbfl_strlen(&string TSRMLS_CC);
|
|
}
|
|
|
|
/* if "from" position is negative, count start position from the end
|
|
* of the string
|
|
*/
|
|
if (from < 0) {
|
|
from = mblen + from;
|
|
if (from < 0) {
|
|
from = 0;
|
|
}
|
|
}
|
|
|
|
/* if "length" position is negative, set it to the length
|
|
* needed to stop that many chars from the end of the string
|
|
*/
|
|
if (len < 0) {
|
|
len = (mblen - from) + len;
|
|
if (len < 0) {
|
|
len = 0;
|
|
}
|
|
}
|
|
|
|
ret = mbfl_substr(&string, &result, from, len TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0); /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_strcut(string str, int start [, int length [, string encoding]])
|
|
Returns part of a string */
|
|
PHP_FUNCTION(mb_strcut)
|
|
{
|
|
pval **arg1, **arg2, **arg3, **arg4;
|
|
int argc, from, len;
|
|
mbfl_string string, result, *ret;
|
|
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
|
|
argc = ZEND_NUM_ARGS();
|
|
switch (argc) {
|
|
case 2:
|
|
if (zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 3:
|
|
if (zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 4:
|
|
if (zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string_ex(arg4);
|
|
string.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg4));
|
|
if (string.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg4));
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
convert_to_long_ex(arg2);
|
|
from = Z_LVAL_PP(arg2);
|
|
if (argc >= 3) {
|
|
convert_to_long_ex(arg3);
|
|
len = Z_LVAL_PP(arg3);
|
|
} else {
|
|
len = Z_STRLEN_PP(arg1);
|
|
}
|
|
|
|
/* if "from" position is negative, count start position from the end
|
|
* of the string
|
|
*/
|
|
if (from < 0) {
|
|
from = Z_STRLEN_PP(arg1) + from;
|
|
if (from < 0) {
|
|
from = 0;
|
|
}
|
|
}
|
|
|
|
/* if "length" position is negative, set it to the length
|
|
* needed to stop that many chars from the end of the string
|
|
*/
|
|
if (len < 0) {
|
|
len = (Z_STRLEN_PP(arg1) - from) + len;
|
|
if (len < 0) {
|
|
len = 0;
|
|
}
|
|
}
|
|
|
|
ret = mbfl_strcut(&string, &result, from, len TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0); /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto int mb_strwidth(string str [, string encoding])
|
|
Gets terminal width of a string */
|
|
PHP_FUNCTION(mb_strwidth)
|
|
{
|
|
pval **arg1, **arg2;
|
|
int n;
|
|
mbfl_string string;
|
|
|
|
n = ZEND_NUM_ARGS();
|
|
if ((n == 1 && zend_get_parameters_ex(1, &arg1) == FAILURE) ||
|
|
(n == 2 && zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) ||
|
|
n < 1 || n > 2) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string_ex(arg1);
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
if (n == 2){
|
|
convert_to_string_ex(arg2);
|
|
string.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg2));
|
|
if(string.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg2));
|
|
RETURN_FALSE;
|
|
}
|
|
}
|
|
|
|
n = mbfl_strwidth(&string TSRMLS_CC);
|
|
if (n >= 0) {
|
|
RETVAL_LONG(n);
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_strimwidth(string str, int start, int width [, string trimmarker [, string encoding]])
|
|
Trim the string in terminal width */
|
|
PHP_FUNCTION(mb_strimwidth)
|
|
{
|
|
pval **arg1, **arg2, **arg3, **arg4, **arg5;
|
|
int from, width;
|
|
mbfl_string string, result, marker, *ret;
|
|
|
|
mbfl_string_init(&string);
|
|
mbfl_string_init(&marker);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
marker.no_language = MBSTRG(current_language);
|
|
marker.no_encoding = MBSTRG(current_internal_encoding);
|
|
marker.val = NULL;
|
|
marker.len = 0;
|
|
|
|
switch (ZEND_NUM_ARGS()) {
|
|
case 3:
|
|
if (zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 4:
|
|
if (zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
break;
|
|
case 5:
|
|
if (zend_get_parameters_ex(5, &arg1, &arg2, &arg3, &arg4, &arg5) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string_ex(arg5);
|
|
string.no_encoding = marker.no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg5));
|
|
if (string.no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg5));
|
|
RETURN_FALSE;
|
|
}
|
|
break;
|
|
default:
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
convert_to_long_ex(arg2);
|
|
from = Z_LVAL_PP(arg2);
|
|
if (from < 0 || from > Z_STRLEN_PP(arg1)) {
|
|
php_error(E_WARNING,"%s() start not contained in string",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
convert_to_long_ex(arg3);
|
|
width = Z_LVAL_PP(arg3);
|
|
|
|
if (width < 0) {
|
|
php_error(E_WARNING,"%s() width has negative value",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
if (ZEND_NUM_ARGS() >= 4) {
|
|
convert_to_string_ex(arg4);
|
|
marker.val = Z_STRVAL_PP(arg4);
|
|
marker.len = Z_STRLEN_PP(arg4);
|
|
}
|
|
|
|
ret = mbfl_strimwidth(&string, &marker, &result, from, width TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0); /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ php_mb_convert_encoding */
|
|
PHPAPI char * php_mb_convert_encoding(char *input, size_t length, char *_to_encoding, char *_from_encodings, size_t *output_len TSRMLS_DC)
|
|
{
|
|
mbfl_string string, result, *ret;
|
|
enum mbfl_no_encoding from_encoding, to_encoding;
|
|
mbfl_buffer_converter *convd;
|
|
int size, *list;
|
|
char *output=NULL;
|
|
|
|
if (output_len) {
|
|
*output_len = 0;
|
|
}
|
|
if ( !input || !length) {
|
|
return NULL;
|
|
}
|
|
/* new encoding */
|
|
if (_to_encoding && strlen(_to_encoding)) {
|
|
to_encoding = mbfl_name2no_encoding(_to_encoding);
|
|
if (to_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), _to_encoding);
|
|
return NULL;
|
|
}
|
|
} else {
|
|
to_encoding = MBSTRG(current_internal_encoding);
|
|
}
|
|
|
|
/* initialize string */
|
|
mbfl_string_init(&string);
|
|
mbfl_string_init(&result);
|
|
from_encoding = MBSTRG(current_internal_encoding);
|
|
string.no_encoding = from_encoding;
|
|
string.no_language = MBSTRG(current_language);
|
|
string.val = input;
|
|
string.len = length;
|
|
|
|
/* pre-conversion encoding */
|
|
if (_from_encodings) {
|
|
list = NULL;
|
|
size = 0;
|
|
php_mbstring_parse_encoding_list(_from_encodings, strlen(_from_encodings), &list, &size, 0);
|
|
if (size == 1) {
|
|
from_encoding = *list;
|
|
string.no_encoding = from_encoding;
|
|
} else if (size > 1) {
|
|
/* auto detect */
|
|
from_encoding = mbfl_identify_encoding_no(&string, list, size TSRMLS_CC);
|
|
if (from_encoding != mbfl_no_encoding_invalid) {
|
|
string.no_encoding = from_encoding;
|
|
} else {
|
|
php_error(E_WARNING, "%s() unable to detect character encoding",
|
|
get_active_function_name(TSRMLS_C));
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
to_encoding = from_encoding;
|
|
string.no_encoding = from_encoding;
|
|
}
|
|
} else {
|
|
php_error(E_WARNING, "%s() illegal character encoding specified",
|
|
get_active_function_name(TSRMLS_C));
|
|
}
|
|
if (list != NULL) {
|
|
efree((void *)list);
|
|
}
|
|
}
|
|
|
|
/* initialize converter */
|
|
convd = mbfl_buffer_converter_new(from_encoding, to_encoding, string.len TSRMLS_CC);
|
|
if (convd == NULL) {
|
|
php_error(E_WARNING, "%s() unable to create character encoding converter",
|
|
get_active_function_name(TSRMLS_C));
|
|
return NULL;
|
|
}
|
|
mbfl_buffer_converter_illegal_mode(convd, MBSTRG(current_filter_illegal_mode) TSRMLS_CC);
|
|
mbfl_buffer_converter_illegal_substchar(convd, MBSTRG(current_filter_illegal_substchar) TSRMLS_CC);
|
|
|
|
/* do it */
|
|
ret = mbfl_buffer_converter_feed_result(convd, &string, &result TSRMLS_CC);
|
|
if (ret) {
|
|
if (output_len) {
|
|
*output_len = ret->len;
|
|
}
|
|
output = ret->val;
|
|
}
|
|
|
|
mbfl_buffer_converter_delete(convd TSRMLS_CC);
|
|
return output;
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_convert_encoding(string str, string to-encoding [, mixed from-encoding])
|
|
Returns converted string in desired encoding */
|
|
PHP_FUNCTION(mb_convert_encoding)
|
|
{
|
|
pval **arg_str, **arg_new, **arg_old;
|
|
int size, i;
|
|
size_t l,n;
|
|
char *_from_encodings, *ret, *s_free = NULL;
|
|
|
|
zval **hash_entry;
|
|
HashTable *target_hash;
|
|
|
|
_from_encodings = NULL;
|
|
if (ZEND_NUM_ARGS() == 2) {
|
|
if (zend_get_parameters_ex(2, &arg_str, &arg_new) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 3) {
|
|
if (zend_get_parameters_ex(3, &arg_str, &arg_new, &arg_old) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
switch (Z_TYPE_PP(arg_old)) {
|
|
case IS_ARRAY:
|
|
|
|
target_hash = Z_ARRVAL_PP(arg_old);
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
i = zend_hash_num_elements(target_hash);
|
|
_from_encodings = NULL;
|
|
while (i > 0) {
|
|
if (zend_hash_get_current_data(target_hash, (void **) &hash_entry) == FAILURE) {
|
|
break;
|
|
}
|
|
convert_to_string_ex(hash_entry);
|
|
if ( _from_encodings) {
|
|
l = strlen(_from_encodings);
|
|
n = strlen(Z_STRVAL_PP(hash_entry));
|
|
_from_encodings = erealloc(_from_encodings, l+n+2);
|
|
strcpy(_from_encodings+l,",");
|
|
strcpy(_from_encodings+l+1,Z_STRVAL_PP(hash_entry));
|
|
} else {
|
|
_from_encodings = estrdup(Z_STRVAL_PP(hash_entry));
|
|
}
|
|
zend_hash_move_forward(target_hash);
|
|
i--;
|
|
}
|
|
if ( !strlen(_from_encodings)) {
|
|
efree(_from_encodings);
|
|
_from_encodings = NULL;
|
|
}
|
|
s_free = _from_encodings;
|
|
break;
|
|
default:
|
|
convert_to_string_ex(arg_old);
|
|
_from_encodings = Z_STRVAL_PP(arg_old);
|
|
break;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
/* new encoding */
|
|
convert_to_string_ex(arg_str);
|
|
convert_to_string_ex(arg_new);
|
|
ret = php_mb_convert_encoding( Z_STRVAL_PP(arg_str), Z_STRLEN_PP(arg_str), Z_STRVAL_PP(arg_new), _from_encodings, &size TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret, size, 0); /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
if ( s_free) {
|
|
efree(s_free);
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto string mb_detect_encoding(string str [, mixed encoding_list])
|
|
Encodings of the given string is returned (as a string) */
|
|
PHP_FUNCTION(mb_detect_encoding)
|
|
{
|
|
pval **arg_str, **arg_list;
|
|
mbfl_string string;
|
|
const char *ret;
|
|
enum mbfl_no_encoding *elist;
|
|
int size, *list;
|
|
|
|
if (ZEND_NUM_ARGS() == 1) {
|
|
if (zend_get_parameters_ex(1, &arg_str) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
} else if (ZEND_NUM_ARGS() == 2) {
|
|
if (zend_get_parameters_ex(2, &arg_str, &arg_list) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
} else {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
/* make encoding list */
|
|
list = NULL;
|
|
size = 0;
|
|
if (ZEND_NUM_ARGS() >= 2) {
|
|
switch (Z_TYPE_PP(arg_list)) {
|
|
case IS_ARRAY:
|
|
if (!php_mbstring_parse_encoding_array(*arg_list, &list, &size, 0)) {
|
|
if (list) {
|
|
efree(list);
|
|
size = 0;
|
|
}
|
|
}
|
|
break;
|
|
default:
|
|
convert_to_string_ex(arg_list);
|
|
if (!php_mbstring_parse_encoding_list(Z_STRVAL_PP(arg_list), Z_STRLEN_PP(arg_list), &list, &size, 0)) {
|
|
if (list) {
|
|
efree(list);
|
|
size = 0;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
if (size <= 0) {
|
|
php_error(E_WARNING, "%s() illegal argument",
|
|
get_active_function_name(TSRMLS_C));
|
|
}
|
|
}
|
|
|
|
if (size > 0 && list != NULL) {
|
|
elist = list;
|
|
} else {
|
|
elist = MBSTRG(current_detect_order_list);
|
|
size = MBSTRG(current_detect_order_list_size);
|
|
}
|
|
|
|
convert_to_string_ex(arg_str);
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.val = Z_STRVAL_PP(arg_str);
|
|
string.len = Z_STRLEN_PP(arg_str);
|
|
ret = mbfl_identify_encoding_name(&string, elist, size TSRMLS_CC);
|
|
if (list != NULL) {
|
|
efree((void *)list);
|
|
}
|
|
if (ret != NULL) {
|
|
RETVAL_STRING((char *)ret, 1);
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_encode_mimeheader(string str [, string charset [, string transfer-encoding [, string linefeed]]])
|
|
Converts the string to MIME "encoded-word" in the format of =?charset?(B|Q)?encoded_string?= */
|
|
PHP_FUNCTION(mb_encode_mimeheader)
|
|
{
|
|
pval **argv[4];
|
|
enum mbfl_no_encoding charset, transenc;
|
|
mbfl_string string, result, *ret;
|
|
char *p, *linefeed;
|
|
|
|
if (ZEND_NUM_ARGS() < 1 || ZEND_NUM_ARGS() > 4 || zend_get_parameters_array_ex(ZEND_NUM_ARGS(), argv) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
charset = mbfl_no_encoding_pass;
|
|
transenc = mbfl_no_encoding_base64;
|
|
if (ZEND_NUM_ARGS() >= 2) {
|
|
convert_to_string_ex(argv[1]);
|
|
charset = mbfl_name2no_encoding(Z_STRVAL_PP(argv[1]));
|
|
if (charset == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(argv[1]));
|
|
RETURN_FALSE;
|
|
}
|
|
} else {
|
|
switch (MBSTRG(current_language)) {
|
|
case mbfl_no_language_japanese:
|
|
charset = mbfl_no_encoding_2022jp;
|
|
break;
|
|
case mbfl_no_language_english:
|
|
charset = mbfl_no_encoding_8859_1;
|
|
transenc = mbfl_no_encoding_qprint;
|
|
break;
|
|
default:
|
|
charset = mbfl_no_encoding_utf8;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (ZEND_NUM_ARGS() >= 3) {
|
|
convert_to_string_ex(argv[2]);
|
|
p = Z_STRVAL_PP(argv[2]);
|
|
if (*p == 'B' || *p == 'b') {
|
|
transenc = mbfl_no_encoding_base64;
|
|
} else if (*p == 'Q' || *p == 'q') {
|
|
transenc = mbfl_no_encoding_qprint;
|
|
}
|
|
}
|
|
|
|
linefeed = "\r\n";
|
|
if (ZEND_NUM_ARGS() >= 4) {
|
|
convert_to_string_ex(argv[3]);
|
|
linefeed = Z_STRVAL_PP(argv[3]);
|
|
}
|
|
|
|
convert_to_string_ex(argv[0]);
|
|
mbfl_string_init(&string);
|
|
mbfl_string_init(&result);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
string.val = Z_STRVAL_PP(argv[0]);
|
|
string.len = Z_STRLEN_PP(argv[0]);
|
|
ret = mbfl_mime_header_encode(&string, &result, charset, transenc, linefeed, 0 TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0) /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_decode_mimeheader(string string)
|
|
Decodes the MIME "encoded-word" in the string */
|
|
PHP_FUNCTION(mb_decode_mimeheader)
|
|
{
|
|
pval **arg_str;
|
|
mbfl_string string, result, *ret;
|
|
|
|
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg_str) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
convert_to_string_ex(arg_str);
|
|
mbfl_string_init(&string);
|
|
mbfl_string_init(&result);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
string.val = Z_STRVAL_PP(arg_str);
|
|
string.len = Z_STRLEN_PP(arg_str);
|
|
ret = mbfl_mime_header_decode(&string, &result, MBSTRG(current_internal_encoding) TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0) /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto string mb_convert_kana(string str [, string option] [, string encoding])
|
|
Conversion between full-width character and half-width character (Japanese) */
|
|
PHP_FUNCTION(mb_convert_kana)
|
|
{
|
|
pval **arg1, **arg2, **arg3;
|
|
int argc, opt, i, n;
|
|
char *p;
|
|
mbfl_string string, result, *ret;
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
|
|
argc = ZEND_NUM_ARGS();
|
|
if ((argc == 1 && zend_get_parameters_ex(1, &arg1) == FAILURE) ||
|
|
(argc == 2 && zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) ||
|
|
(argc == 3 && zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) ||
|
|
argc < 1 || argc > 3) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
/* option */
|
|
if (argc >= 2){
|
|
convert_to_string_ex(arg2);
|
|
p = Z_STRVAL_PP(arg2);
|
|
n = Z_STRLEN_PP(arg2);
|
|
i = 0;
|
|
opt = 0;
|
|
while (i < n) {
|
|
i++;
|
|
switch (*p++) {
|
|
case 'A':
|
|
opt |= 0x1;
|
|
break;
|
|
case 'a':
|
|
opt |= 0x10;
|
|
break;
|
|
case 'R':
|
|
opt |= 0x2;
|
|
break;
|
|
case 'r':
|
|
opt |= 0x20;
|
|
break;
|
|
case 'N':
|
|
opt |= 0x4;
|
|
break;
|
|
case 'n':
|
|
opt |= 0x40;
|
|
break;
|
|
case 'S':
|
|
opt |= 0x8;
|
|
break;
|
|
case 's':
|
|
opt |= 0x80;
|
|
break;
|
|
case 'K':
|
|
opt |= 0x100;
|
|
break;
|
|
case 'k':
|
|
opt |= 0x1000;
|
|
break;
|
|
case 'H':
|
|
opt |= 0x200;
|
|
break;
|
|
case 'h':
|
|
opt |= 0x2000;
|
|
break;
|
|
case 'V':
|
|
opt |= 0x800;
|
|
break;
|
|
case 'C':
|
|
opt |= 0x10000;
|
|
break;
|
|
case 'c':
|
|
opt |= 0x20000;
|
|
break;
|
|
case 'M':
|
|
opt |= 0x100000;
|
|
break;
|
|
case 'm':
|
|
opt |= 0x200000;
|
|
break;
|
|
}
|
|
}
|
|
} else {
|
|
opt = 0x900;
|
|
}
|
|
|
|
/* encoding */
|
|
if (argc == 3) {
|
|
convert_to_string_ex(arg3);
|
|
no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg3));
|
|
if (no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg3));
|
|
RETURN_FALSE;
|
|
} else {
|
|
string.no_encoding = no_encoding;
|
|
}
|
|
}
|
|
|
|
ret = mbfl_ja_jp_hantozen(&string, &result, opt TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0); /* the string is already strdup()'ed */
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
#define PHP_MBSTR_STACK_BLOCK_SIZE 32
|
|
|
|
/* {{{ proto string mb_convert_variables(string to-encoding, mixed from-encoding [, mixed ...])
|
|
Converts the string resource in variables to desired encoding */
|
|
PHP_FUNCTION(mb_convert_variables)
|
|
{
|
|
pval ***args, ***stack, **var, **hash_entry;
|
|
HashTable *target_hash;
|
|
mbfl_string string, result, *ret;
|
|
enum mbfl_no_encoding from_encoding, to_encoding;
|
|
mbfl_encoding_detector *identd;
|
|
mbfl_buffer_converter *convd;
|
|
int n, argc, stack_level, stack_max, *elist, elistsz;
|
|
char *name;
|
|
void *ptmp;
|
|
|
|
argc = ZEND_NUM_ARGS();
|
|
if (argc < 3) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
args = (pval ***)ecalloc(argc, sizeof(pval **));
|
|
if (args == NULL) {
|
|
RETURN_FALSE;
|
|
}
|
|
if (zend_get_parameters_array_ex(argc, args) == FAILURE) {
|
|
efree((void *)args);
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
/* new encoding */
|
|
convert_to_string_ex(args[0]);
|
|
to_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(args[0]));
|
|
if (to_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(args[0]));
|
|
efree((void *)args);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
/* initialize string */
|
|
mbfl_string_init(&string);
|
|
mbfl_string_init(&result);
|
|
from_encoding = MBSTRG(current_internal_encoding);
|
|
string.no_encoding = from_encoding;
|
|
string.no_language = MBSTRG(current_language);
|
|
|
|
/* pre-conversion encoding */
|
|
elist = NULL;
|
|
elistsz = 0;
|
|
switch (Z_TYPE_PP(args[1])) {
|
|
case IS_ARRAY:
|
|
php_mbstring_parse_encoding_array(*args[1], &elist, &elistsz, 0);
|
|
break;
|
|
default:
|
|
convert_to_string_ex(args[1]);
|
|
php_mbstring_parse_encoding_list(Z_STRVAL_PP(args[1]), Z_STRLEN_PP(args[1]), &elist, &elistsz, 0);
|
|
break;
|
|
}
|
|
if (elistsz <= 0) {
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
} else if (elistsz == 1) {
|
|
from_encoding = *elist;
|
|
} else {
|
|
/* auto detect */
|
|
from_encoding = mbfl_no_encoding_invalid;
|
|
stack_max = PHP_MBSTR_STACK_BLOCK_SIZE;
|
|
stack = (pval ***)emalloc(stack_max*sizeof(pval **));
|
|
if (stack != NULL) {
|
|
stack_level = 0;
|
|
identd = mbfl_encoding_detector_new(elist, elistsz TSRMLS_CC);
|
|
if (identd != NULL) {
|
|
n = 2;
|
|
while (n < argc || stack_level > 0) {
|
|
if (stack_level <= 0) {
|
|
var = args[n++];
|
|
if (Z_TYPE_PP(var) == IS_ARRAY || Z_TYPE_PP(var) == IS_OBJECT) {
|
|
target_hash = HASH_OF(*var);
|
|
if (target_hash != NULL) {
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
}
|
|
}
|
|
} else {
|
|
stack_level--;
|
|
var = stack[stack_level];
|
|
}
|
|
if (Z_TYPE_PP(var) == IS_ARRAY || Z_TYPE_PP(var) == IS_OBJECT) {
|
|
target_hash = HASH_OF(*var);
|
|
if (target_hash != NULL) {
|
|
while (zend_hash_get_current_data(target_hash, (void **) &hash_entry) != FAILURE) {
|
|
zend_hash_move_forward(target_hash);
|
|
if (Z_TYPE_PP(hash_entry) == IS_ARRAY || Z_TYPE_PP(hash_entry) == IS_OBJECT) {
|
|
if (stack_level >= stack_max) {
|
|
stack_max += PHP_MBSTR_STACK_BLOCK_SIZE;
|
|
ptmp = erealloc(stack, sizeof(pval **)*stack_max);
|
|
if (ptmp == NULL) {
|
|
php_error(E_WARNING, "%s() stack err at %s:(%d)",
|
|
get_active_function_name(TSRMLS_C), __FILE__, __LINE__);
|
|
continue;
|
|
}
|
|
stack = (pval ***)ptmp;
|
|
}
|
|
stack[stack_level] = var;
|
|
stack_level++;
|
|
var = hash_entry;
|
|
target_hash = HASH_OF(*var);
|
|
if (target_hash != NULL) {
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
continue;
|
|
}
|
|
} else if (Z_TYPE_PP(hash_entry) == IS_STRING) {
|
|
string.val = Z_STRVAL_PP(hash_entry);
|
|
string.len = Z_STRLEN_PP(hash_entry);
|
|
if (mbfl_encoding_detector_feed(identd, &string TSRMLS_CC)) {
|
|
goto detect_end; /* complete detecting */
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} else if (Z_TYPE_PP(var) == IS_STRING) {
|
|
string.val = Z_STRVAL_PP(var);
|
|
string.len = Z_STRLEN_PP(var);
|
|
if (mbfl_encoding_detector_feed(identd, &string TSRMLS_CC)) {
|
|
goto detect_end; /* complete detecting */
|
|
}
|
|
}
|
|
}
|
|
detect_end:
|
|
from_encoding = mbfl_encoding_detector_judge(identd TSRMLS_CC);
|
|
mbfl_encoding_detector_delete(identd TSRMLS_CC);
|
|
}
|
|
efree(stack);
|
|
}
|
|
if (from_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unable to detect encoding",
|
|
get_active_function_name(TSRMLS_C));
|
|
from_encoding = mbfl_no_encoding_pass;
|
|
}
|
|
}
|
|
if (elist != NULL) {
|
|
efree((void *)elist);
|
|
}
|
|
/* create converter */
|
|
convd = NULL;
|
|
if (from_encoding != mbfl_no_encoding_pass) {
|
|
convd = mbfl_buffer_converter_new(from_encoding, to_encoding, 0 TSRMLS_CC);
|
|
if (convd == NULL) {
|
|
php_error(E_WARNING, "%s() unable to create converter",
|
|
get_active_function_name(TSRMLS_C));
|
|
RETURN_FALSE;
|
|
}
|
|
mbfl_buffer_converter_illegal_mode(convd, MBSTRG(current_filter_illegal_mode) TSRMLS_CC);
|
|
mbfl_buffer_converter_illegal_substchar(convd, MBSTRG(current_filter_illegal_substchar) TSRMLS_CC);
|
|
}
|
|
|
|
/* convert */
|
|
if (convd != NULL) {
|
|
stack_max = PHP_MBSTR_STACK_BLOCK_SIZE;
|
|
stack = (pval ***)emalloc(stack_max*sizeof(pval **));
|
|
if (stack != NULL) {
|
|
stack_level = 0;
|
|
n = 2;
|
|
while (n < argc || stack_level > 0) {
|
|
if (stack_level <= 0) {
|
|
var = args[n++];
|
|
if (Z_TYPE_PP(var) == IS_ARRAY || Z_TYPE_PP(var) == IS_OBJECT) {
|
|
target_hash = HASH_OF(*var);
|
|
if (target_hash != NULL) {
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
}
|
|
}
|
|
} else {
|
|
stack_level--;
|
|
var = stack[stack_level];
|
|
}
|
|
if (Z_TYPE_PP(var) == IS_ARRAY || Z_TYPE_PP(var) == IS_OBJECT) {
|
|
target_hash = HASH_OF(*var);
|
|
if (target_hash != NULL) {
|
|
while (zend_hash_get_current_data(target_hash, (void **) &hash_entry) != FAILURE) {
|
|
zend_hash_move_forward(target_hash);
|
|
if (Z_TYPE_PP(hash_entry) == IS_ARRAY || Z_TYPE_PP(hash_entry) == IS_OBJECT) {
|
|
if (stack_level >= stack_max) {
|
|
stack_max += PHP_MBSTR_STACK_BLOCK_SIZE;
|
|
ptmp = erealloc(stack, sizeof(pval **)*stack_max);
|
|
if (ptmp == NULL) {
|
|
php_error(E_WARNING, "%s() stack err at %s:(%d)",
|
|
get_active_function_name(TSRMLS_C), __FILE__, __LINE__);
|
|
continue;
|
|
}
|
|
stack = (pval ***)ptmp;
|
|
}
|
|
stack[stack_level] = var;
|
|
stack_level++;
|
|
var = hash_entry;
|
|
target_hash = HASH_OF(*var);
|
|
if (target_hash != NULL) {
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
continue;
|
|
}
|
|
} else if (Z_TYPE_PP(hash_entry) == IS_STRING) {
|
|
string.val = Z_STRVAL_PP(hash_entry);
|
|
string.len = Z_STRLEN_PP(hash_entry);
|
|
ret = mbfl_buffer_converter_feed_result(convd, &string, &result TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
STR_FREE(Z_STRVAL_PP(hash_entry));
|
|
Z_STRVAL_PP(hash_entry) = ret->val;
|
|
Z_STRLEN_PP(hash_entry) = ret->len;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} else if (Z_TYPE_PP(var) == IS_STRING) {
|
|
string.val = Z_STRVAL_PP(var);
|
|
string.len = Z_STRLEN_PP(var);
|
|
ret = mbfl_buffer_converter_feed_result(convd, &string, &result TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
STR_FREE(Z_STRVAL_PP(var));
|
|
Z_STRVAL_PP(var) = ret->val;
|
|
Z_STRLEN_PP(var) = ret->len;
|
|
}
|
|
}
|
|
}
|
|
efree(stack);
|
|
}
|
|
mbfl_buffer_converter_delete(convd TSRMLS_CC);
|
|
}
|
|
|
|
efree((void *)args);
|
|
|
|
name = (char *)mbfl_no_encoding2name(from_encoding);
|
|
if (name != NULL) {
|
|
RETURN_STRING(name, 1);
|
|
} else {
|
|
RETURN_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* HTML numeric entity */
|
|
static void
|
|
php_mbstr_numericentity_exec(INTERNAL_FUNCTION_PARAMETERS, int type)
|
|
{
|
|
pval **arg1, **arg2, **arg3, **hash_entry;
|
|
HashTable *target_hash;
|
|
int argc, i, *convmap, *mapelm, mapsize=0;
|
|
mbfl_string string, result, *ret;
|
|
enum mbfl_no_encoding no_encoding;
|
|
|
|
argc = ZEND_NUM_ARGS();
|
|
if ((argc == 2 && zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) ||
|
|
(argc == 3 && zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) ||
|
|
argc < 2 || argc > 3) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(arg1);
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.no_encoding = MBSTRG(current_internal_encoding);
|
|
string.val = Z_STRVAL_PP(arg1);
|
|
string.len = Z_STRLEN_PP(arg1);
|
|
|
|
/* encoding */
|
|
if (argc == 3) {
|
|
convert_to_string_ex(arg3);
|
|
no_encoding = mbfl_name2no_encoding(Z_STRVAL_PP(arg3));
|
|
if (no_encoding == mbfl_no_encoding_invalid) {
|
|
php_error(E_WARNING, "%s() unknown encoding \"%s\"",
|
|
get_active_function_name(TSRMLS_C), Z_STRVAL_PP(arg3));
|
|
RETURN_FALSE;
|
|
} else {
|
|
string.no_encoding = no_encoding;
|
|
}
|
|
}
|
|
|
|
/* conversion map */
|
|
convmap = NULL;
|
|
if (Z_TYPE_PP(arg2) == IS_ARRAY){
|
|
target_hash = Z_ARRVAL_PP(arg2);
|
|
zend_hash_internal_pointer_reset(target_hash);
|
|
i = zend_hash_num_elements(target_hash);
|
|
if (i > 0) {
|
|
convmap = (int *)emalloc(i*sizeof(int));
|
|
if (convmap != NULL) {
|
|
mapelm = convmap;
|
|
mapsize = 0;
|
|
while (i > 0) {
|
|
if (zend_hash_get_current_data(target_hash, (void **) &hash_entry) == FAILURE) {
|
|
break;
|
|
}
|
|
convert_to_long_ex(hash_entry);
|
|
*mapelm++ = Z_LVAL_PP(hash_entry);
|
|
mapsize++;
|
|
i--;
|
|
zend_hash_move_forward(target_hash);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (convmap == NULL) {
|
|
RETURN_FALSE;
|
|
}
|
|
mapsize /= 4;
|
|
|
|
ret = mbfl_html_numeric_entity(&string, &result, convmap, mapsize, type TSRMLS_CC);
|
|
if (ret != NULL) {
|
|
RETVAL_STRINGL(ret->val, ret->len, 0);
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
efree((void *)convmap);
|
|
}
|
|
|
|
/* {{{ proto string mb_encode_numericentity(string string, array convmap [, string encoding])
|
|
Converts specified characters to HTML numeric entities */
|
|
PHP_FUNCTION(mb_encode_numericentity)
|
|
{
|
|
php_mbstr_numericentity_exec(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
/* {{{ proto string mb_decode_numericentity(string string, array convmap [, string encoding])
|
|
Converts HTML numeric entities to character code */
|
|
PHP_FUNCTION(mb_decode_numericentity)
|
|
{
|
|
php_mbstr_numericentity_exec(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1);
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
|
|
#if HAVE_SENDMAIL
|
|
/* {{{ proto int mb_send_mail(string to, string subject, string message [, string additional_headers [, string additional_parameters]])
|
|
Sends an email message with MIME scheme */
|
|
PHP_FUNCTION(mb_send_mail)
|
|
{
|
|
int argc, n;
|
|
pval **argv[5];
|
|
char *to=NULL, *message=NULL, *headers=NULL, *subject=NULL, *extra_cmd=NULL;
|
|
char *message_buf=NULL, *subject_buf=NULL, *p;
|
|
mbfl_string orig_str, conv_str;
|
|
mbfl_string *pstr; /* pointer to mbfl string for return value */
|
|
enum mbfl_no_encoding
|
|
tran_cs, /* transfar text charset */
|
|
head_enc, /* header transfar encoding */
|
|
body_enc; /* body transfar encoding */
|
|
mbfl_memory_device device; /* automatic allocateable buffer for additional header */
|
|
int err = 0;
|
|
|
|
/* initialize */
|
|
mbfl_memory_device_init(&device, 0, 0 TSRMLS_CC);
|
|
mbfl_string_init(&orig_str);
|
|
mbfl_string_init(&conv_str);
|
|
|
|
/* character-set, transfer-encoding */
|
|
tran_cs = mbfl_no_encoding_utf8;
|
|
head_enc = mbfl_no_encoding_base64;
|
|
body_enc = mbfl_no_encoding_base64;
|
|
switch (MBSTRG(current_language)) {
|
|
case mbfl_no_language_japanese:
|
|
tran_cs = mbfl_no_encoding_2022jp;
|
|
body_enc = mbfl_no_encoding_7bit;
|
|
break;
|
|
case mbfl_no_language_english:
|
|
tran_cs = mbfl_no_encoding_8859_1;
|
|
head_enc = mbfl_no_encoding_qprint;
|
|
body_enc = mbfl_no_encoding_qprint;
|
|
break;
|
|
}
|
|
|
|
argc = ZEND_NUM_ARGS();
|
|
if (argc < 3 || argc > 5 || zend_get_parameters_array_ex(argc, argv) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
/* To: */
|
|
convert_to_string_ex(argv[0]);
|
|
if (Z_STRVAL_PP(argv[0])) {
|
|
to = Z_STRVAL_PP(argv[0]);
|
|
} else {
|
|
php_error(E_WARNING, "%s() no to field",
|
|
get_active_function_name(TSRMLS_C));
|
|
err = 1;
|
|
}
|
|
|
|
/* Subject: */
|
|
convert_to_string_ex(argv[1]);
|
|
if (Z_STRVAL_PP(argv[1])) {
|
|
orig_str.no_language = MBSTRG(current_language);
|
|
orig_str.val = Z_STRVAL_PP(argv[1]);
|
|
orig_str.len = Z_STRLEN_PP(argv[1]);
|
|
orig_str.no_encoding = mbfl_identify_encoding_no(&orig_str, MBSTRG(current_detect_order_list), MBSTRG(current_detect_order_list_size) TSRMLS_CC);
|
|
if(orig_str.no_encoding == mbfl_no_encoding_invalid) {
|
|
orig_str.no_encoding = MBSTRG(current_internal_encoding);
|
|
}
|
|
pstr = mbfl_mime_header_encode(&orig_str, &conv_str, tran_cs, head_enc, "\n", sizeof("Subject: [PHP-jp nnnnnnnn]") TSRMLS_CC);
|
|
if (pstr != NULL) {
|
|
subject_buf = subject = pstr->val;
|
|
} else {
|
|
subject = Z_STRVAL_PP(argv[1]);
|
|
}
|
|
} else {
|
|
php_error(E_WARNING, "%s() no subject field",
|
|
get_active_function_name(TSRMLS_C));
|
|
err = 1;
|
|
}
|
|
|
|
/* message body */
|
|
convert_to_string_ex(argv[2]);
|
|
if (Z_STRVAL_PP(argv[2])) {
|
|
orig_str.no_language = MBSTRG(current_language);
|
|
orig_str.val = Z_STRVAL_PP(argv[2]);
|
|
orig_str.len = Z_STRLEN_PP(argv[2]);
|
|
orig_str.no_encoding = mbfl_identify_encoding_no(&orig_str, MBSTRG(current_detect_order_list), MBSTRG(current_detect_order_list_size) TSRMLS_CC);
|
|
if(orig_str.no_encoding == mbfl_no_encoding_invalid) {
|
|
orig_str.no_encoding = MBSTRG(current_internal_encoding);
|
|
}
|
|
pstr = mbfl_convert_encoding(&orig_str, &conv_str, tran_cs TSRMLS_CC);
|
|
if (pstr != NULL) {
|
|
message_buf = message = pstr->val;
|
|
} else {
|
|
message = Z_STRVAL_PP(argv[2]);
|
|
}
|
|
} else {
|
|
/* this is not really an error, so it is allowed. */
|
|
php_error(E_WARNING, "%s() no message string",
|
|
get_active_function_name(TSRMLS_C));
|
|
message = NULL;
|
|
}
|
|
|
|
/* other headers */
|
|
#define PHP_MBSTR_MAIL_MIME_HEADER1 "Mime-Version: 1.0\nContent-Type: text/plain"
|
|
#define PHP_MBSTR_MAIL_MIME_HEADER2 "; charset="
|
|
#define PHP_MBSTR_MAIL_MIME_HEADER3 "\nContent-Transfer-Encoding: "
|
|
if (argc >= 4) {
|
|
convert_to_string_ex(argv[3]);
|
|
p = Z_STRVAL_PP(argv[3]);
|
|
n = Z_STRLEN_PP(argv[3]);
|
|
mbfl_memory_device_strncat(&device, p, n TSRMLS_CC);
|
|
if (p[n - 1] != '\n') {
|
|
mbfl_memory_device_strncat(&device, "\n", 1 TSRMLS_CC);
|
|
}
|
|
}
|
|
mbfl_memory_device_strncat(&device, PHP_MBSTR_MAIL_MIME_HEADER1, sizeof(PHP_MBSTR_MAIL_MIME_HEADER1) - 1 TSRMLS_CC);
|
|
p = (char *)mbfl_no2preferred_mime_name(tran_cs);
|
|
if (p != NULL) {
|
|
mbfl_memory_device_strncat(&device, PHP_MBSTR_MAIL_MIME_HEADER2, sizeof(PHP_MBSTR_MAIL_MIME_HEADER2) - 1 TSRMLS_CC);
|
|
mbfl_memory_device_strcat(&device, p TSRMLS_CC);
|
|
}
|
|
mbfl_memory_device_strncat(&device, PHP_MBSTR_MAIL_MIME_HEADER3, sizeof(PHP_MBSTR_MAIL_MIME_HEADER3) - 1 TSRMLS_CC);
|
|
p = (char *)mbfl_no2preferred_mime_name(body_enc);
|
|
if (p == NULL) {
|
|
p = "7bit";
|
|
}
|
|
mbfl_memory_device_strcat(&device, p TSRMLS_CC);
|
|
mbfl_memory_device_output('\0', &device TSRMLS_CC);
|
|
headers = device.buffer;
|
|
|
|
if (argc == 5) { /* extra options that get passed to the mailer */
|
|
convert_to_string_ex(argv[4]);
|
|
extra_cmd = Z_STRVAL_PP(argv[4]);
|
|
}
|
|
|
|
if (!err && php_mail(to, subject, message, headers, extra_cmd TSRMLS_CC)) {
|
|
RETVAL_TRUE;
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
|
|
if (subject_buf) {
|
|
efree((void *)subject_buf);
|
|
}
|
|
if (message_buf) {
|
|
efree((void *)message_buf);
|
|
}
|
|
mbfl_memory_device_clear(&device TSRMLS_CC);
|
|
}
|
|
/* }}} */
|
|
|
|
#else /* HAVE_SENDMAIL */
|
|
|
|
PHP_FUNCTION(mb_send_mail)
|
|
{
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
#endif /* HAVE_SENDMAIL */
|
|
|
|
/* {{{ proto string mb_get_info([string type])
|
|
Returns the current settings of mbstring */
|
|
PHP_FUNCTION(mb_get_info)
|
|
{
|
|
zval **type;
|
|
char *name;
|
|
int argc = ZEND_NUM_ARGS();
|
|
|
|
if (argc < 0 || argc > 1 || zend_get_parameters_ex(1, &type) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
convert_to_string_ex(type);
|
|
|
|
if (argc == 0 || !strcasecmp("all", Z_STRVAL_PP(type))) {
|
|
if (array_init(return_value) == FAILURE) {
|
|
RETURN_FALSE;
|
|
}
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(current_internal_encoding)))
|
|
!= NULL) {
|
|
add_assoc_string(return_value, "internal_encoding", name, 1);
|
|
}
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(http_input_identify)))
|
|
!= NULL) {
|
|
add_assoc_string(return_value, "http_input", name, 1);
|
|
}
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(current_http_output_encoding)))
|
|
!= NULL) {
|
|
add_assoc_string(return_value, "http_output", name, 1);
|
|
}
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(func_overload)))
|
|
!= NULL) {
|
|
add_assoc_string(return_value, "func_overload", name, 1);
|
|
}
|
|
} else if (!strcasecmp("internal_encoding", Z_STRVAL_PP(type))) {
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(current_internal_encoding)))
|
|
!= NULL) {
|
|
RETVAL_STRING(name, 1);
|
|
}
|
|
} else if (!strcasecmp("http_input", Z_STRVAL_PP(type))) {
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(http_input_identify)))
|
|
!= NULL) {
|
|
RETVAL_STRING(name, 1);
|
|
}
|
|
} else if (!strcasecmp("http_output", Z_STRVAL_PP(type))) {
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(current_http_output_encoding)))
|
|
!= NULL) {
|
|
RETVAL_STRING(name, 1);
|
|
}
|
|
} else if (!strcasecmp("func_overload", Z_STRVAL_PP(type))) {
|
|
if ((name = (char *)mbfl_no_encoding2name(MBSTRG(func_overload)))
|
|
!= NULL) {
|
|
RETVAL_STRING(name, 1);
|
|
}
|
|
} else {
|
|
RETURN_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
#ifdef ZEND_MULTIBYTE
|
|
PHPAPI int php_mbstring_set_zend_encoding(TSRMLS_D)
|
|
{
|
|
/* 'd better use mbfl_memory_device? */
|
|
char *name, *list = NULL;
|
|
int n, *entry, list_size = 0;
|
|
zend_encoding_detector encoding_detector;
|
|
zend_encoding_converter encoding_converter;
|
|
zend_multibyte_oddlen multibyte_oddlen;
|
|
|
|
/* notify script encoding to Zend Engine */
|
|
entry = MBSTRG(script_encoding_list);
|
|
n = MBSTRG(script_encoding_list_size);
|
|
while (n > 0) {
|
|
name = (char *)mbfl_no_encoding2name(*entry);
|
|
if (name) {
|
|
list_size += strlen(name) + 1;
|
|
if (!list)
|
|
{
|
|
list = (char*)emalloc(list_size);
|
|
if (!list)
|
|
return -1;
|
|
*list = (char)NULL;
|
|
}
|
|
else
|
|
{
|
|
list = (char*)erealloc(list, list_size);
|
|
if (!list)
|
|
return -1;
|
|
strcat(list, ",");
|
|
}
|
|
strcat(list, name);
|
|
}
|
|
entry++;
|
|
n--;
|
|
}
|
|
zend_multibyte_set_script_encoding(list, (list ? strlen(list) : 0) TSRMLS_CC);
|
|
if (list)
|
|
efree(list);
|
|
|
|
encoding_detector = php_mbstring_encoding_detector;
|
|
encoding_converter = NULL;
|
|
multibyte_oddlen = php_mbstring_oddlen;
|
|
|
|
#if defined(MBSTR_ENC_TRANS)
|
|
/* notify internal encoding to Zend Engine */
|
|
name = (char*)mbfl_no_encoding2name(MBSTRG(current_internal_encoding));
|
|
zend_multibyte_set_internal_encoding(name, strlen(name) TSRMLS_CC);
|
|
|
|
encoding_converter = php_mbstring_encoding_converter;
|
|
#endif /* defined(MBSTR_ENC_TRANS) */
|
|
|
|
zend_multibyte_set_functions(encoding_detector, encoding_converter,
|
|
multibyte_oddlen TSRMLS_CC);
|
|
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
* mb_detect_encoding (interface for Zend Engine)
|
|
*/
|
|
char* php_mbstring_encoding_detector(char *arg_string, int arg_length, char *arg_list TSRMLS_DC)
|
|
{
|
|
mbfl_string string;
|
|
const char *ret;
|
|
enum mbfl_no_encoding *elist;
|
|
int size, *list;
|
|
|
|
/* make encoding list */
|
|
list = NULL;
|
|
size = 0;
|
|
php_mbstring_parse_encoding_list(arg_list, strlen(arg_list), &list, &size, 0);
|
|
if (size <= 0)
|
|
return NULL;
|
|
|
|
if (size > 0 && list != NULL) {
|
|
elist = list;
|
|
} else {
|
|
elist = MBSTRG(current_detect_order_list);
|
|
size = MBSTRG(current_detect_order_list_size);
|
|
}
|
|
|
|
mbfl_string_init(&string);
|
|
string.no_language = MBSTRG(current_language);
|
|
string.val = arg_string;
|
|
string.len = arg_length;
|
|
ret = mbfl_identify_encoding_name(&string, elist, size);
|
|
if (list != NULL) {
|
|
efree((void *)list);
|
|
}
|
|
if (ret != NULL) {
|
|
return estrdup(ret);
|
|
} else {
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* mb_convert_encoding (interface for Zend Engine)
|
|
*/
|
|
int php_mbstring_encoding_converter(char **to, int *to_length, char *from,
|
|
int from_length, const char *encoding_to, const char *encoding_from
|
|
TSRMLS_DC)
|
|
{
|
|
mbfl_string string, result, *ret;
|
|
enum mbfl_no_encoding from_encoding, to_encoding;
|
|
mbfl_buffer_converter *convd;
|
|
|
|
/* new encoding */
|
|
to_encoding = mbfl_name2no_encoding(encoding_to);
|
|
if (to_encoding == mbfl_no_encoding_invalid)
|
|
return -1;
|
|
|
|
/* old encoding */
|
|
from_encoding = mbfl_name2no_encoding(encoding_from);
|
|
if (from_encoding == mbfl_no_encoding_invalid)
|
|
return -1;
|
|
|
|
/* initialize string */
|
|
mbfl_string_init(&string);
|
|
mbfl_string_init(&result);
|
|
string.no_encoding = from_encoding;
|
|
string.no_language = MBSTRG(current_language);
|
|
string.val = from;
|
|
string.len = from_length;
|
|
|
|
/* initialize converter */
|
|
convd = mbfl_buffer_converter_new(from_encoding, to_encoding, string.len);
|
|
if (convd == NULL)
|
|
return -1;
|
|
mbfl_buffer_converter_illegal_mode(convd, MBSTRG(current_filter_illegal_mode));
|
|
mbfl_buffer_converter_illegal_substchar(convd, MBSTRG(current_filter_illegal_substchar));
|
|
|
|
/* do it */
|
|
ret = mbfl_buffer_converter_feed_result(convd, &string, &result);
|
|
if (ret != NULL) {
|
|
*to = ret->val;
|
|
*to_length = ret->len;
|
|
}
|
|
mbfl_buffer_converter_delete(convd);
|
|
|
|
return ret ? 0 : -1;
|
|
}
|
|
|
|
|
|
/*
|
|
* returns number of odd (e.g. appears only first byte of multibyte
|
|
* character) chars
|
|
*/
|
|
int php_mbstring_oddlen(char *string, int length, const char *encoding TSRMLS_DC)
|
|
{
|
|
mbfl_string mb_string;
|
|
|
|
mbfl_string_init(&mb_string);
|
|
mb_string.no_language = MBSTRG(current_language);
|
|
mb_string.no_encoding = mbfl_name2no_encoding(encoding);
|
|
mb_string.val = string;
|
|
mb_string.len = length;
|
|
|
|
if(mb_string.no_encoding == mbfl_no_encoding_invalid)
|
|
return 0;
|
|
|
|
return mbfl_oddlen(&mb_string);
|
|
}
|
|
|
|
#endif /* ZEND_MULTIBYTE */
|
|
|
|
#endif /* HAVE_MBSTRING */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
*/
|