| Server IP : 103.4.122.14 / Your IP : 216.73.216.103 Web Server : Apache/2.4.62 (Unix) OpenSSL/1.0.2k-fips System : Linux cwp2.slnet.com.au 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : statewid ( 1251) PHP Version : 8.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/systemtap/examples/general/ |
Upload File : |
#!/usr/bin/stap
# Copyright (C) 2018 Red Hat, Inc.
# Written by William Cohen <wcohen@redhat.com>
#
# Example usage of the tcl tracepoints to show a nested view of all
# tcl function calls (and returns) across the whole system.
#
# Run this using
# stap tcl-trace.stp
# to instrument all tcl processes on the system, or (for example) using
# stap tcl-trace.stp -c COMMAND
# to instrument a specific program (implemented in tcl)
probe process("/usr/lib*/libtcl*.so").mark("proc__entry")
{
funcname = user_string($arg1)
printf("%s => %s\n", thread_indent(1), funcname);
}
probe process("/usr/lib*/libtcl*.so").mark("cmd__entry")
{
cmdname = user_string($arg1)
printf("%s > %s\n", thread_indent(1), cmdname);
}
probe process("/usr/lib*/libtcl*.so").mark("proc__return")
{
funcname = user_string($arg1)
printf("%s <= %s\n", thread_indent(-1), funcname);
}
probe process("/usr/lib*/libtcl*.so").mark("cmd__return")
{
cmdname = user_string($arg1)
printf("%s < %s\n", thread_indent(-1), cmdname);
}