Diff: etc/minimal.c

Revision:

0:97a4f8cc534c

diff -r 000000000000 -r 97a4f8cc534c etc/minimal.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/etc/minimal.c	Tue Dec 16 10:20:34 2014 +0000
@@ -0,0 +1,78 @@
+#include <stdarg.h> 
+#include <stdio.h> 
+
+#include <squirrel.h> 
+#include <sqstdio.h> 
+#include <sqstdaux.h> 
+
+#ifdef _MSC_VER
+#pragma comment (lib ,"squirrel.lib")
+#pragma comment (lib ,"sqstdlib.lib")
+#endif
+
+#ifdef SQUNICODE 
+
+#define scvprintf vfwprintf
+#else 
+
+#define scvprintf vfprintf
+#endif 
+
+void printfunc(HSQUIRRELVM v,const SQChar *s,...)
+{
+	va_list vl;
+	va_start(vl, s);
+	scvprintf(stdout, s, vl);
+	va_end(vl);
+}
+
+void errorfunc(HSQUIRRELVM v,const SQChar *s,...)
+{
+	va_list vl;
+	va_start(vl, s);
+	scvprintf(stderr, s, vl);
+	va_end(vl);
+}
+
+void call_foo(HSQUIRRELVM v, int n,float f,const SQChar *s)
+{
+	SQInteger top = sq_gettop(v); //saves the stack size before the call
+	sq_pushroottable(v); //pushes the global table
+	sq_pushstring(v,_SC("foo"),-1);
+	if(SQ_SUCCEEDED(sq_get(v,-2))) { //gets the field 'foo' from the global table
+		sq_pushroottable(v); //push the 'this' (in this case is the global table)
+		sq_pushinteger(v,n); 
+		sq_pushfloat(v,f);
+		sq_pushstring(v,s,-1);
+		sq_call(v,4,SQFalse,SQTrue); //calls the function 
+	}
+	sq_settop(v,top); //restores the original stack size
+}
+
+int main(int argc, char* argv[]) 
+{ 
+	HSQUIRRELVM v; 
+	v = sq_open(1024); // creates a VM with initial stack size 1024 
+
+	//REGISTRATION OF STDLIB
+	//sq_pushroottable(v); //push the root table where the std function will be registered
+	//sqstd_register_iolib(v);  //registers a library
+	// ... call here other stdlibs string,math etc...
+	//sq_pop(v,1); //pops the root table
+	//END REGISTRATION OF STDLIB
+	
+	sqstd_seterrorhandlers(v); //registers the default error handlers
+
+	sq_setprintfunc(v, printfunc,errorfunc); //sets the print function
+
+	sq_pushroottable(v); //push the root table(were the globals of the script will be stored)
+	if(SQ_SUCCEEDED(sqstd_dofile(v, _SC("test.nut"), SQFalse, SQTrue))) // also prints syntax errors if any 
+	{
+		call_foo(v,1,2.5,_SC("teststring"));
+	}
+
+	sq_pop(v,1); //pops the root table
+	sq_close(v); 
+
+	return 0; 
+}