PHP_METHOD(Test_Vars, testVarExport) {
zval __$false, a, ar, ret, _0, _1, _2;
zval this_zv;
zval *this_ptr = getThis();
if (EXPECTED(this_ptr)) {
ZVAL_OBJ(&this_zv, Z_OBJ_P(this_ptr));
this_ptr = &this_zv;
} else this_ptr = NULL;
ZVAL_BOOL(&__$false, 0);
ZVAL_UNDEF(&a);
ZVAL_UNDEF(&ar);
ZVAL_UNDEF(&ret);
ZVAL_UNDEF(&_0);
ZVAL_UNDEF(&_1);
ZVAL_UNDEF(&_2);
ZEPHIR_MM_GROW();
ZEPHIR_INIT_VAR(&a);
ZVAL_STRING(&a, "hello");
ZEPHIR_INIT_VAR(&ar);
zephir_create_array(&ar, 3, 0 TSRMLS_CC);
ZEPHIR_INIT_VAR(&_0);
ZVAL_LONG(&_0, 1);
zephir_array_fast_append(&ar, &_0);
ZEPHIR_INIT_NVAR(&_0);
ZVAL_STRING(&_0, "world");
zephir_array_fast_append(&ar, &_0);
zephir_array_fast_append(&ar, &__$false);
ZEPHIR_INIT_VAR(&_1);
ZEPHIR_CPY_WRT(&_1, &ar);
zephir_var_export(&_1 TSRMLS_CC);
ZEPHIR_INIT_VAR(&ret);
zephir_var_export_ex(&ret, &ar TSRMLS_CC);
ZEPHIR_INIT_VAR(&_2);
ZEPHIR_CPY_WRT(&_2, &a);
zephir_var_export(&_2 TSRMLS_CC);
ZEPHIR_INIT_NVAR(&ret);
zephir_var_export_ex(&ret, &a TSRMLS_CC);
RETURN_CCTOR(ret);
}
/**
* Writes parsed annotations to files
*/
PHP_METHOD(Phalcon_Annotations_Adapter_Files, write) {
zval *key_param = NULL, *data, *path = NULL, *_0, *_1, _2, *_3, *_4 = NULL, *_5;
zval *key = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 2, 0, &key_param, &data);
if (unlikely(Z_TYPE_P(key_param) != IS_STRING && Z_TYPE_P(key_param) != IS_NULL)) {
zephir_throw_exception_string(spl_ce_InvalidArgumentException, SL("Parameter 'key' must be a string") TSRMLS_CC);
RETURN_MM_NULL();
}
if (likely(Z_TYPE_P(key_param) == IS_STRING)) {
zephir_get_strval(key, key_param);
} else {
ZEPHIR_INIT_VAR(key);
ZVAL_EMPTY_STRING(key);
}
_0 = zephir_fetch_nproperty_this(this_ptr, SL("_annotationsDir"), PH_NOISY_CC);
ZEPHIR_INIT_VAR(_1);
ZEPHIR_SINIT_VAR(_2);
ZVAL_STRING(&_2, "_", 0);
zephir_prepare_virtual_path(_1, key, &_2 TSRMLS_CC);
ZEPHIR_INIT_VAR(path);
ZEPHIR_CONCAT_VVS(path, _0, _1, ".php");
ZEPHIR_INIT_VAR(_3);
ZEPHIR_INIT_VAR(_4);
ZEPHIR_INIT_NVAR(_4);
zephir_var_export_ex(_4, &data TSRMLS_CC);
ZEPHIR_INIT_VAR(_5);
ZEPHIR_CONCAT_SVS(_5, "<?php return ", _4, "; ");
zephir_file_put_contents(_3, path, _5 TSRMLS_CC);
if (ZEPHIR_IS_FALSE_IDENTICAL(_3)) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_annotations_exception_ce, "Annotations directory cannot be written", "phalcon/annotations/adapter/files.zep", 91);
return;
}
ZEPHIR_MM_RESTORE();
}
PHP_METHOD(PhalconPlus_RPC_Client_Adapter_Local, callByParams) {
zephir_nts_static zephir_fcall_cache_entry *_7 = NULL;
zval *_5, *_11, *_12;
int ZEPHIR_LAST_CALL_STATUS;
zend_class_entry *_3;
zval *service_param = NULL, *method_param = NULL, *request, *serviceClass, *serviceObj, *response, *_0 = NULL, *_1, *_2 = NULL, *_4, *_6, *_9, *_10;
zval *service = NULL, *method = NULL, *_8;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 3, 0, &service_param, &method_param, &request);
if (unlikely(Z_TYPE_P(service_param) != IS_STRING && Z_TYPE_P(service_param) != IS_NULL)) {
zephir_throw_exception_string(spl_ce_InvalidArgumentException, SL("Parameter 'service' must be a string") TSRMLS_CC);
RETURN_MM_NULL();
}
if (likely(Z_TYPE_P(service_param) == IS_STRING)) {
zephir_get_strval(service, service_param);
} else {
ZEPHIR_INIT_VAR(service);
ZVAL_EMPTY_STRING(service);
}
if (unlikely(Z_TYPE_P(method_param) != IS_STRING && Z_TYPE_P(method_param) != IS_NULL)) {
zephir_throw_exception_string(spl_ce_InvalidArgumentException, SL("Parameter 'method' must be a string") TSRMLS_CC);
RETURN_MM_NULL();
}
if (likely(Z_TYPE_P(method_param) == IS_STRING)) {
zephir_get_strval(method, method_param);
} else {
ZEPHIR_INIT_VAR(method);
ZVAL_EMPTY_STRING(method);
}
ZEPHIR_INIT_VAR(_1);
zephir_ucfirst(_1, service);
ZEPHIR_INIT_VAR(serviceClass);
ZEPHIR_CONCAT_VS(serviceClass, _1, "Service");
ZEPHIR_INIT_VAR(serviceObj);
zephir_fetch_safe_class(_2, serviceClass);
_3 = zend_fetch_class(Z_STRVAL_P(_2), Z_STRLEN_P(_2), ZEND_FETCH_CLASS_AUTO TSRMLS_CC);
object_init_ex(serviceObj, _3);
if (zephir_has_constructor(serviceObj TSRMLS_CC)) {
_4 = zephir_fetch_nproperty_this(this_ptr, SL("di"), PH_NOISY_CC);
ZEPHIR_CALL_METHOD(NULL, serviceObj, "__construct", NULL, _4);
zephir_check_call_status();
}
ZEPHIR_INIT_VAR(_5);
zephir_create_array(_5, 2, 0 TSRMLS_CC);
zephir_array_fast_append(_5, serviceObj);
zephir_array_fast_append(_5, method);
if (zephir_is_callable(_5 TSRMLS_CC)) {
ZEPHIR_INIT_VAR(_6);
ZEPHIR_CONCAT_SV(_6, "ServerClass: ", serviceClass);
ZEPHIR_CALL_FUNCTION(NULL, "error_log", &_7, _6);
zephir_check_call_status();
ZEPHIR_INIT_VAR(_8);
ZEPHIR_CONCAT_SV(_8, "InvokeMethod: ", method);
ZEPHIR_CALL_FUNCTION(NULL, "error_log", &_7, _8);
zephir_check_call_status();
ZEPHIR_INIT_VAR(_9);
zephir_var_export_ex(_9, &(request) TSRMLS_CC);
ZEPHIR_INIT_VAR(_10);
ZEPHIR_CONCAT_SV(_10, "InputParma: ", _9);
ZEPHIR_CALL_FUNCTION(NULL, "error_log", &_7, _10);
zephir_check_call_status();
ZEPHIR_INIT_VAR(response);
ZEPHIR_INIT_VAR(_11);
zephir_create_array(_11, 2, 0 TSRMLS_CC);
zephir_array_fast_append(_11, serviceObj);
zephir_array_fast_append(_11, method);
ZEPHIR_INIT_VAR(_12);
zephir_create_array(_12, 1, 0 TSRMLS_CC);
zephir_array_fast_append(_12, request);
ZEPHIR_CALL_USER_FUNC_ARRAY(response, _11, _12);
zephir_check_call_status();
RETURN_CCTOR(response);
} else {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(zend_exception_get_default(TSRMLS_C), "No service is found", "phalconplus/RPC/Client/Adapter/Local.zep", 29);
return;
}
}
PHP_METHOD(PhalconPlus_RPC_Client_Adapter_Local, callByObject) {
zend_bool _6;
int ZEPHIR_LAST_CALL_STATUS;
zephir_nts_static zephir_fcall_cache_entry *_2 = NULL, *_5 = NULL, *_8 = NULL;
zval *rawData_param = NULL, *service = NULL, *method = NULL, *request, *_0, *_1, *_3 = NULL, *_4 = NULL, _7;
zval *rawData = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 1, 0, &rawData_param);
zephir_get_arrval(rawData, rawData_param);
ZEPHIR_INIT_VAR(_0);
zephir_var_export_ex(_0, &(rawData) TSRMLS_CC);
ZEPHIR_INIT_VAR(_1);
ZEPHIR_CONCAT_SV(_1, "Local callByObject: ", _0);
ZEPHIR_CALL_FUNCTION(NULL, "error_log", &_2, _1);
zephir_check_call_status();
ZEPHIR_OBS_VAR(service);
if (!(zephir_array_isset_string_fetch(&service, rawData, SS("service"), 0 TSRMLS_CC))) {
ZEPHIR_INIT_VAR(_3);
object_init_ex(_3, zend_exception_get_default(TSRMLS_C));
ZEPHIR_INIT_VAR(_4);
ZEPHIR_CONCAT_SVS(_4, "service ", service, " not exists");
ZEPHIR_CALL_METHOD(NULL, _3, "__construct", &_5, _4);
zephir_check_call_status();
zephir_throw_exception_debug(_3, "phalconplus/RPC/Client/Adapter/Local.zep", 40 TSRMLS_CC);
ZEPHIR_MM_RESTORE();
return;
}
ZEPHIR_OBS_VAR(method);
if (!(zephir_array_isset_string_fetch(&method, rawData, SS("method"), 0 TSRMLS_CC))) {
ZEPHIR_INIT_NVAR(_3);
object_init_ex(_3, zend_exception_get_default(TSRMLS_C));
ZEPHIR_INIT_LNVAR(_4);
ZEPHIR_CONCAT_SVS(_4, "method ", method, " not exists");
ZEPHIR_CALL_METHOD(NULL, _3, "__construct", &_5, _4);
zephir_check_call_status();
zephir_throw_exception_debug(_3, "phalconplus/RPC/Client/Adapter/Local.zep", 44 TSRMLS_CC);
ZEPHIR_MM_RESTORE();
return;
}
ZEPHIR_OBS_VAR(request);
if (!(zephir_array_isset_string_fetch(&request, rawData, SS("args"), 0 TSRMLS_CC))) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(zend_exception_get_default(TSRMLS_C), "args not exists", "phalconplus/RPC/Client/Adapter/Local.zep", 48);
return;
}
ZEPHIR_INIT_NVAR(_3);
zephir_fast_trim(_3, service, NULL , ZEPHIR_TRIM_BOTH TSRMLS_CC);
ZEPHIR_CPY_WRT(service, _3);
ZEPHIR_INIT_NVAR(_3);
zephir_fast_trim(_3, method, NULL , ZEPHIR_TRIM_BOTH TSRMLS_CC);
ZEPHIR_CPY_WRT(method, _3);
_6 = ZEPHIR_IS_EMPTY(service);
if (!(_6)) {
_6 = ZEPHIR_IS_EMPTY(method);
}
if (_6) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(zend_exception_get_default(TSRMLS_C), "service:method(args) must exists. All of them!!!", "phalconplus/RPC/Client/Adapter/Local.zep", 55);
return;
}
ZEPHIR_SINIT_VAR(_7);
ZVAL_STRING(&_7, "Invoke callByParams", 0);
ZEPHIR_CALL_FUNCTION(NULL, "error_log", &_2, &_7);
zephir_check_call_status();
ZEPHIR_RETURN_CALL_METHOD(this_ptr, "callbyparams", &_8, service, method, request);
zephir_check_call_status();
RETURN_MM();
}
