From dd60a1d73c8017fd3d80ccf91e4549fc47a90760 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Mon, 16 Nov 2020 20:44:02 -0800 Subject: 7252 --- html/apps/browse/main.mu.html | 106 +++++++++++++++++++++--------------------- 1 file changed, 53 insertions(+), 53 deletions(-) (limited to 'html/apps/browse') diff --git a/html/apps/browse/main.mu.html b/html/apps/browse/main.mu.html index 7bc920d5..0949562c 100644 --- a/html/apps/browse/main.mu.html +++ b/html/apps/browse/main.mu.html @@ -101,13 +101,13 @@ if ('onhashchange' in window) { 42 enable-screen-grid-mode 43 enable-keyboard-immediate-mode 44 # initialize screen state - 45 var paginated-screen-storage: paginated-screen - 46 var paginated-screen/eax: (addr paginated-screen) <- address paginated-screen-storage - 47 initialize-paginated-screen paginated-screen, 0x40, 2, 5 - 48 normal-text paginated-screen + 45 var paginated-screen-storage: paginated-screen + 46 var paginated-screen/eax: (addr paginated-screen) <- address paginated-screen-storage + 47 initialize-paginated-screen paginated-screen, 0x40, 2, 5 + 48 normal-text paginated-screen 49 # 50 { - 51 render paginated-screen, fs + 51 render paginated-screen, fs 52 var key/eax: grapheme <- read-key-from-real-keyboard 53 compare key, 0x71 # 'q' 54 loop-if-!= @@ -116,8 +116,8 @@ if ('onhashchange' in window) { 57 enable-screen-type-mode 58 } 59 - 60 fn render screen: (addr paginated-screen), fs: (addr buffered-file) { - 61 start-drawing screen + 60 fn render screen: (addr paginated-screen), fs: (addr buffered-file) { + 61 start-drawing screen 62 render-normal screen, fs 63 } 64 @@ -128,9 +128,9 @@ if ('onhashchange' in window) { 69 populate-buffered-file-containing "abcdefgh", input-ah 70 var in/eax: (addr buffered-file) <- lookup input-storage 71 # output screen - 72 var pg: paginated-screen - 73 var pg-addr/ecx: (addr paginated-screen) <- address pg - 74 initialize-fake-paginated-screen pg-addr, 3, 6, 2, 1, 1 # 3 rows, 6 columns, 2 pages * 2 columns each + 72 var pg: paginated-screen + 73 var pg-addr/ecx: (addr paginated-screen) <- address pg + 74 initialize-fake-paginated-screen pg-addr, 3, 6, 2, 1, 1 # 3 rows, 6 columns, 2 pages * 2 columns each 75 # 76 render pg-addr, in 77 var screen-ah/eax: (addr handle screen) <- get pg, screen @@ -147,9 +147,9 @@ if ('onhashchange' in window) { 88 populate-buffered-file-containing "# abc\n\ndef", input-ah 89 var in/eax: (addr buffered-file) <- lookup input-storage 90 # output screen - 91 var pg: paginated-screen - 92 var pg-addr/ecx: (addr paginated-screen) <- address pg - 93 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page + 91 var pg: paginated-screen + 92 var pg-addr/ecx: (addr paginated-screen) <- address pg + 93 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page 94 # 95 render pg-addr, in 96 var screen-ah/eax: (addr handle screen) <- get pg, screen @@ -167,9 +167,9 @@ if ('onhashchange' in window) { 108 populate-buffered-file-containing "a *b* c", input-ah 109 var in/eax: (addr buffered-file) <- lookup input-storage 110 # output screen -111 var pg: paginated-screen -112 var pg-addr/ecx: (addr paginated-screen) <- address pg -113 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page +111 var pg: paginated-screen +112 var pg-addr/ecx: (addr paginated-screen) <- address pg +113 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page 114 # 115 render pg-addr, in 116 var screen-ah/eax: (addr handle screen) <- get pg, screen @@ -187,9 +187,9 @@ if ('onhashchange' in window) { 128 populate-buffered-file-containing "a _b_ c", input-ah 129 var in/eax: (addr buffered-file) <- lookup input-storage 130 # output screen -131 var pg: paginated-screen -132 var pg-addr/ecx: (addr paginated-screen) <- address pg -133 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page +131 var pg: paginated-screen +132 var pg-addr/ecx: (addr paginated-screen) <- address pg +133 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page 134 # 135 render pg-addr, in 136 var screen-ah/eax: (addr handle screen) <- get pg, screen @@ -205,9 +205,9 @@ if ('onhashchange' in window) { 146 populate-buffered-file-containing "a*b*c", input-ah 147 var in/eax: (addr buffered-file) <- lookup input-storage 148 # output screen -149 var pg: paginated-screen -150 var pg-addr/ecx: (addr paginated-screen) <- address pg -151 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page +149 var pg: paginated-screen +150 var pg-addr/ecx: (addr paginated-screen) <- address pg +151 initialize-fake-paginated-screen pg-addr, 8, 6, 5, 1, 1 # 6 columns, single page 152 # 153 render pg-addr, in 154 var screen-ah/eax: (addr handle screen) <- get pg, screen @@ -216,13 +216,13 @@ if ('onhashchange' in window) { 157 check-screen-row-in-bold screen, 2, " ", "F - test-render-bold-text/bold" 158 } 159 -160 fn render-normal screen: (addr paginated-screen), fs: (addr buffered-file) { +160 fn render-normal screen: (addr paginated-screen), fs: (addr buffered-file) { 161 var newline-seen?/esi: boolean <- copy 0 # false 162 var start-of-paragraph?/edi: boolean <- copy 1 # true 163 var previous-grapheme/ebx: grapheme <- copy 0 164 $render-normal:loop: { 165 # if done-drawing?(screen) break -166 var done?/eax: boolean <- done-drawing? screen +166 var done?/eax: boolean <- done-drawing? screen 167 compare done?, 0 # false 168 break-if-!= 169 var c/eax: grapheme <- read-grapheme-buffered fs @@ -245,8 +245,8 @@ if ('onhashchange' in window) { 186 # otherwise render two newlines 187 { 188 break-if-= -189 add-grapheme screen, 0xa # newline -190 add-grapheme screen, 0xa # newline +189 add-grapheme screen, 0xa # newline +190 add-grapheme screen, 0xa # newline 191 newline-seen? <- copy 0 # false 192 start-of-paragraph? <- copy 1 # true 193 break $render-normal:loop-body @@ -280,10 +280,10 @@ if ('onhashchange' in window) { 221 { 222 compare c, 0x20 223 break-if-!= -224 add-grapheme screen, 0xa # newline +224 add-grapheme screen, 0xa # newline 225 break $render-normal:flush-buffered-newline 226 } -227 add-grapheme screen, 0x20 # space +227 add-grapheme screen, 0x20 # space 228 # fall through to print c 229 } 230 ## end soft newline support @@ -301,8 +301,8 @@ if ('onhashchange' in window) { 242 compare c, 0x2a # '*' 243 { 244 break-if-!= -245 start-color-on-paginated-screen screen, 0xec, 7 # 236 = darkish gray -246 start-bold-on-paginated-screen screen +245 start-color-on-paginated-screen screen, 0xec, 7 # 236 = darkish gray +246 start-bold-on-paginated-screen screen 247 render-until-asterisk screen, fs 248 normal-text screen 249 break $render-normal:loop-body @@ -311,22 +311,22 @@ if ('onhashchange' in window) { 252 compare c, 0x5f # '_' 253 { 254 break-if-!= -255 start-color-on-paginated-screen screen, 0xec, 7 # 236 = darkish gray -256 start-bold-on-paginated-screen screen +255 start-color-on-paginated-screen screen, 0xec, 7 # 236 = darkish gray +256 start-bold-on-paginated-screen screen 257 render-until-underscore screen, fs 258 normal-text screen 259 break $render-normal:loop-body 260 } 261 } 262 # -263 add-grapheme screen, c +263 add-grapheme screen, c 264 } # $render-normal:loop-body 265 previous-grapheme <- copy c 266 loop 267 } # $render-normal:loop 268 } 269 -270 fn render-header-line screen: (addr paginated-screen), fs: (addr buffered-file) { +270 fn render-header-line screen: (addr paginated-screen), fs: (addr buffered-file) { 271 $render-header-line:body: { 272 # compute color based on number of '#'s 273 var header-level/esi: int <- copy 1 # caller already grabbed one @@ -334,7 +334,7 @@ if ('onhashchange' in window) { 275 { 276 # if done-drawing?(screen) return 277 { -278 var done?/eax: boolean <- done-drawing? screen +278 var done?/eax: boolean <- done-drawing? screen 279 compare done?, 0 # false 280 break-if-!= $render-header-line:body 281 } @@ -352,7 +352,7 @@ if ('onhashchange' in window) { 293 { 294 # if done-drawing?(screen) break 295 { -296 var done?/eax: boolean <- done-drawing? screen +296 var done?/eax: boolean <- done-drawing? screen 297 compare done?, 0 # false 298 break-if-!= 299 } @@ -365,7 +365,7 @@ if ('onhashchange' in window) { 306 compare c, 0xa # newline 307 break-if-= 308 # -309 add-grapheme screen, c +309 add-grapheme screen, c 310 # 311 loop 312 } @@ -374,41 +374,41 @@ if ('onhashchange' in window) { 315 } 316 317 # colors for a light background, going from bright to dark (meeting up with bold-text) -318 fn start-heading screen: (addr paginated-screen), header-level: int { +318 fn start-heading screen: (addr paginated-screen), header-level: int { 319 $start-heading:body: { -320 start-bold-on-paginated-screen screen +320 start-bold-on-paginated-screen screen 321 compare header-level, 1 322 { 323 break-if-!= -324 start-color-on-paginated-screen screen, 0xa0, 7 +324 start-color-on-paginated-screen screen, 0xa0, 7 325 break $start-heading:body 326 } 327 compare header-level, 2 328 { 329 break-if-!= -330 start-color-on-paginated-screen screen, 0x7c, 7 +330 start-color-on-paginated-screen screen, 0x7c, 7 331 break $start-heading:body 332 } 333 compare header-level, 3 334 { 335 break-if-!= -336 start-color-on-paginated-screen screen, 0x58, 7 +336 start-color-on-paginated-screen screen, 0x58, 7 337 break $start-heading:body 338 } 339 compare header-level, 4 340 { 341 break-if-!= -342 start-color-on-paginated-screen screen, 0x34, 7 +342 start-color-on-paginated-screen screen, 0x34, 7 343 break $start-heading:body 344 } -345 start-color-on-paginated-screen screen, 0xe8, 7 +345 start-color-on-paginated-screen screen, 0xe8, 7 346 } 347 } 348 -349 fn render-until-asterisk screen: (addr paginated-screen), fs: (addr buffered-file) { +349 fn render-until-asterisk screen: (addr paginated-screen), fs: (addr buffered-file) { 350 { 351 # if done-drawing?(screen) break -352 var done?/eax: boolean <- done-drawing? screen +352 var done?/eax: boolean <- done-drawing? screen 353 compare done?, 0 # false 354 break-if-!= 355 # @@ -420,16 +420,16 @@ if ('onhashchange' in window) { 361 compare c, 0x2a # '*' 362 break-if-= 363 # -364 add-grapheme screen, c +364 add-grapheme screen, c 365 # 366 loop 367 } 368 } 369 -370 fn render-until-underscore screen: (addr paginated-screen), fs: (addr buffered-file) { +370 fn render-until-underscore screen: (addr paginated-screen), fs: (addr buffered-file) { 371 { 372 # if done-drawing?(screen) break -373 var done?/eax: boolean <- done-drawing? screen +373 var done?/eax: boolean <- done-drawing? screen 374 compare done?, 0 # false 375 break-if-!= 376 # @@ -441,15 +441,15 @@ if ('onhashchange' in window) { 382 compare c, 0x5f # '_' 383 break-if-= 384 # -385 add-grapheme screen, c +385 add-grapheme screen, c 386 # 387 loop 388 } 389 } 390 -391 fn normal-text screen: (addr paginated-screen) { -392 reset-formatting-on-paginated-screen screen -393 start-color-on-paginated-screen screen, 0xec, 7 # 236 = darkish gray +391 fn normal-text screen: (addr paginated-screen) { +392 reset-formatting-on-paginated-screen screen +393 start-color-on-paginated-screen screen, 0xec, 7 # 236 = darkish gray 394 } -- cgit 1.4.1-2-gfad0