Home | History | Annotate | Line # | Download | only in contrib 
      1 #!/bin/bash -eu
      2 #
      3 # Script to reproduce a test failure from a dejagnu .log file.
      4 #
      5 # Contributed by Diego Novillo <dnovillo (at] google.com>
      6 #
      7 # Copyright (C) 2011, 2012, 2013 Free Software Foundation, Inc.
      8 #
      9 # This file is part of GCC.
     10 #
     11 # GCC is free software; you can redistribute it and/or modify
     12 # it under the terms of the GNU General Public License as published by
     13 # the Free Software Foundation; either version 3, or (at your option)
     14 # any later version.
     15 #
     16 # GCC is distributed in the hope that it will be useful,
     17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     19 # GNU General Public License for more details.
     20 #
     21 # You should have received a copy of the GNU General Public License
     22 # along with GCC; see the file COPYING.  If not, write to
     23 # the Free Software Foundation, 51 Franklin Street, Fifth Floor,
     24 # Boston, MA 02110-1301, USA.
     25 
     26 # This script will search a line starting with 'spawn' that includes the
     27 # pattern you are looking for (typically a source file name).
     28 #
     29 # Once it finds that pattern, it re-executes the whole command
     30 # in the spawn line.  If the pattern matches more than one spawn
     31 # command, it asks which one you want.
     32 
     33 if [ $# -lt 2 ] ; then
     34     echo "usage: $0 [--debug|--debug-tui] pattern file.log [additional-args]"
     35     echo
     36     echo "Finds the 'spawn' line matching PATTERN in FILE.LOG and executes"
     37     echo "the command with any arguments in ADDITIONAL-ARGS."
     38     echo
     39     echo "If --debug is used, the compiler is invoked with -wrapper gdb,--args"
     40     echo "If --debug-tui is used, the compiler is invoked with -wrapper "\
     41          "gdb,--tui,--args"
     42     exit 1
     43 fi
     44 
     45 if [ "$1" = "--debug" ] ; then
     46     debug_args="-wrapper gdb,--args"
     47     shift
     48 elif [ "$1" = "--debug-tui" ] ; then
     49     debug_args="-wrapper gdb,--tui,--args"
     50     shift
     51 else
     52     debug_args=""
     53 fi
     54 pattern="$1"
     55 logf="$2"
     56 shift 2
     57 
     58 # Find the commands in LOGF that reference PATTERN.
     59 lines=$(grep -E "^spawn .*$pattern" $logf \
     60         | sed -e 's/^spawn -ignore SIGHUP //' \
     61         | sed -e 's/^spawn //')
     62 if [ -z "$lines" ] ; then
     63     echo "Could not find a spawn command for pattern $pattern"
     64     exit 1
     65 fi
     66 
     67 # Collect all the command lines into the COMMANDS array.
     68 old_IFS="$IFS"
     69 IFS="
"
     71 num_lines=0
     72 for line in $lines ; do
     73     num_lines=$[$num_lines + 1]
     74     echo "[$num_lines] $line"
     75     commands[$num_lines]=$line
     76 done
     77 
     78 # If we found more than one line for PATTERN, ask which one we should run.
     79 cmds_to_run='0'
     80 if [ $num_lines -gt 1 ] ; then
     81     echo
     82     echo
     83     echo -n "Enter the list of commands to run or '0' to run them all: "
     84     read cmds_to_run
     85 fi
     86 if [ "$cmds_to_run" = "0" ] ; then
     87     cmds_to_run=$(seq 1 $num_lines)
     88 fi
     89 IFS="$old_IFS"
     90 
     91 # Finally, execute all the commands we were told to execute.
     92 for cmd_num in $cmds_to_run ; do
     93     cmd=${commands[$cmd_num]}
     94     set -x +e
     95     $cmd $debug_args "$@"
     96     set +x -e
     97 done
     98