summaryrefslogtreecommitdiff
path: root/dbug/remove_function_from_trace.pl
blob: 380df168caf64ff287a544394a2a8a81c97e169f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl

die <<EEE unless @ARGV;
Usage: $0 func1 [func2 [ ...] ]

This filter (stdin->stdout) removes lines from dbug trace that were generated
by specified functions and all functions down the call stack. Produces the
same effect as if the original source had DBUG_PUSH(""); right after
DBUG_ENTER() and DBUG_POP(); right before DBUG_RETURN in every such a function.
EEE

$re=join('|', @ARGV);

while(<STDIN>) {
  ($thd) = /^(T@\d+)/;
  print unless $skip{$thd};
  next unless /^(?:.*: )*((?:\| )*)([<>])($re)\n/o;
  if ($2 eq '>') {
    $skip{$thd}=$1.$3 unless $skip{$thd};
    next;
  }
  next if $skip{$thd} ne $1.$3;
  delete $skip{$thd};
  print;
}