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

slack: takes almost 3 minutes to load 55MB 

This is with KVM on a pretty fast Thinkpad.

If I exclude images, 14MB takes 45s to load.

There's also a bug in parsing at the moment; it aborts after loading all
records.
This commit is contained in:
Kartik K. Agaram 2021-08-10 06:17:50 -07:00
parent e72e5ad297
commit 179db5aeb6
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
browse_slack/main.mu
View File

@ -36,13 +36,14 @@ type item {
# I try to put all the static buffer sizes in this function.
fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
# load entire disk contents to a single enormous stream
draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, "loading data disk..", 3/fg 0/bg
var s-h: (handle stream byte) # the stream is too large to put on the stack
var s-ah/eax: (addr handle stream byte) <- address s-h
populate-stream s-ah, 0x4000000
draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, "loading data disk..", 3/fg 0/bg
var _s/eax: (addr stream byte) <- lookup *s-ah
var s/ebx: (addr stream byte) <- copy _s
load-sectors data-disk, 0/lba, 0x20000/sectors, s
#? load-sectors data-disk, 0/lba, 0x20000/sectors, s
load-sectors data-disk, 0/lba, 0x7000/sectors, s
draw-text-wrapping-right-then-down-from-cursor-over-full-screen screen, "done", 3/fg 0/bg
# parse global data structures out of the stream
var users-h: (handle array user)
@ -86,9 +87,10 @@ fn parse in: (addr stream byte), users: (addr array user), channels: (addr array
var done?/eax: boolean <- stream-empty? in
compare done?, 0/false
break-if-!=
set-cursor-position 0/screen, 0 0
set-cursor-position 0/screen, 0x20 0x20
draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, user-idx, 3/fg 0/bg
draw-int32-decimal-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, item-idx, 4/fg 0/bg
clear-stream record
parse-record in, record
var user?/eax: boolean <- user-record? record
{