130 lines
3.0 KiB
C++
130 lines
3.0 KiB
C++
|
/* see copyright notice in squirrel.h */
|
||
|
|
#include <squirrel.h>
|
||
|
|
#include <sqstdaux.h>
|
||
|
|
#include <assert.h>
|
||
|
|
|
||
|
|
void sqstd_printcallstack(HSQUIRRELVM v)
|
||
|
|
{
|
||
|
|
SQPRINTFUNCTION pf = sq_getprintfunc(v);
|
||
|
|
if(pf) {
|
||
|
|
SQStackInfos si;
|
||
|
|
SQInteger i;
|
||
|
|
SQFloat f;
|
||
|
|
const SQChar *s;
|
||
|
|
SQInteger level=1; //1 is to skip this function that is level 0
|
||
|
|
const SQChar *name=0;
|
||
|
|
SQInteger seq=0;
|
||
|
|
pf(v,_SC("\nCALLSTACK\n"));
|
||
|
|
while(SQ_SUCCEEDED(sq_stackinfos(v,level,&si)))
|
||
|
|
{
|
||
|
|
const SQChar *fn=_SC("unknown");
|
||
|
|
const SQChar *src=_SC("unknown");
|
||
|
|
if(si.funcname)fn=si.funcname;
|
||
|
|
if(si.source)src=si.source;
|
||
|
|
pf(v,_SC("*FUNCTION [%s()] %s line [%d]\n"),fn,src,si.line);
|
||
|
|
level++;
|
||
|
|
}
|
||
|
|
level=0;
|
||
|
|
pf(v,_SC("\nLOCALS\n"));
|
||
|
|
|
||
|
|
for(level=0;level<10;level++){
|
||
|
|
seq=0;
|
||
|
|
while((name = sq_getlocal(v,level,seq)))
|
||
|
|
{
|
||
|
|
seq++;
|
||
|
|
switch(sq_gettype(v,-1))
|
||
|
|
{
|
||
|
|
case OT_NULL:
|
||
|
|
pf(v,_SC("[%s] NULL\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_INTEGER:
|
||
|
|
sq_getinteger(v,-1,&i);
|
||
|
|
pf(v,_SC("[%s] %d\n"),name,i);
|
||
|
|
break;
|
||
|
|
case OT_FLOAT:
|
||
|
|
sq_getfloat(v,-1,&f);
|
||
|
|
pf(v,_SC("[%s] %.14g\n"),name,f);
|
||
|
|
break;
|
||
|
|
case OT_USERPOINTER:
|
||
|
|
pf(v,_SC("[%s] USERPOINTER\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_STRING:
|
||
|
|
sq_getstring(v,-1,&s);
|
||
|
|
pf(v,_SC("[%s] \"%s\"\n"),name,s);
|
||
|
|
break;
|
||
|
|
case OT_TABLE:
|
||
|
|
pf(v,_SC("[%s] TABLE\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_ARRAY:
|
||
|
|
pf(v,_SC("[%s] ARRAY\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_CLOSURE:
|
||
|
|
pf(v,_SC("[%s] CLOSURE\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_NATIVECLOSURE:
|
||
|
|
pf(v,_SC("[%s] NATIVECLOSURE\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_GENERATOR:
|
||
|
|
pf(v,_SC("[%s] NATIVECLOSURE\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_USERDATA:
|
||
|
|
pf(v,_SC("[%s] USERDATA\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_THREAD:
|
||
|
|
pf(v,_SC("[%s] THREAD\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_CLASS:
|
||
|
|
pf(v,_SC("[%s] CLASS\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_INSTANCE:
|
||
|
|
pf(v,_SC("[%s] INSTANCE\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_WEAKREF:
|
||
|
|
pf(v,_SC("[%s] WEAKREF\n"),name);
|
||
|
|
break;
|
||
|
|
case OT_BOOL:{
|
||
|
|
sq_getinteger(v,-1,&i);
|
||
|
|
pf(v,_SC("[%s] %s\n"),name,i?_SC("true"):_SC("false"));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default: assert(0); break;
|
||
|
|
}
|
||
|
|
sq_pop(v,1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static SQInteger _sqstd_aux_printerror(HSQUIRRELVM v)
|
||
|
|
{
|
||
|
|
SQPRINTFUNCTION pf = sq_getprintfunc(v);
|
||
|
|
if(pf) {
|
||
|
|
const SQChar *sErr = 0;
|
||
|
|
if(sq_gettop(v)>=1) {
|
||
|
|
if(SQ_SUCCEEDED(sq_getstring(v,2,&sErr))) {
|
||
|
|
pf(v,_SC("\nAN ERROR HAS OCCURED [%s]\n"),sErr);
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
pf(v,_SC("\nAN ERROR HAS OCCURED [unknown]\n"));
|
||
|
|
}
|
||
|
|
sqstd_printcallstack(v);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void _sqstd_compiler_error(HSQUIRRELVM v,const SQChar *sErr,const SQChar *sSource,SQInteger line,SQInteger column)
|
||
|
|
{
|
||
|
|
SQPRINTFUNCTION pf = sq_getprintfunc(v);
|
||
|
|
if(pf) {
|
||
|
|
pf(v,_SC("%s line = (%d) column = (%d) : error %s\n"),sSource,line,column,sErr);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void sqstd_seterrorhandlers(HSQUIRRELVM v)
|
||
|
|
{
|
||
|
|
sq_setcompilererrorhandler(v,_sqstd_compiler_error);
|
||
|
|
sq_newclosure(v,_sqstd_aux_printerror,0);
|
||
|
|
sq_seterrorhandler(v);
|
||
|
|
}
|