s/0.5/0.6/ - my steps are wider than the reality - suckless/dwm - Unnamed repository; edit this file 'description' to name the repository.

diff options

author	arg@10ksloc.org <unknown>	2006-07-21 10:18:12 +0200
committer	arg@10ksloc.org <unknown>	2006-07-21 10:18:12 +0200
commit	67b3083dfd574cf2ecba1620361108b0adeda5dc (patch)
tree	fa5a6b09a42d4cf0b6e55e55991d75e70fc20758
parent	0c7bcc24cbd0d721a4e7d152c05886ac30cc4af3 (diff)
download	dwm-67b3083dfd574cf2ecba1620361108b0adeda5dc.tar.gz

s/0.5/0.6/ - my steps are wider than the reality

Diffstat

-rw-r--r--

config.mk

-rw-r--r--

dwm.1

2 files changed, 2 insertions, 2 deletions

# Wrappers around interaction primitives that take a potentially fake object # and are thus easier to test. exclusive-container event [ text:character keycode:number # 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:number row:number column:number ] container resize-event [ width:number height:number ] container console [ index:number data:address:array:event ] recipe new-fake-console [ local-scope result:address:console <- new console:type buf:address:address:array:character <- get-address *result, data:offset *buf <- next-ingredient idx:address:number <- get-address *result, index:offset *idx <- copy 0 reply result ] recipe read-event [ local-scope x:address:console <- next-ingredient { break-unless x idx:address:number <- get-address *x, index:offset buf:address:array:event <- get *x, data:offset { max:number <- length *buf done?:boolean <- greater-or-equal *idx, max break-unless done? dummy:address:event <- new event:type reply *dummy, x/same-as-ingredient:0, 1/found, 1/quit } result:event <- index *buf, *idx *idx <- add *idx, 1 reply result, x/same-as-ingredient:0, 1/found, 0/quit } switch # real event source is infrequent; avoid polling it too much result:event, found?:boolean <- check-for-interaction reply result, x/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.. recipe read-key [ local-scope console:address <- next-ingredient x:event, console, found?:boolean, quit?:boolean <- read-event console reply-if quit?, 0, console/same-as-ingredient:0, found?, quit? reply-unless found?, 0, console/same-as-ingredient:0, found?, quit? c:address:character <- maybe-convert x, text:variant reply-unless c, 0, console/same-as-ingredient:0, 0/found, 0/quit reply *c, console/same-as-ingredient:0, 1/found, 0/quit ] recipe send-keys-to-channel [ local-scope console:address <- next-ingredient chan:address:channel <- next-ingredient screen:address <- next-ingredient { c:character, console, found?:boolean, quit?:boolean <- read-key console loop-unless found? break-if quit? assert c, [invalid event, expected text] screen <- print-character screen, c chan <- write chan, c loop } reply console/same-as-ingredient:0, chan/same-as-ingredient:1, screen/same-as-ingredient:2 ] recipe wait-for-event [ local-scope console:address <- next-ingredient { _, console, found?:boolean <- read-event console loop-unless found? } reply console/same-as-ingredient:0 ] # use this helper to skip rendering if there's lots of other events queued up recipe has-more-events? [ local-scope console:address <- next-ingredient { break-unless console # fake consoles should be plenty fast; never skip reply 0/false } result:boolean <- interactions-left? reply result ]


context:
space:
mode: