diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/dejagnu')
-rwxr-xr-x | contrib/bluegnu2.0.3/dejagnu | 93 |
1 files changed, 0 insertions, 93 deletions
diff --git a/contrib/bluegnu2.0.3/dejagnu b/contrib/bluegnu2.0.3/dejagnu deleted file mode 100755 index db944c2..0000000 --- a/contrib/bluegnu2.0.3/dejagnu +++ /dev/null @@ -1,93 +0,0 @@ -#! /bin/sh -# -# This scripts should start a fully compatible DejaGnu runtest -# application using [incr Expect] and Classes compatible with [incr Tcl] -# -# Copyright (C) 1998 jotOmega dsc, Inc. - -# This file is part of BlueGnu. -# It asumes that the iexpect program is on your PATH -# - -# -# Get the execution path to this script -# -execpath=`echo ${0-.} | sed -e 's@/[^/]*$@@'` - -# -# get the name by which dejagnu was invoked and extract the config triplet -# -dejagnu=`echo ${0-.} | sed -e 's@^.*/@@'` -target=`echo $dejagnu | sed -e 's/-dejagnu$//'` -if [ "$target" != dejagnu ] ; then - target="--target ${target}" -else - target="" -fi - -# -# Find the right expect binary to use. If a variable EXPECT exists, -# it takes precedence over all other tests. Otherwise look for a freshly -# built one, and then use one in the path. -# -if [ x"$EXPECT" != x ] ; then - expectbin=$EXPECT -else - if [ -x "$execpath/expect" ] ; then - expectbin=$execpath/iexpect - else - expectbin=iexpect - fi -fi - -# just to be safe... -if [ -z "$expectbin" ]; then - echo "ERROR: No $expectbin shell found" - exit 1 -fi - -# -# Extract a few options from the option list. -# -verbose=0 -debug="" -for a in "$@" ; do - case $a in - -v|--v|-verb*|--verb*) verbose=`expr $verbose + 1`;; - -D0|--D0) debug="-D 0" ;; - -D1|--D1) debug="-D 1" ;; - esac -done - -if expr $verbose \> 0 > /dev/null ; then - echo Expect binary is $expectbin -fi - -# -# find dejagnu.itcl. First we look in it's installed location, otherwise -# start if from the source tree. -# -for i in $execpath/../lib/bluegnu $execpath ; do - if expr $verbose \> 1 > /dev/null ; then - echo Looking for $i/dejagnu.itcl. - fi - if [ -f $i/dejagnu.itcl ] ; then - runpath=$i - if expr $verbose \> 0 > /dev/null ; then - echo Using $i/dejagnu.itcl as main test driver - fi - fi -done -# check for an environment variable -if [ x"$BLUEGNULIBS" != x ] ; then - runpath=$BLUEGNULIBS - if expr $verbose \> 0 > /dev/null ; then - echo Using $BLUEGNULIBS/dejagnu.itcl as main test driver - fi -fi -if [ x"$runpath" = x ] ; then - echo "ERROR: dejagnu.itcl does not exist." - exit 1 -fi - -exec $expectbin $debug -- $runpath/dejagnu.itcl $target ${1+"$@"} |