summaryrefslogtreecommitdiff
path: root/src/3rdparty/squirrel/etc
diff options
context:
space:
mode:
authorrubidium <rubidium@openttd.org>2014-09-19 20:06:51 +0000
committerrubidium <rubidium@openttd.org>2014-09-19 20:06:51 +0000
commit79ca66eb673c710432d1f4e51af70730a09a82c8 (patch)
tree5c26b5456711549c69e6d7c74b6e966072670cb6 /src/3rdparty/squirrel/etc
parentbd0cd31d4b4e13dcf99c3b4170069d9eb08a91cf (diff)
downloadopenttd-79ca66eb673c710432d1f4e51af70730a09a82c8.tar.xz
(svn r26853) -Cleanup [Squirrel]: remove some stuff that we never did and especially never should use
Diffstat (limited to 'src/3rdparty/squirrel/etc')
-rw-r--r--src/3rdparty/squirrel/etc/minimal.c58
-rw-r--r--src/3rdparty/squirrel/etc/test.nut4
2 files changed, 0 insertions, 62 deletions
diff --git a/src/3rdparty/squirrel/etc/minimal.c b/src/3rdparty/squirrel/etc/minimal.c
deleted file mode 100644
index ea661c49e..000000000
--- a/src/3rdparty/squirrel/etc/minimal.c
+++ /dev/null
@@ -1,58 +0,0 @@
-#include <stdarg.h>
-#include <stdio.h>
-
-#include <squirrel.h>
-#include <sqstdaux.h>
-
-#ifdef _MSC_VER
-#pragma comment (lib ,"squirrel.lib")
-#pragma comment (lib ,"sqstdlib.lib")
-#endif
-
-#define scvprintf vprintf
-
-void printfunc(HSQUIRRELVM v, const SQChar *s, ...)
-{
-va_list arglist;
-va_start(arglist, s);
-vprintf(s, arglist);
-va_end(arglist);
-}
-
-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,"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
-
- //sq_pushroottable(v); //push the root table were to register the lib function
- //sqstd_register_iolib(v);
- sqstd_seterrorhandlers(v); //registers the default error handlers
-
- sq_setprintfunc(v, printfunc); //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, "test.nut", SQFalse, SQTrue))) // also prints syntax errors if any
- {
- call_foo(v,1,2.5,"teststring");
- }
-
- sq_pop(v,1); //pops the root table
- sq_close(v);
-
- return 0;
-}
diff --git a/src/3rdparty/squirrel/etc/test.nut b/src/3rdparty/squirrel/etc/test.nut
deleted file mode 100644
index 125df32cd..000000000
--- a/src/3rdparty/squirrel/etc/test.nut
+++ /dev/null
@@ -1,4 +0,0 @@
-function foo(i, f, s)
-{
- print("Called foo(), i="+i+", f="+f+", s='"+s+"'\n");
-}