* - tour - touring some programming systems

diff options

author	elioat <elioat@tilde.institute>	2023-12-31 20:52:09 -0500
committer	elioat <elioat@tilde.institute>	2023-12-31 20:52:09 -0500
commit	f168c43e18645e1811e9bfa0b7704f8e01b164c7 (patch)
tree	68a9f7caf82d9ad3bca2c2ebb59f88b5adf6b88d /fnl/play.fnl
parent	f8f196f590f21440c3fce6bcaa1a7b4cfe7036c8 (diff)
download	tour-f168c43e18645e1811e9bfa0b7704f8e01b164c7.tar.gz

Diffstat (limited to 'fnl/play.fnl')

0 files changed, 0 insertions, 0 deletions

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571

# grapheme stacks are the smallest unit of editable text type grapheme-stack { data: (handle array grapheme) top: int } fn initialize-grapheme-stack _self: (addr grapheme-stack), n: int { var self/esi: (addr grapheme-stack) <- copy _self var d/edi: (addr handle array grapheme) <- get self, data populate d, n var top/eax: (addr int) <- get self, top copy-to *top, 0 } fn clear-grapheme-stack _self: (addr grapheme-stack) { var self/esi: (addr grapheme-stack) <- copy _self var top/eax: (addr int) <- get self, top copy-to *top, 0 } fn grapheme-stack-empty? _self: (addr grapheme-stack) -> _/eax: boolean { var self/esi: (addr grapheme-stack) <- copy _self var top/eax: (addr int) <- get self, top compare *top, 0 { break-if-!= return 1/true } return 0/false } fn grapheme-stack-length _self: (addr grapheme-stack) -> _/eax: int { var self/esi: (addr grapheme-stack) <- copy _self var top/eax: (addr int) <- get self, top return *top } fn push-grapheme-stack _self: (addr grapheme-stack), _val: grapheme { var self/esi: (addr grapheme-stack) <- copy _self var top-addr/ecx: (addr int) <- get self, top var data-ah/edx: (addr handle array grapheme) <- get self, data var data/eax: (addr array grapheme) <- lookup *data-ah var top/edx: int <- copy *top-addr var dest-addr/edx: (addr grapheme) <- index data, top var val/eax: grapheme <- copy _val copy-to *dest-addr, val add-to *top-addr, 1 } fn pop-grapheme-stack _self: (addr grapheme-stack) -> _/eax: grapheme { var self/esi: (addr grapheme-stack) <- copy _self var top-addr/ecx: (addr int) <- get self, top { compare *top-addr, 0 break-if-> return -1 } subtract-from *top-addr, 1 var data-ah/edx: (addr handle array grapheme) <- get self, data var data/eax: (addr array grapheme) <- lookup *data-ah var top/edx: int <- copy *top-addr var result-addr/eax: (addr grapheme) <- index data, top return *result-addr } fn copy-grapheme-stack _src: (addr grapheme-stack), dest: (addr grapheme-stack) { var src/esi: (addr grapheme-stack) <- copy _src var data-ah/edi: (addr handle array grapheme) <- get src, data var _data/eax: (addr array grapheme) <- lookup *data-ah var data/edi: (addr array grapheme) <- copy _data var top-addr/ecx: (addr int) <- get src, top var i/eax: int <- copy 0 { compare i, *top-addr break-if->= var g/edx: (addr grapheme) <- index data, i push-grapheme-stack dest, *g i <- increment loop } } # dump stack to screen from bottom to top # hardcoded colors: # matching paren fn render-stack-from-bottom-wrapping-right-then-down screen: (addr screen), _self: (addr grapheme-stack), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, highlight-matching-open-paren?: boolean, open-paren-depth: int, color: int, background-color: int -> _/eax: int, _/ecx: int { var self/esi: (addr grapheme-stack) <- copy _self var matching-open-paren-index/edx: int <- get-matching-open-paren-index self, highlight-matching-open-paren?, open-paren-depth var data-ah/edi: (addr handle array grapheme) <- get self, data var _data/eax: (addr array grapheme) <- lookup *data-ah var data/edi: (addr array grapheme) <- copy _data var x/eax: int <- copy _x var y/ecx: int <- copy _y var top-addr/esi: (addr int) <- get self, top var i/ebx: int <- copy 0 { compare i, *top-addr break-if->= { var c: code-point { var g/eax: (addr grapheme) <- index data, i var tmp/eax: code-point <- to-code-point *g copy-to c, tmp } var fg: int { var tmp/eax: int <- copy color copy-to fg, tmp } { compare i, matching-open-paren-index break-if-!= copy-to fg, 0xf/highlight } x, y <- render-code-point screen, c, xmin, ymin, xmax, ymax, x, y, fg, background-color # TODO: handle combining characters } i <- increment loop } return x, y } # helper for small words fn render-stack-from-bottom screen: (addr screen), self: (addr grapheme-stack), x: int, y: int, highlight-matching-open-paren?: boolean, open-paren-depth: int -> _/eax: int { var _width/eax: int <- copy 0 var _height/ecx: int <- copy 0 _width, _height <- screen-size screen var width/edx: int <- copy _width var height/ebx: int <- copy _height var x2/eax: int <- copy 0 var y2/ecx: int <- copy 0 x2, y2 <- render-stack-from-bottom-wrapping-right-then-down screen, self, x, y, width, height, x, y, highlight-matching-open-paren?, open-paren-depth, 3/fg=cyan, 0xc5/bg=blue-bg return x2 # y2? yolo } # dump stack to screen from top to bottom # optionally render a 'cursor' with the top grapheme # hard-coded colors: # matching paren # cursor fn render-stack-from-top-wrapping-right-then-down screen: (addr screen), _self: (addr grapheme-stack), xmin: int, ymin: int, xmax: int, ymax: int, _x: int, _y: int, render-cursor?: boolean, color: int, background-color: int -> _/eax: int, _/ecx: int { var self/esi: (addr grapheme-stack) <- copy _self var matching-close-paren-index/edx: int <- get-matching-close-paren-index self, render-cursor? var data-ah/eax: (addr handle array grapheme) <- get self, data var _data/eax: (addr array grapheme) <- lookup *data-ah var data/edi: (addr array grapheme) <- copy _data var x/eax: int <- copy _x var y/ecx: int <- copy _y var top-addr/ebx: (addr int) <- get self, top var i/ebx: int <- copy *top-addr i <- decrement # if render-cursor?, peel off first iteration { compare render-cursor?, 0/false break-if-= compare i, 0 break-if-< var c: code-point { var g/eax: (addr grapheme) <- index data, i var tmp/eax: code-point <- to-code-point *g copy-to c, tmp } x, y <- render-code-point screen, c, xmin, ymin, xmax, ymax, x, y, background-color, color i <- decrement } # remaining iterations { compare i, 0 break-if-< # highlight matching paren if needed var fg: int { var tmp/eax: int <- copy color copy-to fg, tmp } compare i, matching-close-paren-index { break-if-!= copy-to fg, 0xf/highlight } # var c: code-point { var g/eax: (addr grapheme) <- index data, i var tmp/eax: code-point <- to-code-point *g copy-to c, tmp } x, y <- render-code-point screen, c, xmin, ymin, xmax, ymax, x, y, fg, background-color i <- decrement loop } return x, y } # helper for small words fn render-stack-from-top screen: (addr screen), self: (addr grapheme-stack), x: int, y: int, render-cursor?: boolean -> _/eax: int { var _width/eax: int <- copy 0 var _height/ecx: int <- copy 0 _width, _height <- screen-size screen var width/edx: int <- copy _width var height/ebx: int <- copy _height var x2/eax: int <- copy 0 var y2/ecx: int <- copy 0 x2, y2 <- render-stack-from-top-wrapping-right-then-down screen, self, x, y, width, height, x, y, render-cursor?, 3/fg=cyan, 0xc5/bg=blue-bg return x2 # y2? yolo } fn test-render-grapheme-stack { # setup: gs = "abc" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 5 var g/eax: grapheme <- copy 0x61/a push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g g <- copy 0x63/c push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-bottom screen, gs, 0/x, 0/y, 0/no-highlight-matching-open-paren, 0/open-paren-depth check-screen-row screen, 0/y, "abc ", "F - test-render-grapheme-stack from bottom" check-ints-equal x, 3, "F - test-render-grapheme-stack from bottom: result" check-background-color-in-screen-row screen, 3/bg=reverse, 0/y, " ", "F - test-render-grapheme-stack from bottom: bg" # var x/eax: int <- render-stack-from-top screen, gs, 0/x, 1/y, 0/cursor=false check-screen-row screen, 1/y, "cba ", "F - test-render-grapheme-stack from top without cursor" check-ints-equal x, 3, "F - test-render-grapheme-stack from top without cursor: result" check-background-color-in-screen-row screen, 3/bg=reverse, 1/y, " ", "F - test-render-grapheme-stack from top without cursor: bg" # var x/eax: int <- render-stack-from-top screen, gs, 0/x, 2/y, 1/cursor=true check-screen-row screen, 2/y, "cba ", "F - test-render-grapheme-stack from top with cursor" check-ints-equal x, 3, "F - test-render-grapheme-stack from top with cursor: result" check-background-color-in-screen-row screen, 3/bg=reverse, 2/y, "| ", "F - test-render-grapheme-stack from top with cursor: bg" } fn test-render-grapheme-stack-while-highlighting-matching-close-paren { # setup: gs = "(b)" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 5 var g/eax: grapheme <- copy 0x29/close-paren push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-top screen, gs, 0/x, 2/y, 1/cursor=true check-screen-row screen, 2/y, "(b) ", "F - test-render-grapheme-stack-while-highlighting-matching-close-paren" check-background-color-in-screen-row screen, 3/bg=reverse, 2/y, "| ", "F - test-render-grapheme-stack-while-highlighting-matching-close-paren: cursor" check-screen-row-in-color screen, 0xf/fg=white, 2/y, " ) ", "F - test-render-grapheme-stack-while-highlighting-matching-close-paren: matching paren" } fn test-render-grapheme-stack-while-highlighting-matching-close-paren-2 { # setup: gs = "(a (b)) c" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 0x10 var g/eax: grapheme <- copy 0x63/c push-grapheme-stack gs, g g <- copy 0x20/space push-grapheme-stack gs, g g <- copy 0x29/close-paren push-grapheme-stack gs, g g <- copy 0x29/close-paren push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x20/space push-grapheme-stack gs, g g <- copy 0x61/a push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-top screen, gs, 0/x, 2/y, 1/cursor=true check-screen-row screen, 2/y, "(a (b)) c ", "F - test-render-grapheme-stack-while-highlighting-matching-close-paren-2" check-background-color-in-screen-row screen, 3/bg=reverse, 2/y, "| ", "F - test-render-grapheme-stack-while-highlighting-matching-close-paren-2: cursor" check-screen-row-in-color screen, 0xf/fg=white, 2/y, " ) ", "F - test-render-grapheme-stack-while-highlighting-matching-close-paren-2: matching paren" } fn test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end { # setup: gs = "(b)" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 5 var g/eax: grapheme <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g g <- copy 0x29/close-paren push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-bottom screen, gs, 0/x, 2/y, 1/highlight-matching-open-paren, 1/open-paren-depth check-screen-row screen, 2/y, "(b) ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end" check-screen-row-in-color screen, 0xf/fg=white, 2/y, "( ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end: matching paren" } fn test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2 { # setup: gs = "a((b))" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 0x10 var g/eax: grapheme <- copy 0x61/a push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g g <- copy 0x29/close-paren push-grapheme-stack gs, g g <- copy 0x29/close-paren push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-bottom screen, gs, 0/x, 2/y, 1/highlight-matching-open-paren, 1/open-paren-depth check-screen-row screen, 2/y, "a((b)) ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2" check-screen-row-in-color screen, 0xf/fg=white, 2/y, " ( ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren-with-close-paren-at-end-2: matching paren" } fn test-render-grapheme-stack-while-highlighting-matching-open-paren { # setup: gs = "(b" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 5 var g/eax: grapheme <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-bottom screen, gs, 0/x, 2/y, 1/highlight-matching-open-paren, 0/open-paren-depth check-screen-row screen, 2/y, "(b ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren" check-screen-row-in-color screen, 0xf/fg=white, 2/y, "( ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren: matching paren" } fn test-render-grapheme-stack-while-highlighting-matching-open-paren-2 { # setup: gs = "a((b)" var gs-storage: grapheme-stack var gs/edi: (addr grapheme-stack) <- address gs-storage initialize-grapheme-stack gs, 0x10 var g/eax: grapheme <- copy 0x61/a push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x28/open-paren push-grapheme-stack gs, g g <- copy 0x62/b push-grapheme-stack gs, g g <- copy 0x29/close-paren push-grapheme-stack gs, g # setup: screen var screen-storage: screen var screen/esi: (addr screen) <- address screen-storage initialize-screen screen, 5, 4, 0/no-pixel-graphics # var x/eax: int <- render-stack-from-bottom screen, gs, 0/x, 2/y, 1/highlight-matching-open-paren, 0/open-paren-depth check-screen-row screen, 2/y, "a((b) ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren-2" check-screen-row-in-color screen, 0xf/fg=white, 2/y, " ( ", "F - test-render-grapheme-stack-while-highlighting-matching-open-paren-2: matching paren" } # return the index of the matching close-paren of the grapheme at cursor (top of stack) # or top index if there's no matching close-paren fn get-matching-close-paren-index _self: (addr grapheme-stack), render-cursor?: boolean -> _/edx: int { var self/esi: (addr grapheme-stack) <- copy _self var top-addr/edx: (addr int) <- get self, top # if not rendering cursor, return compare render-cursor?, 0/false { break-if-!= return *top-addr } var data-ah/eax: (addr handle array grapheme) <- get self, data var data/eax: (addr array grapheme) <- lookup *data-ah var i/ecx: int <- copy *top-addr # if stack is empty, return compare i, 0 { break-if-> return *top-addr } # if cursor is not '(' return i <- decrement var g/esi: (addr grapheme) <- index data, i compare *g, 0x28/open-paren { break-if-= return *top-addr } # otherwise scan to matching paren var paren-count/ebx: int <- copy 1 i <- decrement { compare i, 0 break-if-< var g/esi: (addr grapheme) <- index data, i compare *g, 0x28/open-paren { break-if-!= paren-count <- increment } compare *g, 0x29/close-paren { break-if-!= compare paren-count, 1 { break-if-!= return i } paren-count <- decrement } i <- decrement loop } return *top-addr } # return the index of the first open-paren at the given depth # or top index if there's no matching close-paren fn get-matching-open-paren-index _self: (addr grapheme-stack), control: boolean, depth: int -> _/edx: int { var self/esi: (addr grapheme-stack) <- copy _self var top-addr/edx: (addr int) <- get self, top # if not rendering cursor, return compare control, 0/false { break-if-!= return *top-addr } var data-ah/eax: (addr handle array grapheme) <- get self, data var data/eax: (addr array grapheme) <- lookup *data-ah var i/ecx: int <- copy *top-addr # if stack is empty, return compare i, 0 { break-if-> return *top-addr } # scan to matching open paren var paren-count/ebx: int <- copy 0 i <- decrement { compare i, 0 break-if-< var g/esi: (addr grapheme) <- index data, i compare *g, 0x29/close-paren { break-if-!= paren-count <- increment } compare *g, 0x28/open-paren { break-if-!= compare paren-count, depth { break-if-!= return i } paren-count <- decrement } i <- decrement loop } return *top-addr } # compare from bottom # beware: modifies 'stream', which must be disposed of after a false result fn prefix-match? _self: (addr grapheme-stack), s: (addr stream byte) -> _/eax: boolean { var self/esi: (addr grapheme-stack) <- copy _self var data-ah/edi: (addr handle array grapheme) <- get self, data var _data/eax: (addr array grapheme) <- lookup *data-ah var data/edi: (addr array grapheme) <- copy _data var top-addr/ecx: (addr int) <- get self, top var i/ebx: int <- copy 0 { compare i, *top-addr break-if->= # if curr != expected, return false { var curr-a/edx: (addr grapheme) <- index data, i var expected/eax: grapheme <- read-grapheme s { compare expected, *curr-a break-if-= return 0/false } } i <- increment loop } return 1 # true } # compare from bottom # beware: modifies 'stream', which must be disposed of after a false result fn suffix-match? _self: (addr grapheme-stack), s: (addr stream byte) -> _/eax: boolean { var self/esi: (addr grapheme-stack) <- copy _self var data-ah/edi: (addr handle array grapheme) <- get self, data var _data/eax: (addr array grapheme) <- lookup *data-ah var data/edi: (addr array grapheme) <- copy _data var top-addr/eax: (addr int) <- get self, top var i/ebx: int <- copy *top-addr i <- decrement { compare i, 0 break-if-< { var curr-a/edx: (addr grapheme) <- index data, i var expected/eax: grapheme <- read-grapheme s # if curr != expected, return false { compare expected, *curr-a break-if-= return 0/false } } i <- decrement loop } return 1 # true } fn grapheme-stack-is-decimal-integer? _self: (addr grapheme-stack) -> _/eax: boolean { var self/esi: (addr grapheme-stack) <- copy _self var data-ah/eax: (addr handle array grapheme) <- get self, data var _data/eax: (addr array grapheme) <- lookup *data-ah var data/edx: (addr array grapheme) <- copy _data var top-addr/ecx: (addr int) <- get self, top var i/ebx: int <- copy 0 var result/eax: boolean <- copy 1/true $grapheme-stack-is-integer?:loop: { compare i, *top-addr break-if->= var g/edx: (addr grapheme) <- index data, i result <- decimal-digit? *g compare result, 0/false break-if-= i <- increment loop } return result }


context:
space:
mode: