mirror of
https://github.com/php/php-src.git
synced 2024-10-04 08:16:11 +00:00
93 lines
3.2 KiB
C
93 lines
3.2 KiB
C
|
/*
|
||
|
+----------------------------------------------------------------------+
|
||
|
| PHP Version 6 |
|
||
|
+----------------------------------------------------------------------+
|
||
|
| This source file is subject to version 3.01 of the PHP license, |
|
||
|
| that is bundled with this package in the file LICENSE, and is |
|
||
|
| available through the world-wide-web at the following url: |
|
||
|
| http://www.php.net/license/3_01.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: Hans-Peter Oeri (University of St.Gallen) <hp@oeri.ch> |
|
||
|
+----------------------------------------------------------------------+
|
||
|
*/
|
||
|
|
||
|
#include <unicode/ures.h>
|
||
|
|
||
|
#include <zend.h>
|
||
|
#include <zend_API.h>
|
||
|
|
||
|
#include "intl_convert.h"
|
||
|
#include "intl_data.h"
|
||
|
#include "resourcebundle/resourcebundle_class.h"
|
||
|
|
||
|
/* {{{ ResourceBundle_extract_value */
|
||
|
void resourcebundle_extract_value( zval *return_value, ResourceBundle_object *source TSRMLS_DC ) {
|
||
|
UResType restype;
|
||
|
const UChar* ufield;
|
||
|
const uint8_t* bfield;
|
||
|
char * cfield;
|
||
|
const int32_t* vfield;
|
||
|
int32_t ilen;
|
||
|
int i;
|
||
|
long lfield;
|
||
|
ResourceBundle_object* newrb;
|
||
|
|
||
|
restype = ures_getType( source->child );
|
||
|
switch (restype)
|
||
|
{
|
||
|
case URES_STRING:
|
||
|
ufield = ures_getString( source->child, &ilen, &INTL_DATA_ERROR_CODE(source) );
|
||
|
INTL_METHOD_CHECK_STATUS(source, "Failed to retrieve string value");
|
||
|
ZVAL_UNICODEL(return_value, ufield, ilen, 1);
|
||
|
break;
|
||
|
|
||
|
case URES_BINARY:
|
||
|
bfield = ures_getBinary( source->child, &ilen, &INTL_DATA_ERROR_CODE(source) );
|
||
|
INTL_METHOD_CHECK_STATUS(source, "Failed to retrieve binary value");
|
||
|
ZVAL_STRINGL( return_value, (char *) bfield, ilen, 1 );
|
||
|
break;
|
||
|
|
||
|
case URES_INT:
|
||
|
lfield = ures_getInt( source->child, &INTL_DATA_ERROR_CODE(source) );
|
||
|
INTL_METHOD_CHECK_STATUS(source, "Failed to retrieve integer value");
|
||
|
ZVAL_LONG( return_value, lfield );
|
||
|
break;
|
||
|
|
||
|
case URES_INT_VECTOR:
|
||
|
vfield = ures_getIntVector( source->child, &ilen, &INTL_DATA_ERROR_CODE(source) );
|
||
|
INTL_METHOD_CHECK_STATUS(source, "Failed to retrieve vector value");
|
||
|
array_init( return_value );
|
||
|
for (i=0; i<ilen; i++) {
|
||
|
add_next_index_long( return_value, vfield[i] );
|
||
|
}
|
||
|
break;
|
||
|
|
||
|
case URES_ARRAY:
|
||
|
case URES_TABLE:
|
||
|
object_init_ex( return_value, ResourceBundle_ce_ptr );
|
||
|
newrb = (ResourceBundle_object *) zend_object_store_get_object( return_value TSRMLS_CC );
|
||
|
newrb->me = source->child;
|
||
|
source->child = NULL;
|
||
|
intl_errors_reset(INTL_DATA_ERROR_P(source) TSRMLS_CC);
|
||
|
break;
|
||
|
|
||
|
default:
|
||
|
intl_errors_set(INTL_DATA_ERROR_P(source), U_ILLEGAL_ARGUMENT_ERROR, "Unknown resource type", 0 TSRMLS_CC);
|
||
|
RETURN_FALSE;
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
/* }}} */
|
||
|
|
||
|
/*
|
||
|
* Local variables:
|
||
|
* tab-width: 4
|
||
|
* c-basic-offset: 4
|
||
|
* End:
|
||
|
* vim600: noet sw=4 ts=4 fdm=marker
|
||
|
* vim<600: noet sw=4 ts=4
|
||
|
*/
|