check php version

Demangle name of a property when assigning an object into Lua

.gitignore

@@ -1,3 +1,4 @@
+*.o
 *.lo
 *.la
 .*.swp

.travis.yml

@@ -7,6 +7,10 @@ addons:
 
 php:
   - 7.0
+  - 7.1
+  - 7.2
+  - 7.3
+  - 7.4
 
 notifications:
   email: false

config.m4

@@ -1,4 +1,3 @@
-dnl $Id: config.m4 321796 2012-01-05 17:23:48Z laruence $
 PHP_ARG_WITH(lua, for lua support,
 [  --with-lua=[DIR]    Include php lua support])
 PHP_ARG_WITH(lua-version, to specify a custom lua version, [  --with-lua-version=[VERSION]]   Use the specified lua version.)

lua.c

@@ -321,15 +321,18 @@ zval *php_lua_get_zval_from_lua(lua_State *L, int index, zval *lua_obj, zval *rv
 			break;
 		case LUA_TTABLE:
 			array_init(rv);
-			lua_pushnil(L);  /* first key */
+			lua_pushvalue(L, index);  // table
-			while (lua_next(L, index-1) != 0) {
+			lua_pushnil(L);  // first key
+			while (lua_next(L, -2) != 0) {
 				zval key, val;
 
-				/* uses 'key' (at index -2) and 'value' (at index -1) */
+				lua_pushvalue(L, -2);
-				if (!php_lua_get_zval_from_lua(L, -2, lua_obj, &key)) {
+
+				/* uses 'key' (at index -1) and 'value' (at index -2) */
+				if (!php_lua_get_zval_from_lua(L, -1, lua_obj, &key)) {
 					break;
 				}
-				if (!php_lua_get_zval_from_lua(L, -1, lua_obj, &val)) {
+				if (!php_lua_get_zval_from_lua(L, -2, lua_obj, &val)) {
 					zval_ptr_dtor(&key);
 					/* there is a warning already in php_lua_get_zval_from_lua */
 					break;
@@ -349,17 +352,13 @@ zval *php_lua_get_zval_from_lua(lua_State *L, int index, zval *lua_obj, zval *rv
 					default:
 						break;
 				}
-				lua_pop(L, 1);
+				lua_pop(L, 2);
 			}
+			lua_pop(L, 1);
 			break;
 		case LUA_TFUNCTION:
 			{
 				long ref_id = 0;
-				if (!lua_obj) {
-					php_error_docref(NULL, E_WARNING, "corrupted Lua object");
-					break;
-				}
-
 				lua_pushvalue(L, index);
 				ref_id = luaL_ref(L, LUA_REGISTRYINDEX);
 
@@ -425,35 +424,79 @@ try_again:
 					add_next_index_zval(callbacks, val);
 				} else {
 					zval *v;
-					ulong longkey;
+					zend_ulong longkey;
 					zend_string *key;
 					zval zkey;
 
 					HashTable *ht = HASH_OF(val);
-					if (ZEND_HASH_APPLY_PROTECTION(ht)) {
+					if (
-						ZEND_HASH_INC_APPLY_COUNT(ht);
+#if PHP_VERSION_ID < 70300
-						if (ZEND_HASH_GET_APPLY_COUNT(ht) > 1) {
+						ZEND_HASH_APPLY_PROTECTION(ht)
+#else
+						!(GC_FLAGS(ht) & GC_IMMUTABLE)
+#endif
+						) {
+						if (
+#if PHP_VERSION_ID < 70300
+							ZEND_HASH_GET_APPLY_COUNT(ht)
+#else
+							GC_IS_RECURSIVE(ht)
+#endif
+							) {
+
 							php_error_docref(NULL, E_ERROR, "recursion found");
-							ZEND_HASH_DEC_APPLY_COUNT(ht);
 							break;
 						}
+#if PHP_VERSION_ID < 70300
+						ZEND_HASH_INC_APPLY_COUNT(ht);
+#else
+						GC_PROTECT_RECURSION(ht);
+#endif
 					}
 
 					lua_newtable(L);
 
 					ZEND_HASH_FOREACH_KEY_VAL_IND(ht, longkey, key, v) {
+						zend_bool key_pushed = 0;
+
 						if (key) {
+							if (Z_TYPE_P(val) == IS_OBJECT && ZSTR_VAL(key)[0] == 0) {
+								/* This is object property and it's name should be demangled*/
+								const char *prop_name, *class_name;
+								size_t prop_len;
+
+								zend_unmangle_property_name_ex(key, &class_name, &prop_name, &prop_len);
+
+								lua_pushlstring(L, prop_name, prop_len);
+								key_pushed = 1;
+							} else {
 								ZVAL_STR(&zkey, key);
+							}
 						} else {
 							ZVAL_LONG(&zkey, longkey);
 						}
+
+						if (!key_pushed) {
 							php_lua_send_zval_to_lua(L, &zkey);
+						}
+
 						php_lua_send_zval_to_lua(L, v);
+
 						lua_settable(L, -3);
 					} ZEND_HASH_FOREACH_END();
 
-					if (ZEND_HASH_APPLY_PROTECTION(ht)) {
+					if (
+#if PHP_VERSION_ID < 70300
+						ZEND_HASH_APPLY_PROTECTION(ht)
+#else
+						!(GC_FLAGS(ht) & GC_IMMUTABLE)
+#endif
+						) {
+#if PHP_VERSION_ID < 70300
 						ZEND_HASH_DEC_APPLY_COUNT(ht);
+#else
+						GC_UNPROTECT_RECURSION(ht);
+#endif
 					}
 				}
 			}
@@ -824,8 +867,11 @@ PHP_MINIT_FUNCTION(lua) {
 	php_lua_closure_register();
 
 	INIT_CLASS_ENTRY(ce, "LuaException", NULL);
-
+#if PHP_VERSION_ID >= 80500
+	lua_exception_ce = zend_register_internal_class_ex(&ce, zend_ce_exception);
+#else
 	lua_exception_ce = zend_register_internal_class_ex(&ce, zend_exception_get_default());
+#endif
 
 	return SUCCESS;
 }

lua_closure.c

@@ -53,7 +53,9 @@ zval* php_lua_closure_instance(zval *instance, long ref_id, zval *lua_obj) {
 	object_init_ex(instance, lua_closure_ce);
 	objval = php_lua_closure_object_from_zend_object(Z_OBJ_P(instance));
 	objval->closure = ref_id;
+	if (lua_obj) {
 		ZVAL_ZVAL(&(objval->lua), lua_obj, 1, 0);
+	}
 
 	return instance;
 }
@@ -75,7 +77,7 @@ PHP_METHOD(lua_closure, invoke) {
 	zval rv;
 
 	if (ZEND_NUM_ARGS()) {
-		arguments = emalloc(sizeof(zval*) * ZEND_NUM_ARGS());
+		arguments = emalloc(sizeof(zval) * ZEND_NUM_ARGS());
 		if (zend_get_parameters_array_ex(ZEND_NUM_ARGS(), arguments) == FAILURE) {
 			efree(arguments);
 			zend_throw_exception_ex(NULL, 0, "cannot get arguments for calling closure");

package.xml

@@ -23,11 +23,11 @@
   <email>msaraujo@php.net</email>
   <active>yes</active>
  </developer>
- <date>2017-12-31</date>
+ <date>2020-03-10</date>
- <time>19:15:00</time>
+ <time>11:10:00</time>
  <version>
-  <release>2.0.5</release>
+  <release>2.0.7</release>
-  <api>2.0.5</api>
+  <api>2.0.7</api>
  </version>
  <stability>
   <release>stable</release>
@@ -35,9 +35,7 @@
  </stability>
  <license uri="http://www.php.net/license">PHP</license>
  <notes>
-  - Refactor LuaClosure. (SaraG)
+  - Fixed windows build for 7.4
-  - Fix non-string member access in read/write prop. (SaraG)
-  - Fix allocation of lua object. (SaraG)
  </notes>
  <contents> 
   <dir name="/"> 
@@ -84,6 +82,35 @@
  <providesextension>lua</providesextension>
  <extsrcrelease />
  <changelog> 
+  <release> 
+   <date>2020-03-10</date> 
+   <version> 
+    <release>2.0.7</release> 
+    <api>2.0.7</api> 
+   </version> 
+   <stability> 
+    <release>stable</release> 
+    <api>stable</api> 
+   </stability> 
+   <license uri="http://www.php.net/license">PHP License</license> 
+   <notes> 
+    - Fixed windows build for 7.4
+   </notes> 
+  </release> 
+
+   <date>2018-12-21</date> 
+   <version> 
+    <release>2.0.6</release> 
+    <api>2.0.6</api> 
+   </version> 
+   <stability> 
+    <release>stable</release> 
+    <api>stable</api> 
+   </stability> 
+   <license uri="http://www.php.net/license">PHP License</license> 
+   <notes> 
+    - Fixed Hash Recursive Detecting in PHP-7.3
+   </notes> 
   <release> 
    <date>2017-12-31</date> 
    <version> 
@@ -101,7 +128,6 @@
     - Fix allocation of lua object. (SaraG)
    </notes> 
   </release> 
-
   <release> 
    <date>2017-07-12</date> 
    <version> 

php_lua.h

@@ -48,7 +48,7 @@ extern zend_module_entry lua_module_entry;
 #define LUA_G(v) (lua_globals.v)
 #endif
 
-#define PHP_LUA_VERSION "2.0.5"
+#define PHP_LUA_VERSION "2.0.8-dev"
 
 struct _php_lua_object {
   lua_State *L;

tests/016.phpt

@@ -0,0 +1,45 @@
+--TEST--
+PHP Object to lua
+--SKIPIF--
+<?php if (!extension_loaded("lua")) print "skip"; ?>
+--FILE--
+<?php 
+class T {
+    private $v;
+    private $s;
+
+    public function __construct($v)
+    {
+        $this->v = $v;
+        $this->s = "string = $v";
+    }
+
+    static function create($arg)
+    {
+        return new self($arg);
+    }
+}
+
+
+$l = new lua();
+$l->registerCallback('create_object', [T::class, 'create']);
+
+$l->eval(<<<CODE
+local t = create_object(2)
+
+local keys = {}
+
+for k, _ in pairs(t) do
+	table.insert(keys, k)
+end
+
+table.sort(keys)
+for _,k in ipairs(keys) do
+    print(k, " -> ", t[k], ",")
+end
+CODE
+);
+
+?>
+--EXPECTF--
+s -> string = 2,v -> 2,

tests/issue040.phpt

@@ -0,0 +1,19 @@
+--TEST--
+ISSUE #040 (segmentation fault)
+--SKIPIF--
+<?php
+if (!extension_loaded("lua")) print "skip lua extension missing";
+?>
+--FILE--
+<?php
+$lua = new Lua();
+$lua->eval(<<<CODE
+local a = {}
+print(a)
+CODE
+);
+?>
+--EXPECT--
+Array
+ (
+ )

tests/print_tables-1.phpt

@@ -0,0 +1,28 @@
+--TEST--
+print with tables - 1
+--SKIPIF--
+<?php
+if (!extension_loaded("lua")) print "skip lua extension missing";
+?>
+--FILE--
+<?php
+$lua = new Lua();
+$lua->eval(<<<CODE
+local people = {
+   {
+      phone = "123456"
+   },
+}
+print(people)
+CODE
+);
+?>
+--EXPECT--
+Array
+ (
+     [1] => Array
+         (
+             [phone] => 123456
+         )
+
+ )

tests/print_tables-2.phpt

@@ -0,0 +1,22 @@
+--TEST--
+print with tables - 2
+--SKIPIF--
+<?php
+if (!extension_loaded("lua")) print "skip lua extension missing";
+?>
+--FILE--
+<?php
+$lua = new Lua();
+$lua->eval(<<<CODE
+local a = {
+  LEFT   = 1,
+}
+print(a)
+CODE
+);
+?>
+--EXPECT--
+Array
+ (
+     [LEFT] => 1
+ )