// SomeClassというオブジェクト型を生成し、 properties_hashtableでプロパティを設定する
zval *obj;
MAKE_STD_ZVAL(obj);
object_and_properties_init(obj, class_entry_of_SomeClass, properties_hashtable);

// SomeClassというオブジェクト型を生成する (プロパティはデフォルト)
zval *obj;
MAKE_STD_ZVAL(obj);
object_init_ex(obj, class_entry_of_SomeClass);
// = object_and_properties_init(obj, class_entry_of_SomeClass, NULL)

// デフォルトのオブジェクト(stdClass)を生成する
zval *obj;
MAKE_STD_ZVAL(obj);
object_init(obj);
// = object_init_ex(obj, NULL) = object_and_properties_init(obj, NULL, NULL)

add_property_long(obj, "id", id);
add_property_string(obj, "name", name, 1); // 1 means the string should be copied
add_property_bool(obj, "isAdmin", is_admin);
// 同様に、_null(), _double(), _stringl(), _resource(), _zval()のマクロもある

ZEND_API int _object_and_properties_init(
    zval *arg, zend_class_entry *class_type, HashTable *properties ZEND_FILE_LINE_DC TSRMLS_DC
) {
    zend_object *object;

    if (class_type->ce_flags
        & (ZEND_ACC_INTERFACE|ZEND_ACC_IMPLICIT_ABSTRACT_CLASS|ZEND_ACC_EXPLICIT_ABSTRACT_CLASS)
    ) {
        char *what = (class_type->ce_flags & ZEND_ACC_INTERFACE)                 ? "interface"
                   : ((class_type->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) ? "trait"
                   : "abstract class";
        zend_error(E_ERROR, "Cannot instantiate %s %s", what, class_type->name);
    }

    zend_update_class_constants(class_type TSRMLS_CC);

    Z_TYPE_P(arg) = IS_OBJECT;
    if (class_type->create_object == NULL) {
        Z_OBJVAL_P(arg) = zend_objects_new(&object, class_type TSRMLS_CC);
        if (properties) {
            object->properties = properties;
            object->properties_table = NULL;
        } else {
            object_properties_init(object, class_type);
        }
    } else {
        Z_OBJVAL_P(arg) = class_type->create_object(class_type TSRMLS_CC);
    }
    return SUCCESS;
}

ZEND_API zend_object_value zend_objects_new(
    zend_object **object, zend_class_entry *class_type TSRMLS_DC
) {
    zend_object_value retval;

    *object = emalloc(sizeof(zend_object));
    (*object)->ce = class_type;
    (*object)->properties = NULL;
    (*object)->properties_table = NULL;
    (*object)->guards = NULL;
    retval.handle = zend_objects_store_put(*object,
        (zend_objects_store_dtor_t) zend_objects_destroy_object,
        (zend_objects_free_object_storage_t) zend_objects_free_object_storage,
        NULL TSRMLS_CC
    );
    retval.handlers = &std_object_handlers;
    return retval;
}

typedef struct _zend_object {
    zend_class_entry *ce;
    HashTable *properties;
    zval **properties_table;
    HashTable *guards; /* protects from __get/__set ... recursion */
} zend_object;

typedef struct _zend_object_store_bucket {
    zend_bool destructor_called;
    zend_bool valid;
    union _store_bucket {
        struct _store_object {
            void *object;
            zend_objects_store_dtor_t dtor;
            zend_objects_free_object_storage_t free_storage;
            zend_objects_store_clone_t clone;
            const zend_object_handlers *handlers;
            zend_uint refcount;
            gc_root_buffer *buffered;
        } obj;
        struct {
            int next;
        } free_list;
    } bucket;
} zend_object_store_bucket;

zend_class_entry *test_ce;

/*  独自のオブジェクトで使用されるオブジェクトハンドラーを保持するために
 * (真のグローバルな)変数が必要になる。 このオブジェクトハンドラーはMINITで初期化される。 */
static zend_object_handlers test_object_handlers;

/* 独自のクラス構造体。 この構造体は、まず最初のプロパティに `zend_object` の値 (ポインターではない！) をもっており、
 * その後に、追加で必要なプロパティの宣言が続く */
typedef struct _test_object {
    zend_object std;
    long additional_property;
} test_object;

/* オブジェクトが解放される際に呼び出されるハンドラー。このハンドラーでは
 * std オブジェクトの破棄(プロパティのハッシュテーブル等もこれにより解放される)とオブジェクトの構造体自体の解放もおこなわなければならない。
 * (また、他のリソースにメモリ割り当てがされている場合は、ここでそれらも明示的に解放しなければならない) */
static void test_free_object_storage_handler(test_object *intern TSRMLS_DC)
{
    zend_object_std_dtor(&intern->std TSRMLS_CC);
    efree(intern);
}

/* このハンドラーはオブジェクトの生成の際に呼び出されるハンドラー。 このハンドラーはクラスエントリを引数で受け取り、
 * (このクラスを継承しているクラスの場合でも、このクラスのクラスエントリが使われるので、このハンドラーが使用されることになる)
 * オブジェクトの値(オブジェクトとオブジェクトハンドラーの構造体を保持している)を返す。 */
zend_object_value test_create_object_handler(zend_class_entry *class_type TSRMLS_DC)
{
    zend_object_value retval;

    /* 内部オブジェクト構造体にメモリ割り当てを行う。
     * 慣習として、内部構造体を保持している変数は `intern` とすることが多い。 */
    test_object *intern = emalloc(sizeof(test_object));
    memset(intern, 0, sizeof(test_object));

    /* 元となる std zend_objectを初期化する  */
    zend_object_std_init(&intern->std, class_type TSRMLS_CC);

    /* プロパティを使用しない場合でも、 object_properties_init()を呼び出す必要がある。
     * これは継承先のクラスでプロパティを使用するかもしれないからである。
     * (ここで行う処理の多くは大抵、継承先のクラスを破壊しないためのもの)
     */
    object_properties_init(&intern->std, class_type);

    /* オブジェクトを、デフォルトの破棄ハンドラーと独自の解放ハンドラーを持たせて、オブジェクトストアに保持する。
     * 最後の引数のNULLはクローンハンドラーで、ここでは空にしておく。
     */
    retval.handle = zend_objects_store_put(
        intern,
        (zend_objects_store_dtor_t) zend_objects_destroy_object,
        (zend_objects_free_object_storage_t) test_free_object_storage_handler,
        NULL TSRMLS_CC
    );

    /* 独自のオブジェクトハンドラーを割り当てる */
    retval.handlers = &test_object_handlers;

    return retval;
}

/* ここではメソッドはなし */
const zend_function_entry test_functions[] = {
    PHP_FE_END
};

PHP_MINIT_FUNCTION(test2)
{
    /* いつものクラス登録処理... */
    zend_class_entry tmp_ce;
    INIT_CLASS_ENTRY(tmp_ce, "Test", test_functions);
    test_ce = zend_register_internal_class(&tmp_ce TSRMLS_CC);

    /* クラスエントリにクラス生成のハンドラーを設定する */
    test_ce->create_object = test_create_object_handler;

    /* デフォルトのオブジェクトハンドラーに独自のオブジェクトハンドラーを初期化する。
     * この後、普通は個々のハンドラーをオーバーライドすることになるが、ここではデフォルトのハンドラーのままにしておく。 */
    memcpy(&test_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers));

    return SUCCESS;
}

static void test_clone_object_storage_handler(
    test_object *object, test_object **object_clone_target TSRMLS_DC
) {
    /* 新しいオブジェクトを生成 */
    test_object *object_clone = emalloc(sizeof(test_object));
    zend_object_std_init(&object_clone->std, object->std.ce TSRMLS_CC);
    object_properties_init(&object_clone->std, object->std.ce);

    /* ここで他にクローンすべきものがあればクローンする */
    object_clone->additional_property = object->additional_property;

    /* クローンされたオブジェクトを返す */
    *object_clone_target = object_clone;
}

retval.handle = zend_objects_store_put(
    intern,
    (zend_objects_store_dtor_t) zend_objects_destroy_object,
    (zend_objects_free_object_storage_t) test_free_object_storage_handler,
    (zend_objects_store_clone_t) test_clone_object_storage_handler
    TSRMLS_CC
);

memcpy(&test_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers));
test_object_handler.clone_obj = zend_objects_store_clone_obj;

ZEND_API zend_object_value zend_objects_clone_obj(zval *zobject TSRMLS_DC)
{
    zend_object_value new_obj_val;
    zend_object *old_object;
    zend_object *new_object;
    zend_object_handle handle = Z_OBJ_HANDLE_P(zobject);

    /* 生成が上書きでないと仮定すると、クローン処理は上書きされたものに依存してしまうので、
     * 上書きされたもの自体も、ここで上書きしなければならない */
    old_object = zend_objects_get_address(zobject TSRMLS_CC);
    new_obj_val = zend_objects_new(&new_object, old_object->ce TSRMLS_CC);

    zend_objects_clone_members(new_object, new_obj_val, old_object, handle TSRMLS_CC);

    return new_obj_val;
}

static zend_object_value test_clone_handler(zval *object TSRMLS_DC)
{
    /* 古いオブジェクトの内部構造体を取得 */
    test_object *old_object = zend_object_store_get_object(object TSRMLS_CC);

    /* 同じクラスエントリで新しいオブジェクトを生成する。 この結果得られるのは、新しいオブジェクトの実際の内部構造体ではなく、
     * zend_object_valueが戻ってくるだけである。  */
    zend_object_value new_object_val = test_create_object_handler(Z_OBJCE_P(object) TSRMLS_CC);

    /* 内部構造体を取得するためには、 create_objectハンドラーで得られたhandleを使用して
     * オブジェクトストアから取得しなければならない
     */
    test_object *new_object = zend_object_store_get_object_by_handle(
        new_object_val.handle TSRMLS_CC
    );

    /* プロパティをクローンして __clone を呼び出す */
    zend_objects_clone_members(
        &new_object->std, new_object_val,
        &old_object->std, Z_OBJ_HANDLE_P(object) TSRMLS_CC
    );

    /* ここに独自のクローン処理を記述する */
    new_object->additional_property = old_object->additional_property;

    return new_object_val;
}

/* ... */
test_object_handler.clone_obj = test_clone_handler;

PHP_METHOD(Test, foo)
{
    zval *object;
    test_object *intern;

    if (zend_parse_parameters_none() == FAILURE) {
        return;
    }

    object = getThis();
    intern = zend_object_store_get_object(object TSRMLS_CC);

    /* 内部のプロパティを返すといったような処理をここで行う */
    RETURN_LONG(intern->additional_property);
}