diff options
Diffstat (limited to 'dejagnu/config/netware.exp')
| -rw-r--r-- | dejagnu/config/netware.exp | 214 |
1 files changed, 214 insertions, 0 deletions
diff --git a/dejagnu/config/netware.exp b/dejagnu/config/netware.exp new file mode 100644 index 00000000000..75d81491e3e --- /dev/null +++ b/dejagnu/config/netware.exp @@ -0,0 +1,214 @@ +# Copyright (C) 1994, 1996, 1997 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gcc@prep.ai.mit.edu + +# This file was written by J.T. Conklin. (jtc@cygnus.com) + +# +# load support libraries +# +load_lib remote.exp + +# set target variables only if needed + +proc ${board}_init { args } { + global NLMCONV + if ![info exists NLMCONV] then { + set NLMCONV [findfile "$rootme/../binutils/nlmconv"] + } + global LD + if ![info exists LD] then { + set LD [findfile "$rootme/../ld/ld-new" "$rootme/../ld/ld-new" [transform "ld"]] + } + + set shell_prompt "Password:" + set shell_id [remote_open target]; + if [target_info exists passwd] { + set passwd [target_info passwd]; + } else { + set passwd ""; + } + if $shell_id<0 then { + warning "Couldn't connect to target" + return -1 + } + + if [string match "" $passwd] then { + stty -echo + send_user "Password: " + expect_user -re "(.*)\n" + send_user "\n" + set passwd "$expect_out(1,string)" + stty echo + } + + send -i $shell_id "$passwd\n" + expect { + -i $shell_id ":" { + verbose "Got termtype prompt" 0 + } + + -i $shell_id timeout { + warning "Connection timed out" + return -1 + } + } + + # FIXME + set shell_prompt "[string toupper [target_info name]]:" + send -i $shell_id "1\n" + + expect { + -i $shell_id -re "$shell_prompt" {} + -i $shell_id timeout { + warning "Connection timed out" + return -1 + } + } +} + + +# +# ${board}_load -- load the program and execute it +# +# See default.exp for explanation of arguments and results. +# + +proc ${board}_load { dest prog args } { + global LD NLMCONV + global tmpdir + global errorCode + + if [board_info $dest exists fileid] { + set shell_id [board_info $dest fileid]; + } else { + set shell_id -1; + } + + set output "" + + if $shell_id<0 then { + verbose -log "$prog not executed because there is no target" 3 + return "untested" + } + + # + set exe [file tail $prog] + + # We can't blindly append a suffix to the object name, because the + # result may not be valid on netware's 8.3 filesystem. + set nlm "$tmpdir/x.nlm" + set lnk "$tmpdir/x.lnk" + + # build *.lnk file + set fd [open $lnk w] + puts $fd "description \"$exe\"" + puts $fd "screenname \"System Console\"" + puts $fd "module clib.nlm" + puts $fd "module mathlib.nlm" + puts $fd "stack 65536" + puts $fd "debug" + # FIXME: don't hardcode location of prelude.o + puts $fd "input /s1/cygnus/dejagnu/i386-netware/lib/prelude.o" + puts $fd "input $prog" + puts $fd "output $nlm" + close $fd + + # run nlmconv + verbose "Executing: $NLMCONV -l$LD -T$lnk" 1 + catch "exec $NLMCONV -l$LD -T$lnk" output + if ![string match "" $output] then { + verbose $output 1 + } + if ![string match "NONE" $errorCode] { + verbose -log "Can't link $prog" 3 + return "fail" + } + + # download + verbose "Downloading $nlm" 1 + catch "exec cp $nlm /.NetWare/[board_info $dest name].nws/sys.nwv/tmp/x.nlm" output + if ![string match "" $output] then { + verbose $output 1 + verbose -log "cp failed for $nlm" 3 + return "unresolved" + } + + # Wait a second for the file to "settle" on the NetWare server. + # I've encountered unexplained failures without this delay. +# sleep 1 + + + # The NetWare remote console expects to be connected to a vt100 + # compatible terminal. It isn't very efficent, and it seems to + # send screen repaints for no reason. So we have to clear the + # screen as we run each test, otherwise a shell prompt or abort + # message from a previous test could cause incorrect results. + send -i $shell_id "CLS\r\n" + set timeout 1 + expect { + -i $shell_id -re "$shell_prompt" { + exp_continue + } + } + set timeout 10 + + + # Netware does not support exit status. The best we can do to + # detect failures is to look for the "ABNORMAL NLM TERMINATION" + # message printed by abort(). + set ret 0 + send -i $shell_id "LOAD X.NLM\r\n" + expect { + -i $shell_id "ABNORMAL NLM TERMINATION" { + set ret 1 + exp_continue + } + -i $shell_id "Unable to find load file" { + perror "Couldn't execute program" + verbose -log "Couldn't execute program" 3 + return "unresolved" + } + -i $shell_id timeout { + perror "Couldn't execute program (timed out)" + verbose -log "Couldn't execute program (timed out)" 3 + return "unresolved" + } + -i $shell_id -re "[format "%sLOAD" $shell_prompt]" { + exp_continue + } + -i $shell_id -re "$shell_prompt" {} + } + + catch [exec rm -f $lnk] + catch [exec rm -f $nlm] + + if { $ret == 0 } { + return "pass" + } else { + return "fail" + } +} + +# +# ${tool}_exit -- shutdown the connection +# + +proc ${board}_exit {} { + remote_close target; +} |