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();
}
/**
* Resize the image to the given size
*/
PHP_METHOD(Phalcon_Image_Adapter, resize) {
zephir_fcall_cache_entry *_12 = NULL;
zend_bool _0, _4;
double ratio;
zval *width_param = NULL, *height_param = NULL, *master_param = NULL, *_1 = NULL, *_2, *_3, *_5, *_6, *_7 = NULL, *_8, _9, *_10 = NULL, *_11 = NULL, _13, *_14 = NULL, *_15 = NULL, *_16;
int width, height, master, ZEPHIR_LAST_CALL_STATUS;
ZEPHIR_MM_GROW();
zephir_fetch_params(1, 0, 3, &width_param, &height_param, &master_param);
if (!width_param) {
width = 0;
} else {
width = zephir_get_intval(width_param);
}
if (!height_param) {
height = 0;
} else {
height = zephir_get_intval(height_param);
}
if (!master_param) {
master = 4;
} else {
master = zephir_get_intval(master_param);
}
if (master == 7) {
_0 = !width;
if (!(_0)) {
_0 = !height;
}
if (_0) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_image_exception_ce, "width and height must be specified", "phalcon/image/adapter.zep", 80);
return;
}
} else {
if (master == 4) {
_0 = !width;
if (!(_0)) {
_0 = !height;
}
if (_0) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_image_exception_ce, "width and height must be specified", "phalcon/image/adapter.zep", 88);
return;
}
ZEPHIR_INIT_VAR(_1);
_2 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
_3 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
if ((zephir_safe_div_zval_long(_2, width TSRMLS_CC)) > (int) (zephir_safe_div_zval_long(_3, height TSRMLS_CC))) {
ZEPHIR_INIT_NVAR(_1);
ZVAL_LONG(_1, 2);
} else {
ZEPHIR_INIT_NVAR(_1);
ZVAL_LONG(_1, 3);
}
master = zephir_get_numberval(_1);
}
if (master == 5) {
_4 = !width;
if (!(_4)) {
_4 = !height;
}
if (_4) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_image_exception_ce, "width and height must be specified", "phalcon/image/adapter.zep", 97);
return;
}
ZEPHIR_INIT_LNVAR(_1);
_2 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
_3 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
if ((zephir_safe_div_zval_long(_2, width TSRMLS_CC)) > (int) (zephir_safe_div_zval_long(_3, height TSRMLS_CC))) {
ZEPHIR_INIT_NVAR(_1);
ZVAL_LONG(_1, 3);
} else {
ZEPHIR_INIT_NVAR(_1);
ZVAL_LONG(_1, 2);
}
master = zephir_get_numberval(_1);
}
do {
if (master == 2) {
if (!(width)) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_image_exception_ce, "width must be specified", "phalcon/image/adapter.zep", 107);
return;
}
_2 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
_3 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
height = (long) (zephir_safe_div_long_zval((zephir_get_numberval(_2) * width), _3 TSRMLS_CC));
break;
}
if (master == 3) {
if (!(height)) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_image_exception_ce, "height must be specified", "phalcon/image/adapter.zep", 114);
return;
}
_2 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
_3 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
width = (long) (zephir_safe_div_long_zval((zephir_get_numberval(_2) * height), _3 TSRMLS_CC));
break;
}
if (master == 6) {
_4 = !width;
if (!(_4)) {
_4 = !height;
}
if (_4) {
ZEPHIR_THROW_EXCEPTION_DEBUG_STR(phalcon_image_exception_ce, "width and height must be specified", "phalcon/image/adapter.zep", 121);
return;
}
_2 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
_3 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
ZEPHIR_INIT_LNVAR(_1);
div_function(_1, _2, _3 TSRMLS_CC);
ratio = zephir_get_numberval(_1);
if ((zephir_safe_div_long_long(width, height TSRMLS_CC)) > ratio) {
_2 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
_3 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
height = (long) (zephir_safe_div_long_zval((zephir_get_numberval(_2) * width), _3 TSRMLS_CC));
} else {
_5 = zephir_fetch_nproperty_this(this_ptr, SL("_width"), PH_NOISY_CC);
_6 = zephir_fetch_nproperty_this(this_ptr, SL("_height"), PH_NOISY_CC);
width = (long) (zephir_safe_div_long_zval((zephir_get_numberval(_5) * height), _6 TSRMLS_CC));
}
break;
}
if (master == 1) {
if (!(width)) {
ZEPHIR_OBS_VAR(_7);
zephir_read_property_this(&_7, this_ptr, SL("_width"), PH_NOISY_CC);
width = zephir_get_intval(_7);
}
if (!(height)) {
ZEPHIR_OBS_NVAR(_7);
zephir_read_property_this(&_7, this_ptr, SL("_height"), PH_NOISY_CC);
width = zephir_get_intval(_7);
}
break;
}
} while(0);
}
ZEPHIR_INIT_VAR(_8);
ZEPHIR_SINIT_VAR(_9);
ZVAL_LONG(&_9, width);
zephir_round(_8, &_9, NULL, NULL TSRMLS_CC);
ZEPHIR_INIT_VAR(_10);
ZVAL_LONG(_10, 1);
ZEPHIR_CALL_FUNCTION(&_11, "max", &_12, 68, _8, _10);
zephir_check_call_status();
width = zephir_get_intval(_11);
ZEPHIR_INIT_NVAR(_10);
ZEPHIR_SINIT_VAR(_13);
ZVAL_LONG(&_13, height);
zephir_round(_10, &_13, NULL, NULL TSRMLS_CC);
ZEPHIR_INIT_VAR(_14);
ZVAL_LONG(_14, 1);
ZEPHIR_CALL_FUNCTION(&_15, "max", &_12, 68, _10, _14);
zephir_check_call_status();
height = zephir_get_intval(_15);
ZEPHIR_INIT_NVAR(_14);
ZVAL_LONG(_14, width);
ZEPHIR_INIT_VAR(_16);
ZVAL_LONG(_16, height);
ZEPHIR_CALL_METHOD(NULL, this_ptr, "_resize", NULL, 0, _14, _16);
zephir_check_call_status();
RETURN_THIS();
}
