Blame elf/sotruss.sh

Packit Service 82fcde
#! @BASH@
Packit Service 82fcde
# Copyright (C) 2011-2018 Free Software Foundation, Inc.
Packit Service 82fcde
# This file is part of the GNU C Library.
Packit Service 82fcde
Packit Service 82fcde
# The GNU C Library is free software; you can redistribute it and/or
Packit Service 82fcde
# modify it under the terms of the GNU Lesser General Public
Packit Service 82fcde
# License as published by the Free Software Foundation; either
Packit Service 82fcde
# version 2.1 of the License, or (at your option) any later version.
Packit Service 82fcde
Packit Service 82fcde
# The GNU C Library is distributed in the hope that it will be useful,
Packit Service 82fcde
# but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 82fcde
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit Service 82fcde
# Lesser General Public License for more details.
Packit Service 82fcde
Packit Service 82fcde
# You should have received a copy of the GNU Lesser General Public
Packit Service 82fcde
# License along with the GNU C Library; if not, see
Packit Service 82fcde
# <http://www.gnu.org/licenses/>.
Packit Service 82fcde
Packit Service 82fcde
# We should be able to find the translation right at the beginning.
Packit Service 82fcde
TEXTDOMAIN=libc
Packit Service 82fcde
TEXTDOMAINDIR=@TEXTDOMAINDIR@
Packit Service 82fcde
Packit Service 82fcde
unset SOTRUSS_FROMLIST
Packit Service 82fcde
unset SOTRUSS_TOLIST
Packit Service 82fcde
unset SOTRUSS_OUTNAME
Packit Service 82fcde
unset SOTRUSS_EXIT
Packit Service 82fcde
unset SOTRUSS_NOINDENT
Packit Service 82fcde
SOTRUSS_WHICH=$$
Packit Service 82fcde
lib='@PREFIX@/$LIB/audit/sotruss-lib.so'
Packit Service 82fcde
Packit Service 82fcde
do_help() {
Packit Service 82fcde
  echo $"Usage: sotruss [OPTION...] [--] EXECUTABLE [EXECUTABLE-OPTION...]
Packit Service 82fcde
  -F, --from FROMLIST     Trace calls from objects on FROMLIST
Packit Service 82fcde
  -T, --to TOLIST         Trace calls to objects on TOLIST
Packit Service 82fcde
Packit Service 82fcde
  -e, --exit              Also show exits from the function calls
Packit Service 82fcde
  -f, --follow            Trace child processes
Packit Service 82fcde
  -o, --output FILENAME   Write output to FILENAME (or FILENAME.$PID in case
Packit Service 82fcde
			  -f is also used) instead of standard error
Packit Service 82fcde
Packit Service 82fcde
  -?, --help              Give this help list
Packit Service 82fcde
      --usage             Give a short usage message
Packit Service 82fcde
      --version           Print program version"
Packit Service 82fcde
Packit Service 82fcde
  echo
Packit Service 82fcde
  printf $"Mandatory arguments to long options are also mandatory for any corresponding\nshort options.\n"
Packit Service 82fcde
  echo
Packit Service 82fcde
Packit Service 82fcde
  printf $"For bug reporting instructions, please see:\\n%s.\\n" \
Packit Service 82fcde
    "@REPORT_BUGS_TO@"
Packit Service 82fcde
  exit 0
Packit Service 82fcde
}
Packit Service 82fcde
Packit Service 82fcde
do_missing_arg() {
Packit Service 82fcde
  printf >&2 $"%s: option requires an argument -- '%s'\n" sotruss "$1"
Packit Service 82fcde
  printf >&2 $"Try \`%s --help' or \`%s --usage' for more information.\n" sotruss sotruss
Packit Service 82fcde
  exit 1
Packit Service 82fcde
}
Packit Service 82fcde
Packit Service 82fcde
do_ambiguous() {
Packit Service 82fcde
  printf >&2 $"%s: option is ambiguous; possibilities:"
Packit Service 82fcde
  while test $# -gt 0; do
Packit Service 82fcde
    printf >&2 " '%s'" $1
Packit Service 82fcde
    shift
Packit Service 82fcde
  done
Packit Service 82fcde
  printf >&2 "\n"
Packit Service 82fcde
  printf >&2 $"Try \`%s --help' or \`%s --usage' for more information.\n" sotruss sotruss
Packit Service 82fcde
  exit 1
Packit Service 82fcde
}
Packit Service 82fcde
Packit Service 82fcde
while test $# -gt 0; do
Packit Service 82fcde
  case "$1" in
Packit Service 82fcde
  --v | --ve | --ver | --vers | --versi | --versio | --version)
Packit Service 82fcde
    echo "sotruss @PKGVERSION@@VERSION@"
Packit Service 82fcde
    printf $"Copyright (C) %s Free Software Foundation, Inc.
Packit Service 82fcde
This is free software; see the source for copying conditions.  There is NO
Packit Service 82fcde
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Packit Service 82fcde
" "2018"
Packit Service 82fcde
    printf $"Written by %s.\n" "Ulrich Drepper"
Packit Service 82fcde
    exit 0
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -\? | --h | --he | --hel | --help)
Packit Service 82fcde
    do_help
Packit Service 82fcde
    ;;
Packit Service 82fcde
  --u | --us | --usa | --usag | --usage)
Packit Service 82fcde
    printf $"Usage: %s [-ef] [-F FROMLIST] [-o FILENAME] [-T TOLIST] [--exit]
Packit Service 82fcde
	    [--follow] [--from FROMLIST] [--output FILENAME] [--to TOLIST]
Packit Service 82fcde
	    [--help] [--usage] [--version] [--]
Packit Service 82fcde
	    EXECUTABLE [EXECUTABLE-OPTION...]\n" sotruss
Packit Service 82fcde
    exit 0
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -F | --fr | --fro | --from)
Packit Service 82fcde
    if test $# -eq 1; then
Packit Service 82fcde
      do_missing_arg "$1"
Packit Service 82fcde
    fi
Packit Service 82fcde
    shift
Packit Service 82fcde
    SOTRUSS_FROMLIST="$1"
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -T | --t | --to)
Packit Service 82fcde
    if test $# -eq 1; then
Packit Service 82fcde
      do_missing_arg "$1"
Packit Service 82fcde
    fi
Packit Service 82fcde
    shift
Packit Service 82fcde
    SOTRUSS_TOLIST="$1"
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -o | --o | --ou | --out | --outp | --outpu | --output)
Packit Service 82fcde
    if test $# -eq 1; then
Packit Service 82fcde
      do_missing_arg "$1"
Packit Service 82fcde
    fi
Packit Service 82fcde
    shift
Packit Service 82fcde
    SOTRUSS_OUTNAME="$1"
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -f | --fo | --fol | --foll | --follo | --follow)
Packit Service 82fcde
    unset SOTRUSS_WHICH
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -l | --l | --li | --lib)
Packit Service 82fcde
    if test $# -eq 1; then
Packit Service 82fcde
      do_missing_arg "$1"
Packit Service 82fcde
    fi
Packit Service 82fcde
    shift
Packit Service 82fcde
    lib="$1"
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -e | --e | --ex | --exi | --exit)
Packit Service 82fcde
    SOTRUSS_EXIT=1
Packit Service 82fcde
    ;;
Packit Service 82fcde
  --f)
Packit Service 82fcde
    do_ambiguous '--from' '--follow'
Packit Service 82fcde
    ;;
Packit Service 82fcde
  --)
Packit Service 82fcde
    shift
Packit Service 82fcde
    break
Packit Service 82fcde
    ;;
Packit Service 82fcde
  -*)
Packit Service 82fcde
    printf >&2 $"%s: unrecognized option '%c%s'\n" sotruss '-' ${1#-}
Packit Service 82fcde
    printf >&2 $"Try \`%s --help' or \`%s --usage' for more information.\n" sotruss sotruss
Packit Service 82fcde
    exit 1
Packit Service 82fcde
    ;;
Packit Service 82fcde
  *)
Packit Service 82fcde
    break
Packit Service 82fcde
    ;;
Packit Service 82fcde
  esac
Packit Service 82fcde
  shift
Packit Service 82fcde
done
Packit Service 82fcde
Packit Service 82fcde
export SOTRUSS_FROMLIST
Packit Service 82fcde
export SOTRUSS_TOLIST
Packit Service 82fcde
export SOTRUSS_OUTNAME
Packit Service 82fcde
export SOTRUSS_WHICH
Packit Service 82fcde
export SOTRUSS_EXIT
Packit Service 82fcde
export LD_AUDIT="$lib"
Packit Service 82fcde
Packit Service 82fcde
exec "$@"