File: run_boot_test.tcl

package info (click to toggle)
skiboot 7.0%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 35,624 kB
  • sloc: ansic: 221,198; sh: 11,580; cpp: 5,767; python: 3,421; makefile: 1,773; asm: 1,503; perl: 1,479; tcl: 1,188; pascal: 107
file content (16 lines) | stat: -rw-r--r-- 506 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
source ../../external/mambo/skiboot.tcl

proc console_trigger {response args} {
    array set triginfo $args
    set sim $triginfo(sim)
    $sim trigger clear console $triginfo(match)

    puts "console trigger: putting $response to console"
    $sim console create input in string $response
}

mysim trigger set console "Welcome to Petitboot" { console_trigger "x" }
mysim trigger set console "# "  { console_trigger "halt\n" }
mysim go
mysim memory fwrite 0x30000000 0x500000 $env(SKIBOOT_MEM_DUMP)
exit