mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

Diffstat (limited to 'edit/010-sandbox-trace.mu')

-rw-r--r--

1 files changed, 1 insertions, 1 deletions

<!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <title>Mu - shell/environment.mu</title> <meta name="Generator" content="Vim/8.2"> <meta name="plugin-version" content="vim8.1_v2"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=,use_input_for_pc=fallback"> <meta name="colorscheme" content="minimal-light"> <style>  </style> <script>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/shell/environment.mu'>https://github.com/akkartik/mu/blob/main/shell/environment.mu</a> <pre id='vimCodeElement'> 1 # The top-level data structure for the Mu shell. 2 # 3 # vim:textwidth& 4 # It would be nice for tests to use a narrower screen than the standard 0x80 of 5 # 1024 pixels with 8px-wide graphemes. But it complicates rendering logic to 6 # make width configurable, so we just use longer lines than usual. 7 8 type <a href='environment.mu.html#L8'>environment</a> { 9 globals: <a href='global.mu.html#L1'>global-table</a> 10 <a href='sandbox.mu.html#L1'>sandbox</a>: <a href='sandbox.mu.html#L1'>sandbox</a> 11 # some state for a modal dialog for navigating between globals 12 partial-global-name: (handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) 13 go-modal-error: (handle array byte) 14 # 15 cursor-in-globals?: boolean 16 cursor-in-go-modal?: boolean 17 } 18 19 # Here's a sample usage session and what it will look like on the screen. 20 fn <a href='environment.mu.html#L20'>test-environment</a> { 21 var env-storage: <a href='environment.mu.html#L8'>environment</a> 22 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 23 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 24 # setup: screen 25 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 26 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 27 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x30/height, 0/no-pixel-graphics 28 # type some code into sandbox 29 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "(+ 3 4)" # we don't have any global definitions here, so no macros 30 # run code in sandbox 31 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x13/ctrl-s, 0/no-disk 32 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 33 # | global definitions | sandbox 34 # top row blank for now 35 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/0" 36 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 1/y, " <a href='../500fake-screen.mu.html#L14'>screen</a>: ", "F - <a href='environment.mu.html#L20'>test-environment</a>/1" 37 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 2/y, " ........ ", "F - <a href='environment.mu.html#L20'>test-environment</a>/2" 38 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 3/y, " ........ ", "F - <a href='environment.mu.html#L20'>test-environment</a>/3" 39 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 4/y, " ........ ", "F - <a href='environment.mu.html#L20'>test-environment</a>/4" 40 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 5/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/5" 41 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " keyboard: ", "F - <a href='environment.mu.html#L20'>test-environment</a>/6" 42 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 6/y, " ................ ", "F - <a href='environment.mu.html#L20'>test-environment</a>/6-2" 43 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 7/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/7" 44 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " (+ 3 4) ", "F - <a href='environment.mu.html#L20'>test-environment</a>/8" 45 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 9/y, " ... trace depth: 4 ", "F - <a href='environment.mu.html#L20'>test-environment</a>/9" 46 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xa/y, " => 7 ", "F - <a href='environment.mu.html#L20'>test-environment</a>/10" 47 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xb/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/11" 48 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xc/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/12" 49 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xd/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/13" 50 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xe/y, " ", "F - <a href='environment.mu.html#L20'>test-environment</a>/14" 51 # bottom row is for a wordstar-style menu 52 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x2f/y, " ^r run <a href='main.mu.html#L4'>main</a> ^s run <a href='sandbox.mu.html#L1'>sandbox</a> ^g go to ^m to trace ^a << ^b <word ^f word> ^e >> ", "F - <a href='environment.mu.html#L20'>test-environment</a>/15" 53 } 54 55 fn <a href='environment.mu.html#L55'>test-definition-in-environment</a> { 56 var env-storage: <a href='environment.mu.html#L8'>environment</a> 57 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 58 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 59 # setup: screen 60 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 61 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 62 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x30/height, 0/no-pixel-graphics 63 # define a global on the right (sandbox) side 64 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "(define f 42)" 65 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x13/ctrl-s, 0/no-disk 66 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 67 # | global definitions | sandbox 68 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/y, " ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/0" 69 # global definition is now on the left side 70 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 1/y, " (define f 42) <a href='../500fake-screen.mu.html#L14'>screen</a>: ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/1" 71 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 2/y, " ........ ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/2" 72 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 3/y, " ........ ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/3" 73 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 4/y, " ........ ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/4" 74 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 5/y, " ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/4" 75 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " keyboard: ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/5" 76 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg, 6/y, " ................ ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/5-2" 77 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 7/y, " ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/6" 78 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/7" 79 # you can still see the trace on the right for what you just added to the left 80 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 9/y, " ... trace depth: 4 ", "F - <a href='environment.mu.html#L55'>test-definition-in-environment</a>/8" 81 } 82 83 # helper for testing 84 fn <a href='environment.mu.html#L84'>type-in</a> self: (addr <a href='environment.mu.html#L8'>environment</a>), <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), keys: (addr array byte) { 85 # clear the buffer 86 <a href='environment.mu.html#L148'>edit-environment</a> self, 0x15/ctrl-u, 0/no-disk 87 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, self 88 # type in all the keys 89 var input-stream-storage: (stream byte 0x40/capacity) 90 var input-stream/ecx: (addr stream byte) <- address input-stream-storage 91 <a href='../108write.subx.html#L11'>write</a> input-stream, keys 92 { 93 var done?/eax: boolean <- <a href='../309stream.subx.html#L6'>stream-empty?</a> input-stream 94 compare done?, 0/false 95 break-if-!= 96 var key/eax: grapheme <- <a href='../403unicode.mu.html#L92'>read-grapheme</a> input-stream 97 <a href='environment.mu.html#L148'>edit-environment</a> self, key, 0/no-disk 98 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, self 99 loop 100 } 101 } 102 103 fn <a href='environment.mu.html#L103'>initialize-environment</a> _self: (addr <a href='environment.mu.html#L8'>environment</a>), fake-screen-width: int, fake-screen-height: int { 104 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 105 var globals/eax: (addr <a href='global.mu.html#L1'>global-table</a>) <- get self, globals 106 <a href='global.mu.html#L14'>initialize-globals</a> globals 107 var <a href='sandbox.mu.html#L1'>sandbox</a>/eax: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <- get self, <a href='sandbox.mu.html#L1'>sandbox</a> 108 <a href='sandbox.mu.html#L12'>initialize-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, fake-screen-width, fake-screen-height 109 var partial-global-name-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get self, partial-global-name 110 <a href='../120allocate.subx.html#L43'>allocate</a> partial-global-name-ah 111 var partial-global-name/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *partial-global-name-ah 112 <a href='gap-buffer.mu.html#L11'>initialize-gap-buffer</a> partial-global-name, 0x40/global-name-capacity 113 } 114 115 fn <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='environment.mu.html#L8'>environment</a>) { 116 # globals layout: 1 char padding, 41 code, 1 padding, 41 code, 1 padding = 85 117 # sandbox layout: 1 padding, 41 code, 1 padding = 43 118 # total = 128 chars 119 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 120 var cursor-in-globals-a/eax: (addr boolean) <- get self, cursor-in-globals? 121 var cursor-in-globals?/eax: boolean <- copy *cursor-in-globals-a 122 var globals/ecx: (addr <a href='global.mu.html#L1'>global-table</a>) <- get self, globals 123 <a href='global.mu.html#L117'>render-globals</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, globals, cursor-in-globals? 124 var <a href='sandbox.mu.html#L1'>sandbox</a>/edx: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <- get self, <a href='sandbox.mu.html#L1'>sandbox</a> 125 var cursor-in-sandbox?/ebx: boolean <- copy 1/true 126 cursor-in-sandbox? <- subtract cursor-in-globals? 127 <a href='sandbox.mu.html#L81'>render-sandbox</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a>, 0x55/sandbox-left-margin, 0/sandbox-top-margin, 0x80/screen-width, 0x2f/screen-height-without-menu, cursor-in-sandbox? 128 # modal if necessary 129 { 130 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 131 compare *cursor-in-go-modal-a, 0/false 132 break-if-= 133 <a href='environment.mu.html#L811'>render-go-modal</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, self 134 <a href='environment.mu.html#L871'>render-go-modal-menu</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, self 135 return 136 } 137 # render menu 138 { 139 var cursor-in-globals?/eax: (addr boolean) <- get self, cursor-in-globals? 140 compare *cursor-in-globals?, 0/false 141 break-if-= 142 <a href='global.mu.html#L202'>render-globals-menu</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, globals 143 return 144 } 145 <a href='sandbox.mu.html#L130'>render-sandbox-menu</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, <a href='sandbox.mu.html#L1'>sandbox</a> 146 } 147 148 fn <a href='environment.mu.html#L148'>edit-environment</a> _self: (addr <a href='environment.mu.html#L8'>environment</a>), key: grapheme, data-disk: (addr disk) { 149 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 150 var globals/edi: (addr <a href='global.mu.html#L1'>global-table</a>) <- get self, globals 151 var <a href='sandbox.mu.html#L1'>sandbox</a>/ecx: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <- get self, <a href='sandbox.mu.html#L1'>sandbox</a> 152 # ctrl-r 153 # Assumption: 'real-screen' and 'real-keyboard' are 0 154 { 155 compare key, 0x12/ctrl-r 156 break-if-!= 157 var tmp/eax: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- copy 0 158 var <a href='cell.mu.html#L121'>nil</a>: (handle <a href='cell.mu.html#L1'>cell</a>) 159 tmp <- address <a href='cell.mu.html#L121'>nil</a> 160 <a href='cell.mu.html#L102'>allocate-pair</a> tmp 161 # (main real-screen real-keyboard) 162 var real-keyboard: (handle <a href='cell.mu.html#L1'>cell</a>) 163 tmp <- address real-keyboard 164 <a href='cell.mu.html#L177'>allocate-keyboard</a> tmp 165 # args = cons(real-keyboard, nil) 166 var args: (handle <a href='cell.mu.html#L1'>cell</a>) 167 tmp <- address args 168 <a href='cell.mu.html#L116'>new-pair</a> tmp, real-keyboard, <a href='cell.mu.html#L121'>nil</a> 169 # 170 var real-screen: (handle <a href='cell.mu.html#L1'>cell</a>) 171 tmp <- address real-screen 172 <a href='cell.mu.html#L146'>allocate-screen</a> tmp 173 # args = cons(real-screen, args) 174 tmp <- address args 175 <a href='cell.mu.html#L116'>new-pair</a> tmp, real-screen, *tmp 176 # 177 var <a href='main.mu.html#L4'>main</a>: (handle <a href='cell.mu.html#L1'>cell</a>) 178 tmp <- address <a href='main.mu.html#L4'>main</a> 179 <a href='cell.mu.html#L39'>new-symbol</a> tmp, "main" 180 # args = cons(main, args) 181 tmp <- address args 182 <a href='cell.mu.html#L116'>new-pair</a> tmp, <a href='main.mu.html#L4'>main</a>, *tmp 183 # clear real screen 184 <a href='../500fake-screen.mu.html#L251'>clear-screen</a> 0/screen 185 <a href='../500fake-screen.mu.html#L190'>set-cursor-position</a> 0/screen, 0, 0 186 # run 187 var out: (handle <a href='cell.mu.html#L1'>cell</a>) 188 var out-ah/ecx: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address out 189 var trace-storage: trace 190 var trace/ebx: (addr trace) <- address trace-storage 191 <a href='trace.mu.html#L61'>initialize-trace</a> trace, 1/only-errors, 0x10/capacity, 0/visible 192 <a href='evaluate.mu.html#L11'>evaluate</a> tmp, out-ah, <a href='cell.mu.html#L121'>nil</a>, globals, trace, 0/no-fake-screen, 0/no-fake-keyboard, 0/definitions-created, 0/call-number 193 # wait for a keypress 194 { 195 var tmp/eax: byte <- <a href='../102keyboard.subx.html#L21'>read-key</a> 0/keyboard 196 compare tmp, 0 197 loop-if-= 198 } 199 # 200 return 201 } 202 # ctrl-s: send multiple places 203 { 204 compare key, 0x13/ctrl-s 205 break-if-!= 206 { 207 # cursor in go modal? do nothing 208 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 209 compare *cursor-in-go-modal-a, 0/false 210 break-if-!= 211 { 212 # cursor in globals? update current definition 213 var cursor-in-globals-a/edx: (addr boolean) <- get self, cursor-in-globals? 214 compare *cursor-in-globals-a, 0/false 215 break-if-= 216 <a href='global.mu.html#L229'>edit-globals</a> globals, key 217 } 218 # update sandbox whether the cursor is in globals or sandbox 219 <a href='sandbox.mu.html#L453'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, key, globals, data-disk 220 } 221 return 222 } 223 # dispatch to go modal if necessary 224 { 225 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 226 compare *cursor-in-go-modal-a, 0/false 227 break-if-= 228 # nested events for modal dialog 229 # ignore spaces 230 { 231 compare key, 0x20/space 232 break-if-!= 233 return 234 } 235 # esc = exit modal dialog 236 { 237 compare key, 0x1b/escape 238 break-if-!= 239 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 240 copy-to *cursor-in-go-modal-a, 0/false 241 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 242 clear-object go-modal-error-ah 243 return 244 } 245 # enter = switch to global name and exit modal dialog 246 { 247 compare key, 0xa/newline 248 break-if-!= 249 # if no global name typed in, switch to sandbox 250 var partial-global-name-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get self, partial-global-name 251 var partial-global-name/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *partial-global-name-ah 252 { 253 var empty?/eax: boolean <- <a href='gap-buffer.mu.html#L27'>gap-buffer-empty?</a> partial-global-name 254 compare empty?, 0/false 255 break-if-= 256 var cursor-in-globals-a/eax: (addr boolean) <- get self, cursor-in-globals? 257 copy-to *cursor-in-globals-a, 0/false 258 # reset error state 259 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 260 clear-object go-modal-error-ah 261 # done with go modal 262 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 263 copy-to *cursor-in-go-modal-a, 0/false 264 return 265 } 266 # turn global name into a stream 267 var name-storage: (stream byte 0x40) 268 var name/ecx: (addr stream byte) <- address name-storage 269 <a href='gap-buffer.mu.html#L83'>emit-gap-buffer</a> partial-global-name, name 270 # compute global index 271 var index/ecx: int <- <a href='global.mu.html#L402'>find-symbol-in-globals</a> globals, name 272 # if global not found, set error and return 273 { 274 compare index, 0 275 break-if->= 276 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 277 <a href='../312copy.subx.html#L3'>copy-array-object</a> "no such global", go-modal-error-ah 278 return 279 } 280 # otherwise clear modal state 281 <a href='gap-buffer.mu.html#L19'>clear-gap-buffer</a> partial-global-name 282 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 283 clear-object go-modal-error-ah 284 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 285 copy-to *cursor-in-go-modal-a, 0/false 286 # switch focus to global at index 287 var globals-cursor-index/eax: (addr int) <- get globals, cursor-index 288 copy-to *globals-cursor-index, index 289 var cursor-in-globals-a/ecx: (addr boolean) <- get self, cursor-in-globals? 290 copy-to *cursor-in-globals-a, 1/true 291 return 292 } 293 # ctrl-m = create given global name and exit modal dialog 294 { 295 compare key, 0xd/ctrl-m 296 break-if-!= 297 # if no global name typed in, set error and return 298 var partial-global-name-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get self, partial-global-name 299 var partial-global-name/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *partial-global-name-ah 300 { 301 var empty?/eax: boolean <- <a href='gap-buffer.mu.html#L27'>gap-buffer-empty?</a> partial-global-name 302 compare empty?, 0/false 303 break-if-= 304 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 305 <a href='../312copy.subx.html#L3'>copy-array-object</a> "create what?", go-modal-error-ah 306 return 307 } 308 # turn global name into a stream 309 var name-storage: (stream byte 0x40) 310 var name/edx: (addr stream byte) <- address name-storage 311 <a href='gap-buffer.mu.html#L83'>emit-gap-buffer</a> partial-global-name, name 312 # compute global index 313 var index/ecx: int <- <a href='global.mu.html#L402'>find-symbol-in-globals</a> globals, name 314 # if global found, set error and return 315 { 316 compare index, 0 317 break-if-< 318 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 319 <a href='../312copy.subx.html#L3'>copy-array-object</a> "already exists", go-modal-error-ah 320 return 321 } 322 # otherwise clear modal state 323 <a href='gap-buffer.mu.html#L19'>clear-gap-buffer</a> partial-global-name 324 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 325 clear-object go-modal-error-ah 326 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 327 copy-to *cursor-in-go-modal-a, 0/false 328 # create new global 329 <a href='global.mu.html#L250'>create-empty-global</a> globals, name, 0x2000/default-gap-buffer-size=8KB 330 var globals-final-index/eax: (addr int) <- get globals, final-index 331 var new-index/ecx: int <- copy *globals-final-index 332 var globals-cursor-index/eax: (addr int) <- get globals, cursor-index 333 copy-to *globals-cursor-index, new-index 334 var cursor-in-globals-a/ecx: (addr boolean) <- get self, cursor-in-globals? 335 copy-to *cursor-in-globals-a, 1/true 336 return 337 } 338 # otherwise process like a regular gap-buffer 339 var partial-global-name-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get self, partial-global-name 340 var partial-global-name/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *partial-global-name-ah 341 <a href='gap-buffer.mu.html#L1204'>edit-gap-buffer</a> partial-global-name, key 342 return 343 } 344 # ctrl-g: go to a global (or the repl) 345 { 346 compare key, 7/ctrl-g 347 break-if-!= 348 # look for a word to prepopulate the modal 349 var current-word-storage: (stream byte 0x40) 350 var current-word/edi: (addr stream byte) <- address current-word-storage 351 <a href='environment.mu.html#L901'>word-at-cursor</a> self, current-word 352 var partial-global-name-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get self, partial-global-name 353 var partial-global-name/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *partial-global-name-ah 354 <a href='gap-buffer.mu.html#L19'>clear-gap-buffer</a> partial-global-name 355 <a href='gap-buffer.mu.html#L68'>load-gap-buffer-from-stream</a> partial-global-name, current-word 356 # enable the modal 357 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 358 copy-to *cursor-in-go-modal-a, 1/true 359 return 360 } 361 # dispatch the key to either sandbox or globals 362 { 363 var cursor-in-globals-a/eax: (addr boolean) <- get self, cursor-in-globals? 364 compare *cursor-in-globals-a, 0/false 365 break-if-= 366 <a href='global.mu.html#L229'>edit-globals</a> globals, key 367 return 368 } 369 <a href='sandbox.mu.html#L453'>edit-sandbox</a> <a href='sandbox.mu.html#L1'>sandbox</a>, key, globals, data-disk 370 } 371 372 fn <a href='environment.mu.html#L372'>read-and-evaluate-and-save-gap-buffer-to-globals</a> _in-ah: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>), result-ah: (addr handle <a href='cell.mu.html#L1'>cell</a>), globals: (addr <a href='global.mu.html#L1'>global-table</a>), definitions-created: (addr stream int), trace: (addr trace), inner-screen-var: (addr handle <a href='cell.mu.html#L1'>cell</a>), inner-keyboard-var: (addr handle <a href='cell.mu.html#L1'>cell</a>) { 373 var in-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- copy _in-ah 374 var in/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *in-ah 375 var read-result-h: (handle <a href='cell.mu.html#L1'>cell</a>) 376 var read-result-ah/esi: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address read-result-h 377 <a href='read.mu.html#L1'>read-cell</a> in, read-result-ah, trace 378 var error?/eax: boolean <- <a href='trace.mu.html#L94'>has-errors?</a> trace 379 { 380 compare error?, 0/false 381 break-if-= 382 return 383 } 384 <a href='macroexpand.mu.html#L1'>macroexpand</a> read-result-ah, globals, trace 385 var error?/eax: boolean <- <a href='trace.mu.html#L94'>has-errors?</a> trace 386 { 387 compare error?, 0/false 388 break-if-= 389 return 390 } 391 var nil-h: (handle <a href='cell.mu.html#L1'>cell</a>) 392 var nil-ah/eax: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address nil-h 393 <a href='cell.mu.html#L102'>allocate-pair</a> nil-ah 394 #? set-cursor-position 0/screen, 0 0 395 #? turn-on-debug-print 396 var call-number-storage: int 397 var call-number/edi: (addr int) <- address call-number-storage 398 <a href='../315stack-debug.subx.html#L56'>debug-print</a> "^", 4/fg, 0/bg 399 <a href='evaluate.mu.html#L11'>evaluate</a> read-result-ah, result-ah, *nil-ah, globals, trace, inner-screen-var, inner-keyboard-var, definitions-created, call-number 400 <a href='../315stack-debug.subx.html#L56'>debug-print</a> "$", 4/fg, 0/bg 401 var error?/eax: boolean <- <a href='trace.mu.html#L94'>has-errors?</a> trace 402 { 403 compare error?, 0/false 404 break-if-= 405 return 406 } 407 # refresh various rendering caches 408 <a href='trace.mu.html#L440'>mark-lines-dirty</a> trace 409 # If any definitions were created or modified in the process, link this gap 410 # buffer to them. 411 # TODO: detect and create UI for conflicts. 412 <a href='global.mu.html#L489'>stash-gap-buffer-to-globals</a> globals, definitions-created, _in-ah 413 } 414 415 fn <a href='environment.mu.html#L415'>test-go-modal</a> { 416 var env-storage: <a href='environment.mu.html#L8'>environment</a> 417 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 418 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 419 # setup: screen 420 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 421 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 422 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x10/height, 0/no-pixel-graphics 423 # hit ctrl-g 424 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 425 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 426 # 427 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/0" 428 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/1" 429 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/2" 430 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/3" 431 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/4" 432 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/5" 433 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/6-text" 434 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/6" 435 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/7" 436 # cursor is in the modal 437 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/8-cursor" 438 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ............................................................... ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/8" 439 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/9" 440 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/10" 441 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/11" 442 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/12" 443 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/13" 444 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/14" 445 # menu at bottom is correct in context 446 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/y, " ^r run <a href='main.mu.html#L4'>main</a> enter go ^m create esc cancel ^a << ^b <word ^f word> ^e >> ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/15-text" 447 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L415'>test-go-modal</a>/15" 448 } 449 450 fn <a href='environment.mu.html#L450'>test-leave-go-modal</a> { 451 var env-storage: <a href='environment.mu.html#L8'>environment</a> 452 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 453 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 454 # setup: screen 455 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 456 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 457 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x10/height, 0/no-pixel-graphics 458 # hit ctrl-g 459 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 460 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 461 # cancel 462 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x1b/escape, 0/no-disk 463 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 464 # no modal 465 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/0" 466 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/1" 467 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/2" 468 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/3" 469 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/4" 470 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/5" 471 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/6" 472 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/7" 473 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/8" 474 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/9" 475 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/10" 476 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/11" 477 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/12" 478 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/13" 479 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/14" 480 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L450'>test-leave-go-modal</a>/15" 481 } 482 483 fn <a href='environment.mu.html#L483'>test-jump-to-global</a> { 484 var env-storage: <a href='environment.mu.html#L8'>environment</a> 485 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 486 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 487 # setup: screen 488 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 489 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 490 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x30/height, 0/no-pixel-graphics 491 # define a global 492 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "(define f 42)" 493 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x13/ctrl-s, 0/no-disk 494 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 495 # hit ctrl-g 496 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 497 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 498 # type global name 499 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "f" 500 # submit 501 <a href='environment.mu.html#L148'>edit-environment</a> env, 0xa/newline, 0/no-disk 502 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 503 # | global definitions | sandbox 504 # cursor now in global definition 505 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 1/y, " (define f 42) <a href='../500fake-screen.mu.html#L14'>screen</a>: ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/1" 506 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 7/bg=cursor, 1/y, " | ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/1-cursor" 507 # no modal 508 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg0" 509 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg1" 510 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg2" 511 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg3" 512 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg4" 513 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg5" 514 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg6" 515 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg7" 516 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg8" 517 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg9" 518 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg10" 519 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg11" 520 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg12" 521 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg13" 522 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg14" 523 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L483'>test-jump-to-global</a>/bg15" 524 } 525 526 fn <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a> { 527 var env-storage: <a href='environment.mu.html#L8'>environment</a> 528 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 529 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 530 # setup: screen 531 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 532 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 533 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x10/height, 0/no-pixel-graphics 534 # type a word at the cursor 535 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "fn1" 536 # hit ctrl-g 537 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 538 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 539 # modal prepopulates word at cursor 540 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/0" 541 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/1" 542 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/2" 543 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/3" 544 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/4" 545 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/5" 546 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/6-text" 547 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/6" 548 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/7" 549 # word at cursor 550 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " fn1 ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/8-text" 551 # new cursor position 552 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/8-cursor" 553 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ... ............................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/8" 554 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/9" 555 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/10" 556 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/11" 557 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/12" 558 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/13" 559 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/14" 560 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/15" 561 # cancel 562 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x1b/escape, 0/no-disk 563 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 564 # type one more space 565 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x20/space, 0/no-disk 566 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 567 # hit ctrl-g again 568 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 569 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 570 # no word prepopulated since cursor is not on the word 571 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-0" 572 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-1" 573 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-2" 574 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-3" 575 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-4" 576 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-5" 577 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-6-text" 578 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-6" 579 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-7" 580 # no word at cursor 581 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-8-text" 582 # new cursor position 583 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-8-cursor" 584 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ............................................................... ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-8" 585 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-9" 586 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-10" 587 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-11" 588 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-12" 589 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-13" 590 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-14" 591 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test2-15" 592 # cancel 593 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x1b/escape, 0/no-disk 594 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 595 # move cursor to the left until it's on the word again 596 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x80/left-arrow, 0/no-disk 597 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 598 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x80/left-arrow, 0/no-disk 599 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 600 # hit ctrl-g again 601 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 602 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 603 # word prepopulated like before 604 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-0" 605 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-1" 606 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-2" 607 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-3" 608 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-4" 609 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-5" 610 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-6-text" 611 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-6" 612 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-7" 613 # word at cursor 614 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " fn1 ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-8-text" 615 # new cursor position 616 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-8-cursor" 617 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ... ............................................................ ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-8" 618 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-9" 619 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-10" 620 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-11" 621 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-12" 622 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-13" 623 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-14" 624 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L526'>test-go-modal-prepopulates-word-at-cursor</a>/test3-15" 625 } 626 627 fn <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a> { 628 var env-storage: <a href='environment.mu.html#L8'>environment</a> 629 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 630 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 631 # setup: screen 632 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 633 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 634 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x10/height, 0/no-pixel-graphics 635 # type in any (nonexistent) global name 636 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "f" 637 # hit ctrl-g 638 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 639 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 640 # submit 641 <a href='environment.mu.html#L148'>edit-environment</a> env, 0xa/newline, 0/no-disk 642 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 643 # modal now shows an error 644 # | global definitions | sandbox 645 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/0" 646 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/1" 647 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/2" 648 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/3" 649 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/4" 650 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/5" 651 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/6-text" 652 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/6" 653 <a href='../504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 4/fg=<a href='trace.mu.html#L197'>error</a>, 7/y, " no such <a href='global.mu.html#L7'>global</a> ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/7-text" 654 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/7" 655 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " f ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/8-text" 656 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/8-cursor" 657 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " . .............................................................. ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/8" 658 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/9" 659 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/10" 660 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/11" 661 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/12" 662 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/13" 663 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/14" 664 # menu at bottom is correct in context 665 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/y, " ^r run <a href='main.mu.html#L4'>main</a> enter go ^m create esc cancel ^a << ^b <word ^f word> ^e >> ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/15-text" 666 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/15" 667 # cancel 668 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x1b/escape, 0/no-disk 669 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 670 # hit ctrl-g again 671 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 672 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 673 # word prepopulated like before, but no error 674 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-0" 675 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-1" 676 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-2" 677 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-3" 678 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-4" 679 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-5" 680 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-6-text" 681 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-6" 682 <a href='../504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 4/fg=<a href='trace.mu.html#L197'>error</a>, 7/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-7-text" 683 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-7" 684 # same word at cursor 685 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 8/y, " f ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-8-text" 686 # new cursor position 687 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-8-cursor" 688 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " . .............................................................. ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-8" 689 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-9" 690 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-10" 691 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-11" 692 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-12" 693 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-13" 694 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-14" 695 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L627'>test-jump-to-nonexistent-global</a>/test2-15" 696 } 697 698 fn <a href='environment.mu.html#L698'>test-create-global</a> { 699 var env-storage: <a href='environment.mu.html#L8'>environment</a> 700 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 701 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 702 # setup: screen 703 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 704 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 705 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x30/height, 0/no-pixel-graphics 706 # hit ctrl-g 707 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 708 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 709 # type global name 710 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "fn1" 711 # create 712 <a href='environment.mu.html#L148'>edit-environment</a> env, 0xd/ctrl-m, 0/no-disk 713 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 714 # | global definitions | sandbox 715 # cursor now on global side 716 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 7/bg=cursor, 1/y, " | ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/1-cursor" 717 # no modal 718 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg0" 719 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg1" 720 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg2" 721 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg3" 722 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg4" 723 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg5" 724 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg6" 725 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg7" 726 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg8" 727 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg9" 728 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg10" 729 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg11" 730 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg12" 731 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg13" 732 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg14" 733 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L698'>test-create-global</a>/bg15" 734 } 735 736 fn <a href='environment.mu.html#L736'>test-create-nonexistent-global</a> { 737 var env-storage: <a href='environment.mu.html#L8'>environment</a> 738 var env/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- address env-storage 739 <a href='environment.mu.html#L103'>initialize-environment</a> env, 8/fake-screen-width, 3/fake-screen-height 740 # setup: screen 741 var screen-on-stack: <a href='../500fake-screen.mu.html#L14'>screen</a> 742 var <a href='../500fake-screen.mu.html#L14'>screen</a>/edi: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>) <- address screen-on-stack 743 <a href='../500fake-screen.mu.html#L33'>initialize-screen</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0x80/width, 0x10/height, 0/no-pixel-graphics 744 # define a global 745 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "(define f 42)" 746 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x13/ctrl-s, 0/no-disk 747 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 748 # type in its name 749 <a href='environment.mu.html#L84'>type-in</a> env, <a href='../500fake-screen.mu.html#L14'>screen</a>, "f" 750 # hit ctrl-g 751 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 752 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 753 # submit 754 <a href='environment.mu.html#L148'>edit-environment</a> env, 0xd/ctrl-m, 0/no-disk 755 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 756 # modal now shows an error 757 # | global definitions | sandbox 758 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/0" 759 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/1" 760 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/2" 761 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/3" 762 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/4" 763 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/5" 764 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/6-text" 765 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/6" 766 <a href='../504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 4/fg=<a href='trace.mu.html#L197'>error</a>, 7/y, " already exists ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/7-text" 767 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/7" 768 <a href='../504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/fg, 8/y, " f ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/8-text" 769 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/8-cursor" 770 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " . .............................................................. ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/8" 771 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/9" 772 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/10" 773 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/11" 774 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/12" 775 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/13" 776 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/14" 777 # menu at bottom is correct in context 778 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/y, " ^r run <a href='main.mu.html#L4'>main</a> enter go ^m create esc cancel ^a << ^b <word ^f word> ^e >> ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/15-text" 779 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/15" 780 # cancel 781 <a href='environment.mu.html#L148'>edit-environment</a> env, 0x1b/escape, 0/no-disk 782 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 783 # hit ctrl-g again 784 <a href='environment.mu.html#L148'>edit-environment</a> env, 7/ctrl-g, 0/no-disk 785 <a href='environment.mu.html#L115'>render-environment</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, env 786 # word prepopulated like before, but no error 787 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-0" 788 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 1/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-1" 789 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 2/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-2" 790 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 3/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-3" 791 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 4/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-4" 792 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 5/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-5" 793 <a href='../504test-screen.mu.html#L7'>check-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 6/y, " go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL) ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-6-text" 794 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 6/y, " ................................................................ ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-6" 795 <a href='../504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 4/fg=<a href='trace.mu.html#L197'>error</a>, 7/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-7-text" 796 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 7/y, " ................................................................ ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-7" 797 # same word at cursor 798 <a href='../504test-screen.mu.html#L71'>check-screen-row-in-color</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/fg, 8/y, " f ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-8-text" 799 # new cursor position 800 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/bg=cursor, 8/y, " | ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-8-cursor" 801 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 8/y, " . .............................................................. ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-8" 802 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 9/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-9" 803 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xa/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-10" 804 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xb/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-11" 805 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xc/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-12" 806 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xd/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-13" 807 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xe/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-14" 808 <a href='../504test-screen.mu.html#L257'>check-background-color-in-screen-row</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0xf/bg=modal, 0xf/y, " ", "F - <a href='environment.mu.html#L736'>test-create-nonexistent-global</a>/test2-15" 809 } 810 811 fn <a href='environment.mu.html#L811'>render-go-modal</a> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='environment.mu.html#L8'>environment</a>) { 812 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 813 var width/eax: int <- copy 0 814 var height/ecx: int <- copy 0 815 width, height <- <a href='../500fake-screen.mu.html#L86'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> 816 # xmin = max(0, width/2 - 0x20) 817 var xmin: int 818 var tmp/edx: int <- copy width 819 tmp <- shift-right 1 820 tmp <- subtract 0x20/half-global-name-capacity 821 { 822 compare tmp, 0 823 break-if->= 824 tmp <- copy 0 825 } 826 copy-to xmin, tmp 827 # xmax = min(width, width/2 + 0x20) 828 var xmax: int 829 tmp <- copy width 830 tmp <- shift-right 1 831 tmp <- add 0x20/half-global-name-capacity 832 { 833 compare tmp, width 834 break-if-<= 835 tmp <- copy width 836 } 837 copy-to xmax, tmp 838 # ymin = height/2 - 2 839 var ymin: int 840 tmp <- copy height 841 tmp <- shift-right 1 842 tmp <- subtract 2 843 copy-to ymin, tmp 844 # ymax = height/2 + 1 845 var ymax: int 846 tmp <- add 3 847 copy-to ymax, tmp 848 # 849 <a href='../500fake-screen.mu.html#L353'>clear-rect</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, xmin, ymin, xmax, ymax, 0xf/bg=modal 850 add-to xmin, 4 851 <a href='../500fake-screen.mu.html#L190'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, xmin, ymin 852 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, "go to <a href='global.mu.html#L7'>global</a> (or leave blank to go to REPL)", xmax, 8/fg=dark-grey, 0xf/bg=modal 853 var partial-global-name-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get self, partial-global-name 854 var _partial-global-name/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *partial-global-name-ah 855 var partial-global-name/edx: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- copy _partial-global-name 856 subtract-from xmin, 4 857 increment ymin 858 { 859 var go-modal-error-ah/eax: (addr handle array byte) <- get self, go-modal-error 860 var go-modal-error/eax: (addr array byte) <- <a href='../120allocate.subx.html#L223'>lookup</a> *go-modal-error-ah 861 compare go-modal-error, 0 862 break-if-= 863 var dummy/eax: int <- <a href='../501draw-text.mu.html#L100'>draw-text-rightward</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, go-modal-error, xmin, xmax, ymin, 4/fg=<a href='trace.mu.html#L197'>error</a>, 0xf/bg=modal 864 } 865 increment ymin 866 var dummy/eax: int <- copy 0 867 var dummy2/ecx: int <- copy 0 868 dummy, dummy2 <- <a href='gap-buffer.mu.html#L386'>render-gap-buffer-wrapping-right-then-down</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, partial-global-name, xmin, ymin, xmax, ymax, 1/always-render-cursor, 0/fg=black, 0xf/bg=modal 869 } 870 871 fn <a href='environment.mu.html#L871'>render-go-modal-menu</a> <a href='../500fake-screen.mu.html#L14'>screen</a>: (addr <a href='../500fake-screen.mu.html#L14'>screen</a>), _self: (addr <a href='environment.mu.html#L8'>environment</a>) { 872 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 873 var _width/eax: int <- copy 0 874 var height/ecx: int <- copy 0 875 _width, height <- <a href='../500fake-screen.mu.html#L86'>screen-size</a> <a href='../500fake-screen.mu.html#L14'>screen</a> 876 var width/edx: int <- copy _width 877 var y/ecx: int <- copy height 878 y <- decrement 879 var height/ebx: int <- copy y 880 height <- increment 881 <a href='../500fake-screen.mu.html#L353'>clear-rect</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/x, y, width, height, 0xc5/bg=blue-bg 882 <a href='../500fake-screen.mu.html#L190'>set-cursor-position</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, 0/x, y 883 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " ^r ", width, 0/fg, 0x5c/bg=menu-highlight 884 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " run <a href='main.mu.html#L4'>main</a> ", width, 7/fg, 0xc5/bg=blue-bg 885 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " enter ", width, 0/fg, 0xc/bg=menu-really-highlight 886 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " go ", width, 7/fg, 0xc5/bg=blue-bg 887 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " ^m ", width, 0/fg, 0xc/bg=menu-really-highlight 888 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " create ", width, 7/fg, 0xc5/bg=blue-bg 889 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " esc ", width, 0/fg, 0x5c/bg=menu-highlight 890 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " cancel ", width, 7/fg, 0xc5/bg=blue-bg 891 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " ^a ", width, 0/fg, 0x5c/bg=menu-highlight 892 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " << ", width, 7/fg, 0xc5/bg=blue-bg 893 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " ^b ", width, 0/fg, 0x5c/bg=menu-highlight 894 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " <word ", width, 7/fg, 0xc5/bg=blue-bg 895 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " ^f ", width, 0/fg, 0x5c/bg=menu-highlight 896 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " word> ", width, 7/fg, 0xc5/bg=blue-bg 897 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " ^e ", width, 0/fg, 0x5c/bg=menu-highlight 898 <a href='../501draw-text.mu.html#L133'>draw-text-rightward-from-cursor</a> <a href='../500fake-screen.mu.html#L14'>screen</a>, " >> ", width, 7/fg, 0xc5/bg=blue-bg 899 } 900 901 fn <a href='environment.mu.html#L901'>word-at-cursor</a> _self: (addr <a href='environment.mu.html#L8'>environment</a>), out: (addr stream byte) { 902 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 903 var cursor-in-go-modal-a/eax: (addr boolean) <- get self, cursor-in-go-modal? 904 compare *cursor-in-go-modal-a, 0/false 905 { 906 break-if-= 907 # cursor in go modal 908 return 909 } 910 var cursor-in-globals-a/edx: (addr boolean) <- get self, cursor-in-globals? 911 compare *cursor-in-globals-a, 0/false 912 { 913 break-if-= 914 # cursor in some global editor 915 var globals/eax: (addr <a href='global.mu.html#L1'>global-table</a>) <- get self, globals 916 var cursor-index-addr/ecx: (addr int) <- get globals, cursor-index 917 var cursor-index/ecx: int <- copy *cursor-index-addr 918 var globals-data-ah/eax: (addr handle array <a href='global.mu.html#L7'>global</a>) <- get globals, data 919 var globals-data/eax: (addr array <a href='global.mu.html#L7'>global</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *globals-data-ah 920 var cursor-offset/ecx: (offset <a href='global.mu.html#L7'>global</a>) <- compute-offset globals-data, cursor-index 921 var curr-global/eax: (addr <a href='global.mu.html#L7'>global</a>) <- index globals-data, cursor-offset 922 var curr-global-data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get curr-global, input 923 var curr-global-data/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *curr-global-data-ah 924 <a href='gap-buffer.mu.html#L133'>word-at-gap</a> curr-global-data, out 925 return 926 } 927 # cursor in sandbox 928 var <a href='sandbox.mu.html#L1'>sandbox</a>/ecx: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <- get self, <a href='sandbox.mu.html#L1'>sandbox</a> 929 var sandbox-data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get <a href='sandbox.mu.html#L1'>sandbox</a>, data 930 var sandbox-data/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *sandbox-data-ah 931 <a href='gap-buffer.mu.html#L133'>word-at-gap</a> sandbox-data, out 932 } 933 934 # Gotcha: some saved state may not load. 935 fn <a href='environment.mu.html#L935'>load-state</a> _self: (addr <a href='environment.mu.html#L8'>environment</a>), data-disk: (addr disk) { 936 var self/esi: (addr <a href='environment.mu.html#L8'>environment</a>) <- copy _self 937 # data-disk -> stream 938 var s-storage: (stream byte 0x2000) # space for 16/sectors 939 var s/ebx: (addr stream byte) <- address s-storage 940 <a href='../501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, "loading sectors from data disk", 3/fg, 0/bg 941 <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 942 <a href='../boot.subx.html#L976'>load-sectors</a> data-disk, 0/lba, 0x10/sectors, s 943 #? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0xc5/bg=blue-bg 944 # stream -> gap-buffer (HACK: we temporarily cannibalize the sandbox's gap-buffer) 945 <a href='../501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, "parsing", 3/fg, 0/bg 946 <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 947 var <a href='sandbox.mu.html#L1'>sandbox</a>/eax: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <- get self, <a href='sandbox.mu.html#L1'>sandbox</a> 948 var data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get <a href='sandbox.mu.html#L1'>sandbox</a>, data 949 var data/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah 950 <a href='gap-buffer.mu.html#L68'>load-gap-buffer-from-stream</a> data, s 951 <a href='../501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, " into gap buffer", 3/fg, 0/bg 952 <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 953 <a href='../106stream.subx.html#L20'>clear-stream</a> s 954 # read: gap-buffer -> cell 955 var initial-root-storage: (handle <a href='cell.mu.html#L1'>cell</a>) 956 var initial-root/ecx: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address initial-root-storage 957 var trace-storage: trace 958 var trace/edi: (addr trace) <- address trace-storage 959 <a href='trace.mu.html#L61'>initialize-trace</a> trace, 1/only-errors, 0x10/capacity, 0/visible 960 <a href='read.mu.html#L1'>read-cell</a> data, initial-root, trace 961 <a href='../501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, " into s-expressions", 3/fg, 0/bg 962 <a href='../501draw-text.mu.html#L65'>move-cursor-to-left-margin-of-next-line</a> 0/screen 963 <a href='gap-buffer.mu.html#L19'>clear-gap-buffer</a> data 964 # 965 { 966 var initial-root-addr/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *initial-root 967 compare initial-root-addr, 0 968 break-if-!= 969 return 970 } 971 # load globals from assoc(initial-root, 'globals) 972 var globals-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) 973 var globals-literal-ah/eax: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address globals-literal-storage 974 <a href='cell.mu.html#L39'>new-symbol</a> globals-literal-ah, "globals" 975 var globals-literal/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *globals-literal-ah 976 var globals-cell-storage: (handle <a href='cell.mu.html#L1'>cell</a>) 977 var globals-cell-ah/edx: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address globals-cell-storage 978 <a href='trace.mu.html#L80'>clear-trace</a> trace 979 <a href='evaluate.mu.html#L868'>lookup-symbol</a> globals-literal, globals-cell-ah, *initial-root, 0/no-globals, trace, 0/no-screen, 0/no-keyboard 980 var globals-cell/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *globals-cell-ah 981 { 982 compare globals-cell, 0 983 break-if-= 984 var globals/eax: (addr <a href='global.mu.html#L1'>global-table</a>) <- get self, globals 985 <a href='global.mu.html#L27'>load-globals</a> globals-cell-ah, globals 986 } 987 # sandbox = assoc(initial-root, 'sandbox) 988 <a href='../501draw-text.mu.html#L279'>draw-text-wrapping-right-then-down-from-cursor-over-full-screen</a> 0/screen, "loading sandbox", 3/fg, 0/bg 989 var sandbox-literal-storage: (handle <a href='cell.mu.html#L1'>cell</a>) 990 var sandbox-literal-ah/eax: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address sandbox-literal-storage 991 <a href='cell.mu.html#L39'>new-symbol</a> sandbox-literal-ah, "sandbox" 992 var sandbox-literal/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *sandbox-literal-ah 993 var sandbox-cell-storage: (handle <a href='cell.mu.html#L1'>cell</a>) 994 var sandbox-cell-ah/edx: (addr handle <a href='cell.mu.html#L1'>cell</a>) <- address sandbox-cell-storage 995 <a href='trace.mu.html#L80'>clear-trace</a> trace 996 <a href='evaluate.mu.html#L868'>lookup-symbol</a> sandbox-literal, sandbox-cell-ah, *initial-root, 0/no-globals, trace, 0/no-screen, 0/no-keyboard 997 var sandbox-cell/eax: (addr <a href='cell.mu.html#L1'>cell</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *sandbox-cell-ah 998 { 999 compare sandbox-cell, 0 1000 break-if-= 1001 var sandbox-data-ah/eax: (addr handle stream byte) <- get sandbox-cell, text-data 1002 var _sandbox-data/eax: (addr stream byte) <- <a href='../120allocate.subx.html#L223'>lookup</a> *sandbox-data-ah 1003 var sandbox-data/ecx: (addr stream byte) <- copy _sandbox-data 1004 # stream -> gap-buffer 1005 var <a href='sandbox.mu.html#L1'>sandbox</a>/eax: (addr <a href='sandbox.mu.html#L1'>sandbox</a>) <- get self, <a href='sandbox.mu.html#L1'>sandbox</a> 1006 var data-ah/eax: (addr handle <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- get <a href='sandbox.mu.html#L1'>sandbox</a>, data 1007 var data/eax: (addr <a href='gap-buffer.mu.html#L3'>gap-buffer</a>) <- <a href='../120allocate.subx.html#L223'>lookup</a> *data-ah 1008 <a href='gap-buffer.mu.html#L68'>load-gap-buffer-from-stream</a> data, sandbox-data 1009 } 1010 } 1011 1012 # Save state as an alist of alists: 1013 # ((globals . ((a . (fn ...)) 1014 # ...)) 1015 # (sandbox . ...)) 1016 fn <a href='environment.mu.html#L1016'>store-state</a> data-disk: (addr disk), <a href='sandbox.mu.html#L1'>sandbox</a>: (addr <a href='sandbox.mu.html#L1'>sandbox</a>), globals: (addr <a href='global.mu.html#L1'>global-table</a>) { 1017 compare data-disk, 0/no-disk 1018 { 1019 break-if-!= 1020 return 1021 } 1022 var stream-storage: (stream byte 0x2000) # space enough for 16/sectors 1023 var stream/edi: (addr stream byte) <- address stream-storage 1024 <a href='../108write.subx.html#L11'>write</a> stream, "(\n" 1025 <a href='global.mu.html#L65'>write-globals</a> stream, globals 1026 <a href='sandbox.mu.html#L64'>write-sandbox</a> stream, <a href='sandbox.mu.html#L1'>sandbox</a> 1027 <a href='../108write.subx.html#L11'>write</a> stream, ")\n" 1028 <a href='../boot.subx.html#L1045'>store-sectors</a> data-disk, 0/lba, 0x10/sectors, stream 1029 } </pre> </body> </html>


context:
space:
mode: