testsuite/systemtap.samples/primes.stp


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

#! stap

global odds, evens

probe begin {
  # "no" and "ne" are local integers
  for (i=1; i<10; i++) {
    if (i % 2) odds [no++] = i
    else evens [ne++] = i
  }
  delete odds[2]
  delete evens[3]
  exit ()
}

probe end {
  foreach (x+ in odds) {
    printf("odds[%d] = %d\n", x, odds[x])
  }
  foreach (x in evens-) {
    printf("evens[%d] = %d\n", x, evens[x])
  }
}