-= Gametoast.com =-

Code: Select all

function ProcessAddons()
	print("ProcessAddons: START ")
	local addonFile = ""
	for i=1,999, 1 do 
		addonFile = string.format("addon\\%03d\\addon.lvl", i)
		if( ScriptCB_IsFileExist(addonFile) == 1) then 
			print("adding: " .. addonFile )
			ReadDataFile(addonFile)
			ScriptCB_DoFile("addon")
			print("did file: " .. addonFile )
		end 
    end 
    print("ProcessAddons: DONE ")
end

Code: Select all

_LOADED: {  },
os: { },
io: {stdin:userdata, stdout:userdata, stderr:userdata }

Code: Select all

tprint(_G._LOADED)

ReadDataFile("..\\..\\addon\\XXX\\printLVL.lvl")

tprint(_G._LOADED)

print("marker 1")
ScriptCB_DoFile("printLVL")

tprint(_G._LOADED)


print("marker 2")
ScriptCB_DoFile("printLVL")

tprint(_G._LOADED)

print("marker 3")
dofile("..\\..\\addon\\XXX\\printLVL.lvl")

tprint(_G._LOADED)

print("marker 4")
dofile("..\\..\\addon\\XXX\\printLVL.lvl")

tprint(_G._LOADED)

Code: Select all

XXX_interface_script: entered
table: 07B5730C {
}
table: 07B5730C {
}
marker 1
Hello There World
table: 07B5730C {
}
marker 2
table: 07B5730C {
}
marker 3
cannot read ..\..\addon\XXX\printLVL.lvl: No such file or directory

Code: Select all

tprint(_G._LOADED)

ReadDataFile("..\\..\\addon\\XXX\\printLVL.lvl")

tprint(_G._LOADED)

print("marker 1")
ScriptCB_DoFile("printLVL")

tprint(_G._LOADED)


print("marker 2")
ScriptCB_DoFile("printLVL")

tprint(_G._LOADED)

print("marker 3")
dofile("addon\\XXX\\printLVL.lua")

tprint(_G._LOADED)

print("marker 4")
dofile("addon\\XXX\\printLVL.lua")

tprint(_G._LOADED)

Code: Select all

XXX_interface_script: entered
table: 07A4130C {
}
table: 07A4130C {
}
marker 1
Hello There World
table: 07A4130C {
}
marker 2
table: 07A4130C {
}
marker 3
Hello There World
table: 07A4130C {
}
marker 4
Hello There World
table: 07A4130C {
}

Code: Select all

for index, table in ipairs(_G._LOADED) do
    print(index)
    tprint(table)
end

Code: Select all

function dumpToString(obj, count)
    if( count == nil ) then count = 0 end 
    if type(obj) == 'table' then
        local retVal =  string.rep('  ', count) .. '{ '
        for k,v in pairs(obj) do
            retVal =  retVal ..  tostring(k) .. ':' .. dumpToString(v, count+1) .. ', '
        end
        return retVal .. ' },'
    elseif type(obj) == 'string' then 
        return '"' ..  tostring(obj) .. '"'
    else 
        return tostring(obj) 
    end
end

Code: Select all

function dump(obj)
	if type(obj) == 'table' then
		for k,v in pairs(obj) do
			print( type(v)..':'..tostring(k)) 
		end
	else
		print( type(v) ..': ' .. tostring(obj))
	end
end
dump(_G)

Code: Select all

function getn(v)
    local v_type = type(v);
    if v_type == "table" then
        return table.getn(v);
    elseif v_type == "string" then
        return string.len(v);
    else
        return;
    end
end

function string.starts(str, Start)
    return string.sub(str, 1, getn(Start)) == Start;
end

function tprint(t, indent)
    if not indent then indent = 1, print(tostring(t) .. " {") end
    if t then
        for key,value in pairs(t) do
            if not string.starts(tostring(key), "__") then
                local formatting = string.rep("    ", indent) .. tostring(key) .. ": ";
                if value and type(value) == "table" then
					print(formatting .. tostring(value) .. " {")
                    tprint(value, indent+1);
				else
					print(formatting .. tostring(value))
                end
            end
        end
		print(string.rep("    ", indent - 1) .. "}")
    end
end


-- helper function from Zerted to print all contents of a table
function uf_print( data, nested, depth )
	if (not data) then return end	--must have something to print
	if (not type) then return end	--must have something to print
	if depth == 0 then
		print(depth..": uf_print(): Starting: ", data, type, nested, depth)
	end

	--for each pair in the given table, 
	for key,value in pairs(data) do

		--check for nils
		if key == nil and value == nil then
			print(depth..": uf_print(): Both the key and value are nil")
		elseif key == nil then
			print(depth..": uf_print(): Nil key, but value is:", value)
		elseif value == nil then
			print(depth..": uf_print(): Nil value, but key is:", key)
		else
			--have no nils (but a continue keyword would have been nice...)
			
			--display the key, value pair if possible
			if key ~= "mapluafile" then
				--normal display
				print(depth..": Key, Value: ", key, value)
			else
				--have to format map lua file values to prevent crash when outputting the value
				local map = string.format(value, "<A>", "<B>")
				print(depth..": Key, Formated Value: ", key, map)
			end
	
			--if nested, search deeper, but don't recurse into the global table or our starting table
			if nested and key ~= "_G" and key ~= data then
			
				--the developers didn't include type(), so have to use this hack to determine if the value represents a table
				local result = pcall(function(array)
					table.getn(array)
				end, value)
				
				--can only process tables
				if result then
					uf_print(value, nested, depth+1)
				end
			end
		end
	end
	
	if depth == 0 then
		print(depth..": uf_print(): Finished: ", data, nested, depth)
	else
		print()
	end
end