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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
function _print_regs () %{
if (CONTEXT && CONTEXT->regs) {
_stp_print_regs (CONTEXT->regs);
}
%}
function print_regs(){_print_regs()}
function _print_backtrace () %{
if (CONTEXT && CONTEXT->regs) {
_stp_stack_print(CONTEXT->regs);
}
%}
function print_backtrace(){_print_backtrace()}
function _backtrace () %{
if (CONTEXT && CONTEXT->regs) {
String str = _stp_string_init (0);
_stp_stack_sprint (str, CONTEXT->regs, 0);
strlcpy (THIS->__retvalue, _stp_string_ptr(str), MAXSTRINGLEN);
} else
strlcpy (THIS->__retvalue, "", MAXSTRINGLEN);
%}
function backtrace(){return "" . _backtrace()}
function _execname () %{
if(unlikely(in_interrupt()))
strlcpy (THIS->__retvalue, "<unknown>", MAXSTRINGLEN);
else
strlcpy (THIS->__retvalue, current->comm, MAXSTRINGLEN);
%}
function execname(){return ""._execname()}
function _pid() %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->pid;
%}
function pid(){return 0+_pid()}
function _ppid() %{
if(unlikely(in_interrupt() || !current->parent))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->parent->pid;
%}
function ppid(){return 0+_ppid()}
function _pexecname() %{
if(unlikely(in_interrupt() || !current->parent || !current->parent->comm))
strlcpy (THIS->__retvalue, "<unknown>", MAXSTRINGLEN);
else
strlcpy (THIS->__retvalue, current->parent->comm, MAXSTRINGLEN);
%}
function pexecname(){return ""._pexecname()}
function _gid() %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->gid;
%}
function gid(){return 0+_gid()}
function _egid() %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->egid;
%}
function egid(){return 0+_egid()}
function _uid() %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->uid;
%}
function uid(){return 0+_uid()}
function _euid() %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->euid;
%}
function euid(){return 0+_euid()}
function _print_stack(stk) %{
char *ptr = THIS->stk;
char *tok = strsep(&ptr, " ");
_stp_printf ("trace for %d (%s)\n", current->pid, current->comm);
while (tok && *tok) {
_stp_print_cstr(" ");
_stp_symbol_print (simple_strtol(tok, NULL, 16));
_stp_print_cstr("\n");
tok = strsep(&ptr, " ");
}
%}
function print_stack (stk) {_print_stack("".stk)}
|
