local function do_indent(code, indent_symbol)
	local lines = {}
	for line in code:gmatch("([^\n]*)\n?") do
		if line:match("%S") then
			table.insert(lines, indent_symbol..line)
		else
			table.insert(lines, line)
		end
	end
	return table.concat(lines, "\n")
end

local indent_style = "\t"

return function(result_filename, entry_filename, module_files)
	result_filename = fs.combine(shell.dir(), result_filename)
	entry_filename = fs.combine(shell.dir(), entry_filename)


	local injected_code = [[
local modules = {}

]]
	for _, filename in ipairs(module_files) do
		local mod_name = filename:gsub(".lua$", ""):gsub("[/\\]", ".")

		injected_code = injected_code .. "modules[\"" .. mod_name .. "\"] = function(...)\n"
		local f = io.open(fs.combine(shell.dir(), filename), "r")
		for line in f:lines() do
			if line:match("%S") then
				injected_code = injected_code .. indent_style .. line .. "\n"
			else
				injected_code = injected_code .. "\n"
			end
		end
		injected_code = injected_code .. "end\n\n"
	end

	injected_code = injected_code .. [[table.insert(package.loaders, 1, function(module_name)
	module_name = module_name:gsub("[/\\]", ".")
	local module = modules[module_name]
	if not module then
		return nil, ("no static module '%s'"):format(module_name)
	end
	return function(...) return module(...) end
end)]]

	injected_code = "do\n" .. do_indent(injected_code, indent_style) .. "\nend\n\n"

	do
		local entry_file = io.open(entry_filename, "r")
		local result_file = io.open(result_filename, "w")

		result_file:write(injected_code)
		result_file:write(entry_file:read("a"))

		entry_file:close()
		result_file:close()
	end

	return true
end