libscript: Add MCScriptCreateModuleFromData().

peter-b · peter-b · commit 3df892f5dcb2 · 2015-08-29T13:40:58.000+01:00
Convenience function.
diff --git a/libscript/include/libscript/script.h b/libscript/include/libscript/script.h
@@ -162,6 +162,9 @@ bool MCScriptUnloadPackage(MCScriptPackageRef package);
 // Load a module from a stream.
 bool MCScriptCreateModuleFromStream(MCStreamRef stream, MCScriptModuleRef& r_module);
 
+// Load a module from a blob
+MC_DLLEXPORT bool MCScriptCreateModuleFromData(MCDataRef data, MCScriptModuleRef & r_module);
+
 // Lookup the module with the given name. Returns false if no such module exists.
 bool MCScriptLookupModule(MCNameRef name, MCScriptModuleRef& r_module);
 
diff --git a/libscript/src/script-module.cpp b/libscript/src/script-module.cpp
@@ -18,6 +18,7 @@
 #include <foundation-auto.h>
 
 #include "libscript/script.h"
+#include <libscript/script-auto.h>
 #include "script-private.h"
 
 #include <stddef.h>
@@ -502,6 +503,25 @@ bool MCScriptCreateModuleFromStream(MCStreamRef stream, MCScriptModuleRef& r_mod
     return true;
 }
 
+MC_DLLEXPORT_DEF bool
+MCScriptCreateModuleFromData (MCDataRef data,
+                              MCScriptModuleRef & r_module)
+{
+	MCAutoValueRefBase<MCStreamRef> t_stream;
+	MCAutoScriptModuleRef t_module;
+
+	if (!MCMemoryInputStreamCreate (MCDataGetBytePtr (data),
+	                                MCDataGetLength (data),
+	                                &t_stream))
+		return false;
+
+	if (!MCScriptCreateModuleFromStream (*t_stream, &t_module))
+		return false;
+
+	r_module = MCScriptRetainModule (*t_module);
+	return true;
+}
+
 bool MCScriptLookupModule(MCNameRef p_name, MCScriptModuleRef& r_module)
 {
     for(MCScriptModule *t_module = s_modules; t_module != nil; t_module = t_module -> next_module)
