+++ /dev/null
-#!/bin/sh
-# This script automatically test the given tool with the tool's test cases,
-# reporting anything of interest.
-
-# exits with 1 if there is nothing of interest
-# exits with 0 if there is something interesting
-# exits with 2 if an error occurred
-
-# Syntax: test-tool [-expectedpass] [-keepoutput] [-noupdate] g++|gcc|gdb|...
-#
-# -expectedpass: Turn XFAIL into "pass", XPASS into "fail".
-# The default is XFAIL->fail, XPASS->pass.
-# -keepoutput: Save "make check" output in test-$tool.log.
-# -noupdate: Don't update log files.
-
-# Limitations, don't run this multiple times in one day, unless the -noupdate
-# flag is given.
-
-# Written by Mike Stump <mrs@cygnus.com>
-
-expectedpass=no
-keepoutput=no
-update=yes
-tool=""
-
-# See if cp -p works.
-pwd=`pwd`
-cd /tmp
-rm -f test-tool-$$-1 test-tool-$$-2
-touch test-tool-$$-1
-cp -p test-tool-$$-1 test-tool-$$-2 2>/dev/null
-if [ $? = 0 -a -f test-tool-$$-2 ] ; then
- CP="cp -p"
-else
- CP=cp
-fi
-rm -f test-tool-$$-1 test-tool-$$-2
-cd $pwd
-
-for arg in $*
-do
- case $arg in
- -expectedpass) expectedpass=yes ;;
- -keepoutput) keepoutput=yes ;;
- -noupdate) update=no ;;
- -*)
- echo "Usage: [-expectedpass] [-keepoutput] [-noupdate] tool_name" >&2
- exit 2
- ;;
- *)
- if [ "$tool" != "" ]; then
- echo "Usage: [-expectedpass] [-keepoutput] [-noupdate] tool_name" >&2
- exit 2
- fi
- tool=$arg
- ;;
- esac
-done
-
-# FIXME: It sure would be nice if `testdir' wasn't necessary. :-(
-
-case $tool in
- g++)
- devoname=gcc
- checktarget=check-g++
- testdir=testsuite
- ;;
- gcc)
- devoname=gcc
- checktarget=check-gcc
- testdir=testsuite
- ;;
- ld|gld)
- devoname=ld
- checktarget=check
- testdir=.
- ;;
- binutils)
- devoname=binutils
- checktarget=check
- testdir=.
- ;;
- *)
- devoname=$tool
- checktarget=check
- testdir=testsuite
- ;;
-esac
-
-# Default DEVOSRCDIR
-if [ "$DEVOSRCDIR" = "" ]; then
- DEVOSRCDIR=$HOME/devo ; export DEVOSRCDIR
-fi
-
-# Check DEVOSRCDIR
-if [ ! -d "$DEVOSRCDIR" ]; then
- echo "$0: no directory $DEVOSRCDIR" >&2
- exit 2
-fi
-
-# Default DEVOBINDIR
-if [ "$DEVOBINDIR" = "" ]; then
- CPU=`$DEVOSRCDIR/config.guess`
- if [ $? != 0 ]; then
- echo "$0: cannot run config.guess" >&2
- exit 2
- fi
- DEVOBINDIR=$HOME/$CPU ; export DEVOBINDIR
-fi
-
-# Check DEVOBINDIR
-if [ ! -d "$DEVOBINDIR" ]; then
- echo "$0: no directory $DEVOBINDIR" >&2
- exit 2
-fi
-
-# Specialize DEVOSRCDIR
-if [ -d "$DEVOSRCDIR/$devoname" ]; then
- DEVOSRCDIR=$DEVOSRCDIR/$devoname
-else
- echo "$0: Cannot find source directory." >&2
- exit 2
-fi
-
-# Default LOGDIR
-if [ "$LOGDIR" = "" ]; then
- LOGDIR=$HOME/logs ; export LOGDIR
-fi
-
-# Check LOGDIR
-if [ ! -d "$LOGDIR" ]; then
- echo "$0: no directory $LOGDIR" >&2
- exit 2
-fi
-
-# Specialize DEVOBINDIR
-if [ -d "$DEVOBINDIR/$devoname" ]; then
- DEVOBINDIR=$DEVOBINDIR/$devoname
-else
- echo "$0: Cannot find binary directory." >&2
- exit 2
-fi
-
-# Binary directory
-cd $DEVOBINDIR || exit 2
-
-TMPDIR=${TMPDIR-/tmp}
-
-tmp=$TMPDIR/$tool-testing.$$a
-tmp1=$TMPDIR/$tool-testing.$$b
-tmp2=$TMPDIR/$tool-testing.$$c
-now_s=$TMPDIR/$tool-testing.$$d
-before_s=$TMPDIR/$tool-testing.$$e
-
-if [ "$keepoutput" = yes ]; then
- rm -f test-$tool.log
- make RUNTESTFLAGS="-v -v" $checktarget >test-$tool.log 2>&1
-else
- make RUNTESTFLAGS="-v -v" $checktarget >/dev/null 2>&1
-fi
-
-# Check for DEJAGNU errors that prevented any output at all.
-if [ ! -f $testdir/$tool.sum ]; then
- echo "Tests didn't run, probably because of a framework error."
- if [ "$keepoutput" = yes ]; then
- echo
- tail -20 test-$tool.log
- else
- echo "Unable to determine why. Rerun with -keepoutput."
- fi
- exit 2
-fi
-
-# Canonicalize XFAIL and XPASS so the rest of the script can ignore them.
-if [ "$expectedpass" = yes ]; then
- sed 's/^XFAIL/PASS(XFAIL)/; s/^XPASS/FAIL(XPASS)/' <$testdir/$tool.sum >$testdir/$tool.1.sum || exit 2
-else
- sed 's/^XFAIL/FAIL(XFAIL)/; s/^XPASS/PASS(XPASS)/' <$testdir/$tool.sum >$testdir/$tool.1.sum || exit 2
-fi
-mv $testdir/$tool.1.sum $testdir/$tool.sum
-
-patterns="$LOGDIR/$tool-??????.sum $LOGDIR/$tool-??????.sum.gz $LOGDIR/$tool-??????????.sum $LOGDIR/$tool-??????????.sum.gz"
-before=`ls -1t $patterns 2>/dev/null | sed 1q`
-
-todayname=`date '+%y%m%d'`
-if [ "$update" = no ]; then
- now=$testdir/$tool.sum
-else
- mv -f $testdir/$tool.sum $LOGDIR/$tool-$todayname.sum || exit 2
- mv -f $testdir/$tool.log $LOGDIR/$tool-$todayname.log || exit 2
-
- # Say where the logs are stored so they appear in email messages.
- echo
- echo "Log files: $LOGDIR/$tool-$todayname.*"
- echo
-
- now="$LOGDIR/$tool-$todayname.sum";
-fi
-
-trap "rm -f $tmp $tmp1 $tmp2 $now_s $before_s" 0 1 2 3 5 9 13 15
-
-case $before in
- "") before="cat /dev/null" ;;
- *.gz) before="gunzip -c $before" ;;
- *) before="cat $before" ;;
-esac
-
-# First, the test summary.
-egrep '^# of |===.*Summary.*===' "$now" || echo "(No test summary?)"
-echo
-
-# Pick out the PASS/FAIL/Ufoo messages.
-# We grep for them again later but that's for robustness' sake.
-grep '^[PFU][A-Z()]*:' "$now" | sort -t ':' +1 > "$now_s"
-$before | grep '^[PFU][A-Z()]*:' | sort -t ':' +1 > "$before_s"
-
-grep '^FAIL:' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^PASS' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -12 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "Tests that now unexpectedly fail, but worked before:"
- echo
- cat $tmp2
- showchangelog=1
- echo
-fi
-
-grep '^FAIL:' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^[PFU][A-Z()]*:' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -23 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "New tests that unexpectedly FAIL:"
- echo
- cat $tmp2
- echo
-fi
-
-grep '^FAIL:' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^FAIL' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -12 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "Tests that still don't work:"
- echo
- cat $tmp2
- echo
-fi
-
-grep '^PASS' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^FAIL' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -12 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "Tests that now work, but didn't before:"
- echo
- cat $tmp2
- echo
-fi
-
-grep '^PASS' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^[PFU][A-Z()]*:' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -23 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "New tests that PASS:"
- echo
- cat $tmp2
- echo
-fi
-
-grep '^[PFU][A-Z()]*:' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^PASS' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -13 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "Old tests that passed, that have disappeared: (Eeek!)"
- echo
- cat $tmp2
- echo
-fi
-
-grep '^[PFU][A-Z()]*:' "$now_s" | sed 's/^[^:]*:[ ]*//' >$tmp1
-grep '^FAIL' "$before_s" | sed 's/^[^:]*:[ ]*//' | comm -13 $tmp1 - >$tmp2
-
-grep -s . $tmp2 >/dev/null
-if [ $? = 0 ]; then
- echo "Old tests that failed, that have disappeared: (Eeek!)"
- echo
- cat $tmp2
- echo
-fi
-
-egrep '^(ERROR|WARNING):' "$now" >$tmp1
-
-if grep -s . $tmp1 > /dev/null; then
- echo "Errors and warnings:"
- echo
- cat $tmp1
- echo
-fi
-
-if [ "$tool" = g++ ]; then
- if [ -f $DEVOBINDIR/libio/run-make-check ]; then
- cd $DEVOBINDIR/libio
- make check >$TMPDIR/clgpp$$ 2>&1
- if [ $? != 0 ]; then
- echo
- echo "libio fails to make check:"
- tail -20 $TMPDIR/clgpp$$
- fi
- fi
- if [ -f $DEVOBINDIR/libstdc++/run-make-check ]; then
- cd $DEVOBINDIR/libstdc++
- make check >$TMPDIR/clgpp$$ 2>&1
- if [ $? != 0 ]; then
- echo
- echo "libstdc++ fails to make check:"
- tail -20 $TMPDIR/clgpp$$
- fi
- fi
- if [ -f $DEVOBINDIR/libg++/run-make-check ]; then
- cd $DEVOBINDIR/libg++
- make check >$TMPDIR/clgpp$$ 2>&1
- if [ $? != 0 ]; then
- echo
- echo "libg++ fails to make check:"
- tail -20 $TMPDIR/clgpp$$
- fi
- fi
- rm -f $TMPDIR/clgpp$$
- cd $DEVOBINDIR
-fi
-
-if [ "$devoname" != "" ]; then
- if [ "$showchangelog" = 1 ]; then
- echo "Here is what's new in the ChangeLog:"
- echo
- diff -c $LOGDIR/$devoname.ChangeLog $DEVOSRCDIR/ChangeLog
- echo
- if [ "$tool" = g++ ]; then
- echo
- echo "Here is what's new in the ChangeLog.egcs:"
- echo
- diff -c $LOGDIR/gcc.ChangeLog.egcs $DEVOSRCDIR/ChangeLog.egcs
-
- echo
- echo "Here is what's new in the cp/ChangeLog:"
- echo
- diff -c $LOGDIR/g++.ChangeLog $DEVOSRCDIR/cp/ChangeLog
- fi
- echo
- fi
- if [ "$update" != no ]; then
- # save the old ChangeLog as a reference for next time
- rm -f $LOGDIR/$devoname.ChangeLog.BAK
- mv $LOGDIR/$devoname.ChangeLog $LOGDIR/$devoname.ChangeLog.BAK 2>/dev/null
- $CP $DEVOSRCDIR/ChangeLog $LOGDIR/$devoname.ChangeLog
- if [ "$tool" = g++ ]; then
- rm -f $LOGDIR/gcc.ChangeLog.egcs.BAK
- mv $LOGDIR/gcc.ChangeLog.egcs $LOGDIR/gcc.ChangeLog.egcs.BAK 2>/dev/null
- $CP $DEVOSRCDIR/ChangeLog.egcs $LOGDIR/gcc.ChangeLog.egcs
-
- rm -f $LOGDIR/g++.ChangeLog.BAK
- mv $LOGDIR/g++.ChangeLog $LOGDIR/g++.ChangeLog.BAK 2>/dev/null
- $CP $DEVOSRCDIR/cp/ChangeLog $LOGDIR/g++.ChangeLog
- fi
- fi
-fi
-
-$before | diff - $now | grep -s . >/dev/null
-if [ $? = 0 ]; then
- echo "Details:"
- echo
- $before | diff - $now
- echo
-fi
+++ /dev/null
-#!/usr/bin/env wish
-
-# procedure to show window .
-proc ShowWindow. {args} {# xf ignore me 7
-
- # Window manager configurations
- global tkVersion
- wm positionfrom . user
- wm sizefrom . ""
- wm maxsize . 1152 900
- wm title . {xf}
-
- # bindings
- bind . <Button-3> {MenuPopupPost .frame0.menubutton3.m.menu4 %X %Y}
- bind . <ButtonRelease-3> {MenuPopupRelease .frame0.menubutton3.m.menu4 %W}
-
- # build widget .frame0
- frame .frame0 \
- -background {white} \
- -borderwidth {2} \
- -relief {raised}
-
- # build widget .frame0.menubutton0
- menubutton .frame0.menubutton0 \
- -background {white} \
- -foreground {black} \
- -menu {.frame0.menubutton0.m} \
- -text {Summaries}
-
- # build widget .frame0.menubutton0.m
- menu .frame0.menubutton0.m \
- -background {white} \
- -foreground {black}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/gcc.sum
-
-} \
- -label {Gcc}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/g++.sum
-
-} \
- -label {G++}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/gdb.sum
-
-} \
- -label {Gdb}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/gas.sum
-
-} \
- -label {Gas}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/binutils.sum
-
-} \
- -label {Binutils}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/runtest.sum
-
-} \
- -label {Runtest}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/tcl.sum
-
-} \
- -label {Tcl}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/expect.sum
-
-} \
- -label {Expect}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/libg++.sum
-
-} \
- -label {Libg++}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/libio.sum
-
-} \
- -label {Libio}
- .frame0.menubutton0.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/libm.sum
-
-} \
- -label {Libm}
-
- # build widget .frame0.menubutton1
- menubutton .frame0.menubutton1 \
- -background {white} \
- -foreground {black} \
- -menu {.frame0.menubutton1.m} \
- -text {Misc}
-
- # build widget .frame0.menubutton1.m
- menu .frame0.menubutton1.m \
- -background {white} \
- -foreground {black}
- .frame0.menubutton1.m add command \
- -command {EndSrc
-destroy .} \
- -label {Exit}
- .frame0.menubutton1.m add command \
- -command {.frame6.frame.text2 delete 0.0 end} \
- -label {Clear window}
- .frame0.menubutton1.m add command \
- -command {dialogbox} \
- -label {Editor}
- .frame0.menubutton1.m add command \
- -command {.frame6.frame.text2 insert 0.0 "Top of tree is $testbase\n"} \
- -label {Show filename}
-
- # build widget .frame0.menubutton3
- menubutton .frame0.menubutton3 \
- -background {white} \
- -foreground {black} \
- -menu {.frame0.menubutton3.m} \
- -text {Host}
-
- # build widget .frame0.menubutton3.m
- menu .frame0.menubutton3.m \
- -background {white} \
- -foreground {black}
- .frame0.menubutton3.m add command \
- -command {set host "alpha-dec-osf1.3"} \
- -label {alpha-dec-osf1.3}
- .frame0.menubutton3.m add command \
- -command {set host "hppa1.1-hp-hpux"} \
- -label {hppa1.1-hp-hpux}
- .frame0.menubutton3.m add command \
- -command {set host "i386-unknown-sysv4.2"} \
- -label {i386-unknown-sysv4.2}
- .frame0.menubutton3.m add command \
- -command {set host "m68k-hp-hpux"} \
- -label {m68k-hp-hpux}
- .frame0.menubutton3.m add command \
- -command {set host "m68k-sun-sunos4.1.1"} \
- -label {m68k-sun-sunos4.1.1}
- .frame0.menubutton3.m add command \
- -command {set host "mips-dec-ultrix4.2"} \
- -label {mips-dec-ultrix4.2}
- .frame0.menubutton3.m add command \
- -command {set host "mips-sgi-irix4.0.5H"} \
- -label {mips-sgi-irix4.0.5H}
- .frame0.menubutton3.m add command \
- -command {set host "rs6000-ibm-aix3.2"} \
- -label {rs6000-ibm-aix3.2}
- .frame0.menubutton3.m add command \
- -command {set host "sparc-sun-solaris2.3"} \
- -label {sparc-sun-solaris2.3}
- .frame0.menubutton3.m add command \
- -command {set host "sparc-sun-sunos4.1.3"} \
- -label {sparc-sun-sunos4.1.3}
-
- # build widget .frame0.menubutton2
- menubutton .frame0.menubutton2 \
- -background {white} \
- -foreground {black} \
- -menu {.frame0.menubutton2.m} \
- -text {Target}
-
- # build widget .frame0.menubutton2.m
- menu .frame0.menubutton2.m \
- -background {white} \
- -foreground {black}
- .frame0.menubutton2.m add command \
- -command {set target "a29k-amd-udi"} \
- -label {a29k-amd-udi}
- .frame0.menubutton2.m add command \
- -command {set target "h8300-hms"} \
- -label {h8300-hms}
- .frame0.menubutton2.m add command \
- -command {set target "i386-aout"} \
- -label {i386-aout}
- .frame0.menubutton2.m add command \
- -command {set target "i386-lynx"} \
- -label {i386-lynx}
- .frame0.menubutton2.m add command \
- -command {set target "i960-intel-nindy"} \
- -label {i960-intel-nindy}
- .frame0.menubutton2.m add command \
- -command {set target "i960-vxwork"} \
- -label {i960-vxworks}
- .frame0.menubutton2.m add command \
- -command {set target "m68k-aout"} \
- -label {m68k-aout}
- .frame0.menubutton2.m add command \
- -command {set target "m68k-coff"} \
- -label {m68k-coff}
- .frame0.menubutton2.m add command \
- -command {set target "m68k-lynx"} \
- -label {m68k-lynx}
- .frame0.menubutton2.m add command \
- -command {set target "m68k-vxworks"} \
- -label {m68k-vxworks}
- .frame0.menubutton2.m add command \
- -command {set target "mips-idt-ecoff"} \
- -label {mips-idt-ecoff}
- .frame0.menubutton2.m add command \
- -command {set target "sh-hms"} \
- -label {sh-hms}
- .frame0.menubutton2.m add command \
- -command {set target "sparc-aout"} \
- -label {sparc-aout}
- .frame0.menubutton2.m add command \
- -command {set target "sparc-sun-sunos4.1.3"} \
- -label {sparc-sun-sunos4.1.3}
- .frame0.menubutton2.m add command \
- -command {set target "sparc-vxworks"} \
- -label {sparc-vxworks}
- .frame0.menubutton2.m add command \
- -command {set target "sparclite-aout"} \
- -label {sparclite-aout}
- .frame0.menubutton2.m add command \
- -command {set target "sparclite-coff"} \
- -label {sparclite-coff}
- .frame0.menubutton2.m add command \
- -command {set target "hppa1.1-hp-hpux"} \
- -label {hppa1.1-hp-hpux}
- .frame0.menubutton2.m add command \
- -command {set target "i386-unknown-sysv4.2"} \
- -label {i386-unknown-sysv4.2}
- .frame0.menubutton2.m add command \
- -command {set target "m68k-hp-hpux"} \
- -label {m68k-hp-hpux}
- .frame0.menubutton2.m add command \
- -command {set target "m68k-sun-sunos4.1.1"} \
- -label {m68k-sun-sunos4.1.1}
- .frame0.menubutton2.m add command \
- -command {set target "mips-dec-ultrix4.2"} \
- -label {mips-dec-ultrix4.2}
- .frame0.menubutton2.m add command \
- -command {set target "mips-sgi-irix4.0.5H"} \
- -label {mips-sgi-irix4.0.5H}
- .frame0.menubutton2.m add command \
- -command {set target "rs6000-ibm-aix3.2"} \
- -label {rs6000-ibm-aix3.2}
- .frame0.menubutton2.m add command \
- -command {set target "sparc-sun-solaris2.3"} \
- -label {sparc-sun-solaris2.3}
-
- # build widget .frame0.menubutton9
- menubutton .frame0.menubutton9 \
- -background {white} \
- -foreground {black} \
- -menu {.frame0.menubutton9.m} \
- -text {Results}
-
- # build widget .frame0.menubutton9.m
- menu .frame0.menubutton9.m \
- -background {white} \
- -foreground {black}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/gcc
-
-} \
- -label {Gcc}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/g++
-
-} \
- -label {G++}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/gdb
-
-} \
- -label {Gdb}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/gas
-
-} \
- -label {Gas}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/binutils
-
-} \
- -label {Binutils}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/runtest
-} \
- -label {Runtest}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/tcl
-
-} \
- -label {Tcl}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/expect
-
-} \
- -label {Expect}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/libg++
-
-} \
- -label {Libg++}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/libio
-} \
- -label {Libio}
- .frame0.menubutton9.m add command \
- -command {getresult $testbase/objdir/$host/$target/logs/libm
-
-} \
- -label {Libm}
-
- # build widget .frame0.menubutton10
- menubutton .frame0.menubutton10 \
- -background {white} \
- -foreground {black} \
- -menu {.frame0.menubutton10.m} \
- -text {Logs}
-
- # build widget .frame0.menubutton10.m
- menu .frame0.menubutton10.m \
- -background {white} \
- -foreground {black}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/gcc.log
-
-} \
- -label {Gcc}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/g++.log
-
-} \
- -label {G++}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/gdb.log
-
-} \
- -label {Gdb}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/gas.log
-
-} \
- -label {Gas}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/binutils.log
-
-} \
- -label {Binutils}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/runtest.log
-
-} \
- -label {Runtest}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/tcl.log
-
-} \
- -label {Tcl}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/expect.log
-
-} \
- -label {Expect}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/libg++.log
-
-} \
- -label {Libg++}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/libio.log
-
-} \
- -label {Libio}
- .frame0.menubutton10.m add command \
- -command {loadfile $testbase/objdir/$host/$target/logs/libm.log
-
-} \
- -label {Libm}
-
- # pack widget .frame0
- pack append .frame0 \
- .frame0.menubutton0 {left frame center} \
- .frame0.menubutton1 {right frame center} \
- .frame0.menubutton3 {left frame center} \
- .frame0.menubutton2 {left frame center} \
- .frame0.menubutton9 {left frame center} \
- .frame0.menubutton10 {left frame center}
-
- # build widget .frame1
- frame .frame1 \
- -background {white} \
- -borderwidth {2} \
- -relief {raised}
-
- # build widget .frame1.message3
- message .frame1.message3 \
- -aspect {1500} \
- -background {white} \
- -borderwidth {0} \
- -foreground {black} \
- -padx {5} \
- -pady {2} \
- -relief {raised} \
- -text {sparc-sun-sunos4.1.3} \
- -textvariable {host}
-
- # build widget .frame1.message4
- message .frame1.message4 \
- -aspect {1500} \
- -background {white} \
- -borderwidth {0} \
- -foreground {black} \
- -padx {5} \
- -pady {2} \
- -relief {raised} \
- -text {sparc-sun-sunos4.1.3} \
- -textvariable {target}
-
- # pack widget .frame1
- pack append .frame1 \
- .frame1.message3 {left frame center} \
- .frame1.message4 {right frame center}
-
- # build widget .frame6
- frame .frame6 \
- -background {white} \
- -borderwidth {2} \
- -relief {raised}
-
- # build widget .frame6.frame
- frame .frame6.frame \
- -background {white} \
- -relief {raised}
-
- # build widget .frame6.frame.scrollbar1
- scrollbar .frame6.frame.scrollbar1 \
- -background {white} \
- -command {.frame6.frame.text2 yview} \
- -foreground {black} \
- -relief {raised}
-
- # build widget .frame6.frame.text2
- text .frame6.frame.text2 \
- -background {white} \
- -borderwidth {2} \
- -foreground {black} \
- -relief {raised} \
- -wrap {word} \
- -yscrollcommand {.frame6.frame.scrollbar1 set}
-
- # pack widget .frame6.frame
- pack append .frame6.frame \
- .frame6.frame.scrollbar1 {left frame center filly} \
- .frame6.frame.text2 {top frame center expand fill}
-
- # pack widget .frame6
- pack append .frame6 \
- .frame6.frame {top frame center fill}
-
- # pack widget .
- pack append . \
- .frame0 {top frame center fillx} \
- .frame1 {bottom frame center fillx} \
- .frame6 {top frame center expand fill}
-
- .frame6.frame.text2 insert end {}
-
-
-
- if {"[info procs XFEdit]" != ""} {
- catch "XFMiscBindWidgetTree ."
- after 2 "catch {XFEditSetShowWindows}"
- }
-}
-
-
-# Procedure: Alias
-if {"[info procs Alias]" == ""} {
-proc Alias { args} {
-# xf ignore me 7
-##########
-# Procedure: Alias
-# Description: establish an alias for a procedure
-# Arguments: args - no argument means that a list of all aliases
-# is returned. Otherwise the first parameter is
-# the alias name, and the second parameter is
-# the procedure that is aliased.
-# Returns: nothing, the command that is bound to the alias or a
-# list of all aliases - command pairs.
-# Sideeffects: internalAliasList is updated, and the alias
-# proc is inserted
-##########
- global internalAliasList
-
- if {[llength $args] == 0} {
- return $internalAliasList
- } {
- if {[llength $args] == 1} {
- set xfTmpIndex [lsearch $internalAliasList "[lindex $args 0] *"]
- if {$xfTmpIndex != -1} {
- return [lindex [lindex $internalAliasList $xfTmpIndex] 1]
- }
- } {
- if {[llength $args] == 2} {
- eval "proc [lindex $args 0] {args} {#xf ignore me 4
-return \[eval \"[lindex $args 1] \$args\"\]}"
- set xfTmpIndex [lsearch $internalAliasList "[lindex $args 0] *"]
- if {$xfTmpIndex != -1} {
- set internalAliasList [lreplace $internalAliasList $xfTmpIndex $xfTmpIndex "[lindex $args 0] [lindex $args 1]"]
- } {
- lappend internalAliasList "[lindex $args 0] [lindex $args 1]"
- }
- } {
- error "Alias: wrong number or args: $args"
- }
- }
- }
-}
-}
-
-
-# Procedure: GetSelection
-if {"[info procs GetSelection]" == ""} {
-proc GetSelection {} {
-# xf ignore me 7
-##########
-# Procedure: GetSelection
-# Description: get current selection
-# Arguments: none
-# Returns: none
-# Sideeffects: none
-##########
-
- # the save way
- set xfSelection ""
- catch "selection get" xfSelection
- if {"$xfSelection" == "selection doesn't exist or form \"STRING\" not defined"} {
- return ""
- } {
- return $xfSelection
- }
-}
-}
-
-
-# Procedure: MenuPopupAdd
-if {"[info procs MenuPopupAdd]" == ""} {
-proc MenuPopupAdd { xfW xfButton xfMenu {xfModifier ""} {xfCanvasTag ""}} {
-# xf ignore me 7
-# the popup menu handling is from (I already gave up with popup handling :-):
-#
-# Copyright 1991,1992 by James Noble.
-# Everyone is granted permission to copy, modify and redistribute.
-# This notice must be preserved on all copies or derivates.
-#
-##########
-# Procedure: MenuPopupAdd
-# Description: attach a popup menu to widget
-# Arguments: xfW - the widget
-# xfButton - the button we use
-# xfMenu - the menu to attach
-# {xfModifier} - a optional modifier
-# {xfCanvasTag} - a canvas tagOrId
-# Returns: none
-# Sideeffects: none
-##########
- global tk_popupPriv
-
- set tk_popupPriv($xfMenu,focus) ""
- set tk_popupPriv($xfMenu,grab) ""
- if {"$xfModifier" != ""} {
- set press "$xfModifier-"
- set motion "$xfModifier-"
- set release "Any-"
- } {
- set press ""
- set motion ""
- set release ""
- }
-
- bind $xfMenu "<${motion}B${xfButton}-Motion>" "MenuPopupMotion $xfMenu %W %X %Y"
- bind $xfMenu "<${release}ButtonRelease-${xfButton}>" "MenuPopupRelease $xfMenu %W"
- if {"$xfCanvasTag" == ""} {
- bind $xfW "<${press}ButtonPress-${xfButton}>" "MenuPopupPost $xfMenu %X %Y"
- bind $xfW "<${release}ButtonRelease-${xfButton}>" "MenuPopupRelease $xfMenu %W"
- } {
- $xfW bind $xfCanvasTag "<${press}ButtonPress-${xfButton}>" "MenuPopupPost $xfMenu %X %Y"
- $xfW bind $xfCanvasTag "<${release}ButtonRelease-${xfButton}>" "MenuPopupRelease $xfMenu %W"
- }
-}
-}
-
-
-# Procedure: MenuPopupMotion
-if {"[info procs MenuPopupMotion]" == ""} {
-proc MenuPopupMotion { xfMenu xfW xfX xfY} {
-# xf ignore me 7
-##########
-# Procedure: MenuPopupMotion
-# Description: handle the popup menu motion
-# Arguments: xfMenu - the topmost menu
-# xfW - the menu
-# xfX - the root x coordinate
-# xfY - the root x coordinate
-# Returns: none
-# Sideeffects: none
-##########
- global tk_popupPriv
-
- if {"[info commands $xfW]" != "" && [winfo ismapped $xfW] &&
- "[winfo class $xfW]" == "Menu" &&
- [info exists tk_popupPriv($xfMenu,focus)] &&
- "$tk_popupPriv($xfMenu,focus)" != "" &&
- [info exists tk_popupPriv($xfMenu,grab)] &&
- "$tk_popupPriv($xfMenu,grab)" != ""} {
- set xfPopMinX [winfo rootx $xfW]
- set xfPopMaxX [expr $xfPopMinX+[winfo width $xfW]]
- if {$xfX >= $xfPopMinX && $xfX <= $xfPopMaxX} {
- $xfW activate @[expr $xfY-[winfo rooty $xfW]]
- if {![catch "$xfW entryconfig @[expr $xfY-[winfo rooty $xfW]] -menu" result]} {
- if {"[lindex $result 4]" != ""} {
- foreach binding [bind $xfMenu] {
- bind [lindex $result 4] $binding [bind $xfMenu $binding]
- }
- }
- }
- } {
- $xfW activate none
- }
- }
-}
-}
-
-
-# Procedure: MenuPopupPost
-if {"[info procs MenuPopupPost]" == ""} {
-proc MenuPopupPost { xfMenu xfX xfY} {
-# xf ignore me 7
-##########
-# Procedure: MenuPopupPost
-# Description: post the popup menu
-# Arguments: xfMenu - the menu
-# xfX - the root x coordinate
-# xfY - the root x coordinate
-# Returns: none
-# Sideeffects: none
-##########
- global tk_popupPriv
-
- if {"[info commands $xfMenu]" != ""} {
- if {![info exists tk_popupPriv($xfMenu,focus)]} {
- set tk_popupPriv($xfMenu,focus) [focus]
- } {
- if {"$tk_popupPriv($xfMenu,focus)" == ""} {
- set tk_popupPriv($xfMenu,focus) [focus]
- }
- }
- set tk_popupPriv($xfMenu,grab) $xfMenu
-
- catch "$xfMenu activate none"
- catch "$xfMenu post $xfX $xfY"
- catch "focus $xfMenu"
- catch "grab -global $xfMenu"
- }
-}
-}
-
-
-# Procedure: MenuPopupRelease
-if {"[info procs MenuPopupRelease]" == ""} {
-proc MenuPopupRelease { xfMenu xfW} {
-# xf ignore me 7
-##########
-# Procedure: MenuPopupRelease
-# Description: remove the popup menu
-# Arguments: xfMenu - the topmost menu widget
-# xfW - the menu widget
-# Returns: none
-# Sideeffects: none
-##########
- global tk_popupPriv
- global tkVersion
-
- if {"[info commands $xfW]" != "" && [winfo ismapped $xfW] &&
- "[winfo class $xfW]" == "Menu" &&
- [info exists tk_popupPriv($xfMenu,focus)] &&
- "$tk_popupPriv($xfMenu,focus)" != "" &&
- [info exists tk_popupPriv($xfMenu,grab)] &&
- "$tk_popupPriv($xfMenu,grab)" != ""} {
- if {$tkVersion >= 3.0} {
- catch "grab release $tk_popupPriv($xfMenu,grab)"
- } {
- catch "grab none"
- }
- catch "focus $tk_popupPriv($xfMenu,focus)"
- set tk_popupPriv($xfMenu,focus) ""
- set tk_popupPriv($xfMenu,grab) ""
- if {"[$xfW index active]" != "none"} {
- $xfW invoke active; catch "$xfMenu unpost"
- }
- }
- catch "$xfMenu unpost"
-}
-}
-
-
-# Procedure: NoFunction
-if {"[info procs NoFunction]" == ""} {
-proc NoFunction { args} {
-# xf ignore me 7
-##########
-# Procedure: NoFunction
-# Description: do nothing (especially with scales and scrollbars)
-# Arguments: args - a number of ignored parameters
-# Returns: none
-# Sideeffects: none
-##########
-}
-}
-
-
-# Procedure: SN
-if {"[info procs SN]" == ""} {
-proc SN { {xfName ""}} {
-# xf ignore me 7
-##########
-# Procedure: SN
-# Description: map a symbolic name to the widget path
-# Arguments: xfName
-# Returns: the symbolic name
-# Sideeffects: none
-##########
-
- SymbolicName $xfName
-}
-}
-
-
-# Procedure: SymbolicName
-if {"[info procs SymbolicName]" == ""} {
-proc SymbolicName { {xfName ""}} {
-# xf ignore me 7
-##########
-# Procedure: SymbolicName
-# Description: map a symbolic name to the widget path
-# Arguments: xfName
-# Returns: the symbolic name
-# Sideeffects: none
-##########
-
- global symbolicName
-
- if {"$xfName" != ""} {
- set xfArrayName ""
- append xfArrayName symbolicName ( $xfName )
- if {![catch "set \"$xfArrayName\"" xfValue]} {
- return $xfValue
- } {
- if {"[info commands XFProcError]" != ""} {
- XFProcError "Unknown symbolic name:\n$xfName"
- } {
- puts stderr "XF error: unknown symbolic name:\n$xfName"
- }
- }
- }
- return ""
-}
-}
-
-
-# Procedure: Unalias
-if {"[info procs Unalias]" == ""} {
-proc Unalias { aliasName} {
-# xf ignore me 7
-##########
-# Procedure: Unalias
-# Description: remove an alias for a procedure
-# Arguments: aliasName - the alias name to remove
-# Returns: none
-# Sideeffects: internalAliasList is updated, and the alias
-# proc is removed
-##########
- global internalAliasList
-
- set xfIndex [lsearch $internalAliasList "$aliasName *"]
- if {$xfIndex != -1} {
- rename $aliasName ""
- set internalAliasList [lreplace $internalAliasList $xfIndex $xfIndex]
- }
-}
-}
-
-
-# Procedure: getbase
-proc getbase {} {
- global env
- global testbase
- if [info exists env(TESTBASE)] then {
- set testbase $env(TESTBASE)
- } else {
- set testbase /lisa/test/rob
- }
- return $testbase
-}
-
-
-# Procedure: getresult
-proc getresult { name} {
-set tmp "[lsort [glob -nocomplain $name-results-??????-????]]"
-set tmp [lindex $tmp [expr [llength $tmp] - 1]]
-if [string match "" $tmp] then {
- .frame6.frame.text2 delete 0.0 end
- .frame6.frame.text2 insert 0.0 "Couldn't find results for: $name\n"
- return
-} else {
- return [loadfile $tmp]
-}
-}
-
-# Procedure: dialogbox
-proc dialogbox {} {
- set w .frame6.top2
- catch {destroy $w}
- catch {destroy $w.e1}
- toplevel $w
-# dpos $w
- wm title $w "Change Editor"
- wm iconname $w "Entries"
- message $w.msg -font -Adobe-times-medium-r-normal--*-180* -aspect 200 \
- -text "Hey Now. Click the \"OK\" button when you've seen enough."
- frame $w.frame -borderwidth 10
- button $w.ok -text OK -command "destroy $w"
- pack $w.msg $w.frame $w.ok -side top -fill both
-
- entry $w.frame.e1 -relief sunken -textvariable editor
- pack $w.frame.e1 -side top -pady 5 -fill x
- bind $w.frame.e1 <Return> "destroy $w"
-}
-
-# Procedure: loadfile
-proc loadfile { name} {
-if ![file exists $name] then {
- .frame6.frame.text2 delete 0.0 end
- .frame6.frame.text2 insert 0.0 "Couldn't find:\t$name\n"
- return
-}
-
-global editor
-if [info exists editor] then {
- if ![string match "" $editor] then {
- catch "exec $editor $name&" tmp
- if [info exists tmp] then {
- .frame6.frame.text2 delete 0.0 end
- .frame6.frame.text2 insert 0.0 "Editor returned $tmp\n"
- }
- }
-}
-.frame6.frame.text2 delete 0.0 end
-set fd [open $name r]
-while { [gets $fd line]>=0 } {
-.frame6.frame.text2 insert end "$line\n"
-.frame6.frame.text2 mark set insert 0.0
-}
-close $fd
-unset fd
-}
-
-
-
-# application parsing procedure
-proc XFLocalParseAppDefs {xfAppDefFile} {
- global xfAppDefaults
-
- # basically from: Michael Moore
- if {[file exists $xfAppDefFile] &&
- [file readable $xfAppDefFile] &&
- "[file type $xfAppDefFile]" == "link"} {
- catch "file type $xfAppDefFile" xfType
- while {"$xfType" == "link"} {
- if {[catch "file readlink $xfAppDefFile" xfAppDefFile]} {
- return
- }
- catch "file type $xfAppDefFile" xfType
- }
- }
- if {!("$xfAppDefFile" != "" &&
- [file exists $xfAppDefFile] &&
- [file readable $xfAppDefFile] &&
- "[file type $xfAppDefFile]" == "file")} {
- return
- }
- if {![catch "open $xfAppDefFile r" xfResult]} {
- set xfAppFileContents [read $xfResult]
- close $xfResult
- foreach line [split $xfAppFileContents "\n"] {
- # backup indicates how far to backup. It applies to the
- # situation where a resource name ends in . and when it
- # ends in *. In the second case you want to keep the *
- # in the widget name for pattern matching, but you want
- # to get rid of the . if it is the end of the name.
- set backup -2
- set line [string trim $line]
- if {[string index $line 0] == "#" || "$line" == ""} {
- # skip comments and empty lines
- continue
- }
- set list [split $line ":"]
- set resource [string trim [lindex $list 0]]
- set i [string last "." $resource]
- set j [string last "*" $resource]
- if {$j > $i} {
- set i $j
- set backup -1
- }
- incr i
- set name [string range $resource $i end]
- incr i $backup
- set widname [string range $resource 0 $i]
- set value [string trim [lindex $list 1]]
- if {"$widname" != "" && "$widname" != "*"} {
- # insert the widget and resourcename to the application
- # defaults list.
- if {![info exists xfAppDefaults]} {
- set xfAppDefaults ""
- }
- lappend xfAppDefaults [list $widname [string tolower $name] $value]
- }
- }
- }
-}
-
-# application loading procedure
-proc XFLocalLoadAppDefs {{xfClasses ""} {xfPriority "startupFile"} {xfAppDefFile ""}} {
- global env
-
- if {"$xfAppDefFile" == ""} {
- set xfFileList ""
- if {[info exists env(XUSERFILESEARCHPATH)]} {
- append xfFileList [split $env(XUSERFILESEARCHPATH) :]
- }
- if {[info exists env(XAPPLRESDIR)]} {
- append xfFileList [split $env(XAPPLRESDIR) :]
- }
- if {[info exists env(XFILESEARCHPATH)]} {
- append xfFileList [split $env(XFILESEARCHPATH) :]
- }
- append xfFileList " /usr/lib/X11/app-defaults"
- append xfFileList " /usr/X11/lib/X11/app-defaults"
-
- foreach xfCounter1 $xfClasses {
- foreach xfCounter2 $xfFileList {
- set xfPathName $xfCounter2
- if {[regsub -all "%N" "$xfPathName" "$xfCounter1" xfResult]} {
- set xfPathName $xfResult
- }
- if {[regsub -all "%T" "$xfPathName" "app-defaults" xfResult]} {
- set xfPathName $xfResult
- }
- if {[regsub -all "%S" "$xfPathName" "" xfResult]} {
- set xfPathName $xfResult
- }
- if {[regsub -all "%C" "$xfPathName" "" xfResult]} {
- set xfPathName $xfResult
- }
- if {[file exists $xfPathName] &&
- [file readable $xfPathName] &&
- ("[file type $xfPathName]" == "file" ||
- "[file type $xfPathName]" == "link")} {
- catch "option readfile $xfPathName $xfPriority"
- if {"[info commands XFParseAppDefs]" != ""} {
- XFParseAppDefs $xfPathName
- } {
- if {"[info commands XFLocalParseAppDefs]" != ""} {
- XFLocalParseAppDefs $xfPathName
- }
- }
- } {
- if {[file exists $xfCounter2/$xfCounter1] &&
- [file readable $xfCounter2/$xfCounter1] &&
- ("[file type $xfCounter2/$xfCounter1]" == "file" ||
- "[file type $xfCounter2/$xfCounter1]" == "link")} {
- catch "option readfile $xfCounter2/$xfCounter1 $xfPriority"
- if {"[info commands XFParseAppDefs]" != ""} {
- XFParseAppDefs $xfCounter2/$xfCounter1
- } {
- if {"[info commands XFLocalParseAppDefs]" != ""} {
- XFLocalParseAppDefs $xfCounter2/$xfCounter1
- }
- }
- }
- }
- }
- }
- } {
- # load a specific application defaults file
- if {[file exists $xfAppDefFile] &&
- [file readable $xfAppDefFile] &&
- ("[file type $xfAppDefFile]" == "file" ||
- "[file type $xfAppDefFile]" == "link")} {
- catch "option readfile $xfAppDefFile $xfPriority"
- if {"[info commands XFParseAppDefs]" != ""} {
- XFParseAppDefs $xfAppDefFile
- } {
- if {"[info commands XFLocalParseAppDefs]" != ""} {
- XFLocalParseAppDefs $xfAppDefFile
- }
- }
- }
- }
-}
-
-# application setting procedure
-proc XFLocalSetAppDefs {{xfWidgetPath "."}} {
- global xfAppDefaults
-
- if {![info exists xfAppDefaults]} {
- return
- }
- foreach xfCounter $xfAppDefaults {
- if {"$xfCounter" == ""} {
- break
- }
- set widname [lindex $xfCounter 0]
- if {[string match $widname ${xfWidgetPath}] ||
- [string match "${xfWidgetPath}*" $widname]} {
- set name [string tolower [lindex $xfCounter 1]]
- set value [lindex $xfCounter 2]
- # Now lets see how many tcl commands match the name
- # pattern specified.
- set widlist [info command $widname]
- if {"$widlist" != ""} {
- foreach widget $widlist {
- # make sure this command is a widget.
- if {![catch "winfo id $widget"] &&
- [string match "${xfWidgetPath}*" $widget]} {
- catch "$widget configure -$name $value"
- }
- }
- }
- }
- }
-}
-
-
-
-# startup source
-proc StartupSrc {args} {
-global testbase
-global hostlist
-global targlist
-global host
-
-set host [exec config.guess]
-set target $host
-}
-
-
-# end source
-proc EndSrc {} {
-.frame6.frame.text2 delete 0.0 end
-}
-
-# startup source
-StartupSrc
-
-# initialize global variables
-global {editor}
-set {editor} {}
-global {fsBox}
-set {fsBox(activeBackground)} {}
-set {fsBox(activeForeground)} {}
-set {fsBox(all)} {0}
-set {fsBox(background)} {}
-set {fsBox(button)} {0}
-set {fsBox(extensions)} {0}
-set {fsBox(font)} {}
-set {fsBox(foreground)} {}
-set {fsBox(internalPath)} {/offsite/rob/DejaGnu/devo/dejagnu}
-set {fsBox(name)} {}
-set {fsBox(path)} {/offsite/rob/DejaGnu/devo/dejagnu}
-set {fsBox(pattern)} {*}
-set {fsBox(scrollActiveForeground)} {}
-set {fsBox(scrollBackground)} {}
-set {fsBox(scrollForeground)} {}
-set {fsBox(scrollSide)} {left}
-set {fsBox(showPixmap)} {0}
-global {host}
-set {host} {sparc-sun-sunos4.1.3}
-global {result}
-set {result} {can't read "editor": no such variable}
-global {target}
-set {target} {sparc-sun-sunos4.1.3}
-global {testbase}
-set {testbase} {/lisa/test/rob}
-
-# please don't modify the following
-# variables. They are needed by xf.
-global {autoLoadList}
-set {autoLoadList(testit)} {0}
-global {internalAliasList}
-set {internalAliasList} {}
-global {moduleList}
-set {moduleList(testit)} {}
-global {preloadList}
-set {preloadList(xfInternal)} {}
-global {symbolicName}
-set {symbolicName(binutils)} {.frame0.menubutton7}
-set {symbolicName(dialogbox)} {.top2}
-set {symbolicName(editor)} {.top2.entry4}
-set {symbolicName(g++)} {.frame0.menubutton4}
-set {symbolicName(gas)} {.frame0.menubutton6}
-set {symbolicName(gdb)} {.frame0.menubutton5}
-set {symbolicName(host)} {.frame0.menubutton3.m}
-set {symbolicName(hostlist)} {.frame0.menubutton3}
-set {symbolicName(logs)} {.frame0.menubutton10}
-set {symbolicName(misc)} {.frame0.menubutton1}
-set {symbolicName(ok)} {.top2.button7}
-set {symbolicName(results)} {.frame0.menubutton9}
-set {symbolicName(root)} {.}
-set {symbolicName(sum)} {.frame0.menubutton0}
-set {symbolicName(targlist)} {.frame0.menubutton2}
-global {xfWmSetPosition}
-set {xfWmSetPosition} {}
-global {xfWmSetSize}
-set {xfWmSetSize} {}
-global {xfAppDefToplevels}
-set {xfAppDefToplevels} {}
-
-# display/remove toplevel windows.
-ShowWindow.
-
-# load default bindings.
-if {[info exists env(XF_BIND_FILE)] &&
- "[info procs XFShowHelp]" == ""} {
- source $env(XF_BIND_FILE)
-}
-
-# parse and apply application defaults.
-XFLocalLoadAppDefs Testit
-XFLocalSetAppDefs
-
-# end source
-EndSrc
-
-# eof
-#
-
projects / platform / upstream / dejagnu.git / commitdiff