source: code/branches/testing/src/external/tolua/lua/compat-5.1.lua @ 9021

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