/* +----------------------------------------------------------------------+ | 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 | | Tal Peer +----------------------------------------------------------------------+ */ /* $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 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 */