SqMod/vendor/Squirrel/stdlib/sqstdaux.cpp

/* see copyright notice in squirrel.h */
#include <squirrel.h>
#include <sqstdaux.h>
#include <stdio.h>
#include <assert.h>
#include <stdarg.h>

void sqstd_dumptypename(HSQUIRRELVM v, SQInteger idx, const SQChar *name, SQPRINTFUNCTION pf)
{
    switch(sq_gettype(v,idx))
    {
    case OT_NULL:
        pf(v,_SC("[%s] NULL\n"),name);
        break;
    case OT_INTEGER: {
        SQInteger i;
        sq_getinteger(v,idx,&i);
        pf(v,_SC("[%s] " _PRINT_INT_FMT "\n"),name,i);
    } break;
    case OT_FLOAT: {
        SQFloat f;
        sq_getfloat(v,idx,&f);
        pf(v,_SC("[%s] %.14g\n"),name,f);
    } break;
    case OT_USERPOINTER:
        pf(v,_SC("[%s] USERPOINTER\n"),name);
        break;
    case OT_STRING:
        const SQChar *s;
        sq_getstring(v,idx,&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] GENERATOR\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:{
        SQBool bval;
        sq_getbool(v,idx,&bval);
        pf(v,_SC("[%s] %s\n"),name,bval == SQTrue ? _SC("true"):_SC("false"));
                 }
        break;
    default: assert(0); break;
    }
}
void sqstd_dumpstack(HSQUIRRELVM v, SQInteger bottom, SQInteger top, SQPRINTFUNCTION pf)
{
    SQChar b[16];
    while (bottom <= top)
    {
        scsprintf(b, sizeof(b), _PRINT_INT_FMT, bottom);
        sqstd_dumptypename(v, bottom++, b, pf);
    }
}

void sqstd_printcallstack(HSQUIRRELVM v)
{
    SQPRINTFUNCTION pf = sq_geterrorfunc(v);
    if(pf) {
        SQStackInfos si;
        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++;
                sqstd_dumptypename(v,-1,name, pf);
                sq_pop(v,1);
            }
        }
    }
}

static SQInteger _sqstd_aux_printerror(HSQUIRRELVM v)
{
    SQPRINTFUNCTION pf = sq_geterrorfunc(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 OCCURRED [%s]\n"),sErr);
            }
            else{
                pf(v,_SC("\nAN ERROR HAS OCCURRED [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_geterrorfunc(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);
}

SQRESULT sqstd_throwerrorf(HSQUIRRELVM v,const SQChar *err,...)
{
    SQInteger n=256;
    va_list args;
begin:
    va_start(args,err);
    SQChar *b=sq_getscratchpad(v,n);
    SQInteger r=scvsprintf(b,n,err,args);
    va_end(args);
    if (r>=n) {
        n=r+1;//required+null
        goto begin;
    } else if (r<0) {
        return sq_throwerror(v,_SC("@failed to generate formatted error message"));
    } else {
        return sq_throwerror(v,b);
    }
}