memcheck/tests/filter_xml

   1 #! /bin/sh
   2
   3 dir=`dirname $0`
   4
   5 ./filter_stderr "$@" |
   6 $dir/../../tests/filter_xml_frames  |
   7 sed "s/<tid>[0-9]*<\/tid>/<tid>...<\/tid>/" |
   8 sed "s/<pid>[0-9]*<\/pid>/<pid>...<\/pid>/" |
   9 sed "s/<ppid>[0-9]*<\/ppid>/<ppid>...<\/ppid>/" |
  10 sed "s/<obj>.*<\/obj>/<obj>...<\/obj>/" |
  11 sed "s/<line>.*<\/line>/<line>...<\/line>/" |
  12 sed "s/<dir>.*<\/dir>/<dir>...<\/dir>/" |
  13 sed "s/<count>.*<\/count>/<count>...<\/count>/" |
  14 # Filter out @* version symbol function names
  15 sed "s/<fn>\(.*\)\@\*<\/fn>/<fn>\1<\/fn>/" |
  16 sed "s/of size [48]</of size N</" |
  17 perl    -p -e "s/(m_replacemalloc\/)?vg_replace_malloc.c/vg_replace_malloc.c/" |
  18 perl -0 -p -e "s/<suppcounts>.*<\/suppcounts>/<suppcounts>...<\/suppcounts>/s" |
  19 perl    -p -e "s/<time>.*<\/time>/<time>...<\/time>/s" |
  20 perl -0 -p -e "s/<vargv>.*<\/vargv>/<vargv>...<\/vargv>/s" |
  21
  22 # Remove stack traces for Syscall param errors (see filter_stderr for more).
  23 # Chops everything within <stack>...</stack>.
  24 perl -p -0 -e 's/(<what>Syscall param[^\n]*\n)([^\n]*(stack|frame|ip|obj|fn|dir|file|line)[^\n]*\n)+/$1/gs'
  25
  26 # Collected wisdom re Perl magic incantation:
  27 #
  28 # From: Tom Hughes
  29 #
  30 # Two problems - one is that you need -p to force perl to loop over
  31 # the input lines and apply your expression to each one and then print
  32 # the results.
  33 #
  34 # The other is that as somebody else said you need to change the input
  35 # record separator so that it reads in the whole file as a single line
  36 # (which means we can do multi-line matching in a single regexp) which you
  37 # can do with the -0 switch.
  38 #
  39 # Hence -0 -p.