diff options
Diffstat (limited to 'examples/scripts.v2/corename')
| -rw-r--r-- | examples/scripts.v2/corename | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/examples/scripts.v2/corename b/examples/scripts.v2/corename deleted file mode 100644 index 2b51e5d..0000000 --- a/examples/scripts.v2/corename +++ /dev/null @@ -1,43 +0,0 @@ -#! /bin/bash -# -# original from: -# @(#) corename.ksh 1.0 93/04/01 -# 92/11/11 john h. dubois iii (john@armory.com) -# 92/02/16 Added help option. -# 92/02/22 Added cd to origdir to fix prob w/multiple relative paths. -# 93/04/01 Added check for whether file exists. -# -# conversion to bash v2 syntax done by Chet Ramey - -# inspired by belal's equivalent utility - -if [ "$1" = -h ]; then - echo \ -"$0: print the names of executables that dumped core. -Usage: $0 [corename ...] -If no corename is given, \"core\" is assumed." - exit 0 -fi - -[ $# = 0 ] && set core -origdir=$PWD -for i; do - cd $origdir - file=${i##*/} - dir=${i%$file} - [ -z "$dir" ] && dir=$origdir/ - if [ ! -f $dir$file ]; then - echo "$dir$file: No such file." - continue - fi - if [ ! -r $dir$file ]; then - echo "$dir$file: Cannot open." - continue - fi - cd $dir - - # the adb output syntax is highly variable. this works on SunOS 4.x - set -- $(adb $file < /dev/null 2>&1 | sed 1q) - name=${7#??} - echo "$i: ${name%??}" -done |