home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / dejagnu / bug.exp next >
Encoding:
Text File  |  1996-10-12  |  2.7 KB  |  109 lines
  1. # Copyright (C) 1988, 1990, 1991, 1992, 1993 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. #load_lib remote.exp
  23.  
  24. #
  25. # set target variables only if needed.
  26. #
  27. global targetname
  28. global connectmode
  29. global env
  30.  
  31. if ![info exists targetname] then {
  32.     if [info exists env(TARGETNAME)] then {
  33.     set targetname $env(TARGETNAME)
  34.     } else {
  35.     puts stderr "ERROR: Need a target name for the board."
  36.     puts stderr "       Use the --name option\n"
  37.     exit 1
  38.     }
  39. }
  40.  
  41. # the default connect program to use
  42. if ![info exists connectmode] then {
  43.     set connectmode    "tip"
  44.     warning "Using default of $connectmode for target communication."
  45. }        
  46.  
  47. #
  48. # bug_load -- load a file into the bug monitor
  49. #
  50. proc bug_load { shell_id file } {
  51.     global OBJCOPY
  52.  
  53.     if $shell_id<0 then {
  54.     warning "$file not executed because there is no target."
  55.     return -1
  56.     }
  57.  
  58.     # NOTE: this requires OBJCOPY to be tested first
  59.     catch "exec $OBJCOPY -O srec $file $file.srec" result
  60.     if ![string match "" $result] then {
  61.     perror "Couldn't convert to srecord for downloading"
  62.     return -1
  63.     }
  64.  
  65.     send -i $shell_id "lo 0\r"
  66.     expect {
  67.     -i $shell_id "lo 0*" {
  68.         verbose "Got load command echo" 0
  69.     }
  70.     -i $shell_id timeout {
  71.         perror "Load command didn't echo back"
  72.         return -1
  73.     }
  74.     }
  75.  
  76.     if [download $file.srec $shell_id]<0 then {
  77.     return -1
  78.     }
  79.     catch "exec rm -foreach  $file.srec"
  80.     return 0
  81. }
  82.  
  83. #
  84. # bug_execute -- execute a program
  85. #
  86. proc bug_execute { shell_id addr } {
  87.     global shell_prompt
  88.  
  89.     if $shell_id<0 then {
  90.     warning "$arg not executed because there is no target."
  91.     return -1
  92.     }
  93.     send -i $shell_id "go $addr\r"
  94.     verbose "Sent execute command"
  95.     expect {
  96.     -i $shell_id "*Effective address: $addr" {
  97.         exp_continue
  98.     }
  99.     -i $shell_id -re "$shell_prompt.*$" {
  100.         return 0
  101.     }
  102.     -i $shell_id timeout { 
  103.         error "Couldn't execute program (timed out)."
  104.         return 1
  105.     }
  106.     }
  107. }
  108.  
  109.