1#!/bin/sh 2 3# Copyright (C) 2003-2017 Free Software Foundation, Inc. 4 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18# 19# Script to generate a core file of a running program. 20# It starts up gdb, attaches to the given PID and invokes the gcore command. 21# 22 23if [ "$#" -eq "0" ] 24then 25 echo "usage: @GCORE_TRANSFORM_NAME@ [-o filename] pid" 26 exit 2 27fi 28 29# Need to check for -o option, but set default basename to "core". 30name=core 31 32if [ "$1" = "-o" ] 33then 34 if [ "$#" -lt "3" ] 35 then 36 # Not enough arguments. 37 echo "usage: @GCORE_TRANSFORM_NAME@ [-o filename] pid" 38 exit 2 39 fi 40 name=$2 41 42 # Shift over to start of pid list 43 shift; shift 44fi 45 46# Attempt to fetch the absolute path to the gcore script that was 47# called. 48binary_path=`dirname "$0"` 49 50if test "x$binary_path" = x. ; then 51 # We got "." back as a path. This means the user executed 52 # the gcore script locally (i.e. ./gcore) or called the 53 # script via a shell interpreter (i.e. sh gcore). 54 binary_basename=`basename "$0"` 55 56 # If the gcore script was called like "sh gcore" and the script 57 # lives in the current directory, "which" will not give us "gcore". 58 # So first we check if the script is in the current directory 59 # before using the output of "which". 60 if test -f "$binary_basename" ; then 61 # We have a local gcore script in ".". This covers the case of 62 # doing "./gcore" or "sh gcore". 63 binary_path="." 64 else 65 # The gcore script was not found in ".", which means the script 66 # was called from somewhere else in $PATH by "sh gcore". 67 # Extract the correct path now. 68 binary_path_from_env=`which "$0"` 69 binary_path=`dirname "$binary_path_from_env"` 70 fi 71fi 72 73# Check if the GDB binary is in the expected path. If not, just 74# quit with a message. 75if [ ! -f "$binary_path"/@GDB_TRANSFORM_NAME@ ]; then 76 echo "gcore: GDB binary (${binary_path}/@GDB_TRANSFORM_NAME@) not found" 77 exit 1 78fi 79 80# Initialise return code. 81rc=0 82 83# Loop through pids 84for pid in $* 85do 86 # `</dev/null' to avoid touching interactive terminal if it is 87 # available but not accessible as GDB would get stopped on SIGTTIN. 88 $binary_path/@GDB_TRANSFORM_NAME@ </dev/null --nx --batch \ 89 -ex "set pagination off" -ex "set height 0" -ex "set width 0" \ 90 -ex "attach $pid" -ex "gcore $name.$pid" -ex detach -ex quit 91 92 if [ -r $name.$pid ] ; then 93 rc=0 94 else 95 echo "@GCORE_TRANSFORM_NAME@: failed to create $name.$pid" 96 rc=1 97 break 98 fi 99 100 101done 102 103exit $rc 104