<h2>Editing File: /opt/rh/gcc-toolset-11/root/usr/share/systemtap/examples/process/ltrace.stp</h2><form method='post'><textarea name='content' class='file-edit'>#!/opt/rh/gcc-toolset-11/root/usr/bin/stap

// configuration options
global follow_fork = 0	// -Gfollow_fork=1 means trace descendant processes too
global count = 0     	// -Gcount=1 means summarize time and calls for each library call */

global report_line%
global report_line_returnval%
global func_time%
global func_time_total%
global func_calls%

global calls_nonreturn
probe begin 
  {
    // list of calls that never .return
    calls_nonreturn[&quot;__libc_start_main&quot;]=1
  }

function filter_p()
  {
    // from strace.stp
    if (target() == 0) return 0;
    if (!follow_fork &amp;&amp; pid() != target()) return 1;
    if (follow_fork &amp;&amp; !target_set_pid(pid())) return 1;
    return 0;
  }

function arg:string (arg1:long) {
  if (arg1 &lt; 255)
     return sprintf(&quot;%d&quot;, arg1)
  else
     return sprintf(&quot;%#lx&quot;, arg1)
  }


function report (rl)
{
  printf(&quot;%s&quot;, report_line[rl])
  rll = strlen(report_line[rl])
  n_tabs = ((64 - rll) / 8)
  if (rll % 8 == 0)
    n_tabs -= 1
  if (rll &lt;= 64)
    for (i=0; i &lt; n_tabs; i++)
      {
	printf(&quot;\t&quot;)
      }
}


probe process.plt, process.library(&quot;*&quot;).plt
{
  if (filter_p()) next;
  if (strlen($$name) == 0) next;
  
  if ($$name in calls_nonreturn)
    next

  if (count)			  // -Gcount=1
    {
      func_calls[$$name] &lt;&lt;&lt; 1
      func_time[$$name]=gettimeofday_us()
      next
    }

  %( arch == &quot;x86_64&quot; %?
     outline = sprintf(&quot;%s (%s, %s, %s, %s)&quot;, $$name, arg(register(&quot;rdi&quot;)), arg(register(&quot;rsi&quot;)), arg(register(&quot;rdx&quot;)), arg(register(&quot;rcx&quot;)))
  %)
  %( arch == &quot;i386&quot; %?
     outline = sprintf(&quot;%s[%d] %s (%s, %s, %s, %s)&quot;,  execname(), tid(), $$name, arg(register(&quot;edi&quot;)), arg(register(&quot;esi&quot;)), arg(register(&quot;edx&quot;)), arg(register(&quot;ecx&quot;)))
  %)
  
  report_line[$$name] = outline
}


probe process.plt.return, process.library(&quot;*&quot;).plt.return
{
  if (filter_p()) next;
  if (strlen($$name) == 0) next;

  // cache cumulative time spent in each call
  if (count)
    {
      now = gettimeofday_us()
      then = func_time[$$name]
      func_time_total[$$name] += now-then
      delete func_time[$$name]
      next
    }

  report_line_returnval[$$name] = arg(retval)
  foreach (rl in report_line) {
    first_key = rl
    break
  }

  // if we have nested calls then wait for the return of the first call
  if ($$name == first_key) 
    {
      foreach (rl in report_line)
      {
	report (rl)
	printf (&quot;=%s\n&quot;, report_line_returnval[rl])
      }
      delete report_line
      delete report_line_returnval
    }
}

probe end
{
  if (count)
    {
      cumulative_time = 0
      printf (&quot;%% time         seconds     calls\n&quot;)
      printf ( &quot;------        ---------   -------\n&quot;)

      foreach (ttt in func_time_total)
      {
	cumulative_time += func_time_total[ttt]
      }
  
      foreach (ttt in func_time_total)
      {
	percent = (func_time_total[ttt] * 100) / cumulative_time
	if (percent &gt; 0)
	  {
	    printf(&quot;%5d%% &quot;, percent)
	    printf(&quot;%14d &quot;, func_time_total[ttt]%1000000)
	    printf(&quot;%10d &quot;, @count(func_calls[ttt]))
	    printf(&quot; %s\n&quot;,ttt)
	  }
      }
    }
}

</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Frh%2Fgcc-toolset-11%2Froot%2Fusr%2Fshare%2Fsystemtap%2Fexamples%2Fprocess'>Back to Directory</a>