| sewardj | 8eb8bab | 2015-07-21 14:44:28 +0000 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | |
| 3 | # Filters are not run for post-test check commands. |
| 4 | # Filter everything here. |
| 5 | |
| 6 | echo "---Status---" |
| 7 | echo "::status" | /usr/bin/mdb vgcore.* | \ |
| 8 | perl -p -e 's/\(.*\) from \S*$/from .../' | \ |
| 9 | perl -0 -p -e 's/^file: .+?^(initial argv:)/$1/ms' | \ |
| Elliott Hughes | a0664b9 | 2017-04-18 17:46:52 -0700 | [diff] [blame^] | 10 | sed '/^threading model:/ d' | \ |
| sewardj | 8eb8bab | 2015-07-21 14:44:28 +0000 | [diff] [blame] | 11 | perl -p -e 's/addr=[0-9A-Fa-f]+/addr=......../g' |
| 12 | |
| 13 | echo "\n---Stacks---" |
| 14 | echo "::stacks ! perl -p -e 's/^(\S+)\+.*/\$1/g'" | /usr/bin/mdb vgcore.* | \ |
| 15 | perl -p -e 's/^(THREAD)\s+(STATE)\s+(SOBJ)\s+(COUNT)\s*$/$1 $2 $3 $4\n/' | \ |
| 16 | perl -p -e 's/^(\d+)\s+(UNPARKED)\s+(\S+)\s+(\d+)/$1 $2 $3 $4/g' | \ |
| 17 | perl -p -e 's/^\s*libc.*.so.1/libc.so.1/g' | \ |
| Elliott Hughes | a0664b9 | 2017-04-18 17:46:52 -0700 | [diff] [blame^] | 18 | perl -p -e 's/\+0x[0-9A-Fa-f]+//g' | |
| 19 | sed 's/^ *//g' |