Function PrintVariables

sdk/tests/test_feature/source/test_debug.cpp:190–264

bool doSkipTemporary = true;
void PrintVariables(asIScriptContext *ctx, asUINT stackLevel)
{
	asIScriptEngine *engine = ctx->GetEngine();

	int typeId = ctx->GetThisTypeId(stackLevel);
	void *varPointer = ctx->GetThisPointer(stackLevel);
	if( typeId )
	{
		print(" this = 0x%x\n", varPointer);
	}

	int numVars = ctx->GetVarCount(stackLevel);
	for( int n = 0; n < numVars; n++ )
	{
		// Skip temporary variables
		const char* name;
		ctx->GetVar(n, stackLevel, &name, &typeId);
		if ((name == 0 || strlen(name) == 0) && doSkipTemporary)
			continue;

		bool inScope = false;
		if (ctx->IsVarInScope(n, stackLevel))
		{
			print(" (in scope)");
			inScope = true;
		}
		else
			print(" (no scope)");

		varPointer = ctx->GetAddressOfVar(n, stackLevel);
		if( typeId == engine->GetTypeIdByDecl("int") )
		{
			if (inScope)
				print(" %s%s = %d\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "", *(int*)varPointer);
			else
				print(" %s%s = {uninitialized}\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "");
		}
		else if (typeId == engine->GetTypeIdByDecl("uint"))
		{
			if (inScope)
				print(" %s%s = %u\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "", *(asUINT*)varPointer);
			else
				print(" %s%s = {uninitialized}\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "");
		}
		else if( typeId == engine->GetTypeIdByDecl("string") )
		{
			CScriptString *str = (CScriptString*)varPointer;
			if( str )
				print(" %s%s = '%s'\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "", str->buffer.c_str());
			else
				print(" %s%s = <null>\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "");
		}
		else if (typeId == engine->GetTypeIdByDecl("foo"))
		{
			if (varPointer)
				print(" %s%s = %d\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "", *(int*)varPointer);
			else
				print(" %s%s = <null>\n", ctx->GetVarDeclaration(n, stackLevel), (name == 0 || strlen(name) == 0) ? "(temp)" : "");