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

about summary refs log tree commit diff stats

path: root/027call_ingredient.cc

	Commit message (Expand)	Author	Age	Files	Lines
*	4266 - space for alloc-id in heap allocations	Kartik Agaram	2018-06-24	1	-0/+2
*	4264	Kartik Agaram	2018-06-17	1	-0/+191
*	4259	Kartik Agaram	2018-06-16	1	-191/+0
*	4258 - undo 4257	Kartik Agaram	2018-06-15	1	-17/+0
*	4257 - abortive attempt at safe fat pointers	Kartik Agaram	2018-06-15	1	-0/+17
*	4243	Kartik Agaram	2018-05-12	1	-3/+3
*	4226 - example program: exceptions	Kartik K. Agaram	2018-03-15	1	-1/+1
*	4134 - 'input' = 'ingredient'	Kartik K. Agaram	2017-12-03	1	-0/+3
*	3877	Kartik K. Agaram	2017-05-26	1	-2/+2
*	3663 - fix a refcounting bug: '(type)' != 'type'	Kartik K. Agaram	2016-11-10	1	-2/+3
*	3541	Kartik K. Agaram	2016-10-21	1	-3/+1
*	3522	Kartik K. Agaram	2016-10-19	1	-2/+2
*	3381	Kartik K. Agaram	2016-09-17	1	-3/+3
*	3380	Kartik K. Agaram	2016-09-17	1	-9/+9
*	3374	Kartik K. Agaram	2016-09-16	1	-4/+4
*	3309	Kartik K. Agaram	2016-09-09	1	-6/+10
*	3202 - bugfix: 'start-running' and refcounts	Kartik K. Agaram	2016-08-16	1	-0/+1
*	3120	Kartik K. Agaram	2016-07-21	1	-2/+2
*	3079	Kartik K. Agaram	2016-06-29	1	-1/+1
*	3074	Kartik K. Agaram	2016-06-29	1	-1/+2
*	2990	Kartik K. Agaram	2016-05-20	1	-5/+5
*	2931 - be explicit about making copies	Kartik K. Agaram	2016-05-06	1	-2/+2
*	2864 - replace all address:shared with just address	Kartik K. Agaram	2016-04-24	1	-5/+3
*	2862	Kartik K. Agaram	2016-04-24	1	-0/+185

pan class="nv">interaction primitives that take a potentially fake object # and are thus easier to test. exclusive-container event [ text:char keycode:num # keys on keyboard without a unicode representation touch:touch-event # mouse, track ball, etc. resize:resize-event # update the assume-console handler if you add more variants ] container touch-event [ type:num row:num column:num ] container resize-event [ width:num height:num ] container console [ current-event-index:num events:&:@:event ] def new-fake-console events:&:@:event -> result:&:console [ local-scope load-ingredients result:&:console <- new console:type *result <- put *result, events:offset, events ] def read-event console:&:console -> result:event, console:&:console, found?:bool, quit?:bool [ local-scope load-ingredients { break-unless console current-event-index:num <- get *console, current-event-index:offset buf:&:@:event <- get *console, events:offset { max:num <- length *buf done?:bool <- greater-or-equal current-event-index, max break-unless done? dummy:&:event <- new event:type return *dummy, console/same-as-ingredient:0, 1/found, 1/quit } result <- index *buf, current-event-index current-event-index <- add current-event-index, 1 *console <- put *console, current-event-index:offset, current-event-index return result, console/same-as-ingredient:0, 1/found, 0/quit } switch # real event source is infrequent; avoid polling it too much result:event, found?:bool <- check-for-interaction return result, console/same-as-ingredient:0, found?, 0/quit ] # variant of read-event for just keyboard events. Discards everything that # isn't unicode, so no arrow keys, page-up/page-down, etc. But you still get # newlines, tabs, ctrl-d.. def read-key console:&:console -> result:char, console:&:console, found?:bool, quit?:bool [ local-scope load-ingredients x:event, console, found?:bool, quit?:bool <- read-event console return-if quit?, 0, console/same-as-ingredient:0, found?, quit? return-unless found?, 0, console/same-as-ingredient:0, found?, quit? c:char, converted?:bool <- maybe-convert x, text:variant return-unless converted?, 0, console/same-as-ingredient:0, 0/found, 0/quit return c, console/same-as-ingredient:0, 1/found, 0/quit ] def send-keys-to-channel console:&:console, chan:&:sink:char, screen:&:screen -> console:&:console, chan:&:sink:char, screen:&:screen [ local-scope load-ingredients { c:char, console, found?:bool, quit?:bool <- read-key console loop-unless found? break-if quit? assert c, [invalid event, expected text] screen <- print screen, c chan <- write chan, c loop } chan <- close chan ] def wait-for-event console:&:console -> console:&:console [ local-scope load-ingredients { _, console, found?:bool <- read-event console loop-unless found? } ] # use this helper to skip rendering if there's lots of other events queued up def has-more-events? console:&:console -> result:bool [ local-scope load-ingredients { break-unless console # fake consoles should be plenty fast; never skip return 0/false } result <- interactions-left? ]