PAL.C.T MINI SHELL
#!/usr/bin/stap
global traced_pid, command
global allocation, free
global anon_fault, anon_usrfree, anon_pgin, anon_cow, anon_unmap
function log_event:long ()
{
return (!traced_pid || traced_pid == pid())
}
probe kernel.trace("mm_page_alloc")!, kernel.trace("mm_page_allocation") {
if (!log_event()) next
allocation[pid()] <<< 1
command[pid()] = execname()
}
probe kernel.trace("mm_page_free")!, kernel.trace("mm_page_free_direct") {
if (!log_event()) next
free[pid()] <<< 1
}
probe kernel.trace("mm_anon_fault") {
if (!log_event()) next
anon_fault[pid()] <<< 1
}
probe kernel.trace("mm_anon_pgin") {
if (!log_event()) next
anon_pgin[pid()] <<< 1
}
probe kernel.trace("mm_anon_cow") {
if (!log_event()) next
anon_cow[pid()] <<< 1
}
probe kernel.trace("mm_anon_unmap") {
if (!log_event()) next
anon_unmap[pid()] <<< 1
}
probe kernel.trace("mm_anon_userfree") {
if (!log_event()) next
anon_usrfree[pid()] <<< 1
}
probe begin {
printf("Starting data collection\n")
if (target())
printf("mode Specific Pid, traced pid: %d\n\n", target())
else
printf("mode - All Pids\n\n")
}
probe end {
printf("Terminating data collection\n")
printf("%-16s %6s %8s %7s %7s %7s %7s %7s %7s\n",
"Command", "Pid", "Alloc", "Free", "A_fault",
"A_ufree", "A_pgin", "A_cow", "A_unmap")
printf("%-16s %6s %8s %7s %7s %7s %7s %7s %7s\n",
"-------", "---", "-----", "----", "-------",
"-------", "------", "-----", "-------")
foreach (pid in allocation-)
printf("%-16s %6d %8d %7d %7d %7d %7d %7d %7d\n",
command[pid], pid,
@count(allocation[pid]), @count(free[pid]),
@count(anon_fault[pid]), @count(anon_usrfree[pid]),
@count(anon_pgin[pid]), @count(anon_cow[pid]),
@count(anon_unmap[pid]))
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`