1 files changed, 93 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/dejagnu b/contrib/bluegnu2.0.3/dejagnu
new file mode 100755
index 0000000..db944c2
--- /dev/null
+++ b/contrib/bluegnu2.0.3/dejagnu
@@ -0,0 +1,93 @@
+#! /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+"$@"}