home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / dejagnu / udi.exp < prev    next >
Encoding:
Text File  |  1996-10-12  |  5.2 KB  |  230 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-dejagnu@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. # these just need to be initialized
  23. set shell_id       0
  24.  
  25. #
  26. # set target variables only if needed.
  27. #
  28. global  targetname
  29. global connectmode
  30. global env
  31.  
  32. if ![info exists targetname] then {
  33.     if [info exists env(TARGETNAME)] then {
  34.     set targetname $env(TARGETNAME)
  35.     } else {
  36.     puts stderr "ERROR: Need a target name for the udi target."
  37.     puts stderr "       Use the --name option\n"
  38.     exit 1
  39.     }
  40. }
  41.  
  42. # the default connect program to use
  43. if ![info exists connectmode] then {
  44.     set connectmode    "mondfe"
  45.     warning "Using default of $connectmode for target communication."
  46.     if {[which mondfe] == 0} then {
  47.     perror "\"mondfe\" does not exist. Check your path."
  48.     exit 1
  49.     }
  50. }
  51.  
  52.  
  53.  
  54. #
  55. # mondfe -- connect to udi using mondfe
  56. #
  57. proc mondfe { hostname } {
  58.     global verbose
  59.     global connectmode
  60.     global shell_prompt
  61.     global spawn_id
  62.     global shell_id
  63.     global spawn_id
  64.  
  65.     set retries 0
  66.     set result  -1
  67.     spawn mondfe -D -TIP $hostname
  68.     set shell_id $spawn_id
  69.  
  70.     expect {
  71.     "$shell_prompt"    { 
  72.         verbose "Got prompt"
  73.         set result 0
  74.     }
  75.     "*server bind*failed: Address already in use*" {
  76.         warning "Socket file already exists."
  77.         incr retries
  78.         if $retries<=2 then {
  79.         continue -expect
  80.         }
  81.     }
  82.     timeout            { 
  83.         warning "Timed out trying to connect."
  84.         set result -1
  85.         incr retries
  86.         if $retries<=2 then {
  87.         continue -expect
  88.         }
  89.     }
  90.     }
  91.  
  92.     if $result<0 then {
  93.     perror "Couldn't connect after $retries retries.\n"
  94.     return -1
  95.     } else {
  96.     return $spawn_id
  97.     }
  98. }
  99.  
  100. #
  101. # mondfe_download -- downloads using the y (yank) command in mondfe.
  102. #                 arg - is a full path name to the file to download
  103. #                 returns 1 if an error occured, 0 otherwise
  104. #
  105. proc mondfe_download { arg } {
  106.     global verbose
  107.     global shell_id
  108.     global decimal
  109.     global shell_prompt
  110.     global expect_out
  111.     global connectmode
  112.  
  113.     set result 1
  114.     if ![file exists $arg] then {
  115.     perror "$arg doesn't exist."
  116.     return 1
  117.     }
  118.  
  119.     verbose "Downloading $arg..."
  120.     send -i $shell_id "y $arg\n"
  121.     expect {
  122.     -i $shell_id "y $arg*loading $arg*" {
  123.         continue -expect
  124.     }
  125.     -i $shell_id "Loading*TEXT section from*\r" {
  126.         verbose "."
  127.         continue -expect
  128.     }
  129.     -i $shell_id "Loaded*TEXT section from*\n" {
  130.         verbose "\nLoaded TEXT section"
  131.         continue -expect
  132.     }
  133.     -i $shell_id "Loading*LIT section from*\r" {
  134.         verbose "."
  135.         continue -expect
  136.     }
  137.     -i $shell_id "Loaded*LIT section from*\n" {
  138.         verbose "\nLoaded LIT section"
  139.         continue -expect
  140.     }
  141.     -i $shell_id "Loading*DATA section from*\r" {
  142.         verbose "."
  143.         continue -expect
  144.     }
  145.     -i $shell_id "Loaded*DATA section from*\n" {
  146.         verbose "\nLoaded DATA section"
  147.         continue -expect
  148.     }
  149.     -i $shell_id -re "DFEWARNING: $decimal : EMMAGIC:  Bad COFF file magic number.*Command failed.*$shell_prompt$" {
  150.         warning "Bad COFF file magic number"
  151.         set result -1
  152.     }
  153.         -i $shell_id -re ".*Ignoring COMMENT section \($decimal bytes\).*$shell_prompt$" {
  154.             verbose "Ignoring COMMENT section"
  155.             verbose "Downloaded $arg successfully"
  156.             set result 0
  157.         }
  158.  
  159.     -i $shell_id -re ".*Cleared.*BSS section from.*$shell_prompt$" {
  160.         verbose "Cleared BSS section"
  161.         verbose "Downloaded $arg successfully"
  162.         set result 0
  163.     }
  164.     -i $shell_id timeout {
  165.         perror "Timed out trying to download $arg."
  166.         set result 1
  167.     }
  168.     }
  169.  
  170. # FIXME: the following kepts the download from working
  171. #    "Could not read COFF section" {
  172. #        perror "Couldn't read COFF section."
  173. #        set result 1
  174. #    }
  175.     set timeout 10
  176.     if [info exists expect_out(buffer)] then {
  177.     send_log $expect_out(buffer)
  178.     }
  179.     return $result
  180. }
  181.  
  182. #
  183. # exit_mondfe -- exit the remote shell
  184. #
  185. proc exit_mondfe {  } {
  186.     global verbose
  187.     global connectmode
  188.     global targetname
  189.     global shell_prompt
  190.     global shell_id
  191.  
  192.     send -i $shell_id "q\n"
  193.     expect { 
  194.     -i $shell_id "Goodbye." {
  195.         verbose "Exited mondfe $shell_id"
  196.     }
  197.     timeout {
  198.         warning "$connectmode didn't exit cleanly"
  199.     }
  200.     }
  201.  
  202.     catch "close -i $shell_id"
  203.     set shell_id 0
  204.     return 0
  205. }
  206.  
  207. #
  208. # exit_montip -- exit the remote shell
  209. #
  210. proc exit_montip { } {
  211.     global verbose
  212.     global connectmode
  213.     global targetname
  214.     global shell_prompt
  215.     global shell_id
  216.  
  217.     verbose "exiting mondtip $shell_id"
  218.  
  219.     catch "close -i $shell_id"
  220.     set shell_id 0
  221.     return 0
  222. }
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.