#!/bin/sh
# Copyright (C) 1998-2016 Free Software Foundation, Inc.
# This file is part of the GNU C Library.
# Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.

# The GNU C Library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.

# The GNU C Library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.

# You should have received a copy of the GNU Lesser General Public
# License along with the GNU C Library; if not, see
# <http://www.gnu.org/licenses/>.

if test $Argc -eq 0 {
  echo "$0: missing program name" > !2
  echo "Try \`$0 --help' for more information." > !2
  exit 1
}

setglobal prog = $1
shift

if test $Argc -eq 0 {
  match $prog {
    with --h | --he | --hel | --help
      echo 'Usage: catchsegv PROGRAM ARGS...'
      echo '  --help      print this help, then exit'
      echo '  --version   print version number, then exit'
      echo 'For bug reporting instructions, please see:'
      cat << '''
@REPORT_BUGS_TO@.
'''
      exit 0
      
    with --v | --ve | --ver | --vers | --versi | --versio | --version
      echo 'catchsegv @PKGVERSION@@VERSION@'
      echo 'Copyright (C) 2016 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Written by Ulrich Drepper.'
      exit 0
      
    with *
      
  }
}

setglobal segv_output = $[mktemp $(TMPDIR:-/tmp)/segv_output.XXXXXX] || exit

# Redirect stderr to avoid termination message from shell.
shell {exec !3 > !2 !2 >/dev/null
env LD_PRELOAD=$(LD_PRELOAD:+${LD_PRELOAD}:)@SLIB@/libSegFault.so \
SEGFAULT_USE_ALTSTACK=1 \
SEGFAULT_OUTPUT_NAME=$segv_output \
$prog $(1+"$@") !2 > !3 !3 > !-}
setglobal exval = $Status

# Check for output.  Even if the program terminated correctly it might
# be that a minor process (clone) failed.  Therefore we do not check the
# exit code.
if test -s $segv_output {
  # The program caught a signal.  The output is in the file with the
  # name we have in SEGFAULT_OUTPUT_NAME.  In the output the names of
  # functions in shared objects are available, but names in the static
  # part of the program are not.  We use addr2line to get this information.
  match $prog {
  with */* 
  with *
    setglobal old_IFS = $IFS
    setglobal IFS = ':'
    for p in [$PATH] {
      test -n $p || setglobal p = '.'
      if test -f "$p/$prog" {
	setglobal prog = "$p/$prog"
      break
      }
    }
    setglobal IFS = $old_IFS
    
  }
  sed '/Backtrace/q' $segv_output
  sed '1,/Backtrace/d' $segv_output |
  shell {while read line {
     setglobal line = $[echo $line | sed "s@^$prog\\(\\[.*\\)@\1@]
     match $line {
       with \[* setglobal addr = $[echo $line | sed 's/^\[\(.*\)\]$/\1/]
	    setglobal complete = $[addr2line -f -e $prog $addr !2 >/dev/null]
	    if test $Status -eq 0 {
	      echo "$[echo $complete|sed 'N;s/\(.*\)\n\(.*\)/\2(\1)/;]$line"
	    } else {
	      echo $line
	    }
	    
	 with * echo $line
	    
     }
   }}
}
rm -f $segv_output

exit $exval