X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;ds=sidebyside;f=missing.c;h=d60d55d21110b422c1214204e47c41d8fe324727;hb=a8230e38566547ed14c101bbf026904acdf0d458;hp=7f9fcd8771b71b58eeea9058e8585cef148838d4;hpb=212785588c8decd0e3bf1ee520e68b299896a3ff;p=m6w6%2Fext-http

diff --git a/missing.c b/missing.c
index 7f9fcd8..d60d55d 100644
--- a/missing.c
+++ b/missing.c
@@ -71,6 +71,63 @@ void zend_update_property_bool(zend_class_entry *scope, zval *object, char *name
 
 #endif
 
+#if (PHP_MAJOR_VERSION >= 5)
+
+static inline zval *new_class_constant_zval(zend_class_entry *ce)
+{
+	zval *z;
+	if (ce->type & ZEND_INTERNAL_CLASS) {
+		z = malloc(sizeof(zval));
+	} else {
+		ALLOC_ZVAL(z);
+	}
+	INIT_PZVAL(z);
+	return z;
+}
+
+int zend_declare_class_constant(zend_class_entry *ce, char *name, size_t name_length, zval *value TSRMLS_DC)
+{
+	return zend_hash_add(&ce->constants_table, name, name_length, &value, sizeof(zval *), NULL);
+}
+
+int zend_declare_class_constant_long(zend_class_entry *ce, char *name, size_t name_length, long value TSRMLS_DC)
+{
+	zval *constant = new_class_constant_zval(ce);
+	ZVAL_LONG(constant, value);
+	return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
+}
+
+int zend_declare_class_constant_bool(zend_class_entry *ce, char *name, size_t name_length, zend_bool value TSRMLS_DC)
+{
+	zval *constant = new_class_constant_zval(ce);
+	ZVAL_BOOL(constant, value);
+	return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
+}
+
+int zend_declare_class_constant_double(zend_class_entry *ce, char *name, size_t name_length, double value TSRMLS_DC)
+{
+	zval *constant = new_class_constant_zval(ce);
+	ZVAL_DOUBLE(constant, value);
+	return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
+}
+
+int zend_declare_class_constant_string(zend_class_entry *ce, char *name, size_t name_length, char *value TSRMLS_DC)
+{
+	return zend_declare_class_constant_stringl(ce, name, name_length, value, strlen(value) TSRMLS_CC);
+}
+
+int zend_declare_class_constant_stringl(zend_class_entry *ce, char *name, size_t name_length, char *value, size_t value_length TSRMLS_DC)
+{
+	zval *constant = new_class_constant_zval(ce);
+	Z_TYPE_P(constant) = IS_STRING;
+	Z_STRLEN_P(constant) = value_length;
+	Z_STRVAL_P(constant) = malloc(value_length + 1);
+	memcpy(Z_STRVAL_P(constant), value, value_length);
+	Z_STRVAL_P(constant)[value_length] = '\0';
+	return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
+}
+#endif
+
 /*
  * Local variables:
  * tab-width: 4