Subversion Repositories or1k

# Copyright (C) 92, 93, 94, 95, 96, 97, 98, 1999 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, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

# Please email any bugs, comments, and/or additions to this file to:

# bug-dejagnu@prep.ai.mit.edu

# This file was written by Rob Savoye. (rob@cygnus.com)

#

# Connect to udi using mondfe

#

# HOSTNAME can be `iss' to talk to the simulator.

# The result is the value of `spawn_id' or -1 for failure.

#

proc mondfe_open { hostname } {

    global spawn_id

    global board_info

    set retries 0

    set result  -1

    set shell_prompt [board_info $hostname shell_prompt]

    if ![board_info $hostname exists mondfe,name] {

        perror "Must set board_info(${hostname},mondfe,name)"

        return -1;

    }

    if [board_info $hostname exists mondfe] {

        set mondfe [board_info $hostname mondfe];

    } else {

        set mondfe "mondfe"

    }

    set remote_host [board_info $hostname mondfe,name];

    if [board_info $hostname exists mondfe_host] {

        set rh [board_info $hostname mondfe_host];

    } else {

        verbose "Attempting to connect to $hostname via mondfe."

        set rh "host";

    }

    set shell_id [remote_spawn $rh "$mondfe -D -TIP $remote_host"];

    remote_expect $rh 60 {

        "$shell_prompt" {

            verbose "Got prompt"

            set result 0

        }

        "*server bind*failed: Address already in use*" {

            warning "Socket file already exists."

            incr retries

            if { $retries <= 2 } {

                exp_continue;

            }

        }

        -indices -re ".*(UDIERROR\[^\r\n\]*)\[\r\n\]" {

            warning "$expect_out(1,string)"

            exp_continue;

        }

        -indices -re ".*(DFEERROR\[^\r\n\]*)\[\r\n\]" {

            warning "$expect_out(1,string)"

            exp_continue;

        }

        timeout {

            warning "Timed out trying to connect."

            set result -1

            incr retries

            if { $retries <= 2 } {

                remote_send $rh "\n"

                exp_continue;

            }

        }

    }

    if { $result < 0 } {

        perror "Couldn't connect after $retries retries."

        remote_close $rh;

        return -1

    } else {

        set board_info($hostname,fileid) $shell_id;

        return $shell_id;

    }

}

#

# Downloads using the y (yank) command in mondfe

#

# FILE is a full path name to the file to download.

# Returns 1 if an error occured, 0 otherwise.

#

proc mondfe_ld { dest_machine file } {

    global decimal              # Regexp to match a decimal number.

    if ![file exists $file] {

        perror "$file doesn't exist."

        return ""

    }

    set shell_prompt [board_info $dest_machine shell_prompt]

    if [board_info $dest_machine exists mondfe_host] {

        set remote_host [board_info $dest_machine mondfe_host];

        set file [remote_download $remote_host $file montest]

    } else {

        set remote_host "host";

    }

    verbose "Downloading $file." 2

    verbose "Shell prompt is $shell_prompt." 3

    set result 1

    remote_send $remote_host "y $file\n"

    remote_expect $remote_host 60 {

        "y $file" {

            exp_continue;

        }

        -re "loading $file\[\r\n\]+" {

            exp_continue;

        }

        -re "Load(ing|ed) *TEXT section from\[^\r\n\]*\[\r\n\]+" {

            verbose -n "." 2

            exp_continue;

        }

        -re "Load(ing|ed) *LIT section from\[^\r\n\]*\[\r\n\]+" {

            verbose -n "." 2

            exp_continue;

        }

        -re "Load(ing|ed) *DATA section from\[^\r\n\]*\[\r\n\]+" {

            verbose -n "." 2

            exp_continue;

        }

        -re "Clear(ing|ed) *BSS section from\[^\r\n\]*\[\r\n\]+" {

            verbose -n "." 2

            exp_continue;

        }

        -re "(^|\[\r\n\]+)$shell_prompt$" {

            verbose "Downloaded $file successfully." 2

            set result 0

        }

        -re "Command failed.*$shell_prompt$" {

            set result 1

        }

        -re "DFEWARNING: $decimal : EMMAGIC:  Bad COFF file magic number.*Command failed.*$shell_prompt$" {

            warning "Bad COFF file magic number"

            set result 1

        }

        -re "Ignoring COMMENT section \($decimal bytes\)\[^\r\n\]*\[\r\n\]+" {

            verbose "Ignoring COMMENT section" 2

            exp_continue;

        }

        timeout {

            perror "Timed out trying to download $file."

            set result 1

        }

    }

    if { $result && [info exists expect_out(buffer)] } {

        send_log $expect_out(buffer)

    }

    if [board_info $dest_machine exists mondfe_host] {

        remote_file $remote_machine delete $file

    }

    return $result

}

#

# Exit the remote shell

#

proc mondfe_close { hostname } {

    global board_info

    if [board_info $hostname exists mondfe_host] {

        set remote_host [board_info $hostname mondfe_host];

    } else {

        set remote_host "host";

    }

    if ![board_info $hostname exists fileid] {

        return 0;

    }

    if [board_info $remote_host exists fileid] {

        remote_send $remote_host "q\n"

        remote_expect $remote_host 30 {

            "Goodbye." {

                verbose "Exited mondfe."

            }

            timeout {

                warning "mondfe didn't exit cleanly."

            }

        }

        remote_close $remote_host;

    }

    unset board_info($hostname,fileid);

    return 0;

}