#!/usr/local/bin/recon
local ktrace = require 'ktrace'
if arg[1] == '-h' then
io.stderr:write[[
usage: pirate [<trace-file-path>]
pirate monitors for jetsam, on the high seas!
]]
os.exit(0)
end
local sess = ktrace.Session.new(arg[1])
sess:add_callback_pair('MEMSTAT_jetsam', function (start, finish)
local pid = finish[2]
local reclaimed_kb = finish[4] / 1024
local duration_ns = sess:ns_from_abs(finish.abstime - start.abstime)
print(('%12f: %32s: duration = %gus, reclaimed = %gKB'):format(
sess:relns_from_abs(start.abstime) / 1e9, sess:procname_for_pid(pid),
duration_ns / 1000, reclaimed_kb))
end)
local ok, err = sess:start()
if not ok then
io.stderr:write('pirate: failed to start tracing: ', err, '\n')
os.exit(1)
end