Method GetCallsStack

CryScriptSystem/ScriptSystem.cpp:136–200

#define LEVELS2	10	/* size of the second part of the stack */

IScriptObject *CScriptSystem::GetCallsStack()
{
	Validate();
	IScriptObject *pStackTrace=CreateObject();
	int level = 0; 
	int firstpart = 1;  /* still before eventual `...' */
	lua_Debug ar;
	while (lua_getstack(m_pLS, level++, &ar)) {

		l_char buff[120];  /* enough to fit following `sprintf's */
		if (level == 2)
		{
			//luaL_addstring(&b, l_s("stack traceback:\n"));
		}
		else if (level > LEVELS1 && firstpart)
		{
			/* no more than `LEVELS2' more levels? */
			if (!lua_getstack(m_pLS, level+LEVELS2, &ar))
				level--;  /* keep going */
			else {
				//		luaL_addstring(&b, l_s("       ...\n"));  /* too many levels */
				while (lua_getstack(m_pLS, level+LEVELS2, &ar))  /* find last levels */
					level++;
			}
			firstpart = 0;
			continue;
		}

		IScriptObject *pEntry=CreateObject();
		sprintf(buff, l_s("%4d:  "), level-1);

		lua_getinfo(m_pLS, l_s("Snl"), &ar);
		switch (*ar.namewhat)
		{
		case 'g':  case 'l':  /* global, local */
			sprintf(buff, "function `%.50s'", ar.name);
			break;
		case 'f':  /* field */
			sprintf(buff, "method `%.50s'", ar.name);
			break;
		case 't':  /* tag method */
			sprintf(buff, "`%.50s' tag method", ar.name);
			break;
		default: {
			if (*ar.what == 'm')  /* main? */
				sprintf(buff, "main of %.70s", ar.short_src);
			else if (*ar.what == 'C')  /* C function? */
				sprintf(buff, "%.70s", ar.short_src);
			else
				sprintf(buff, "function <%d:%.70s>", ar.linedefined, ar.short_src);
						 }
		}

		pEntry->SetValue("description",buff);
		pEntry->SetValue("line",ar.currentline);
		if (ar.source) {
			pEntry->SetValue("sourcefile",ar.source);
		}