Yu1709$!%yuyu!$%wutu!5=126+

                
____  ___       .__                 
\   \/  /  _____|  |   ______  _  __
 \     /  /  ___/  |  /  _ \ \/ \/ /
 /     \  \___ \|  |_(  <_> )     / 
/___/\  \/____  >____/\____/ \/\_/  
      \_/     \/    @ligmakokz

Editing: 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);
}

Name	Type	Actions
alias_suffixes.meta	File
alias_suffixes.stp	File
also_ran.meta	File
also_ran.stp	File
ansi_colors.meta	File
ansi_colors.stp	File
ansi_colors2.meta	File
ansi_colors2.stp	File
badname.meta	File
badname.stp	File
badname.txt	File
callgraph.meta	File
callgraph.stp	File
callgraph.txt	File
click.wav	File
cpu_throttle.meta	File
cpu_throttle.stp	File
eventcount.meta	File
eventcount.stp	File
eventcount.txt	File
floatingpoint.meta	File
floatingpoint.stp	File
floatingpoint.txt	File
func_time_stats.meta	File
func_time_stats.stp	File
func_time_stats.txt	File
grapher.stp	File
graphs.meta	File
graphs.stp	File
helloworld.meta	File
helloworld.stp	File
key.meta	File
key.stp	File
keyhack.meta	File
keyhack.stp	File
measureinterval.meta	File
measureinterval.stp	File
para-callgraph-verbose.meta	File
para-callgraph-verbose.stp	File
para-callgraph.meta	File
para-callgraph.stp	File
para-callgraph.txt	File
py2example.meta	File
py2example.tcl	File
py3example.meta	File
py3example.tcl	File
pyexample.py	File
pyexample.stp	File
regex.meta	File
regex.stp	File
return.wav	File
sizeof.meta	File
sizeof.stp	File
sizeof.txt	File
sizeof_interactive.meta	File
sizeof_interactive.stp	File
sizeof_interactive.txt	File
socket-events.meta	File
socket-events.stp	File
stopwatches.meta	File
stopwatches.stp	File
tcl-funtop.meta	File
tcl-funtop.stp	File
tcl-trace.meta	File
tcl-trace.stp	File
varwatch.meta	File
varwatch.stp	File
varwatch.txt	File
watchdog.meta	File
watchdog.stp	File
whythefail.meta	File
whythefail.stp	File
whythefail.txt	File