dan/liminix
1
0
Fork 5
Code

boot.expect: improve reliability

Browse Source 
don't depend on seeing u-boot prompt, it's just too easy to get
out of sync
This commit is contained in:
Daniel Barlow 2024-12-27 18:08:01 +00:00
parent 24151425b8
commit 0cb18eabcd
1 changed files with 27 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
boot.expect
View File

@ -2,19 +2,37 @@
# use expect as its "Script program" instead of runscript. Try # use expect as its "Script program" instead of runscript. Try
# Ctrl+A O -> Filenames and paths -> D # Ctrl+A O -> Filenames and paths -> D
fconfigure stderr -buffering none
fconfigure stdout -buffering none
proc waitprompt { } {
expect {
"BusyBox" { puts stderr "DONE\r"; exit 0 }
"READY" { puts stderr ";;; READY\r"; }
timeout { puts stderr ";;; timed out waiting after $line\r" }
}
}
proc sendline { line } {
send "$line; echo \$ready \r"
}
log_user 0 log_user 0
log_file -a -open stderr log_file -a -open stderr
set f [open "result/boot.scr"] set f [open "result/boot.scr"]
send "version\r"
set timeout 60 send "setenv ready REA\rsetenv ready \${ready}DY\r"
set timeout 300
expect_before timeout abort
while {[gets $f line] >= 0} { while {[gets $f line] >= 0} {
puts stderr "next line $line\r" puts stderr ";;; next line $line\r"
puts stderr "waiting for prompt\r" puts stderr ";;; waiting for prompt\r"
expect { puts stderr ";;; sending\r"
"ath>" {} sendline $line
"BusyBox" { puts stderr "DONE"; exit 0 } waitprompt
}
send "$line\r\n"
} }
puts stderr "done\r\n" puts stderr "done\r\n"
close $f close $f