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

	Commit message (Expand)	Author	Age	Files	Lines
*	2680	Kartik K. Agaram	2016-02-20	1	-7/+7
*	2625	Kartik K. Agaram	2015-12-15	1	-4/+1
*	2621	Kartik K. Agaram	2015-12-08	1	-2/+11
*	2619	Kartik K. Agaram	2015-12-07	1	-1/+1
*	2609 - run $browse-trace on old runs	Kartik K. Agaram	2015-11-29	1	-0/+30
*	2430 - make room for more transforms	Kartik K. Agaram	2015-11-13	1	-0/+213

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - 074keyboard.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v1"> <meta name="syntax" content="none"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body> <pre id='vimCodeElement'> # Wrappers around keyboard primitives that take a 'keyboard' object and are thus # easier to test. container keyboard [ # can't think of another word like screen/display, so real and fake keyboards use the same name index:integer data:address:array:character ] recipe init-fake-keyboard [ default-space:address:array:location <- new location:type, 30:literal result:address:keyboard <- new keyboard:type buf:address:address:array:character <- get-address result:address:keyboard/deref data:offset #? $start-tracing #? 1 buf:address:address:array:character/deref <- next-ingredient #? $stop-tracing #? 1 idx:address:integer <- get-address result:address:keyboard/deref index:offset idx:address:integer/deref <- copy 0:literal reply result:address:keyboard ] recipe read-key [ default-space:address:array:location <- new location:type, 30:literal x:address:keyboard <- next-ingredient { break-unless x:address:keyboard idx:address:integer <- get-address x:address:keyboard/deref, index:offset buf:address:array:character <- get x:address:keyboard/deref, data:offset max:integer <- length buf:address:array:character/deref { done?:boolean <- greater-or-equal idx:address:integer/deref, max:integer break-unless done?:boolean reply 0:literal, 0:literal/done, x:address:keyboard/same-as-ingredient:0 } c:character <- index buf:address:array:character/deref, idx:address:integer/deref idx:address:integer/deref <- add idx:address:integer/deref, 1:literal reply c:character, 1:literal/found, x:address:keyboard/same-as-ingredient:0 } c:character, found?:boolean <- read-key-from-keyboard reply c:character, found?:boolean, x:address:keyboard/same-as-ingredient:0 ] recipe wait-for-key [ default-space:address:array:location <- new location:type, 30:literal x:address:keyboard <- next-ingredient { break-unless x:address:keyboard # on fake keyboards 'wait-for-key' behaves just like 'read-key' c:character, x:address:keyboard <- read-key x:address:keyboard reply c:character, x:address:keyboard/same-as-ingredient:0 } c:character <- wait-for-key-from-keyboard reply c:character, x:address:keyboard/same-as-ingredient:0 ] </pre> </body> </html>