1#! /bin/bash 2# 3# original from: 4# @(#) corename.ksh 1.0 93/04/01 5# 92/11/11 john h. dubois iii (john@armory.com) 6# 92/02/16 Added help option. 7# 92/02/22 Added cd to origdir to fix prob w/multiple relative paths. 8# 93/04/01 Added check for whether file exists. 9# 10# conversion to bash v2 syntax done by Chet Ramey 11 12# inspired by belal's equivalent utility 13 14if [ "$1" = -h ]; then 15 echo \ 16"$0: print the names of executables that dumped core. 17Usage: $0 [corename ...] 18If no corename is given, \"core\" is assumed." 19 exit 0 20fi 21 22[ $# = 0 ] && set core 23origdir=$PWD 24for i; do 25 cd $origdir 26 file=${i##*/} 27 dir=${i%$file} 28 [ -z "$dir" ] && dir=$origdir/ 29 if [ ! -f $dir$file ]; then 30 echo "$dir$file: No such file." 31 continue 32 fi 33 if [ ! -r $dir$file ]; then 34 echo "$dir$file: Cannot open." 35 continue 36 fi 37 cd $dir 38 39 # the adb output syntax is highly variable. this works on SunOS 4.x 40 set -- $(adb $file < /dev/null 2>&1 | sed 1q) 41 name=${7#??} 42 echo "$i: ${name%??}" 43done 44