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

.

This commit is contained in:
Kartik K. Agaram 2021-04-18 23:10:01 -07:00
parent 2f10bc7302
commit ad46997f95
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
shell/print.mu
View File

@ -1,4 +1,5 @@
fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr trace) {
check-stack
trace-text trace, "print", "print"
trace-lower trace
var in/eax: (addr handle cell) <- copy _in
@ -99,6 +100,8 @@ fn print-symbol _in: (addr cell), out: (addr stream byte), trace: (addr trace) {
rewind-stream data
write-stream out, data
# trace
compare trace, 0
break-if-=
rewind-stream data
var stream-storage: (stream byte 0x40)
var stream/ecx: (addr stream byte) <- address stream-storage
@ -118,6 +121,8 @@ fn print-stream _in: (addr cell), out: (addr stream byte), trace: (addr trace) {
write-stream out, data
write out, "]"
# trace
compare trace, 0
break-if-=
rewind-stream data
var stream-storage: (stream byte 0x40)
var stream/ecx: (addr stream byte) <- address stream-storage
@ -131,6 +136,8 @@ fn print-number _in: (addr cell), out: (addr stream byte), trace: (addr trace) {
var val/eax: (addr float) <- get in, number-data
write-float-decimal-approximate out, *val, 3/precision
# trace
compare trace, 0
break-if-=
var stream-storage: (stream byte 0x40)
var stream/ecx: (addr stream byte) <- address stream-storage
write stream, "=> number "