[cppia] Allow setting callback for script load (#1203)

* [cppia] Allow setting callback for script load

Debugger clients may want to do some work if a script is loaded, e.g.
adding breakpoints.

* Put new api function behind api level 500

Author: tobil4sk

include/hx/Debug.h

@@ -216,6 +216,11 @@ class StackCatchable
     bool (*mTestFunction)(Dynamic e);
 };
 
+#if defined(HXCPP_SCRIPTABLE) && (HXCPP_API_LEVEL >= 500)
+// This is the function to call when a new script has been loaded.
+// Signature: Void -> Void
+extern Dynamic g_onScriptLoadedFunction;
+#endif
 
 
 #endif // HXCPP_DEBUGGER
@@ -298,6 +303,9 @@ void __hxcpp_dbg_setNewStackFrameFunction(Dynamic function);
 void __hxcpp_dbg_setNewThreadInfoFunction(Dynamic function);
 void __hxcpp_dbg_setAddParameterToStackFrameFunction(Dynamic function);
 void __hxcpp_dbg_setAddStackFrameToThreadInfoFunction(Dynamic function);
+#if defined(HXCPP_SCRIPTABLE) && (HXCPP_API_LEVEL >= 500)
+void __hxcpp_dbg_setOnScriptLoadedFunction(Dynamic function);
+#endif
 
 bool __hxcpp_dbg_fix_critical_error(String inErr);
 
@@ -351,6 +359,9 @@ inline void __hxcpp_dbg_setNewStackFrameFunction(Dynamic) { }
 inline void __hxcpp_dbg_setNewThreadInfoFunction(Dynamic) { }
 inline void __hxcpp_dbg_setAddParameterToStackFrameFunction(Dynamic) { }
 inline void __hxcpp_dbg_setAddStackFrameToThreadInfoFunction(Dynamic) { }
+#if defined(HXCPP_SCRIPTABLE) && (HXCPP_API_LEVEL >= 500)
+inline void __hxcpp_dbg_setOnScriptLoadedFunction(Dynamic) { }
+#endif
 
 // The following functions are called by Thread.cpp to notify of thread
 // created and terminated

src/hx/Debugger.cpp

@@ -56,6 +56,9 @@ static Dynamic g_addParameterToStackFrameFunction;
 // Signature: inThreadInfo : Dynamic -> inStackFrame : Dynamic -> Void
 static Dynamic g_addStackFrameToThreadInfoFunction;
 
+#if defined(HXCPP_SCRIPTABLE) && (HXCPP_API_LEVEL >= 500)
+Dynamic g_onScriptLoadedFunction{};
+#endif
 
 // This is the thread number of the debugger thread, extracted from
 // information about the thread that called 
@@ -1454,6 +1457,15 @@ void __hxcpp_dbg_setAddStackFrameToThreadInfoFunction(Dynamic function)
 }
 
 
+#if defined(HXCPP_SCRIPTABLE) && (HXCPP_API_LEVEL >= 500)
+void __hxcpp_dbg_setOnScriptLoadedFunction(Dynamic function)
+{
+    hx::g_onScriptLoadedFunction = function;
+    GCAddRoot(&(hx::g_onScriptLoadedFunction.mPtr));
+}
+#endif
+
+
 Dynamic __hxcpp_dbg_checkedThrow(Dynamic toThrow)
 {
     if (!hx::CanBeCaught(toThrow))

src/hx/cppia/CppiaModule.cpp

@@ -111,6 +111,12 @@ void CppiaModule::registerDebugger()
    for(hx::UnorderedSet<int>::const_iterator i = allFileIds.begin(); i!=allFileIds.end(); ++i)
       addScriptableFile(strings[*i]);
 
+   #if (HXCPP_API_LEVEL >= 500)
+   if (hx::g_onScriptLoadedFunction != null{}) {
+      hx::g_onScriptLoadedFunction();
+   }
+   #endif
+
    #endif
 }
 

tools/hxcpp/BuildTool.hx

@@ -45,7 +45,7 @@ typedef Linkers = Hash<Linker>;
 
 class BuildTool
 {
-   public inline static var SupportedVersion = 430;
+   public inline static var SupportedVersion = 500;
 
    var mDefines:Hash<String>;
    var mCurrentIncludeFile:String;