showtime macros

showtime.jl

macro showtime(ex)

    blk = Expr(:block)
    push!(blk.args, :(println($(sprint(Base.show_unquoted,ex)*" = "),
                              repr(begin value=$(esc(ex)) end))))
    push!(blk.args, :value)

    quote
        local stats = Base.gc_num()
        local elapsedtime = Base.time_ns()
        $blk
        elapsedtime = Base.time_ns() - elapsedtime
        local diff = Base.GC_Diff(Base.gc_num(), stats)
        Base.time_print(elapsedtime, diff.allocd, diff.total_time, Base.gc_alloc_count(diff))
        value
    end
end

macro printtime(ex)

    blk = Expr(:block)
    push!(blk.args, :(println($(sprint(Base.show_unquoted,ex)*" = "),
                              "...")))
    push!(blk.args, :(value = $(esc(ex))))

    quote
        local stats = Base.gc_num()
        local elapsedtime = Base.time_ns()
        $blk
        elapsedtime = Base.time_ns() - elapsedtime
        local diff = Base.GC_Diff(Base.gc_num(), stats)
        Base.time_print(elapsedtime, diff.allocd, diff.total_time, Base.gc_alloc_count(diff))
        value
    end
end