mirror of
https://github.com/VCMP-SqMod/SqMod.git
synced 2024-11-15 04:07:17 +01:00
119 lines
4.0 KiB
C++
119 lines
4.0 KiB
C++
/*
|
|
see copyright notice in squirrel.h
|
|
*/
|
|
#include "sqpcheader.h"
|
|
#include <stdarg.h>
|
|
#include "sqvm.h"
|
|
#include "sqfuncproto.h"
|
|
#include "sqclosure.h"
|
|
#include "sqstring.h"
|
|
|
|
SQRESULT sq_getfunctioninfo(HSQUIRRELVM v,SQInteger level,SQFunctionInfo *fi)
|
|
{
|
|
SQInteger cssize = v->_callsstacksize;
|
|
if (cssize > level) {
|
|
SQVM::CallInfo &ci = v->_callsstack[cssize-level-1];
|
|
if(sq_isclosure(ci._closure)) {
|
|
SQClosure *c = _closure(ci._closure);
|
|
SQFunctionProto *proto = c->_function;
|
|
fi->funcid = proto;
|
|
fi->name = sq_type(proto->_name) == OT_STRING?_stringval(proto->_name):_SC("unknown");
|
|
fi->source = sq_type(proto->_sourcename) == OT_STRING?_stringval(proto->_sourcename):_SC("unknown");
|
|
fi->line = proto->_lineinfos[0]._line;
|
|
return SQ_OK;
|
|
}
|
|
}
|
|
return sq_throwerror(v,_SC("the object is not a closure"));
|
|
}
|
|
|
|
SQRESULT sq_stackinfos(HSQUIRRELVM v, SQInteger level, SQStackInfos *si)
|
|
{
|
|
SQInteger cssize = v->_callsstacksize;
|
|
if (cssize > level) {
|
|
memset(si, 0, sizeof(SQStackInfos));
|
|
SQVM::CallInfo &ci = v->_callsstack[cssize-level-1];
|
|
switch (sq_type(ci._closure)) {
|
|
case OT_CLOSURE:{
|
|
SQFunctionProto *func = _closure(ci._closure)->_function;
|
|
if (sq_type(func->_name) == OT_STRING)
|
|
si->funcname = _stringval(func->_name);
|
|
if (sq_type(func->_sourcename) == OT_STRING)
|
|
si->source = _stringval(func->_sourcename);
|
|
si->line = func->GetLine(ci._ip);
|
|
}
|
|
break;
|
|
case OT_NATIVECLOSURE:
|
|
si->source = _SC("NATIVE");
|
|
si->funcname = _SC("unknown");
|
|
if(sq_type(_nativeclosure(ci._closure)->_name) == OT_STRING)
|
|
si->funcname = _stringval(_nativeclosure(ci._closure)->_name);
|
|
si->line = -1;
|
|
break;
|
|
default: break; //shutup compiler
|
|
}
|
|
return SQ_OK;
|
|
}
|
|
return SQ_ERROR;
|
|
}
|
|
|
|
void SQVM::Raise_Error(const SQChar *s, ...)
|
|
{
|
|
va_list vl;
|
|
va_start(vl, s);
|
|
SQInteger buffersize = (SQInteger)scstrlen(s)+(NUMBER_MAX_CHAR*2);
|
|
scvsprintf(_sp(sq_rsl(buffersize)),buffersize, s, vl);
|
|
va_end(vl);
|
|
_lasterror = SQString::Create(_ss(this),_spval,-1);
|
|
}
|
|
|
|
void SQVM::Raise_Error(const SQObjectPtr &desc)
|
|
{
|
|
_lasterror = desc;
|
|
}
|
|
|
|
SQString *SQVM::PrintObjVal(const SQObjectPtr &o)
|
|
{
|
|
switch(sq_type(o)) {
|
|
case OT_STRING: return _string(o);
|
|
case OT_INTEGER:
|
|
scsprintf(_sp(sq_rsl(NUMBER_MAX_CHAR+1)),sq_rsl(NUMBER_MAX_CHAR), _PRINT_INT_FMT, _integer(o));
|
|
return SQString::Create(_ss(this), _spval);
|
|
break;
|
|
case OT_FLOAT:
|
|
scsprintf(_sp(sq_rsl(NUMBER_MAX_CHAR+1)), sq_rsl(NUMBER_MAX_CHAR), _SC("%.14g"), _float(o));
|
|
return SQString::Create(_ss(this), _spval);
|
|
break;
|
|
default:
|
|
return SQString::Create(_ss(this), GetTypeName(o));
|
|
}
|
|
}
|
|
|
|
void SQVM::Raise_IdxError(const SQObjectPtr &o)
|
|
{
|
|
SQObjectPtr oval = PrintObjVal(o);
|
|
Raise_Error(_SC("the index '%.50s' does not exist"), _stringval(oval));
|
|
}
|
|
|
|
void SQVM::Raise_CompareError(const SQObject &o1, const SQObject &o2)
|
|
{
|
|
SQObjectPtr oval1 = PrintObjVal(o1), oval2 = PrintObjVal(o2);
|
|
Raise_Error(_SC("comparison between '%.50s' and '%.50s'"), _stringval(oval1), _stringval(oval2));
|
|
}
|
|
|
|
|
|
void SQVM::Raise_ParamTypeError(SQInteger nparam,SQInteger typemask,SQInteger type)
|
|
{
|
|
SQObjectPtr exptypes = SQString::Create(_ss(this), _SC(""), -1);
|
|
SQInteger found = 0;
|
|
for(SQInteger i=0; i<16; i++)
|
|
{
|
|
SQInteger mask = ((SQInteger)1) << i;
|
|
if(typemask & (mask)) {
|
|
if(found>0) StringCat(exptypes,SQString::Create(_ss(this), _SC("|"), -1), exptypes);
|
|
found ++;
|
|
StringCat(exptypes,SQString::Create(_ss(this), IdType2Name((SQObjectType)mask), -1), exptypes);
|
|
}
|
|
}
|
|
Raise_Error(_SC("parameter %d has an invalid type '%s' ; expected: '%s'"), nparam, IdType2Name((SQObjectType)type), _stringval(exptypes));
|
|
}
|