home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gdb-4.9 / gdb / testsuite / config / unix-gdb.exp < prev    next >
Encoding:
Text File  |  1993-05-12  |  6.5 KB  |  290 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-gdb@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. # variables that need to set up
  23. #
  24. if ![info exists prompt] then {
  25.     set prompt "\(gdb\)"
  26. }
  27. # some convenience abbreviations
  28. #
  29. if ![info exists hex] then {
  30.     set hex "0x\[0-9A-Fa-f\]+"
  31. }
  32. if ![info exists decimal] then {
  33.     set decimal "\[0-9\]+"
  34. }
  35.  
  36. #
  37. # gdb_version -- extract and print the version number of gcc
  38. #
  39. proc gdb_version {} {
  40.     global GDB
  41.     global GDBFLAGS
  42.     if {[which $GDB] != 0} then {
  43.     set tmp [exec echo "q" | $GDB]
  44.     set version "[lindex $tmp [lsearch $tmp "\[0-9\]*"]]"
  45.     set version "[string range $version 0 [expr [string length $version]-2]]"
  46.     clone_output "[which $GDB] version $version $GDBFLAGS\n"
  47.     } else {
  48.     warning "$GDB does not exist"
  49. }
  50. }
  51.  
  52. #
  53. # gdb_unload -- unload a file if one is loaded
  54. #
  55.  
  56. proc gdb_unload {} {
  57.     global verbose
  58.     global GDB
  59.     global prompt
  60.     send "file\n"
  61.     expect {
  62.     -re "No exec file now\.\r" { continue -expect }
  63.     -re "No symbol file now\.\r" { continue -expect }
  64.     -re "A program is being debugged already..*Kill it\? \(y or n\) $"\
  65.         { send "y\n"
  66.         if $verbose>1 then {
  67.             send_user "\t\tKilling previous program being debugged\n"
  68.         }
  69.         continue -expect
  70.     }
  71.     -re "Discard symbol table from .*\? \(y or n\) $" {
  72.         send "y\n"
  73.         continue -expect
  74.     }
  75.     -re "$prompt $" {}
  76.     timeout {
  77.         error "Couldn't unload file in $GDB (timed out)."
  78.         return -1
  79.     }
  80.     }
  81. }
  82.  
  83. #
  84. # gdb_load -- load a file into the debugger.
  85. #             return a -1 if anything goes wrong.
  86. #
  87. proc gdb_load { arg } {
  88.     global verbose
  89.     global loadpath
  90.     global loadfile
  91.     global GDB
  92.     global prompt
  93.  
  94.     set loadfile [file tail $arg]
  95.     set loadpath [file dirname $arg]
  96.     send "file $arg\n"
  97.     expect {
  98.     -re "Reading symbols from.*done.*$prompt $" {
  99.         if $verbose>1 then {
  100.         send_user "\t\tLoaded $arg into the $GDB\n"
  101.         }
  102.         return 0
  103.     }
  104.     -re "has no symbol-table.*$prompt $" {
  105.         error "$arg wasn't compiled with \"-g\""
  106.         return -1
  107.     }
  108.     -re "A program is being debugged already..*Kill it\? \(y or n\) $" {
  109.         send "y\n"
  110.         if $verbose>1 then {
  111.             send_user "\t\tKilling previous program being debugged\n"
  112.         }
  113.         continue -expect
  114.     }
  115.     -re "Load new symbol table from.*\? \(y or n\) $" {
  116.         send "y\n"
  117.         expect {
  118.         -re "Reading symbols from.*done.*$prompt $" {
  119.             if $verbose>1 then {
  120.             send_user "\t\tLoaded $arg with new symbol table into $GDB\n"
  121.         }
  122.             return 0
  123.         }
  124.         timeout    {
  125.             error "(timeout) Couldn't load $arg, other program already loaded."
  126.             return -1
  127.         }
  128.         }
  129.         }
  130.     -re ".*No such file or directory.*$prompt $" {
  131.         error "($arg) No such file or directory\n"
  132.         return -1
  133.     }
  134.     -re "$prompt $" {
  135.         error "couldn't load $arg into $GDB."
  136.         return -1
  137.         }
  138.     timeout    {
  139.         error "couldn't load $arg into $GDB (timed out)."
  140.         return -1
  141.     }
  142.     }
  143. }
  144.  
  145. #
  146. # gdb_exit -- kills the gdb process currently running
  147. #
  148. proc gdb_exit {} {
  149.     global verbose
  150.     global GDB
  151.     global GDBFLAGS
  152.     set timeout 1
  153.  
  154.     if $verbose>1 then {
  155.     send_user "Quitting $GDB $GDBFLAGS\n"
  156.     }    
  157.     catch "send \"quit\n\"" result
  158.     if [string match "write\(spawn_id=\[0-9\]+\):" $result] then {
  159.     catch "close"
  160.     return -1
  161.     }
  162.     catch {
  163.     expect {
  164.     eof                 { 
  165.         if $verbose>1 then {
  166.         send_user "Got EOF from $GDB\n"
  167.         }
  168.     }
  169.     timeout             { 
  170.         if $verbose>1 then {
  171.         send_user "Got TIMEOUT from $GDB\n"
  172.         }
  173.         close
  174.     }
  175.         -re "The program is running.  Quit anyway? (y or n) $" {
  176.         send "y\n"
  177.         if $verbose>1 then {
  178.             send_user "\t\tKilling program being debugged\n"
  179.         }
  180.             close
  181.         }
  182.     }
  183.     }
  184.     catch "close"
  185.  
  186.     if $verbose>1 then {
  187.     send_user "Quitting $GDB $GDBFLAGS\n"
  188.     }    
  189. }
  190.  
  191. #
  192. # start gdb -- start gdb running
  193. #
  194.  
  195. proc gdb_start {} {
  196.     global verbose
  197.     global GDB
  198.     global GDBFLAGS
  199.     global prompt
  200.     global spawn_id
  201.     global timeout
  202.     if $verbose>1 then {
  203.     send_user "Spawning $GDB $GDBFLAGS\n"
  204.     }
  205.  
  206.     set oldtimeout $timeout
  207.     set timeout [expr "$timeout + 60"]
  208.     if [ llength $GDBFLAGS ] then {
  209.     if {[which $GDB] != 0} then {
  210.     spawn $GDB $GDBFLAGS
  211.     } else {
  212.         error "$GDB does not exist."
  213.         exit 1
  214.     }
  215.     } else {
  216.     IF {[WHICH $GDB] != 0} then {
  217.     spawn $GDB
  218.     } else {
  219.         error "$GDB does not exist."
  220.         exit 1
  221.     }
  222.     }
  223.     expect {
  224.     -re ".*$prompt $"    {
  225.         if $verbose>1 then {
  226.         send_user "GDB initialized for native mode\n"
  227.     }
  228.     }
  229.     -re "$prompt $"    {
  230.         error "GDB never initialized."
  231.         return -1
  232.     }
  233.     timeout        {
  234.         error "(timeout) GDB never initialized."
  235.         return -1
  236.     }
  237.     }
  238.     set timeout $oldtimeout
  239.     # force the height to "unlimited", so no pagers get used
  240.     send "set height 0\n"
  241.     expect {
  242.     -re ".*$prompt $" { 
  243.         if $verbose>2 then {
  244.         send_user "Seting height to 0.\n"
  245.         }
  246.     }
  247.     timeout {
  248.         warning "Couldn't set the height to 0."
  249.     }
  250.     }
  251.     # force the width to "unlimited", so no wraparound occurs
  252.     send "set width 0\n"
  253.     expect {
  254.     -re ".*$prompt $" {
  255.         if $verbose>2 then {
  256.         send_user "Seting width to 0.\n"
  257. }
  258.     }
  259.     timeout {
  260.         warning "Couldn't set the width to 0."
  261. }
  262.     }
  263. }
  264.  
  265. # These only need to be uncommented for debugging test cases. They exist
  266. # mainly to catch programming errors
  267. #expect_after {
  268. #    "<return>"           { send "\n"; error "Window too small." }
  269. #    -re "\(y or n\) "        { send "n\n"; error "Got interactive prompt." }
  270. #    buffer_full           { error "internal buffer is full." }
  271. #    eof               { error "eof -- there is no child process" ; alldone}
  272. #    timeout               { error "timeout." }
  273. #    "virtual memory exhausted" { error "virtual memory exhausted." }
  274. #    "Undefined command"       { error "send string probably wrong." }
  275. #}
  276.  
  277. load_lib gdb.exp
  278.  
  279. set binpath /s1/users/rob/vxworks/bin/somewhere-bogus-that-needs-configuring
  280. set bin $GDB
  281.  
  282. gdb_start
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.