diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-10-11 00:11:04 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-10-11 00:11:04 -0700 |
commit | 1c441baf96ceb59ee1a04856f235b68244d59aae (patch) | |
tree | 24df84ad16f4417075647b4e1e497a92585db1c0 /apps/tile/main.mu | |
parent | 28d99f031dcee8c2b9753365fbae49bf0ac1f2a0 (diff) | |
download | mu-1c441baf96ceb59ee1a04856f235b68244d59aae.tar.gz |
7000 - tile: previous-word also bumps up to caller
Diffstat (limited to 'apps/tile/main.mu')
-rw-r--r-- | apps/tile/main.mu | 58 |
1 files changed, 5 insertions, 53 deletions
diff --git a/apps/tile/main.mu b/apps/tile/main.mu index 2336b37b..0a2d6339 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -91,60 +91,12 @@ fn test { process env, g g <- copy 0x445b1b # left-arrow process env, g - { - print-string 0, "== before enter\n" - var functions/ecx: (addr handle function) <- get env, functions - var sandbox-ah/eax: (addr handle sandbox) <- get env, sandboxes - var _sandbox/eax: (addr sandbox) <- lookup *sandbox-ah - var sandbox/edi: (addr sandbox) <- copy _sandbox - var cursor-call-path/edi: (addr handle call-path-element) <- get sandbox, cursor-call-path - var _foo/eax: (addr call-path-element) <- lookup *cursor-call-path - var foo/ecx: (addr call-path-element) <- copy _foo - var bar/eax: (addr int) <- get foo, index-in-body - print-int32-hex 0, *bar - print-string 0, "\n" - cursor-call-path <- get foo, next - var _foo/eax: (addr call-path-element) <- lookup *cursor-call-path - var foo/ecx: (addr call-path-element) <- copy _foo - compare foo, 0 - break-if-= - var bar/eax: (addr int) <- get foo, index-in-body - print-int32-hex 0, *bar - print-string 0, "\n" - } - g <- copy 0xa # <enter> + g <- copy 0x10 # <ctrl-p> + process env, g + g <- copy 0x10 # <ctrl-p> + process env, g + g <- copy 0x10 # <ctrl-p> process env, g - { - print-string 0, "== after enter\n" - var functions/ecx: (addr handle function) <- get env, functions - var sandbox-ah/eax: (addr handle sandbox) <- get env, sandboxes - var _sandbox/eax: (addr sandbox) <- lookup *sandbox-ah - var sandbox/edi: (addr sandbox) <- copy _sandbox - var cursor-call-path/edi: (addr handle call-path-element) <- get sandbox, cursor-call-path - var _foo/eax: (addr call-path-element) <- lookup *cursor-call-path - var foo/ecx: (addr call-path-element) <- copy _foo - var bar/eax: (addr int) <- get foo, index-in-body - print-int32-hex 0, *bar - print-string 0, "\n" - cursor-call-path <- get foo, next - var _foo/eax: (addr call-path-element) <- lookup *cursor-call-path - var foo/ecx: (addr call-path-element) <- copy _foo - compare foo, 0 - break-if-= - var bar/eax: (addr int) <- get foo, index-in-body - print-int32-hex 0, *bar - print-string 0, "\n" - cursor-call-path <- get foo, next - var _foo/eax: (addr call-path-element) <- lookup *cursor-call-path - var foo/ecx: (addr call-path-element) <- copy _foo - compare foo, 0 - break-if-= - var bar/eax: (addr int) <- get foo, index-in-body - print-int32-hex 0, *bar - print-string 0, "\n" - } - print-string 0, "== render\n" - render env } fn repl { |