Loading...
--- xnu/xnu-12377.101.15/tools/trace/pirate.lua
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/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