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