107 lines
2.6 KiB
Plaintext
Executable File
107 lines
2.6 KiB
Plaintext
Executable File
#!/usr/bin/expect -f
|
||
#
|
||
# This Expect script was generated by autoexpect on Sat Jan 31 17:06:49 2026
|
||
# Expect and autoexpect were both written by Don Libes, NIST.
|
||
#
|
||
# Note that autoexpect does not guarantee a working script. It
|
||
# necessarily has to guess about certain things. Two reasons a script
|
||
# might fail are:
|
||
#
|
||
# 1) timing - A surprising number of programs (rn, ksh, zsh, telnet,
|
||
# etc.) and devices discard or ignore keystrokes that arrive "too
|
||
# quickly" after prompts. If you find your new script hanging up at
|
||
# one spot, try adding a short sleep just before the previous send.
|
||
# Setting "force_conservative" to 1 (see below) makes Expect do this
|
||
# automatically - pausing briefly before sending each character. This
|
||
# pacifies every program I know of. The -c flag makes the script do
|
||
# this in the first place. The -C flag allows you to define a
|
||
# character to toggle this mode off and on.
|
||
|
||
set force_conservative 0 ;# set to 1 to force conservative mode even if
|
||
;# script wasn't run conservatively originally
|
||
if {$force_conservative} {
|
||
set send_slow {1 .1}
|
||
proc send {ignore arg} {
|
||
sleep .1
|
||
exp_send -s -- $arg
|
||
}
|
||
}
|
||
|
||
#
|
||
# 2) differing output - Some programs produce different output each time
|
||
# they run. The "date" command is an obvious example. Another is
|
||
# ftp, if it produces throughput statistics at the end of a file
|
||
# transfer. If this causes a problem, delete these patterns or replace
|
||
# them with wildcards. An alternative is to use the -p flag (for
|
||
# "prompt") which makes Expect only look for the last line of output
|
||
# (i.e., the prompt). The -P flag allows you to define a character to
|
||
# toggle this mode off and on.
|
||
#
|
||
# Read the man page for more info.
|
||
#
|
||
# -Don
|
||
|
||
|
||
set timeout -1
|
||
spawn ./a.out
|
||
match_max 100000
|
||
expect "* 7 stop\r
|
||
"
|
||
send -- "1\r"
|
||
expect -exact "1\r
|
||
Enter Z and A of stopee.\r
|
||
"
|
||
send -- "4"
|
||
expect -exact " "
|
||
send -- "2\r"
|
||
expect -exact "2\r
|
||
"
|
||
send -- "4\r"
|
||
expect -exact "4\r
|
||
Enter energy in MeV.\r
|
||
"
|
||
send -- "5.486\r"
|
||
expect -exact "5.486\r
|
||
\r
|
||
1 define stopee\r
|
||
2 define absorber\r
|
||
3 edit absorber\r
|
||
4 run with current parameters\r
|
||
5 find thickness of absorber to stop the stopee\r
|
||
6 print status of data\r
|
||
7 stop\r
|
||
"
|
||
send -- "2\r"
|
||
|
||
expect "*How many stopping layers are there in the absorber?\r"
|
||
send -- "1\r"
|
||
|
||
expect "*CH2, CD2, He, and H2)\r"
|
||
send -- "2\r"
|
||
|
||
expect "*Which standardized medium for layer 1?\r
|
||
1: CO2\r
|
||
2: Si\r
|
||
3: C (graphite)\r
|
||
4: C4H10\r
|
||
5: CF4\r
|
||
6: CH2\r
|
||
7: CD2\r
|
||
8: He-gas\r
|
||
9: H2-gas\r
|
||
"
|
||
send -- "2\r"
|
||
expect "
|
||
* Enter thickness(microns) for layer 1\r
|
||
"
|
||
send -- "100\r"
|
||
expect "
|
||
* 7 stop\r
|
||
"
|
||
send -- "4\r"
|
||
expect "
|
||
* 7 stop\r
|
||
"
|
||
send -- "7\r"
|
||
expect eof
|