4 #proc send {ignore arg} {
10 puts "Program invoked with $argv\n"
11 set argl [split $argv]
12 set program [lindex $argl 0]
13 set script [lindex $argl 1]
14 puts "Starting UML $program"
17 expect -exact "normal startup):"
18 puts stderr "Logging in\n"
21 set initscript [open $script r]
22 while {[gets $initscript line] >= 0} {
24 if {[string length [string trimright $line]] == 0} {
27 if {[string match [string index [string trimleft $line] 0] \#] == 0} {
33 puts stderr "Initialization done\n"