mirror of
https://github.com/php/php-src.git
synced 2024-10-10 19:22:04 +00:00
265 lines
8.8 KiB
C
Executable File
265 lines
8.8 KiB
C
Executable File
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 4 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2002 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. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: Onn Ben-Zvi <onnb@mercury.co.il> |
|
|
| Tal Peer <tal@php.net>
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include "php.h"
|
|
#include "php_fribidi.h"
|
|
|
|
#if HAVE_FRIBIDI
|
|
|
|
#include "ext/standard/info.h"
|
|
#include <fribidi/fribidi.h>
|
|
|
|
function_entry fribidi_functions[] = {
|
|
PHP_FE(fribidi_log2vis, NULL)
|
|
{NULL, NULL, NULL}
|
|
};
|
|
|
|
zend_module_entry fribidi_module_entry = {
|
|
STANDARD_MODULE_HEADER,
|
|
"fribidi",
|
|
fribidi_functions,
|
|
PHP_MINIT(fribidi),
|
|
PHP_MSHUTDOWN(fribidi),
|
|
NULL,
|
|
NULL,
|
|
PHP_MINFO(fribidi),
|
|
NO_VERSION_YET,
|
|
STANDARD_MODULE_PROPERTIES
|
|
};
|
|
|
|
#ifdef COMPILE_DL_FRIBIDI
|
|
ZEND_GET_MODULE(fribidi)
|
|
#endif
|
|
|
|
/* {{{ PHP_MINIT_FUNCTION
|
|
*/
|
|
PHP_MINIT_FUNCTION(fribidi)
|
|
{
|
|
/* Charsets */
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_UTF8", FRIBIDI_CHARSET_UTF8, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_8859_6", FRIBIDI_CHARSET_ISO8859_6, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_8859_8", FRIBIDI_CHARSET_ISO8859_8, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_CP1255", FRIBIDI_CHARSET_CP1255, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_CP1256", FRIBIDI_CHARSET_CP1256, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_ISIRI_3342", FRIBIDI_CHARSET_ISIRI_3342, CONST_CS | CONST_PERSISTENT);
|
|
|
|
/* Directions */
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_AUTO", FRIBIDI_TYPE_ON, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_LTR", FRIBIDI_TYPE_LTR, CONST_CS | CONST_PERSISTENT);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_RTL", FRIBIDI_TYPE_RTL, CONST_CS | CONST_PERSISTENT);
|
|
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MSHUTDOWN_FUNCTION
|
|
*/
|
|
PHP_MSHUTDOWN_FUNCTION(fribidi)
|
|
{
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MINFO_FUNCTION
|
|
*/
|
|
PHP_MINFO_FUNCTION(fribidi)
|
|
{
|
|
php_info_print_table_start();
|
|
php_info_print_table_header(2, "FriBidi support", "enabled");
|
|
php_info_print_table_header(2, "FriBidi version", FRIBIDI_VERSION);
|
|
php_info_print_table_end();
|
|
}
|
|
/* }}} */
|
|
|
|
/*
|
|
+ -----------------------------------------------------------+
|
|
| Name: fribidi_log2vis |
|
|
| Purpose: convert a logical string to a visual one |
|
|
| Input: 1) The logical string. |
|
|
| 2) Base direction - |
|
|
| Possible values: |
|
|
| a) FRIBIDI_LTR - left to right. |
|
|
| b) FRIBIDI_RTL - right to left. |
|
|
| c) FRIBIDI_AUTO - autodetected by the BiDi |
|
|
| BiDi algorithm. |
|
|
| 3) Character code being used - |
|
|
| Possible values (i.e., charsets supported) |
|
|
| FRIBIDI_CHARSET_UTF8 |
|
|
| FRIBIDI_CHARSET_8859_6 |
|
|
| FRIBIDI_CHARSET_8859_8 |
|
|
| FRIBIDI_CHARSET_CP1255 |
|
|
| FRIBIDI_CHARSET_CP1256 |
|
|
| FRIBIDI_CHARSET_ISIRI_3342 |
|
|
| |
|
|
| Output: on success: The visual string. |
|
|
| on failure: FALSE |
|
|
+------------------------------------------------------------+
|
|
*/
|
|
|
|
/* {{{ proto string fribidi_log2vis(string str, long direction, int charset)
|
|
Convert a logical string to a visual one */
|
|
PHP_FUNCTION(fribidi_log2vis)
|
|
{
|
|
zval **parameter1, **parameter2, **parameter3;
|
|
FriBidiChar *u_logical_str, *u_visual_str; /* unicode strings .... */
|
|
char *inString, *outString;
|
|
int len, alloc_len, utf8_len;
|
|
FriBidiCharType base_dir;
|
|
FriBidiStrIndex *position_L_to_V_list;
|
|
FriBidiStrIndex *position_V_to_L_list;
|
|
FriBidiLevel *embedding_level_list;
|
|
|
|
/* get parameters from input */
|
|
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, ¶meter1, ¶meter2, ¶meter3) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
/* convert input to expected type.... */
|
|
convert_to_string_ex(parameter1);
|
|
convert_to_long_ex(parameter3);
|
|
|
|
if (Z_TYPE_PP(parameter2) == IS_LONG) {
|
|
convert_to_long_ex(parameter2);
|
|
base_dir = Z_LVAL_PP(parameter2);
|
|
} else if (Z_TYPE_PP(parameter2) == IS_STRING) {
|
|
convert_to_string_ex(parameter2);
|
|
if ((Z_STRVAL_PP(parameter2))[0] == 'R') {
|
|
base_dir = FRIBIDI_TYPE_RTL;
|
|
} else if (Z_STRVAL_PP(parameter2)[0] == 'L') {
|
|
base_dir = FRIBIDI_TYPE_LTR;
|
|
} else {
|
|
base_dir = FRIBIDI_TYPE_ON;
|
|
}
|
|
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "The use of strings to mark the base direction is deprecated, please use the FRIBIDI_LTR, FRIBIDI_RTL and FRIBIDI_AUTO constants");
|
|
}
|
|
|
|
/* allocate space and prepare all local variables */
|
|
len = Z_STRLEN_PP(parameter1);
|
|
inString = estrndup(Z_STRVAL_PP(parameter1), len);
|
|
alloc_len = len+1;
|
|
|
|
u_logical_str = (FriBidiChar*) emalloc(sizeof(FriBidiChar)*alloc_len);
|
|
u_visual_str = (FriBidiChar*) emalloc(sizeof(FriBidiChar)*alloc_len);
|
|
|
|
position_L_to_V_list = (FriBidiStrIndex *) emalloc(sizeof(FriBidiStrIndex)*alloc_len);
|
|
position_V_to_L_list = (FriBidiStrIndex *) emalloc(sizeof(FriBidiStrIndex)*alloc_len);
|
|
embedding_level_list = (FriBidiLevel *) emalloc(sizeof(FriBidiLevel)*alloc_len);
|
|
|
|
if(inString[len-1] == '\n') {
|
|
inString[len-1] = '\0';
|
|
}
|
|
|
|
switch(Z_LVAL_PP(parameter3)) {
|
|
case FRIBIDI_CHARSET_UTF8:
|
|
utf8_len=fribidi_utf8_to_unicode(inString, len, u_logical_str);
|
|
break;
|
|
case FRIBIDI_CHARSET_ISO8859_6:
|
|
fribidi_iso8859_6_to_unicode(inString, len, u_logical_str);
|
|
break;
|
|
case FRIBIDI_CHARSET_ISO8859_8:
|
|
fribidi_iso8859_8_to_unicode(inString, len, u_logical_str);
|
|
break;
|
|
case FRIBIDI_CHARSET_CP1255:
|
|
fribidi_cp1255_to_unicode(inString, len, u_logical_str);
|
|
break;
|
|
case FRIBIDI_CHARSET_CP1256:
|
|
fribidi_cp1256_to_unicode(inString, len, u_logical_str);
|
|
break;
|
|
case FRIBIDI_CHARSET_ISIRI_3342:
|
|
fribidi_isiri_3342_to_unicode(inString, len, u_logical_str);
|
|
break;
|
|
default:
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown charset");
|
|
efree(u_logical_str);
|
|
efree(u_visual_str);
|
|
efree(position_L_to_V_list);
|
|
efree(position_V_to_L_list);
|
|
efree(embedding_level_list);
|
|
efree(inString);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
/* visualize the logical.... */
|
|
|
|
outString = (char *) emalloc(sizeof(char)*alloc_len);
|
|
|
|
fribidi_log2vis(u_logical_str, len, &base_dir, u_visual_str, position_L_to_V_list, position_V_to_L_list, embedding_level_list);
|
|
|
|
/* convert back to original char set */
|
|
switch(Z_LVAL_PP(parameter3)) {
|
|
case FRIBIDI_CHARSET_UTF8:
|
|
fribidi_unicode_to_utf8(u_visual_str, utf8_len, outString);
|
|
break;
|
|
case FRIBIDI_CHARSET_ISO8859_6:
|
|
fribidi_unicode_to_iso8859_6(u_visual_str, len, outString);
|
|
break;
|
|
case FRIBIDI_CHARSET_ISO8859_8:
|
|
fribidi_unicode_to_iso8859_8(u_visual_str, len , outString);
|
|
break;
|
|
case FRIBIDI_CHARSET_CP1255:
|
|
fribidi_unicode_to_cp1255(u_visual_str, len , outString);
|
|
break;
|
|
case FRIBIDI_CHARSET_CP1256:
|
|
fribidi_unicode_to_cp1256(u_visual_str, len , outString);
|
|
break;
|
|
case FRIBIDI_CHARSET_ISIRI_3342:
|
|
fribidi_unicode_to_isiri_3342(u_visual_str, len , outString);
|
|
break;
|
|
default:
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown charset");
|
|
efree(u_logical_str);
|
|
efree(u_visual_str);
|
|
efree(position_L_to_V_list);
|
|
efree(position_V_to_L_list);
|
|
efree(embedding_level_list);
|
|
efree(outString);
|
|
efree(inString);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
efree(u_logical_str);
|
|
efree(u_visual_str);
|
|
efree(position_L_to_V_list);
|
|
efree(position_V_to_L_list);
|
|
efree(embedding_level_list);
|
|
efree(inString);
|
|
|
|
RETVAL_STRING(outString, 1);
|
|
efree(outString);
|
|
}
|
|
/* }}} */
|
|
|
|
#endif /* HAVE_FRIBIDI */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
* vim<600: sw=4 ts=4
|
|
*/
|