Sample extension to test delayed_release_hooks implementation !

SquiLu-ext/dad_utils.cpp

@@ -0,0 +1,83 @@
+#include "squirrel.h"
+#include <stdio.h>
+
+typedef struct {
+    HSQOBJECT func_to_call;
+    HSQOBJECT param;
+    HSQUIRRELVM v;
+} gc_scope_alert_st;
+
+static const SQChar *gc_scope_alert_TAG = _SC("gc_scope_alert");
+
+static SQRESULT gc_scope_alert_releasehook(SQUserPointer p, SQInteger size, HSQUIRRELVM v)
+{
+	gc_scope_alert_st *self = ((gc_scope_alert_st *)p);
+//printf("%p %p\n", p, v);
+	if(self){
+	    //if(v){
+            SQInteger top = sq_gettop(self->v);
+            sq_reservestack(self->v, 20);
+            sq_pushobject(self->v, self->func_to_call);
+            sq_pushroottable(self->v);
+            sq_pushobject(self->v, self->param);
+            sq_call(self->v, 2, SQFalse, SQTrue);
+            sq_release(self->v, &self->func_to_call);
+            sq_release(self->v, &self->param);
+            sq_settop(self->v, top);
+	    //}
+	    //else
+	    sq_free(self, sizeof(gc_scope_alert_st));
+	}
+	return 0;
+}
+
+static SQRESULT gc_scope_alert_constructor(HSQUIRRELVM v)
+{
+    SQInteger rc;
+    gc_scope_alert_st proto;
+    proto.v = v;
+    sq_resetobject(&proto.func_to_call);
+    sq_resetobject(&proto.param);
+    if((rc = sq_getstackobj(v, 2, &proto.func_to_call)) < 0) return rc;
+    if(sq_gettop(v) > 2){
+         if((rc = sq_getstackobj(v, 3, &proto.param)) < 0) return rc;
+    }
+    gc_scope_alert_st *self = (gc_scope_alert_st*)sq_malloc(sizeof(gc_scope_alert_st));
+    if(!self) return sq_throwerror(v, "Failed to create %s", gc_scope_alert_TAG);
+    sq_addref(v, &proto.func_to_call);
+    sq_addref(v, &proto.param);
+    *self = proto;
+    sq_setinstanceup(v, 1, self);
+    sq_setreleasehook(v,1, gc_scope_alert_releasehook);
+    return 1;
+}
+
+#define _DECL_FUNC(name,nparams,tycheck) {_SC(#name),  gc_scope_alert_##name,nparams,tycheck}
+static SQRegFunction gc_scope_alert_methods[] =
+{
+	_DECL_FUNC(constructor,  -2, _SC("xc.")),
+	{0,0}
+};
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+    SQRESULT sqext_register_dad_utils(HSQUIRRELVM v)
+    {
+        sq_pushstring(v,_SC("dad_utils"),-1);
+        sq_newtable(v);
+
+        sq_pushstring(v,gc_scope_alert_TAG,-1);
+        sq_newclass(v,SQFalse);
+        sq_settypetag(v,-1,(void*)gc_scope_alert_TAG);
+        sq_insert_reg_funcs(v, gc_scope_alert_methods);
+        sq_rawset(v,-3);
+
+        sq_rawset(v,-3);//insert dad_utils
+        return 1;
+    }
+
+#ifdef __cplusplus
+}
+#endif

SquiLu/samples/test-delayed-release-hooks.nut

@@ -0,0 +1,42 @@
+//local dad_utils = dad_utils;
+local xx = 0;
+function doIT(line){
+	print(dad_utils, dad_utils.gc_scope_alert);
+	local gca = dad_utils.gc_scope_alert(@(ud) print(ud), "<<Gone !>> : " + line);
+	print("Done !", line);
+	gca = null;
+	local a = 3;
+	print(a);
+}
+function doIT2(line){
+	local gca2 = dad_utils.gc_scope_alert(@(ud) print(ud), "<<Gone2 !>> : " + line);
+	print("Done2 !", line);
+	//gca2 = null;
+}
+doIT(__LINE__);
+print("At line:", __LINE__);
+doIT(__LINE__);
+print("At line:", __LINE__);
+local tmpn=os.tmpname();
+print(tmpn);
+doIT2(__LINE__);
+print("At line:", __LINE__);
+doIT(__LINE__);
+print("At line:", __LINE__);
+print(os.clock());
+doIT2(__LINE__);
+print("At line:", __LINE__);
+
+for(local i=0; i<10; ++i){
+	doIT(__LINE__);
+print("At line:", __LINE__);
+	doIT2(__LINE__);
+print("At line:", __LINE__);
+}
+print("At line:", __LINE__);
+
+doIT2(__LINE__);
+print("At line:", __LINE__);
+
+doIT2(__LINE__);
+print("At line:", __LINE__);