mirror of
https://github.com/php/php-src.git
synced 2024-10-14 04:52:33 +00:00
af3493d30c
itself (as the key).
321 lines
11 KiB
C
Executable File
321 lines
11 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>
|
|
|
|
/* The fribidi guys dont believe in BC */
|
|
#ifdef FRIBIDI_CHAR_SET_UTF8
|
|
#define FRIBIDI_CHARSET_UTF8 FRIBIDI_CHAR_SET_UTF8
|
|
#define FRIBIDI_CHARSET_ISO8859_6 FRIBIDI_CHAR_SET_ISO8859_6
|
|
#define FRIBIDI_CHARSET_ISO8859_8 FRIBIDI_CHAR_SET_ISO8859_8
|
|
#define FRIBIDI_CHARSET_CP1255 FRIBIDI_CHAR_SET_CP1255
|
|
#define FRIBIDI_CHARSET_CP1256 FRIBIDI_CHAR_SET_CP1256
|
|
#define FRIBIDI_CHARSET_ISIRI_3342 FRIBIDI_CHAR_SET_ISIRI_3342
|
|
#define FRIBIDI_CHARSET_CAP_RTL FRIBIDI_CHAR_SET_CAP_RTL
|
|
#endif
|
|
|
|
function_entry fribidi_functions[] = {
|
|
PHP_FE(fribidi_log2vis, NULL)
|
|
PHP_FE(fribidi_charset_info, NULL)
|
|
PHP_FE(fribidi_get_charsets, 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),
|
|
"0.1",
|
|
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);
|
|
REGISTER_LONG_CONSTANT("FRIBIDI_CHARSET_CAP_RTL", FRIBIDI_CHARSET_CAP_RTL, 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_row(2, "FriBidi support", "enabled");
|
|
php_info_print_table_row(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 Unicode |
|
|
| 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 |
|
|
| FRIBIDI_CHARSET_CAP_RTL |
|
|
| |
|
|
| Output: on success: The visual string. |
|
|
| on failure: FALSE |
|
|
+------------------------------------------------------------+
|
|
*/
|
|
|
|
/* {{{ proto string fribidi_log2vis(string logical_str, long direction, long charset)
|
|
Convert a logical string to a visual one */
|
|
PHP_FUNCTION(fribidi_log2vis)
|
|
{
|
|
zval **logical_str, **direction, **charset;
|
|
FriBidiChar *u_logical_str, *u_visual_str; /* unicode strings .... */
|
|
char *in_string, *out_string;
|
|
int len, alloc_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, &logical_str, &direction, &charset) == FAILURE) {
|
|
WRONG_PARAM_COUNT;
|
|
}
|
|
|
|
/* convert argument types */
|
|
convert_to_string_ex(logical_str);
|
|
convert_to_long_ex(charset);
|
|
|
|
if (Z_TYPE_PP(direction) == IS_LONG) {
|
|
convert_to_long_ex(direction);
|
|
base_dir = Z_LVAL_PP(direction);
|
|
} else if (Z_TYPE_PP(direction) == IS_STRING) {
|
|
convert_to_string_ex(direction);
|
|
if ((Z_STRVAL_PP(direction))[0] == 'R') {
|
|
base_dir = FRIBIDI_TYPE_RTL;
|
|
} else if (Z_STRVAL_PP(direction)[0] == 'L') {
|
|
base_dir = FRIBIDI_TYPE_LTR;
|
|
} else {
|
|
base_dir = FRIBIDI_TYPE_ON;
|
|
}
|
|
|
|
php_error_docref(NULL TSRMLS_CC, E_NOTICE, "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(logical_str);
|
|
in_string = estrndup(Z_STRVAL_PP(logical_str), 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(in_string[len-1] == '\n') {
|
|
in_string[len-1] = '\0';
|
|
}
|
|
|
|
switch(Z_LVAL_PP(charset)) {
|
|
case FRIBIDI_CHARSET_UTF8:
|
|
case FRIBIDI_CHARSET_ISO8859_6:
|
|
case FRIBIDI_CHARSET_ISO8859_8:
|
|
case FRIBIDI_CHARSET_CP1255:
|
|
case FRIBIDI_CHARSET_CP1256:
|
|
case FRIBIDI_CHARSET_ISIRI_3342:
|
|
case FRIBIDI_CHARSET_CAP_RTL:
|
|
len = fribidi_charset_to_unicode(Z_LVAL_PP(charset), in_string, 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(in_string);
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
/* visualize the logical.... */
|
|
|
|
out_string = (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(charset)) {
|
|
case FRIBIDI_CHARSET_UTF8:
|
|
case FRIBIDI_CHARSET_ISO8859_6:
|
|
case FRIBIDI_CHARSET_ISO8859_8:
|
|
case FRIBIDI_CHARSET_CP1255:
|
|
case FRIBIDI_CHARSET_CP1256:
|
|
case FRIBIDI_CHARSET_ISIRI_3342:
|
|
case FRIBIDI_CHARSET_CAP_RTL:
|
|
fribidi_unicode_to_charset(Z_LVAL_PP(charset), u_visual_str, len, out_string);
|
|
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(out_string);
|
|
efree(in_string);
|
|
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(in_string);
|
|
|
|
RETVAL_STRING(out_string, 1);
|
|
efree(out_string);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto array fribidi_charset_info(int charset)
|
|
Returns an array containing information about the specified charset */
|
|
PHP_FUNCTION(fribidi_charset_info)
|
|
{
|
|
long charset;
|
|
char *name, *title, *desc;
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &charset) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
switch (charset) {
|
|
case FRIBIDI_CHARSET_UTF8:
|
|
case FRIBIDI_CHARSET_ISO8859_6:
|
|
case FRIBIDI_CHARSET_ISO8859_8:
|
|
case FRIBIDI_CHARSET_CP1255:
|
|
case FRIBIDI_CHARSET_CP1256:
|
|
case FRIBIDI_CHARSET_ISIRI_3342:
|
|
case FRIBIDI_CHARSET_CAP_RTL:
|
|
array_init(return_value);
|
|
|
|
name = fribidi_char_set_name(charset);
|
|
title = fribidi_char_set_title(charset);
|
|
desc = fribidi_char_set_desc(charset);
|
|
|
|
if (name) {
|
|
add_assoc_string_ex(return_value, "name", sizeof("name"), name, 1);
|
|
}
|
|
if (title) {
|
|
add_assoc_string_ex(return_value, "title", sizeof("title"), title, 1);
|
|
}
|
|
if (desc) {
|
|
add_assoc_string_ex(return_value, "desc", sizeof("desc"), desc, 1);
|
|
}
|
|
|
|
break;
|
|
default:
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown charset.");
|
|
RETURN_FALSE;
|
|
}
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto array fribidi_get_charsets()
|
|
Returns an array containing available charsets */
|
|
PHP_FUNCTION(fribidi_get_charsets)
|
|
{
|
|
array_init(return_value);
|
|
|
|
add_index_string(return_value, FRIBIDI_CHARSET_UTF8, "FRIBIDI_CHARSET_UTF8", 1);
|
|
add_index_string(return_value, FRIBIDI_CHARSET_CAP_RTL, "FRIBIDI_CHARSET_CAP_RTL", 1);
|
|
add_index_string(return_value, FRIBIDI_CHARSET_ISO8859_6, "FRIBIDI_CHARSET_8859_6", 1);
|
|
add_index_string(return_value, FRIBIDI_CHARSET_ISO8859_8, "FRIBIDI_CHARSET_8859_8", 1);
|
|
add_index_string(return_value, FRIBIDI_CHARSET_CP1255, "FRIBIDI_CHARSET_CP1255", 1);
|
|
add_index_string(return_value, FRIBIDI_CHARSET_CP1256, "FRIBIDI_CHARSET_CP1256", 1);
|
|
add_index_string(return_value, FRIBIDI_CHARSET_ISIRI_3342, "FRIBIDI_CHARSET_ISIRI_3342", 1);
|
|
}
|
|
/* }}} */
|
|
|
|
#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
|
|
*/
|