source: code/archive/tutorialHS08/src/tolua/lua/compat-5.1.lua @ 10177

if string.find(_VERSION, "5%.0") then
        return
end

-- "loadfile"
local function pp_dofile(path)

        local loaded = false
        local getfile = function()

                if loaded then
                        return
                else
                        local file,err = io.open(path)
                        if not file then
                                error("error loading file "..path..": "..err)
                        end
                        local ret = file:read("*a")
                        file:close()

                        ret = string.gsub(ret, "%.%.%.%s*%)", "...) local arg = {n=select('#', ...), ...};")

                        loaded = true
                        return ret
                end
        end

        local f = load(getfile, path)
        return f()
end

old_dofile = dofile
dofile = pp_dofile


-- string.gsub
--[[
local ogsub = string.gsub
local function compgsub(a,b,c,d)
  if type(c) == "function" then
    local oc = c
    c = function (...) return oc(...) or '' end
  end
  return ogsub(a,b,c,d)
end
string.repl = ogsub
--]]

--string.gsub = compgsub