#!/usr/bin/lua

local luacheck = "luacheck"

core = {}
dofile("tests/lib/misc_helpers.lua")

local WHITESPACE = {
	[" "] = true,
	["\t"] = true,
	["\r"] = true,
	["\n"] = true,
}
function string.strip(str)
	local start = 0
	local stop
	for i = 1,#str do
		if not WHITESPACE[str:sub(i,i)] then
			start = i
			break
		end
	end
	for i = 1,#str do
		local p = #str - i + 1
		if not WHITESPACE[str:sub(p,p)] then
			stop = #str - i + 1
			break
		end
	end

	return str:sub(start, stop)
end

function read_mod_configuration(file)
	local parts = file:split("/")
	parts[#parts] = nil

	local conf = {
		file = file,
		dir = table.concat(parts,"/").."/",
	}

	local f = io.open(file)
	for line in f:lines() do
		local parts = string.split(line,"=")
		if parts and #parts >= 2 then
			local key = parts[1]:strip()
			local value = parts[2]:strip()
			conf[key] = value
		end
	end
	f:close()
	return conf
end

function read_mod_data()
	local mods = {}
	local mod_names = {}

	while true do
		local line = io.read()
		if not line or line == "EOF" then break end

		local mod_conf = read_mod_configuration(line)
		local name = mod_conf.name
		if name then
			table.insert(mod_names, name)
			mods[name] = mod_conf
		else
			print("echo 'Warning! "..line.." doesn't declare module name'")
		end
	end

	return mods,mod_names
end

function get_deps_for_mod(mod, mods)
	local function add_deps_for_mod(mod, mods, deps, seen)
		if not mods[mod] then return end

		local dep_list = mods[mod].depends
		if dep_list then
			local depends = dep_list:split(",")
			for i = 1,#depends do
				local depend = depends[i]:strip()
				if not seen[depend] then
					seen[depend] = true
					table.insert(deps, depend)
					add_deps_for_mod(depend, mods, deps, seen)
				end
			end
		end

		local dep_list = mods[mod].optional_depends
		if dep_list then
			local depends = dep_list:split(",")
			for i = 1,#depends do
				local depend = depends[i]:strip()
				if not seen[depend] then
					seen[depend] = true
					table.insert(deps, depend)
					add_deps_for_mod(depend, mods, deps, seen)
				end
			end
		end

		local dep_list = mods[mod].luacheck_globals
		if dep_list then
			local globals = dep_list:split(",")
			for i = 1,#globals do
				local global = globals[i]:strip()
				if not seen["global: "..global] then
					seen["global: "..global] = true
					table.insert(deps, global)
				end
			end
		end
	end
	local deps = {mod}
	local seen = {[mod] = true}
	add_deps_for_mod(mod, mods, deps, seen)
	return deps
end

local mods,mod_names = read_mod_data()
for i = 1,#mod_names do
	local mod = mod_names[i]
	local config = mods[mod]

	local deps = get_deps_for_mod(mod, mods)

	local cmd_options = " --no-color"
	for i = 1,#deps do
		cmd_options = cmd_options .. " --globals "..deps[i]
	end

	local filename = ""
	print("echo Checking "..config.name.." located at "..config.dir)
	print("(")
	print("\tcd "..config.dir)
	print("\tfor FILE in *.lua; do")
	print("\t\techo "..luacheck.." $FILE"..cmd_options)
	print("\t\t"..luacheck.." $FILE"..cmd_options)
	print("\tdone")
	print(")")
end