require "cjson"
require "posix"

function dump_value(value, indent)
    if indent == nil then
        indent = ""
    end

    if value == cjson.null then
        value = "<cjson.null>"
    end

    if type(value) == "string" or type(value) == "number" or
       type(value) == "boolean" then
        print(indent .. tostring(value))
    elseif type(value) == "table" then
        local count = 0
        for k, v in pairs(value) do
            dump_value(v, indent .. k .. ":  ")
            count = count + 1
        end
        if count == 0 then
            print(indent .. ": <empty>")
        end
    else
        print(indent .. "<" .. type(value) .. ">")
    end

end

function file_load(filename)
    local file, err = io.open(filename)
    if file == nil then
        error("Unable to read " .. filename)
    end
    local data = file:read("*a")
    file:close()

    return data
end

function gettimeofday()
    local tv_sec, tv_usec = posix.gettimeofday()

    return tv_sec + tv_usec / 1000000
end

function benchmark(tests, iter, rep)
    local function bench(func, iter)
        collectgarbage("collect")
        local t = gettimeofday()
        for i = 1, iter do
            func(i)
        end
        t = gettimeofday() - t
        return (iter / t)
    end

    local test_results = {}
    for name, func in pairs(tests) do
        -- k(number), v(string)
        -- k(string), v(function)
        -- k(number), v(function)
        if type(func) == "string" then
            name = func
            func = _G[name]
        end
        local result = {}
        for i = 1, rep do
            result[i] = bench(func, iter)
        end
        table.sort(result)
        test_results[name] = result[rep]
    end

    return test_results
end

-- vi:ai et sw=4 ts=4: