octans - Octans is a program to solve Algot's Wordplay (Wordsearch) puzzles

diff options

Diffstat (limited to 'lib/Octans/WordSearch.rakumod')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <title>Mu - 516read-line.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/516read-line.mu'>https://github.com/akkartik/mu/blob/main/516read-line.mu</a> <pre id='vimCodeElement'> 1 # read line from keyboard into stream while also echoing to screen 2 # abort on stream overflow 3 fn <a href='516read-line.mu.html#L3'>read-line-from-keyboard</a> keyboard: (addr keyboard), out: (addr stream byte), <a href='500fake-screen.mu.html#L16'>screen</a>: (addr <a href='500fake-screen.mu.html#L16'>screen</a>), fg: int, bg: int { 4 <a href='106stream.subx.html#L20'>clear-stream</a> out 5 $read-line-from-keyboard:loop: { 6 <a href='500fake-screen.mu.html#L316'>draw-cursor</a> <a href='500fake-screen.mu.html#L16'>screen</a>, 0x20/space 7 var key/eax: byte <- <a href='102keyboard.subx.html#L21'>read-key</a> keyboard 8 compare key, 0xa/newline 9 break-if-= 10 compare key, 0 11 loop-if-= 12 compare key, 8/backspace 13 { 14 break-if-!= 15 <a href='115write-byte.subx.html#L79'>undo-append-byte</a> out 16 <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, 0x20/space, fg 0/bg # clear cursor 17 <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a> 18 <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a> 19 <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, 0x20/space, fg 0/bg # clear old cursor 20 <a href='501draw-text.mu.html#L3'>move-cursor-left</a> <a href='500fake-screen.mu.html#L16'>screen</a> 21 loop $read-line-from-keyboard:loop 22 } 23 var key2/eax: int <- copy key 24 <a href='115write-byte.subx.html#L12'>append-byte</a> out, key2 25 var c/eax: code-point <- copy key2 26 <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, c, fg bg 27 loop 28 } 29 # clear cursor 30 <a href='501draw-text.mu.html#L84'>draw-code-point-at-cursor-over-full-screen</a> <a href='500fake-screen.mu.html#L16'>screen</a>, 0x20/space, fg bg 31 } </pre> </body> </html>


context:
space:
mode: