From ea0797f4475c8e109814584f2f580449e12380e7 Mon Sep 17 00:00:00 2001 From: Ben Elliston Date: Thu, 7 Jul 2005 05:03:28 +0000 Subject: [PATCH] * lib/telnet.exp (telnet_transmit): Remove; use standard method. --- ChangeLog | 4 ++++ lib/telnet.exp | 9 ++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 95fb92e..8bb9288 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2005-07-07 Ben Elliston + * lib/telnet.exp (telnet_transmit): Remove; use standard method. + +2005-07-07 Ben Elliston + * Makefile.am (baseboard_SCRIPTS): Add ms1-sid.exp. * Makefile.in: Regenerate. diff --git a/lib/telnet.exp b/lib/telnet.exp index 5eb0174..cae80f8 100644 --- a/lib/telnet.exp +++ b/lib/telnet.exp @@ -58,7 +58,8 @@ proc telnet_open { hostname args } { if [board_info $connhost exists fileid] { return [board_info $connhost fileid] } - # get the hostname and port number from the config array + + # Get the hostname and port number from the config array. if [board_info $connhost exists netport] { set type $hostname set hosttmp [split [board_info $connhost netport] ":"] @@ -70,6 +71,7 @@ proc telnet_open { hostname args } { } else { set type target } + if [board_info $connhost exists shell_prompt] { set shell_prompt [board_info $connhost shell_prompt] } @@ -203,6 +205,7 @@ proc telnet_open { hostname args } { verbose "setting board_info($connhost,fileid) to $spawn_id" 3 set board_info($connhost,fileid) $spawn_id } + return $spawn_id } @@ -236,7 +239,3 @@ proc telnet_binary { hostname } { } } } - -proc telnet_transmit { dest file args } { - return [standard_transmit $dest $file] -} -- 2.7.4