1 /*
2 +----------------------------------------------------------------------+
3 | PHP Version 5 |
4 +----------------------------------------------------------------------+
5 | This source file is subject to version 3.01 of the PHP license, |
6 | that is bundled with this package in the file LICENSE, and is |
7 | available through the world-wide-web at the following url: |
8 | http://www.php.net/license/3_01.txt |
9 | If you did not receive a copy of the PHP license and are unable to |
10 | obtain it through the world-wide-web, please send a note to |
11 | license@php.net so we can mail you a copy immediately. |
12 +----------------------------------------------------------------------+
13 | Authors: Vadim Savchuk <vsavchuk@productengine.com> |
14 | Dmitry Lakhtyuk <dlakhtyuk@productengine.com> |
15 | Stanislav Malyshev <stas@zend.com> |
16 +----------------------------------------------------------------------+
17 */
18
19 #ifdef HAVE_CONFIG_H
20 #include "config.h"
21 #endif
22
23 #include <php.h>
24 #include <zend_exceptions.h>
25
26 #include "php_intl.h"
27 #include "intl_error.h"
28 #include "intl_convert.h"
29
ZEND_EXTERN_MODULE_GLOBALS(intl)30 ZEND_EXTERN_MODULE_GLOBALS( intl )
31
32 static zend_class_entry *IntlException_ce_ptr;
33
34 /* {{{ intl_error* intl_g_error_get()
35 * Return global error structure.
36 */
37 static intl_error* intl_g_error_get( TSRMLS_D )
38 {
39 return &INTL_G( g_error );
40 }
41 /* }}} */
42
43 /* {{{ void intl_free_custom_error_msg( intl_error* err )
44 * Free mem.
45 */
intl_free_custom_error_msg(intl_error * err TSRMLS_DC)46 static void intl_free_custom_error_msg( intl_error* err TSRMLS_DC )
47 {
48 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
49 return;
50
51 if(err->free_custom_error_message ) {
52 efree( err->custom_error_message );
53 }
54
55 err->custom_error_message = NULL;
56 err->free_custom_error_message = 0;
57 }
58 /* }}} */
59
60 /* {{{ intl_error* intl_error_create()
61 * Create and initialize internals of 'intl_error'.
62 */
intl_error_create(TSRMLS_D)63 intl_error* intl_error_create( TSRMLS_D )
64 {
65 intl_error* err = ecalloc( 1, sizeof( intl_error ) );
66
67 intl_error_init( err TSRMLS_CC );
68
69 return err;
70 }
71 /* }}} */
72
73 /* {{{ void intl_error_init( intl_error* coll_error )
74 * Initialize internals of 'intl_error'.
75 */
intl_error_init(intl_error * err TSRMLS_DC)76 void intl_error_init( intl_error* err TSRMLS_DC )
77 {
78 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
79 return;
80
81 err->code = U_ZERO_ERROR;
82 err->custom_error_message = NULL;
83 err->free_custom_error_message = 0;
84 }
85 /* }}} */
86
87 /* {{{ void intl_error_reset( intl_error* err )
88 * Set last error code to 0 and unset last error message
89 */
intl_error_reset(intl_error * err TSRMLS_DC)90 void intl_error_reset( intl_error* err TSRMLS_DC )
91 {
92 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
93 return;
94
95 err->code = U_ZERO_ERROR;
96
97 intl_free_custom_error_msg( err TSRMLS_CC );
98 }
99 /* }}} */
100
101 /* {{{ void intl_error_set_custom_msg( intl_error* err, char* msg, int copyMsg )
102 * Set last error message to msg copying it if needed.
103 */
intl_error_set_custom_msg(intl_error * err,char * msg,int copyMsg TSRMLS_DC)104 void intl_error_set_custom_msg( intl_error* err, char* msg, int copyMsg TSRMLS_DC )
105 {
106 if( !msg )
107 return;
108
109 if( !err ) {
110 if( INTL_G( error_level ) )
111 php_error_docref( NULL TSRMLS_CC, INTL_G( error_level ), "%s", msg );
112 if( INTL_G( use_exceptions ) )
113 zend_throw_exception_ex( IntlException_ce_ptr, 0 TSRMLS_CC, "%s", msg );
114 }
115 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
116 return;
117
118 /* Free previous message if any */
119 intl_free_custom_error_msg( err TSRMLS_CC );
120
121 /* Mark message copied if any */
122 err->free_custom_error_message = copyMsg;
123
124 /* Set user's error text message */
125 err->custom_error_message = copyMsg ? estrdup( msg ) : msg;
126 }
127 /* }}} */
128
129 /* {{{ const char* intl_error_get_message( intl_error* err )
130 * Create output message in format "<intl_error_text>: <extra_user_error_text>".
131 */
intl_error_get_message(intl_error * err TSRMLS_DC)132 char* intl_error_get_message( intl_error* err TSRMLS_DC )
133 {
134 const char* uErrorName = NULL;
135 char* errMessage = 0;
136
137 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
138 return estrdup( "" );
139
140 uErrorName = u_errorName( err->code );
141
142 /* Format output string */
143 if( err->custom_error_message )
144 {
145 spprintf( &errMessage, 0, "%s: %s", err->custom_error_message, uErrorName );
146 }
147 else
148 {
149 spprintf( &errMessage, 0, "%s", uErrorName );
150 }
151
152 return errMessage;
153 }
154 /* }}} */
155
156 /* {{{ void intl_error_set_code( intl_error* err, UErrorCode err_code )
157 * Set last error code.
158 */
intl_error_set_code(intl_error * err,UErrorCode err_code TSRMLS_DC)159 void intl_error_set_code( intl_error* err, UErrorCode err_code TSRMLS_DC )
160 {
161 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
162 return;
163
164 err->code = err_code;
165 }
166 /* }}} */
167
168 /* {{{ void intl_error_get_code( intl_error* err )
169 * Return last error code.
170 */
intl_error_get_code(intl_error * err TSRMLS_DC)171 UErrorCode intl_error_get_code( intl_error* err TSRMLS_DC )
172 {
173 if( !err && !( err = intl_g_error_get( TSRMLS_C ) ) )
174 return U_ZERO_ERROR;
175
176 return err->code;
177 }
178 /* }}} */
179
180 /* {{{ void intl_error_set( intl_error* err, UErrorCode code, char* msg, int copyMsg )
181 * Set error code and message.
182 */
intl_error_set(intl_error * err,UErrorCode code,char * msg,int copyMsg TSRMLS_DC)183 void intl_error_set( intl_error* err, UErrorCode code, char* msg, int copyMsg TSRMLS_DC )
184 {
185 intl_error_set_code( err, code TSRMLS_CC );
186 intl_error_set_custom_msg( err, msg, copyMsg TSRMLS_CC );
187 }
188 /* }}} */
189
190 /* {{{ void intl_errors_set( intl_error* err, UErrorCode code, char* msg, int copyMsg )
191 * Set error code and message.
192 */
intl_errors_set(intl_error * err,UErrorCode code,char * msg,int copyMsg TSRMLS_DC)193 void intl_errors_set( intl_error* err, UErrorCode code, char* msg, int copyMsg TSRMLS_DC )
194 {
195 intl_errors_set_code( err, code TSRMLS_CC );
196 intl_errors_set_custom_msg( err, msg, copyMsg TSRMLS_CC );
197 }
198 /* }}} */
199
200 /* {{{ void intl_errors_reset( intl_error* err )
201 */
intl_errors_reset(intl_error * err TSRMLS_DC)202 void intl_errors_reset( intl_error* err TSRMLS_DC )
203 {
204 if(err) {
205 intl_error_reset( err TSRMLS_CC );
206 }
207 intl_error_reset( NULL TSRMLS_CC );
208 }
209 /* }}} */
210
211 /* {{{ void intl_errors_set_custom_msg( intl_error* err, char* msg, int copyMsg )
212 */
intl_errors_set_custom_msg(intl_error * err,char * msg,int copyMsg TSRMLS_DC)213 void intl_errors_set_custom_msg( intl_error* err, char* msg, int copyMsg TSRMLS_DC )
214 {
215 if(err) {
216 intl_error_set_custom_msg( err, msg, copyMsg TSRMLS_CC );
217 }
218 intl_error_set_custom_msg( NULL, msg, copyMsg TSRMLS_CC );
219 }
220 /* }}} */
221
222 /* {{{ intl_errors_set_code( intl_error* err, UErrorCode err_code )
223 */
intl_errors_set_code(intl_error * err,UErrorCode err_code TSRMLS_DC)224 void intl_errors_set_code( intl_error* err, UErrorCode err_code TSRMLS_DC )
225 {
226 if(err) {
227 intl_error_set_code( err, err_code TSRMLS_CC );
228 }
229 intl_error_set_code( NULL, err_code TSRMLS_CC );
230 }
231 /* }}} */
232
intl_register_IntlException_class(TSRMLS_D)233 void intl_register_IntlException_class( TSRMLS_D )
234 {
235 zend_class_entry ce,
236 *default_exception_ce;
237
238 default_exception_ce = zend_exception_get_default( TSRMLS_C );
239
240 /* Create and register 'IntlException' class. */
241 INIT_CLASS_ENTRY_EX( ce, "IntlException", sizeof( "IntlException" ) - 1, NULL );
242 IntlException_ce_ptr = zend_register_internal_class_ex( &ce,
243 default_exception_ce, NULL TSRMLS_CC );
244 IntlException_ce_ptr->create_object = default_exception_ce->create_object;
245 }
246
intl_parse_error_to_string(UParseError * pe)247 smart_str intl_parse_error_to_string( UParseError* pe )
248 {
249 smart_str ret = {0};
250 char *buf;
251 int u8len;
252 UErrorCode status;
253 int any = 0;
254
255 assert( pe != NULL );
256
257 smart_str_appends( &ret, "parse error " );
258 if( pe->line > 0 )
259 {
260 smart_str_appends( &ret, "on line " );
261 smart_str_append_long( &ret, (long ) pe->line );
262 any = 1;
263 }
264 if( pe->offset >= 0 ) {
265 if( any )
266 smart_str_appends( &ret, ", " );
267 else
268 smart_str_appends( &ret, "at " );
269
270 smart_str_appends( &ret, "offset " );
271 smart_str_append_long( &ret, (long ) pe->offset );
272 any = 1;
273 }
274
275 if (pe->preContext[0] != 0 ) {
276 if( any )
277 smart_str_appends( &ret, ", " );
278
279 smart_str_appends( &ret, "after \"" );
280 intl_convert_utf16_to_utf8( &buf, &u8len, pe->preContext, -1, &status );
281 if( U_FAILURE( status ) )
282 {
283 smart_str_appends( &ret, "(could not convert parser error pre-context to UTF-8)" );
284 }
285 else {
286 smart_str_appendl( &ret, buf, u8len );
287 efree( buf );
288 }
289 smart_str_appends( &ret, "\"" );
290 any = 1;
291 }
292
293 if( pe->postContext[0] != 0 )
294 {
295 if( any )
296 smart_str_appends( &ret, ", " );
297
298 smart_str_appends( &ret, "before or at \"" );
299 intl_convert_utf16_to_utf8( &buf, &u8len, pe->postContext, -1, &status );
300 if( U_FAILURE( status ) )
301 {
302 smart_str_appends( &ret, "(could not convert parser error post-context to UTF-8)" );
303 }
304 else
305 {
306 smart_str_appendl( &ret, buf, u8len );
307 efree( buf );
308 }
309 smart_str_appends( &ret, "\"" );
310 any = 1;
311 }
312
313 if( !any )
314 {
315 smart_str_free( &ret );
316 smart_str_appends( &ret, "no parse error" );
317 }
318
319 smart_str_0( &ret );
320 return ret;
321 }
322
323 /*
324 * Local variables:
325 * tab-width: 4
326 * c-basic-offset: 4
327 * End:
328 * vim600: noet sw=4 ts=4 fdm=marker
329 * vim<600: noet sw=4 ts=4
330 */
331
