From 083228a10dffcaa77b1d0035c29013c6802befd4 Mon Sep 17 00:00:00 2001
From: "lapayo94@gmail.com"
 <lapayo94@gmail.com@0a769ca7-a7f5-676a-18bf-c427514a06d6>
Date: Sun, 8 Jul 2012 21:01:08 +0000
Subject: Squirrel Plugins

I worked a little bit on the squirrel Bindings
They work now on linux and windows :) (OSX is untested, but should work also) but they are very limited at the moment. (Only made OnChat working)
I also fixed some small bugs.


git-svn-id: http://mc-server.googlecode.com/svn/trunk@648 0a769ca7-a7f5-676a-18bf-c427514a06d6
---
 source/squirrelbindings/SquirrelFunctions.cpp | 65 +++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 source/squirrelbindings/SquirrelFunctions.cpp

(limited to 'source/squirrelbindings/SquirrelFunctions.cpp')

diff --git a/source/squirrelbindings/SquirrelFunctions.cpp b/source/squirrelbindings/SquirrelFunctions.cpp
new file mode 100644
index 000000000..88871369d
--- /dev/null
+++ b/source/squirrelbindings/SquirrelFunctions.cpp
@@ -0,0 +1,65 @@
+
+#include "Globals.h"
+#include "SquirrelFunctions.h"
+#include "SquirrelBindings.h"
+
+static HSQUIRRELVM squirrelvm = NULL;
+
+SQInteger runtimeErrorHandler(HSQUIRRELVM a_VM)
+{
+	const SQChar *sErr = 0;
+	if(sq_gettop(a_VM) >= 1)
+	{
+		if(SQ_SUCCEEDED(sq_getstring(a_VM, 2, &sErr)))
+		{
+			LOGERROR("Squirrel Error: %s", sErr);
+		}
+		else
+		{
+			LOGERROR("Squirrel Error: Unknown Error");
+		}
+	}
+	return 0;
+}
+
+void compilerErrorHandler(HSQUIRRELVM v,
+	const SQChar* a_Desc,
+	const SQChar* a_Source,
+	SQInteger a_Line,
+	SQInteger a_Column)
+{
+	
+	LOGERROR("Squirrel Error: %s (%d:%d) %s", a_Source, a_Line, a_Column, a_Desc);
+}
+
+HSQUIRRELVM OpenSquirrelVM()
+{
+	if(!squirrelvm)
+	{
+		squirrelvm = sq_open(1024);
+		Sqrat::DefaultVM::Set(squirrelvm);
+		
+		sq_newclosure(squirrelvm, runtimeErrorHandler, 0);
+		sq_seterrorhandler(squirrelvm);
+		
+		sq_setcompilererrorhandler(squirrelvm, compilerErrorHandler);
+		
+		BindSquirrel(squirrelvm);
+	}
+	return squirrelvm;
+}
+
+void CloseSquirrelVM()
+{
+	if(squirrelvm)
+	{
+		sq_close(squirrelvm);
+		squirrelvm = NULL;
+	}
+}
+
+
+void sqPrint(SQChar * text)
+{
+	LOGINFO("%s", text);
+}
\ No newline at end of file
-- 
cgit v1.2.3