← Back to branch summary

~ubuntu-branches/ubuntu/warty/dejagnu/warty

« back to all changes in this revision

Viewing changes to example/calc/testsuite/config/unix.exp

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Jacobowitz
  • Date: 2004-02-09 15:07:58 UTC
  • Revision ID: james.westby@ubuntu.com-20040209150758-oaj7r5zrop60v8sb
Tags: upstream-1.4.4
Import upstream version 1.4.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
example/calc/testsuite/config/unix.exp
 
1
#   Copyright (C) 1997 - 2001 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
16
 
 
17
# Please email any bugs, comments, and/or additions to this file to:
 
18
# bug-dejagnu@gnu.org
 
19
 
 
20
if ![info exists prompt] then {
 
21
    set prompt "calc: "
 
22
}
 
23
#
 
24
# calc_version -- extract and print the version number of calc
 
25
#
 
26
 
 
27
proc calc_version {} {
 
28
    global CALC
 
29
    global prompt
 
30
    set tmp [exec echo "version" | $CALC]
 
31
    regexp "$prompt *(\[^\n\]*)\n.*" $tmp tmp version
 
32
    clone_output "[which $CALC] version $version\n"
 
33
}
 
34
#
 
35
# calc_load -- loads the program
 
36
#
 
37
proc calc_load { arg } {
 
38
    #
 
39
}
 
40
 
 
41
#
 
42
# calc_exit -- quit and cleanup
 
43
#
 
44
proc calc_exit {} {
 
45
    send "quit\n"
 
46
}
 
47
 
 
48
#
 
49
# calc_start -- start calc running
 
50
#
 
51
proc calc_start {} {
 
52
    global CALC
 
53
    global prompt
 
54
    global spawn_id
 
55
    global verbose
 
56
 
 
57
    if { $verbose > 1 } {
 
58
        send_user "starting $CALC\n"
 
59
    }
 
60
    spawn $CALC
 
61
    expect {
 
62
        -re "No such file.*" { perror "Can't start $CALC"; exit 1 }
 
63
        -re "$prompt$" { }
 
64
        timeout { perror "Failed to spawn $CALC (timeout)"; exit 1 }
 
65
    }
 
66
}
 
67
 
 
68
calc_start