aboutsummaryrefslogtreecommitdiff
path: root/contrib/bluegnu2.0.3/dejagnu
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/bluegnu2.0.3/dejagnu')
-rwxr-xr-xcontrib/bluegnu2.0.3/dejagnu93
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+"$@"}