akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

some boot-time heartbeat messages 

This will help us with some common debug scenarios.
This commit is contained in:
Kartik K. Agaram 2021-05-07 12:27:20 -07:00
parent dd192dd52c
commit 150db8d56a
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
shell/global.mu
View File

@ -64,7 +64,7 @@ fn initialize-globals _self: (addr global-table) {
}
fn load-globals in: (addr handle cell), self: (addr global-table) {
#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "a", 2/fg 0/bg
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "loading globals:", 3/fg, 0/bg
var remaining-ah/esi: (addr handle cell) <- copy in
{
var _remaining/eax: (addr cell) <- lookup *remaining-ah
@ -76,6 +76,15 @@ fn load-globals in: (addr handle cell), self: (addr global-table) {
var curr-ah/eax: (addr handle cell) <- get remaining, left
var curr/eax: (addr cell) <- lookup *curr-ah
remaining-ah <- get remaining, right
{
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " ", 2/fg 0/bg
var name-ah/ecx: (addr handle cell) <- get curr, left
var name/eax: (addr cell) <- lookup *name-ah
var name-data-ah/eax: (addr handle stream byte) <- get name, text-data
var name-data/eax: (addr stream byte) <- lookup *name-data-ah
rewind-stream name-data
draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, name-data, 3/fg, 0/bg
}
var value-ah/eax: (addr handle cell) <- get curr, right
var value/eax: (addr cell) <- lookup *value-ah
var value-data-ah/eax: (addr handle stream byte) <- get value, text-data
@ -93,6 +102,7 @@ fn load-globals in: (addr handle cell), self: (addr global-table) {
#? draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "y", 2/fg 0/bg
loop
}
move-cursor-to-left-margin-of-next-line 0/screen
#? abort "zz"
}

9
shell/main.mu
View File

@ -81,15 +81,23 @@ fn load-state data-disk: (addr disk), _sandbox: (addr sandbox), globals: (addr g
# data-disk -> stream
var s-storage: (stream byte 0x1000) # space for 8/sectors
var s/ebx: (addr stream byte) <- address s-storage
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "loading sectors from data disk", 3/fg, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
load-sectors data-disk, 0/lba, 8/sectors, s
#? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0xc5/bg=blue-bg
# stream -> gap-buffer
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "parsing", 3/fg, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
load-gap-buffer-from-stream data, s
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " into gap buffer", 3/fg, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
clear-stream s
# read: gap-buffer -> cell
var initial-root-storage: (handle cell)
var initial-root/ecx: (addr handle cell) <- address initial-root-storage
read-cell data, initial-root, 0/no-trace
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, " into s-expressions", 3/fg, 0/bg
move-cursor-to-left-margin-of-next-line 0/screen
clear-gap-buffer data
#
{
@ -113,6 +121,7 @@ fn load-state data-disk: (addr disk), _sandbox: (addr sandbox), globals: (addr g
load-globals globals-cell-ah, globals
}
# sandbox = assoc(initial-root, 'sandbox)
draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "loading sandbox", 3/fg, 0/bg
var sandbox-literal-storage: (handle cell)
var sandbox-literal-ah/eax: (addr handle cell) <- address sandbox-literal-storage
new-symbol sandbox-literal-ah, "sandbox"