/**
* Adds a number to a string or increment that number if it already is defined
*
* <code>
* echo Phalcon\Text::increment("a"); // "a_1"
* echo Phalcon\Text::increment("a_1"); // "a_2"
* </code>
*/
PHP_METHOD(Phalcon_Text, increment) {
zval *str_param = NULL, *separator_param = NULL, *parts = NULL, *number = NULL, *_0;
zval *str = NULL, *separator = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 1, 1, &str_param, &separator_param);
zephir_get_strval(str, str_param);
if (!separator_param) {
ZEPHIR_INIT_VAR(separator);
ZVAL_STRING(separator, "_", 1);
} else {
zephir_get_strval(separator, separator_param);
}
ZEPHIR_INIT_VAR(parts);
zephir_fast_explode(parts, separator, str, LONG_MAX TSRMLS_CC);
ZEPHIR_OBS_VAR(number);
if (zephir_array_isset_long_fetch(&number, parts, 1, 0 TSRMLS_CC)) {
ZEPHIR_SEPARATE(number);
zephir_increment(number);
} else {
ZEPHIR_INIT_NVAR(number);
ZVAL_LONG(number, 1);
}
zephir_array_fetch_long(&_0, parts, 0, PH_NOISY | PH_READONLY, "phalcon/text.zep", 87 TSRMLS_CC);
ZEPHIR_CONCAT_VVV(return_value, _0, separator, number);
RETURN_MM();
}
/**
* Appends a NOT IN condition to the current conditions
*
*<code>
* $criteria->notInWhere('id', [1, 2, 3]);
*</code>
*/
PHP_METHOD(Phalcon_Mvc_Model_Criteria, notInWhere) {
HashTable *_1;
HashPosition _0;
int ZEPHIR_LAST_CALL_STATUS;
zval *values = NULL;
zval *expr_param = NULL, *values_param = NULL, *hiddenParam = NULL, *bindParams = NULL, *bindKeys = NULL, *value = NULL, *key = NULL, **_2, *_4, *_5, *_3$$3 = NULL;
zval *expr = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 2, 0, &expr_param, &values_param);
if (unlikely(Z_TYPE_P(expr_param) != IS_STRING && Z_TYPE_P(expr_param) != IS_NULL)) {
zephir_throw_exception_string(spl_ce_InvalidArgumentException, SL("Parameter 'expr' must be a string") TSRMLS_CC);
RETURN_MM_NULL();
}
if (likely(Z_TYPE_P(expr_param) == IS_STRING)) {
zephir_get_strval(expr, expr_param);
} else {
ZEPHIR_INIT_VAR(expr);
ZVAL_EMPTY_STRING(expr);
}
values = values_param;
ZEPHIR_OBS_VAR(hiddenParam);
zephir_read_property_this(&hiddenParam, this_ptr, SL("_hiddenParamNumber"), PH_NOISY_CC);
ZEPHIR_INIT_VAR(bindParams);
array_init(bindParams);
ZEPHIR_INIT_VAR(bindKeys);
array_init(bindKeys);
zephir_is_iterable(values, &_1, &_0, 0, 0, "phalcon/mvc/model/criteria.zep", 503);
for (
; zephir_hash_get_current_data_ex(_1, (void**) &_2, &_0) == SUCCESS
; zephir_hash_move_forward_ex(_1, &_0)
) {
ZEPHIR_GET_HVALUE(value, _2);
ZEPHIR_INIT_NVAR(key);
ZEPHIR_CONCAT_SV(key, "ACP", hiddenParam);
ZEPHIR_INIT_LNVAR(_3$$3);
ZEPHIR_CONCAT_SVS(_3$$3, ":", key, ":");
zephir_array_append(&bindKeys, _3$$3, PH_SEPARATE, "phalcon/mvc/model/criteria.zep", 493);
zephir_array_update_zval(&bindParams, key, &value, PH_COPY | PH_SEPARATE);
ZEPHIR_SEPARATE(hiddenParam);
zephir_increment(hiddenParam);
}
ZEPHIR_INIT_VAR(_4);
zephir_fast_join_str(_4, SL(", "), bindKeys TSRMLS_CC);
ZEPHIR_INIT_VAR(_5);
ZEPHIR_CONCAT_VSVS(_5, expr, " NOT IN (", _4, ")");
ZEPHIR_CALL_METHOD(NULL, this_ptr, "andwhere", NULL, 0, _5, bindParams);
zephir_check_call_status();
zephir_update_property_this(this_ptr, SL("_hiddenParamNumber"), hiddenParam TSRMLS_CC);
RETURN_THIS();
}
/**
* Increments an object property
*/
int zephir_property_incr_decr(zval *object, char *property_name, unsigned int property_length, unsigned int increment)
{
zval tmp;
zend_class_entry *ce;
int separated = 0;
ZVAL_UNDEF(&tmp);
if (Z_TYPE_P(object) != IS_OBJECT) {
php_error_docref(NULL, E_WARNING, "Attempt to assign property of non-object");
return FAILURE;
}
ce = Z_OBJCE_P(object);
if (ce->parent) {
ce = zephir_lookup_class_ce(ce, property_name, property_length);
}
zephir_read_property(&tmp, object, property_name, property_length, 0);
if (Z_TYPE(tmp) > IS_UNDEF) {
Z_TRY_DELREF(tmp);
/** Separation only when refcount > 1 */
if (Z_REFCOUNTED(tmp)) {
if (Z_REFCOUNT(tmp) > 1) {
if (!Z_ISREF(tmp)) {
zval new_zv;
ZVAL_DUP(&new_zv, &tmp);
ZVAL_COPY_VALUE(&tmp, &new_zv);
Z_TRY_DELREF(new_zv);
separated = 1;
}
}
} else {
zval new_zv;
ZVAL_DUP(&new_zv, &tmp);
ZVAL_COPY_VALUE(&tmp, &new_zv);
Z_TRY_DELREF(new_zv);
separated = 1;
}
if (increment) {
zephir_increment(&tmp);
} else {
zephir_decrement(&tmp);
}
if (separated) {
zephir_update_property_zval(object, property_name, property_length, &tmp);
}
}
return SUCCESS;
}
PHP_METHOD(Test_Assign, testPropertyIncr1) {
zval *_0;
ZEPHIR_INIT_ZVAL_NREF(_0);
ZVAL_LONG(_0, 1);
zephir_update_property_this(this_ptr, SL("testVar"), _0 TSRMLS_CC);
zephir_increment(_0);
RETURN_MEMBER(this_ptr, "testVar");
}
/**
* Appends a NOT BETWEEN condition to the current conditions
*
*<code>
* $criteria->notBetweenWhere('price', 100.25, 200.50);
*</code>
*/
PHP_METHOD(Phalcon_Mvc_Model_Criteria, notBetweenWhere) {
zval *_1;
int ZEPHIR_LAST_CALL_STATUS;
zval *expr_param = NULL, *minimum, *maximum, *hiddenParam = NULL, *nextHiddenParam = NULL, *minimumKey = NULL, *maximumKey = NULL, *_0;
zval *expr = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 3, 0, &expr_param, &minimum, &maximum);
if (unlikely(Z_TYPE_P(expr_param) != IS_STRING && Z_TYPE_P(expr_param) != IS_NULL)) {
zephir_throw_exception_string(spl_ce_InvalidArgumentException, SL("Parameter 'expr' must be a string") TSRMLS_CC);
RETURN_MM_NULL();
}
if (likely(Z_TYPE_P(expr_param) == IS_STRING)) {
zephir_get_strval(expr, expr_param);
} else {
ZEPHIR_INIT_VAR(expr);
ZVAL_EMPTY_STRING(expr);
}
ZEPHIR_OBS_VAR(hiddenParam);
zephir_read_property_this(&hiddenParam, this_ptr, SL("_hiddenParamNumber"), PH_NOISY_CC);
ZEPHIR_INIT_VAR(nextHiddenParam);
ZVAL_LONG(nextHiddenParam, (zephir_get_numberval(hiddenParam) + 1));
ZEPHIR_INIT_VAR(minimumKey);
ZEPHIR_CONCAT_SV(minimumKey, "ACP", hiddenParam);
ZEPHIR_INIT_VAR(maximumKey);
ZEPHIR_CONCAT_SV(maximumKey, "ACP", nextHiddenParam);
ZEPHIR_INIT_VAR(_0);
ZEPHIR_CONCAT_VSVSVS(_0, expr, " NOT BETWEEN :", minimumKey, ": AND :", maximumKey, ":");
ZEPHIR_INIT_VAR(_1);
zephir_create_array(_1, 2, 0 TSRMLS_CC);
zephir_array_update_zval(&_1, minimumKey, &minimum, PH_COPY);
zephir_array_update_zval(&_1, maximumKey, &maximum, PH_COPY);
ZEPHIR_CALL_METHOD(NULL, this_ptr, "andwhere", NULL, 0, _0, _1);
zephir_check_call_status();
ZEPHIR_SEPARATE(nextHiddenParam);
zephir_increment(nextHiddenParam);
zephir_update_property_this(this_ptr, SL("_hiddenParamNumber"), nextHiddenParam TSRMLS_CC);
RETURN_THIS();
}
PHP_METHOD(Test_Fasta, fastaRepeat) {
zval *_2 = NULL, *_5 = NULL;
int i, ZEPHIR_LAST_CALL_STATUS;
zval *seq = NULL;
zval *n, *seq_param = NULL, *len, *j = NULL, *k = NULL, *l, *block, *str, *lines = NULL, *_0, _1, *_3, _4, _6 = zval_used_for_init, _7 = zval_used_for_init, *_8 = NULL, *_9;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 2, 0, &n, &seq_param);
zephir_get_strval(seq, seq_param);
ZEPHIR_INIT_VAR(len);
ZVAL_LONG(len, zephir_fast_strlen_ev(seq));
ZEPHIR_INIT_VAR(_0);
ZEPHIR_SINIT_VAR(_1);
ZVAL_LONG(&_1, ((zephir_get_numberval(len) * 60) + 1));
zephir_create_array(_0, zephir_get_intval(&_1), 1 TSRMLS_CC);
zephir_get_arrval(_2, _0);
ZEPHIR_INIT_VAR(str);
zephir_fast_join(str, seq, _2 TSRMLS_CC);
ZEPHIR_INIT_VAR(_3);
ZEPHIR_SINIT_VAR(_4);
mul_function(&_4, len, len TSRMLS_CC);
zephir_create_array(_3, zephir_get_intval(&_4), 1 TSRMLS_CC);
zephir_get_arrval(_5, _3);
ZEPHIR_CPY_WRT(lines, _5);
ZEPHIR_INIT_VAR(j);
mul_function(j, len, len TSRMLS_CC);
i = zephir_get_numberval(j);
while (1) {
if (ZEPHIR_LE_LONG(j, -1)) {
break;
}
ZEPHIR_SEPARATE(j);
zephir_decrement(j);
ZEPHIR_SINIT_NVAR(_6);
ZVAL_LONG(&_6, (60 * zephir_get_numberval(j)));
ZEPHIR_SINIT_NVAR(_7);
ZVAL_LONG(&_7, 60);
ZEPHIR_INIT_NVAR(_8);
zephir_substr(_8, str, zephir_get_intval(&_6), 60 , 0);
zephir_array_update_zval(&lines, j, &_8, PH_COPY | PH_SEPARATE);
}
ZEPHIR_INIT_NVAR(j);
ZVAL_LONG(j, 0);
ZEPHIR_SINIT_NVAR(_6);
ZVAL_DOUBLE(&_6, zephir_safe_div_zval_long(n, 60 TSRMLS_CC));
ZEPHIR_INIT_VAR(l);
ZVAL_DOUBLE(l, zephir_floor(&_6 TSRMLS_CC));
ZEPHIR_SINIT_NVAR(_7);
ZVAL_DOUBLE(&_7, zephir_safe_div_zval_long(l, i TSRMLS_CC));
ZEPHIR_INIT_VAR(k);
ZVAL_DOUBLE(k, zephir_floor(&_7 TSRMLS_CC));
ZEPHIR_INIT_VAR(block);
zephir_fast_join_str(block, SL("\n"), lines TSRMLS_CC);
while (1) {
if (!(ZEPHIR_LT(j, k))) {
break;
}
zend_print_zval(block, 0);
ZEPHIR_SEPARATE(j);
zephir_increment(j);
}
ZEPHIR_INIT_NVAR(j);
ZVAL_LONG(j, 0);
ZEPHIR_INIT_NVAR(k);
ZVAL_DOUBLE(k, zephir_safe_mod_zval_long(l, i TSRMLS_CC));
while (1) {
if (!(ZEPHIR_LT(j, k))) {
break;
}
zephir_array_fetch(&_9, lines, j, PH_NOISY | PH_READONLY, "test/fasta.zep", 38 TSRMLS_CC);
zend_print_zval(_9, 0);
ZEPHIR_SEPARATE(j);
zephir_increment(j);
}
if (zephir_safe_mod_zval_long(n, 60 TSRMLS_CC) > 0) {
zephir_array_fetch(&_9, lines, k, PH_NOISY | PH_READONLY, "test/fasta.zep", 43 TSRMLS_CC);
ZEPHIR_SINIT_NVAR(_6);
ZVAL_LONG(&_6, 0);
ZEPHIR_SINIT_NVAR(_7);
ZVAL_DOUBLE(&_7, zephir_safe_mod_zval_long(n, 60 TSRMLS_CC));
ZEPHIR_INIT_NVAR(_8);
zephir_substr(_8, _9, 0 , zephir_get_intval(&_7), 0);
zend_print_zval(_8, 0);
}
ZEPHIR_MM_RESTORE();
}
/**
* Writes the log to the stream itself
*/
PHP_METHOD(Phalcon_Logger_Adapter_Firephp, logInternal) {
HashTable *_8;
HashPosition _7;
zephir_fcall_cache_entry *_2 = NULL;
zval *context = NULL;
int type, time, ZEPHIR_LAST_CALL_STATUS;
zval *message_param = NULL, *type_param = NULL, *time_param = NULL, *context_param = NULL, *chunk = NULL, *format = NULL, *chString = NULL, *content = NULL, *key = NULL, *index = NULL, *_0, *_3 = NULL, *_4, *_5, _6, **_9, _1$$3 = zval_used_for_init;
zval *message = NULL, *_10$$4 = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 4, 0, &message_param, &type_param, &time_param, &context_param);
zephir_get_strval(message, message_param);
type = zephir_get_intval(type_param);
time = zephir_get_intval(time_param);
zephir_get_arrval(context, context_param);
_0 = zephir_fetch_nproperty_this(this_ptr, SL("_initialized"), PH_NOISY_CC);
if (!(zephir_is_true(_0))) {
ZEPHIR_SINIT_VAR(_1$$3);
ZVAL_STRING(&_1$$3, "X-Wf-Protocol-1: http://meta.wildfirehq.org/Protocol/JsonStream/0.2", 0);
ZEPHIR_CALL_FUNCTION(NULL, "header", &_2, 248, &_1$$3);
zephir_check_call_status();
ZEPHIR_SINIT_NVAR(_1$$3);
ZVAL_STRING(&_1$$3, "X-Wf-1-Plugin-1: http://meta.firephp.org/Wildfire/Plugin/FirePHP/Library-FirePHPCore/0.3", 0);
ZEPHIR_CALL_FUNCTION(NULL, "header", &_2, 248, &_1$$3);
zephir_check_call_status();
ZEPHIR_SINIT_NVAR(_1$$3);
ZVAL_STRING(&_1$$3, "X-Wf-Structure-1: http://meta.firephp.org/Wildfire/Structure/FirePHP/FirebugConsole/0.1", 0);
ZEPHIR_CALL_FUNCTION(NULL, "header", &_2, 248, &_1$$3);
zephir_check_call_status();
if (1) {
zephir_update_property_this(this_ptr, SL("_initialized"), ZEPHIR_GLOBAL(global_true) TSRMLS_CC);
} else {
zephir_update_property_this(this_ptr, SL("_initialized"), ZEPHIR_GLOBAL(global_false) TSRMLS_CC);
}
}
ZEPHIR_CALL_METHOD(&_3, this_ptr, "getformatter", NULL, 0);
zephir_check_call_status();
ZEPHIR_INIT_VAR(_4);
ZVAL_LONG(_4, type);
ZEPHIR_INIT_VAR(_5);
ZVAL_LONG(_5, time);
ZEPHIR_CALL_METHOD(&format, _3, "format", NULL, 0, message, _4, _5, context);
zephir_check_call_status();
ZEPHIR_SINIT_VAR(_6);
ZVAL_LONG(&_6, 4500);
ZEPHIR_CALL_FUNCTION(&chunk, "str_split", NULL, 74, format, &_6);
zephir_check_call_status();
ZEPHIR_OBS_VAR(index);
zephir_read_property_this(&index, this_ptr, SL("_index"), PH_NOISY_CC);
zephir_is_iterable(chunk, &_8, &_7, 0, 0, "phalcon/logger/adapter/firephp.zep", 92);
for (
; zephir_hash_get_current_data_ex(_8, (void**) &_9, &_7) == SUCCESS
; zephir_hash_move_forward_ex(_8, &_7)
) {
ZEPHIR_GET_HMKEY(key, _8, _7);
ZEPHIR_GET_HVALUE(chString, _9);
zephir_get_strval(_10$$4, index);
ZEPHIR_INIT_NVAR(content);
ZEPHIR_CONCAT_SVSV(content, "X-Wf-1-1-1-", _10$$4, ": ", chString);
if (zephir_array_isset_long(chunk, (zephir_get_numberval(key) + 1))) {
zephir_concat_self_str(&content, SL("|\\") TSRMLS_CC);
}
ZEPHIR_CALL_FUNCTION(NULL, "header", &_2, 248, content);
zephir_check_call_status();
ZEPHIR_SEPARATE(index);
zephir_increment(index);
}
zephir_update_property_this(this_ptr, SL("_index"), index TSRMLS_CC);
ZEPHIR_MM_RESTORE();
}
/**
* Helper method for merge configs (forwarding nested config instance)
*
* @param Config config
* @param Config instance = null
*
* @return Config merged config
*/
PHP_METHOD(Phalcon_Config, _merge) {
zephir_fcall_cache_entry *_8 = NULL, *_9 = NULL;
zend_bool _4, _5;
HashTable *_2;
HashPosition _1;
int ZEPHIR_LAST_CALL_STATUS;
zval *config, *instance = NULL, *key = NULL, *value = NULL, *number = NULL, *_0 = NULL, **_3, *_6 = NULL, *_7 = NULL;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 1, 1, &config, &instance);
if (!instance) {
ZEPHIR_CPY_WRT(instance, ZEPHIR_GLOBAL(global_null));
} else {
ZEPHIR_SEPARATE_PARAM(instance);
}
if (Z_TYPE_P(instance) != IS_OBJECT) {
ZEPHIR_CPY_WRT(instance, this_ptr);
}
ZEPHIR_CALL_METHOD(&number, instance, "count", NULL, 0);
zephir_check_call_status();
ZEPHIR_CALL_FUNCTION(&_0, "get_object_vars", NULL, 23, config);
zephir_check_call_status();
zephir_is_iterable(_0, &_2, &_1, 0, 0, "phalcon/config.zep", 239);
for (
; zephir_hash_get_current_data_ex(_2, (void**) &_3, &_1) == SUCCESS
; zephir_hash_move_forward_ex(_2, &_1)
) {
ZEPHIR_GET_HMKEY(key, _2, _1);
ZEPHIR_GET_HVALUE(value, _3);
_4 = zephir_isset_property_zval(instance, key TSRMLS_CC);
if (_4) {
_4 = Z_TYPE_P(value) == IS_OBJECT;
}
_5 = _4;
if (_5) {
ZEPHIR_OBS_NVAR(_6);
zephir_read_property_zval(&_6, instance, key, PH_NOISY_CC);
_5 = Z_TYPE_P(_6) == IS_OBJECT;
}
if (_5) {
ZEPHIR_OBS_NVAR(_7);
zephir_read_property_zval(&_7, instance, key, PH_NOISY_CC);
ZEPHIR_CALL_METHOD(NULL, this_ptr, "_merge", &_8, 22, value, _7);
zephir_check_call_status();
} else {
if (Z_TYPE_P(key) == IS_LONG) {
ZEPHIR_CALL_FUNCTION(&key, "strval", &_9, 20, number);
zephir_check_call_status();
ZEPHIR_SEPARATE(number);
zephir_increment(number);
}
zephir_update_property_zval_zval(instance, key, value TSRMLS_CC);
}
}
RETVAL_ZVAL(instance, 1, 0);
RETURN_MM();
}
