testsuite/semok/seven.stp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#! stap -p2

global ar1, ar2

function string (v) { num=v+0; return "stringify me" } # to become a built-in
function printk (s) { str=s.""; return 0 } # to become a built-in

function search (key) 
{
  if (key in ar1)
    { ar1[key] ++; return ar2[ar1[key]] }
  else
    return "no can do"  # implies ar2[]: string
}

probe syscall("zamboni")
{
  thread->ar2 = string ($tgid);
  search ($pid)
}

probe end
{
  # for (key in ar2)
  if (key in ar2)
    printk ("this: " . string (key) . " was " . ar2[key])
}