diff options
author | rubidium <rubidium@openttd.org> | 2014-09-19 20:06:51 +0000 |
---|---|---|
committer | rubidium <rubidium@openttd.org> | 2014-09-19 20:06:51 +0000 |
commit | 79ca66eb673c710432d1f4e51af70730a09a82c8 (patch) | |
tree | 5c26b5456711549c69e6d7c74b6e966072670cb6 /src/3rdparty/squirrel/etc | |
parent | bd0cd31d4b4e13dcf99c3b4170069d9eb08a91cf (diff) | |
download | openttd-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.c | 58 | ||||
-rw-r--r-- | src/3rdparty/squirrel/etc/test.nut | 4 |
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"); -} |