summaryrefslogtreecommitdiff
path: root/src/3rdparty/squirrel/sq/sq.c
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/sq/sq.c
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/sq/sq.c')
-rw-r--r--src/3rdparty/squirrel/sq/sq.c300
1 files changed, 0 insertions, 300 deletions
diff --git a/src/3rdparty/squirrel/sq/sq.c b/src/3rdparty/squirrel/sq/sq.c
deleted file mode 100644
index 0b6c014a9..000000000
--- a/src/3rdparty/squirrel/sq/sq.c
+++ /dev/null
@@ -1,300 +0,0 @@
-/* see copyright notice in squirrel.h */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <stdarg.h>
-
-#if defined(_MSC_VER) && defined(_DEBUG)
-#include <crtdbg.h>
-#include <conio.h>
-#endif
-#include <squirrel.h>
-#include <sqstdblob.h>
-#include <sqstdsystem.h>
-#include <sqstdio.h>
-#include <sqstdmath.h>
-#include <sqstdstring.h>
-#include <sqstdaux.h>
-
-#define scfprintf fprintf
-#define scfopen fopen
-#define scvprintf vprintf
-
-
-void PrintVersionInfos();
-
-#if defined(_MSC_VER) && defined(_DEBUG)
-int MemAllocHook( int allocType, void *userData, size_t size, int blockType,
- long requestNumber, const unsigned char *filename, int lineNumber)
-{
-// if(requestNumber==585)_asm int 3;
- return 1;
-}
-#endif
-
-
-SQInteger quit(HSQUIRRELVM v)
-{
- int *done;
- sq_getuserpointer(v,-1,(SQUserPointer*)&done);
- *done=1;
- return 0;
-}
-
-void printfunc(HSQUIRRELVM v,const SQChar *s,...)
-{
- va_list vl;
- va_start(vl, s);
- vprintf( s, vl);
- va_end(vl);
-}
-
-void PrintVersionInfos()
-{
- fprintf(stdout,"%s %s (%d bits)\n",SQUIRREL_VERSION,SQUIRREL_COPYRIGHT,sizeof(SQInteger)*8);
- if(sizeof(SQFloat) != sizeof(float)) {
- fprintf(stdout,"[%d bits floats]\n",sizeof(SQFloat)*8);
- }
-}
-
-void PrintUsage()
-{
- fprintf(stderr,"usage: sq <options> <scriptpath [args]>.\n"
- "Available options are:\n"
- " -c compiles the file to bytecode(default output 'out.cnut')\n"
- " -o specifies output file for the -c option\n"
- " -c compiles only\n"
- " -d generates debug infos\n"
- " -v displays version infos\n"
- " -h prints help\n");
-}
-
-#define _INTERACTIVE 0
-#define _DONE 2
-//<<FIXME>> this func is a mess
-int getargs(HSQUIRRELVM v,int argc, char* argv[])
-{
- int i;
- int compiles_only = 0;
- static SQChar temp[500];
- const SQChar *ret=NULL;
- char * output = NULL;
- int lineinfo=0;
- if(argc>1)
- {
- int arg=1,exitloop=0;
- while(arg < argc && !exitloop)
- {
-
- if(argv[arg][0]=='-')
- {
- switch(argv[arg][1])
- {
- case 'd': //DEBUG(debug infos)
- sq_enabledebuginfo(v,1);
- break;
- case 'c':
- compiles_only = 1;
- break;
- case 'o':
- if(arg < argc) {
- arg++;
- output = argv[arg];
- }
- break;
- case 'v':
- PrintVersionInfos();
- return _DONE;
-
- case 'h':
- PrintVersionInfos();
- PrintUsage();
- return _DONE;
- default:
- PrintVersionInfos();
- printf("unknown prameter '-%c'\n",argv[arg][1]);
- PrintUsage();
- return _DONE;
- }
- }else break;
- arg++;
- }
-
- // src file
-
- if(arg<argc) {
- const SQChar *filename=NULL;
- filename=argv[arg];
-
- arg++;
- sq_pushroottable(v);
- sq_pushstring(v,"ARGS",-1);
- sq_newarray(v,0);
- for(i=arg;i<argc;i++)
- {
- const SQChar *a;
- a=argv[i];
- sq_pushstring(v,a,-1);
-
- sq_arrayappend(v,-2);
- }
- sq_createslot(v,-3);
- sq_pop(v,1);
- if(compiles_only) {
- if(SQ_SUCCEEDED(sqstd_loadfile(v,filename,SQTrue))){
- SQChar *outfile = "out.cnut";
- if(output) {
- outfile = output;
- }
- if(SQ_SUCCEEDED(sqstd_writeclosuretofile(v,outfile)))
- return _DONE;
- }
- }
- else {
- if(SQ_SUCCEEDED(sqstd_dofile(v,filename,SQFalse,SQTrue))) {
- return _DONE;
- }
- }
- //if this point is reached an error occured
- {
- const SQChar *err;
- sq_getlasterror(v);
- if(SQ_SUCCEEDED(sq_getstring(v,-1,&err))) {
- printf("Error [%s]\n",err);
- return _DONE;
- }
- }
-
- }
- }
-
- return _INTERACTIVE;
-}
-
-void Interactive(HSQUIRRELVM v)
-{
-
-#define MAXINPUT 1024
- SQChar buffer[MAXINPUT];
- SQInteger blocks =0;
- SQInteger string=0;
- SQInteger retval=0;
- SQInteger done=0;
- PrintVersionInfos();
-
- sq_pushroottable(v);
- sq_pushstring(v,"quit",-1);
- sq_pushuserpointer(v,&done);
- sq_newclosure(v,quit,1);
- sq_setparamscheck(v,1,NULL);
- sq_createslot(v,-3);
- sq_pop(v,1);
-
- while (!done)
- {
- SQInteger i = 0;
- printf("\nsq>");
- for(;;) {
- int c;
- if(done)return;
- c = getchar();
- if (c == '\n') {
- if (i>0 && buffer[i-1] == '\\')
- {
- buffer[i-1] = '\n';
- }
- else if(blocks==0)break;
- buffer[i++] = '\n';
- }
- else if (c=='}') {blocks--; buffer[i++] = (SQChar)c;}
- else if(c=='{' && !string){
- blocks++;
- buffer[i++] = (SQChar)c;
- }
- else if(c=='"' || c=='\''){
- string=!string;
- buffer[i++] = (SQChar)c;
- }
- else if (i >= MAXINPUT-1) {
- fprintf(stderr, "sq : input line too long\n");
- break;
- }
- else{
- buffer[i++] = (SQChar)c;
- }
- }
- buffer[i] = '\0';
-
- if(buffer[0]=='='){
- sprintf(sq_getscratchpad(v,MAXINPUT),"return (%s)",&buffer[1]);
- memcpy(buffer,sq_getscratchpad(v,-1),(strlen(sq_getscratchpad(v,-1))+1)*sizeof(SQChar));
- retval=1;
- }
- i=strlen(buffer);
- if(i>0){
- SQInteger oldtop=sq_gettop(v);
- if(SQ_SUCCEEDED(sq_compilebuffer(v,buffer,i,"interactive console",SQTrue))){
- sq_pushroottable(v);
- if(SQ_SUCCEEDED(sq_call(v,1,retval,SQTrue)) && retval){
- printf("\n");
- sq_pushroottable(v);
- sq_pushstring(v,"print",-1);
- sq_get(v,-2);
- sq_pushroottable(v);
- sq_push(v,-4);
- sq_call(v,2,SQFalse,SQTrue);
- retval=0;
- printf("\n");
- }
- }
-
- sq_settop(v,oldtop);
- }
- }
-}
-
-int main(int argc, char* argv[])
-{
- HSQUIRRELVM v;
-
- const SQChar *filename=NULL;
-#if defined(_MSC_VER) && defined(_DEBUG)
- _CrtSetAllocHook(MemAllocHook);
-#endif
-
- v=sq_open(1024);
- sq_setprintfunc(v,printfunc);
-
- sq_pushroottable(v);
-
- sqstd_register_bloblib(v);
- sqstd_register_iolib(v);
- sqstd_register_systemlib(v);
- sqstd_register_mathlib(v);
- sqstd_register_stringlib(v);
-
- //aux library
- //sets error handlers
- sqstd_seterrorhandlers(v);
-
- //gets arguments
- switch(getargs(v,argc,argv))
- {
- case _INTERACTIVE:
- Interactive(v);
- break;
- case _DONE:
- default:
- break;
- }
-
- sq_close(v);
-
-#if defined(_MSC_VER) && defined(_DEBUG)
- _getch();
- _CrtMemDumpAllObjectsSince( NULL );
-#endif
- return 0;
-}
-