| Server IP : 104.21.25.180 / Your IP : 104.23.197.122 Web Server : Apache/2.4.37 System : Linux almalinux.duckdns.org 4.18.0-553.111.1.el8_10.x86_64 #1 SMP Sun Mar 8 20:06:07 EDT 2026 x86_64 User : ricodeal ( 1046) PHP Version : 7.4.33 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 <[email protected]>
#
# 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);
}