1*19c3b8c2SApple OSS Distributions#!/usr/local/bin/recon 2*19c3b8c2SApple OSS Distributions 3*19c3b8c2SApple OSS Distributionslocal ktrace = require 'ktrace' 4*19c3b8c2SApple OSS Distributions 5*19c3b8c2SApple OSS Distributionsif arg[1] == '-h' then 6*19c3b8c2SApple OSS Distributions io.stderr:write[[ 7*19c3b8c2SApple OSS Distributionsusage: pirate [<trace-file-path>] 8*19c3b8c2SApple OSS Distributions 9*19c3b8c2SApple OSS Distributionspirate monitors for jetsam, on the high seas! 10*19c3b8c2SApple OSS Distributions]] 11*19c3b8c2SApple OSS Distributions os.exit(0) 12*19c3b8c2SApple OSS Distributionsend 13*19c3b8c2SApple OSS Distributions 14*19c3b8c2SApple OSS Distributionslocal sess = ktrace.Session.new(arg[1]) 15*19c3b8c2SApple OSS Distributions 16*19c3b8c2SApple OSS Distributionssess:add_callback_pair('MEMSTAT_jetsam', function (start, finish) 17*19c3b8c2SApple OSS Distributions local pid = finish[2] 18*19c3b8c2SApple OSS Distributions local reclaimed_kb = finish[4] / 1024 19*19c3b8c2SApple OSS Distributions local duration_ns = sess:ns_from_abs(finish.abstime - start.abstime) 20*19c3b8c2SApple OSS Distributions print(('%12f: %32s: duration = %gus, reclaimed = %gKB'):format( 21*19c3b8c2SApple OSS Distributions sess:relns_from_abs(start.abstime) / 1e9, sess:procname_for_pid(pid), 22*19c3b8c2SApple OSS Distributions duration_ns / 1000, reclaimed_kb)) 23*19c3b8c2SApple OSS Distributionsend) 24*19c3b8c2SApple OSS Distributions 25*19c3b8c2SApple OSS Distributionslocal ok, err = sess:start() 26*19c3b8c2SApple OSS Distributionsif not ok then 27*19c3b8c2SApple OSS Distributions io.stderr:write('pirate: failed to start tracing: ', err, '\n') 28*19c3b8c2SApple OSS Distributions os.exit(1) 29*19c3b8c2SApple OSS Distributionsend 30