diff options
| author | Ben Elliston <bje@gnu.org> | 2005-07-06 12:45:09 +0000 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2005-07-06 12:45:09 +0000 |
| commit | d0b474c19a5bff3639c12594646d61d8668c7db9 (patch) | |
| tree | 27ecf2c8c65a54a5a9eb86e3986f6b78b23594a2 | |
| parent | dad85e81edb16272f60fbfd53fec581467dd3b17 (diff) | |
| download | dejagnu-d0b474c19a5bff3639c12594646d61d8668c7db9.zip dejagnu-d0b474c19a5bff3639c12594646d61d8668c7db9.tar.gz dejagnu-d0b474c19a5bff3639c12594646d61d8668c7db9.tar.bz2 | |
* lib/tip.exp (tip_open): Improve comments.
(tip_download): Likewise.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | lib/tip.exp | 18 |
2 files changed, 13 insertions, 10 deletions
@@ -1,5 +1,10 @@ 2005-07-06 Ben Elliston <bje@gnu.org> + * lib/tip.exp (tip_open): Improve comments. + (tip_download): Likewise. + +2005-07-06 Ben Elliston <bje@gnu.org> + * lib/telnet.exp (telnet_open): Improve option handling. Clarify documentation for each proc. diff --git a/lib/tip.exp b/lib/tip.exp index 70a4aeb..8c8674d 100644 --- a/lib/tip.exp +++ b/lib/tip.exp @@ -1,5 +1,5 @@ # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, -# 2001, 2002, 2003 Free Software Foundation, Inc. +# 2001, 2002, 2003, 2005 Free Software Foundation, Inc. # # This file is part of DejaGnu. # @@ -17,10 +17,9 @@ # along with DejaGnu; if not, write to the Free Software Foundation, # Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. -# -# Connect via tip as part of remote_open. -# returns -1 if it failed, the spawn_id if it worked; also sets -# [board_info ${hostname} fileid] with the spawn_id on success. +# Connect to HOSTNAME using tip(1). Sets the board's fileid field +# with the spawn_id on success and returns the spawn id, otherwise +# returns -1. # proc tip_open { hostname } { global verbose @@ -36,7 +35,8 @@ proc tip_open { hostname } { if [board_info ${hostname} exists shell_prompt] { set shell_prompt [board_info ${hostname} shell_prompt] } else { - set shell_prompt ".*> " # Pick something reasonably generic. + # Pick something reasonably generic. + set shell_prompt ".*> " } if [board_info ${hostname} exists fileid] { @@ -119,10 +119,8 @@ proc tip_open { hostname } { } } -# -# Downloads using the ~put command under tip -# arg - is a full path name to the file to download -# returns -1 if an error occured, otherwise it returns 0. +# Download FILE to DEST using the ~put command in tip(1). +# Returns -1 if an error occurred, otherwise returns 0. # proc tip_download { dest file args } { global verbose |