ONPHP_METHOD(Ternary, spawn)
{
zval *value, *true, *false, *null, *result, *out;
ONPHP_GET_ARGS("zzz|z", &value, &true, &false, &null);
ALLOC_INIT_ZVAL(result);
ONPHP_MAKE_OBJECT(Ternary, out);
if (ZEND_NUM_ARGS() == 3) {
ALLOC_INIT_ZVAL(null);
ZVAL_NULL(null);
}
if (
is_identical_function(result, value, true TSRMLS_CC)
&& (zval_is_true(result))
) {
ONPHP_UPDATE_PROPERTY_BOOL(out, "trinity", 1);
} else if (
is_identical_function(result, value, false TSRMLS_CC)
&& (zval_is_true(result))
) {
ONPHP_UPDATE_PROPERTY_BOOL(out, "trinity", 0);
} else if (
(
is_identical_function(result, value, null TSRMLS_CC)
&& (zval_is_true(result))
) || (
Z_TYPE_P(null) == IS_NULL
)
) {
ONPHP_UPDATE_PROPERTY_NULL(out, "trinity");
} else {
ONPHP_THROW_NORET(WrongArgumentException, "failed to spawn Ternary");
}
ZVAL_FREE(result);
if (ZEND_NUM_ARGS() == 3) {
ZVAL_FREE(null);
}
if (EG(exception)) {
return;
}
RETURN_ZVAL(out, 1, 1);
}
ONPHP_METHOD(Form, getInnerErrors)
{
zval
*result,
*primitives = ONPHP_READ_PROPERTY(getThis(), "primitives"),
**prm;
ONPHP_CALL_METHOD_0(getThis(), "geterrors", &result);
ONPHP_MAKE_ARRAY(result);
ONPHP_FOREACH(primitives, prm) {
zend_class_entry **pfl, **pf;
zval *value;
ONPHP_CALL_METHOD_0_NORET(*prm, "getvalue", &value);
if (EG(exception)) {
ZVAL_FREE(primitives);
return;
}
ONPHP_FIND_FOREIGN_CLASS("PrimitiveFormsList", pfl);
ONPHP_FIND_FOREIGN_CLASS("PrimitiveForm", pf);
if (ONPHP_CHECK_EMPTY(value)) {
if (
instanceof_function(Z_OBJCE_PP(prm), *pfl TSRMLS_CC)
|| instanceof_function(Z_OBJCE_PP(prm), *pf TSRMLS_CC)
) {
zval *name, *errors;
ONPHP_CALL_METHOD_0_NORET(*prm, "getinnererrors", &errors);
if (EG(exception)) {
ZVAL_FREE(primitives);
return;
}
ONPHP_CALL_METHOD_0(*prm, "getname", &name);
if (zend_hash_num_elements(Z_ARRVAL_P(errors)) > 0) {
ONPHP_ASSOC_SET(result, Z_STRVAL_P(name), errors);
} else {
ONPHP_ASSOC_UNSET(result, Z_STRVAL_P(name));
}
}
}
}
ONPHP_METHOD(ExtractPart, toDialectString)
{
zval *dialect, *what, *from, *whatString, *fromString;
smart_str string = {0};
ONPHP_GET_ARGS("O", &dialect, onphp_ce_Dialect);
what = ONPHP_READ_PROPERTY(getThis(), "what");
from = ONPHP_READ_PROPERTY(getThis(), "from");
ONPHP_CALL_METHOD_0(what, "tostring", &whatString);
ONPHP_CALL_METHOD_1_NORET(from, "todialectstring", &fromString, dialect);
if (EG(exception)) {
ZVAL_FREE(whatString);
return;
}
smart_str_appendl(&string, "EXTRACT(", 8);
onphp_append_zval_to_smart_string(&string, whatString);
smart_str_appendl(&string, " FROM ", 6);
onphp_append_zval_to_smart_string(&string, fromString);
smart_str_appendc(&string, ')');
smart_str_0(&string);
zval_ptr_dtor(&whatString);
zval_ptr_dtor(&fromString);
RETURN_STRINGL(string.c, string.len, 0);
}
ONPHP_METHOD(DBField, setTable)
{
zval *table;
if (Z_TYPE_P(ONPHP_READ_PROPERTY(getThis(), "table")) != IS_NULL) {
ONPHP_THROW(
WrongStateException,
"you should not override setted table"
);
}
ONPHP_GET_ARGS("z", &table);
if (!ONPHP_INSTANCEOF(table, DialectString)) {
zval *from_table;
ONPHP_MAKE_FOREIGN_OBJECT("FromTable", from_table);
ONPHP_CALL_METHOD_1_NORET(from_table, "__construct", NULL, table);
if (EG(exception)) {
ZVAL_FREE(from_table);
return;
}
ONPHP_UPDATE_PROPERTY(getThis(), "table", from_table);
zval_ptr_dtor(&from_table);
} else {
ONPHP_UPDATE_PROPERTY(getThis(), "table", table);
}
RETURN_THIS;
}
ONPHP_METHOD(Ternary, create)
{
zval *object, *value;
if (ZEND_NUM_ARGS() == 1) {
ONPHP_GET_ARGS("z", &value);
} else {
ALLOC_INIT_ZVAL(value);
ZVAL_NULL(value);
}
ONPHP_MAKE_OBJECT(Ternary, object);
ONPHP_TERNARY_SET_VALUE(object);
out:
if (ZEND_NUM_ARGS() != 1) {
ZVAL_FREE(value);
}
if (EG(exception)) {
zval_ptr_dtor(&object);
return;
}
RETURN_ZVAL(object, 1, 1);
}
ONPHP_METHOD(DBField, toDialectString)
{
smart_str string = {0};
zval *table, *field, *dialect, *cast, *quoted;
ONPHP_GET_ARGS("O", &dialect, onphp_ce_Dialect);
table = ONPHP_READ_PROPERTY(getThis(), "table");
field = ONPHP_READ_PROPERTY(getThis(), "field");
cast = ONPHP_READ_PROPERTY(getThis(), "cast");
// either null or instance of DialectString
if (Z_TYPE_P(table) == IS_OBJECT) {
zval *tmp;
ONPHP_CALL_METHOD_1(table, "todialectstring", &tmp, dialect);
onphp_append_zval_to_smart_string(&string, tmp);
zval_ptr_dtor(&tmp);
smart_str_appendc(&string, '.');
}
ONPHP_CALL_METHOD_1(dialect, "quotefield", "ed, field);
onphp_append_zval_to_smart_string(&string, quoted);
zval_ptr_dtor("ed);
smart_str_0(&string);
if (Z_STRLEN_P(cast)) {
zval *tmp, *out;
ALLOC_INIT_ZVAL(tmp);
ZVAL_STRINGL(tmp, string.c, string.len, 1);
ONPHP_CALL_METHOD_2_NORET(dialect, "tocasted", &out, tmp, cast);
ZVAL_FREE(tmp);
smart_str_free(&string);
if (EG(exception)) {
return;
}
RETURN_ZVAL(out, 1, 1);
}
RETURN_STRINGL(string.c, string.len, 0);
}
ONPHP_METHOD(Form, create)
{
zval *object;
ONPHP_MAKE_OBJECT(Form, object);
ONPHP_CALL_METHOD_0_NORET(object, "__construct", NULL);
if (EG(exception)) {
ZVAL_FREE(object);
return;
}
RETURN_ZVAL(object, 1, 1);
}
ONPHP_METHOD(DBBinary, create)
{
zval *object, *value;
ONPHP_GET_ARGS("z", &value);
ONPHP_MAKE_OBJECT(DBBinary, object);
ONPHP_CALL_PARENT_1_NORET(object, "__construct", NULL, value);
if (EG(exception)) {
ZVAL_FREE(object);
return;
}
RETURN_ZVAL(object, 1, 1);
}
ONPHP_METHOD(ExtractPart, create)
{
zval *object, *what, *from;
ONPHP_GET_ARGS("zz", &what, &from);
ONPHP_MAKE_OBJECT(ExtractPart, object);
ONPHP_CALL_METHOD_2_NORET(object, "__construct", NULL, what, from);
if (EG(exception)) {
ZVAL_FREE(object);
return;
}
RETURN_ZVAL(object, 1, 1);
}
ONPHP_METHOD(QueryIdentification, getId)
{
zval *out, *hashed;
ONPHP_CALL_METHOD_0(getThis(), "tostring", &out);
zend_call_method_with_1_params(
NULL,
NULL,
NULL,
"sha1",
&hashed,
out
);
ZVAL_FREE(out);
if (EG(exception)) {
return;
}
RETURN_ZVAL(hashed, 1, 1);
}
ONPHP_METHOD(ExtractPart, __construct)
{
zval *what, *from, *fromField;
zend_class_entry **cep;
ONPHP_GET_ARGS("zz", &what, &from);
if (ONPHP_INSTANCEOF(from, DialectString)) {
if (
!(
ONPHP_INSTANCEOF(from, DBValue)
|| ONPHP_INSTANCEOF(from, DBField)
)
) {
ONPHP_THROW(WrongArgumentException, NULL);
}
}
ONPHP_MAKE_OBJECT(DBField, fromField);
ONPHP_CALL_METHOD_1_NORET(fromField, "__construct", NULL, from);
if (EG(exception)) {
ZVAL_FREE(fromField);
return;
}
ONPHP_UPDATE_PROPERTY(getThis(), "from", fromField);
zval_ptr_dtor(&fromField);
ONPHP_FIND_FOREIGN_CLASS("DatePart", cep);
if (
!(
(Z_TYPE_P(what) == IS_OBJECT)
&& instanceof_function(Z_OBJCE_P(what), *cep TSRMLS_CC)
)
) {
zval *whatPart;
ALLOC_INIT_ZVAL(whatPart);
object_init_ex(whatPart, *cep);
Z_TYPE_P(whatPart) = IS_OBJECT;
ONPHP_CALL_METHOD_1_NORET(whatPart, "__construct", NULL, what);
if (EG(exception)) {
ZVAL_FREE(whatPart);
return;
}
ONPHP_UPDATE_PROPERTY(getThis(), "what", whatPart);
zval_ptr_dtor(&whatPart);
} else {
ONPHP_UPDATE_PROPERTY(getThis(), "what", what);
zval_ptr_dtor(&what);
}
}
