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
28
29
30

#! 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 begin /* syscall("zamboni") */
{
  tgid=0
  pid=0
  tid=0
  ar2[tid] = string (tgid);
  search (pid)
}

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