diff options
| -rw-r--r-- | apps/tile/environment.mu | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 3fdd8163..4ed23ecc 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -2,6 +2,7 @@ type environment { screen: (handle screen) functions: (handle function) sandboxes: (handle sandbox) + cursor-sandbox: (handle sandbox) nrows: int ncols: int code-separator-col: int @@ -13,10 +14,13 @@ fn initialize-environment _env: (addr environment) { var functions/eax: (addr handle function) <- get env, functions create-primitive-functions functions # initialize first sandbox - var sandbox-ah/eax: (addr handle sandbox) <- get env, sandboxes + var sandbox-ah/ecx: (addr handle sandbox) <- get env, sandboxes allocate sandbox-ah var sandbox/eax: (addr sandbox) <- lookup *sandbox-ah initialize-sandbox sandbox + # initialize cursor sandbox + var cursor-sandbox-ah/eax: (addr handle sandbox) <- get env, cursor-sandbox + copy-object sandbox-ah, cursor-sandbox-ah # initialize screen var screen-ah/eax: (addr handle screen) <- get env, screen var _screen/eax: (addr screen) <- lookup *screen-ah @@ -61,7 +65,7 @@ fn initialize-environment-with-fake-screen _self: (addr environment), nrows: int fn process _self: (addr environment), key: grapheme { var self/esi: (addr environment) <- copy _self - var sandbox-ah/eax: (addr handle sandbox) <- get self, sandboxes + var sandbox-ah/eax: (addr handle sandbox) <- get self, cursor-sandbox var sandbox/eax: (addr sandbox) <- lookup *sandbox-ah #? print-string 0, "processing sandbox\n" process-sandbox self, sandbox, key @@ -985,14 +989,14 @@ fn render _env: (addr environment) { # functions var functions/edx: (addr handle function) <- get env, functions # sandbox - var sandbox-ah/eax: (addr handle sandbox) <- get env, sandboxes - var sandbox/eax: (addr sandbox) <- lookup *sandbox-ah + var cursor-sandbox-ah/eax: (addr handle sandbox) <- get env, cursor-sandbox + var cursor-sandbox/eax: (addr sandbox) <- lookup *cursor-sandbox-ah # bindings var bindings-storage: table var bindings/ebx: (addr table) <- address bindings-storage initialize-table bindings, 0x10 #? print-string 0, "render-sandbox {\n" - render-sandbox screen, functions, bindings, sandbox, 3, repl-col + render-sandbox screen, functions, bindings, cursor-sandbox, 3, repl-col #? print-string 0, "render-sandbox }\n" } |