home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / dejagnu / vrtx.exp < prev    next >
Encoding:
Text File  |  1996-10-12  |  7.2 KB  |  335 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 default values
  27. #
  28.  
  29. global env
  30. if ![info exists env(SPECTRA)] then {
  31.     error "SPECTRA environment variable is not set."
  32.     exit 1
  33. } else {
  34.     set SPECTRA $env(SPECTRA)
  35.     append CFLAGS " -I $SPECTRA/target/include"
  36. }
  37.  
  38. # the hostname of the target board
  39.  
  40. global targetname
  41. if ![info exists targetname] then {
  42.     puts stderr "ERROR: Need a target name for Spectra."
  43.     puts stderr "       Use the --target option\n"
  44.     exit 1
  45. }
  46.  
  47. # the default connect program to use
  48. global connectmode
  49. if ![info exists connectmode] then {
  50.     set connectmode    "xsh"
  51.     warning "Using default of $connectmode for target communication."
  52. }
  53.  
  54. #
  55. # xsh -- connect to Spectra (VTRX) using xsh
  56. #
  57. proc xsh { hostname } {
  58.     global verbose
  59.     global hex
  60.     global connectmode
  61.     global shell_prompt
  62.     global spawn_id
  63.     global shell_id
  64.     global spawn_id
  65.     global env
  66.     global target_triplet
  67.  
  68.     set retries 0
  69.     set result  0
  70.     if {[which xsh] != 0} then {
  71.     spawn xsh
  72.     } else {
  73.     warning "Can't find xsh in path"
  74.     return
  75.     }
  76.  
  77.     set shell_id $spawn_id
  78.  
  79.     # start the shell
  80.     expect {
  81.     "*Spectra Cross-Development Shell version*$shell_prompt" { 
  82.         verbose "Got prompt"
  83.         set result 0
  84.     }
  85.     timeout            { 
  86.         warning "Timed out trying to connect."
  87.         set result -1
  88.         incr retries
  89.         if $retries<=2 then {
  90.         exp_continue
  91.         }
  92.     }
  93.     }
  94.  
  95.     # connect to the shell
  96.     set retries 0
  97.     send "connect $hostname\n"
  98.     expect {
  99.     "connect $hostname*$hostname connected \(non-os mode\)*\n" {
  100.         set shell_prompt "$hostname> "
  101.         verbose "Connected to $hostname"
  102.     }
  103.     "*connect: not attached*" {
  104.         warning "Couldn't attach target"
  105.         set result -1
  106.     }
  107.     -re ".* reset on target.*$" {
  108.         send_user "Spectra was reset\n"
  109.         exp_continue 
  110.     }
  111.     -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" {
  112.         exp_continue
  113.     }
  114.     "$hostname> " {
  115.         #send "\n"
  116.     }
  117.     timeout {
  118.         warning "Timed out trying to connect after $expect_out(seconds) seconds."
  119.         set result -1
  120.         incr retries
  121.         if $retries<=2 then {
  122.         exp_continue        
  123.         }
  124.     }
  125.     }
  126.  
  127.     send "\n\n\n"
  128.     expect {
  129.     "*$hostname*$hostname" {
  130.         verbose "Cleared reset messages" 1
  131.     }
  132.     timeout {
  133.         warning "Couldn't clear reset messages"
  134.         set result 1
  135.     }
  136.     }
  137.  
  138.     # load to operating system
  139.     set timeout 20
  140.     set retries 0
  141.     if {[xsh_load $env(SPECTRA)/${target_triplet}-os.o {-e sys_start_crt0}]!=0} then {
  142.     error "Couldn't load Spectra into target"
  143.     return -1
  144.     }
  145.  
  146.     set timeout 10
  147.     # start the OS running
  148.     set retries 0
  149.     send "go\n"
  150.     expect {
  151.     -re ".*Multithreading on target darkstar.*$" {
  152.         verbose "Spectra has been started..." 1
  153.         set result 0
  154.     }
  155.     -re ".*reset on target.*$" {
  156.         verbose "Spectra was reset"
  157.         exp_continue 
  158.     }
  159.     -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+.*$" {
  160.         #send "\n"
  161.         exp_continue
  162.     }
  163.     -re "go\n" { exp_continue }
  164.     "$shell_prompt" { exp_continue }
  165.     timeout {
  166.         error "Spectra wouldn't start"
  167.         set result -1
  168.         incr retries
  169.         if $retries<=2 then {
  170.         send "go\r"
  171.         exp_continue
  172.         }
  173.     }
  174.     }
  175.  
  176.     if $result<0 then {
  177.     error "Couldn't connect after $retries retries.\n"
  178.     return -1
  179.     } else {
  180.     return $spawn_id
  181.     }
  182. }
  183.  
  184. #
  185. # xsh_load -- downloads using the load command in Spectra
  186. #                 arg - is a full path name to the file to download
  187. #                 returns 1 if a spectra error occured,
  188. #                        -1 if an internal error occured,
  189. #                         0 otherwise.
  190. #
  191. proc xsh_load { args } {
  192.     global verbose
  193.     global shell_id
  194.     global decimal
  195.     global hex
  196.     global shell_prompt
  197.     global expect_out
  198.  
  199.     set result 1
  200.     set retries 0
  201.  
  202.     if [llength $args]==1 then {
  203.     set opts ""
  204.     } else {
  205.     set opts [lindex $args 1]
  206.     } 
  207.     set file [lindex $args 0]
  208.  
  209.     if ![file exists $file] then {
  210.     error "$file doesn't exist."
  211.     return 1
  212.     }
  213.  
  214.     if $verbose>1 then {
  215.     send_user "Downloading $file...\n"
  216.     }
  217.  
  218.     send -i $shell_id "load $opts $file\r"
  219.     set force 0
  220.     expect {
  221.     -i $shell_id -re "\[0-9A-Fa-f\]+\[ 0x\]+\[0-9A-Fa-f\]+\r\n" {
  222.         set timeout 1
  223.         send "dout\n"
  224.         while $force<2 {
  225.         expect {
  226.             "dout*undefined kernel symbol*$shell_prompt" {
  227.             verbose "Attempted to flush I/O buffers" 1
  228.             }
  229.             timout {    
  230.             incr force    
  231.             flush stdout    
  232.             }
  233.         }
  234.         }
  235.         set timeout 20
  236.         exp_continue
  237.     }
  238.     -i $shell_id  "load $opts $file*\r" {
  239.         verbose "Loading a.out..."
  240.         exp_continue
  241.     }
  242.     -i $shell_id "Warm reset on target*\n" {
  243.         verbose "Spectra did a warm reset"
  244.         exp_continue 
  245.     }
  246.     -i $shell_id "Cold reset on target*\n" {
  247.         verbose "Spectra did a cold reset"
  248.         exp_continue
  249.     }
  250.     -i $shell_id "loading a.out*\r" {
  251.         verbose "Loading a.out..."
  252.         exp_continue
  253.     }
  254.     -i $shell_id "reading symbols*\r" {
  255.         verbose "Reading symbols..."
  256.         exp_continue
  257.     }
  258.     -i $shell_id "defining symbols*\r" {
  259.         verbose "defining symbols..."
  260.         exp_continue
  261.     }
  262.     -i $shell_id "*loading image*\r" {
  263.         verbose "Loading image..."
  264.         exp_continue
  265.     }
  266.     -i $shell_id -re ".*bytes loaded:.*$decimal.*$" {
  267.         verbose "$expect_out(buffer)"
  268.         exp_continue
  269.     }
  270.     -i $shell_id "*loading done*\r" {
  271.         verbose "Loading done..."
  272.         exp_continue
  273.     }
  274.     -i $shell_id "*setting PC*\r" {
  275.         verbose "Setting PC..."
  276.         exp_continue
  277.     }
  278.     -i $shell_id "*resolving symbols*\r" {
  279.         verbose "Resolving symbols..."
  280.         exp_continue
  281.     }
  282.         -i $shell_id -re ".*load module id = $decimal.*$" {
  283.         verbose ""
  284.         }         
  285.         }
  286.     -i $shell_id -re ".*load: undefined symbols.*$"  {
  287.         perror "undefined symbols, make sure os is loaded and running"
  288.         set result -1
  289.         }
  290.     -i $shell_id "$shell_prompt" {
  291.         set result 0
  292.         exp_continue 
  293.     }
  294.     -i $shell_id "load: no default target" {
  295.         perror "default target isn't set"
  296.         return -1
  297.     }
  298.     -i $shell_id timeout {
  299.         perror "Timed out trying to download after $expect_out(seconds) seconds."
  300.         incr retries
  301.         set result 1
  302.         if $retries<=2 then {
  303.         exp_continue
  304.         }
  305.     }
  306.     }
  307.  
  308.     set timeout 10
  309.     if [info exists expect_out(buffer)] then {
  310.     send_log $expect_out(buffer)
  311.     }
  312.     return $result
  313. }
  314.  
  315. #
  316. # xsh_exit -- exit the remote shell
  317. #
  318. proc xsh_exit { shell_id } {
  319.     global verbose
  320.     global connectmode
  321.     global targetname
  322.     global shell_prompt
  323.     global shell_id
  324.  
  325.     send -i $shell_id "exit\n"
  326.  
  327.     verbose "Exiting shell."
  328.     set shell_id 0
  329.     return 0
  330. }
  331.  
  332.  
  333.  
  334.  
  335.