about summary refs log tree commit diff stats
path: root/themes/spawn
blob: 82c63e9dd73dbd40331ea5db02c73518ed1861e2 (plain) (blame) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

[colours]
bkgnd=default
titlebar=red
titlebar.text=yellow
titlebar.brackets=green
titlebar.unencrypted=red
titlebar.encrypted=green
titlebar.untrusted=red
titlebar.trusted=green
titlebar.online=green
titlebar.offline=red
titlebar.away=green
titlebar.chat=green
titlebar.dnd=red
titlebar.xa=green
statusbar=red
statusbar.text=yellow
statusbar.brackets=green
statusbar.active=white
statusbar.new=green
main.text=white
main.text.me=white
main.text.them=white
main.splash=red
main.time=red
input.text=green
subscribed=green
unsubscribed=red
otr.started.trusted=green
otr.started.untrusted=red
otr.ended=yellow
otr.trusted=green
otr.untrusted=red
online=green
away=yellow
chat=green
dnd=green
xa=yellow
offline=bold_black
incoming=yellow
mention=red
trigger=red
typing=green
gone=red
error=red
roominfo=green
roommention=red
roommention.term=red
roomtrigger=red
roomtrigger.term=red
me=green
them=yellow
roster.header=white
roster.chat=green
roster.online=green
roster.away=yellow
roster.xa=yellow
roster.dnd=green
roster.offline=bold_black
roster.chat.active=green
roster.online.active=green
roster.away.active=yellow
roster.xa.active=yellow
roster.dnd.active=green
roster.offline.active=bold_black
roster.chat.unread=green
roster.online.unread=green
roster.away.unread=yellow
roster.xa.unread=yellow
roster.dnd.unread=green
roster.offline.unread=bold_black
roster.room=green
roster.room.unread=green
roster.room.mention=green
roster.room.trigger=green
occupants.header=white
receipt.sent=red
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-07 15:24:59 +0000
"> arbitrary types # and not just non-negative whole numbers. # incomplete; doesn't handle hash conflicts scenario table-read-write [ local-scope tab:&:table:num:num <- new-table 30 run [ put-index tab, 12, 34 60:num/raw, 61:bool/raw <- index tab, 12 ] memory-should-contain [ 60 <- 34 61 <- 1 # found ] ] scenario table-read-write-non-integer [ local-scope tab:&:table:text:num <- new-table 30 run [ put-index tab, [abc def], 34 1:num/raw, 2:bool/raw <- index tab, [abc def] ] memory-should-contain [ 1 <- 34 2 <- 1 # found ] ] scenario table-read-not-found [ local-scope tab:&:table:text:num <- new-table 30 run [ 1:num/raw, 2:bool/raw <- index tab, [abc def] ] memory-should-contain [ 1 <- 0 2 <- 0 # not found ] ] container table:_key:_value [ length:num capacity:num data:&:@:table-row:_key:_value ] container table-row:_key:_value [ occupied?:bool key:_key value:_value ] def new-table capacity:num -> result:&:table:_key:_value [ local-scope load-inputs result <- new {(table _key _value): type} data:&:@:table-row:_key:_value <- new {(table-row _key _value): type}, capacity *result <- merge 0/length, capacity, data ] # todo: tag results as /required so that call-sites are forbidden from ignoring them # then we could handle conflicts simply by resizing the table def put-index table:&:table:_key:_value, key:_key, value:_value -> table:&:table:_key:_value [ local-scope load-inputs hash:num <- hash key hash <- abs hash capacity:num <- get *table, capacity:offset _, hash-key:num <- divide-with-remainder hash, capacity hash-key <- abs hash-key # in case hash overflows from a double into a negative integer inside 'divide-with-remainder' above table-data:&:@:table-row:_key:_value <- get *table, data:offset x:table-row:_key:_value <- index *table-data, hash-key occupied?:bool <- get x, occupied?:offset not-occupied?:bool <- not occupied?:bool assert not-occupied?, [can't handle collisions yet] new-row:table-row:_key:_value <- merge 1/true, key, value *table-data <- put-index *table-data, hash-key, new-row ] def index table:&:table:_key:_value, key:_key -> result:_value, found?:bool [ local-scope load-inputs hash:num <- hash key hash <- abs hash capacity:num <- get *table, capacity:offset _, hash-key:num <- divide-with-remainder hash, capacity hash-key <- abs hash-key # in case hash overflows from a double into a negative integer inside 'divide-with-remainder' above table-data:&:@:table-row:_key:_value <- get *table, data:offset x:table-row:_key:_value <- index *table-data, hash-key empty:&:_value <- new _value:type result <- copy *empty found?:bool <- get x, occupied?:offset return-unless found? key2:_key <- get x, key:offset found?:bool <- equal key, key2 return-unless found? result <- get x, value:offset ] def abs n:num -> result:num [ local-scope load-inputs positive?:bool <- greater-or-equal n, 0 return-if positive?, n result <- multiply n, -1 ]
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-07 15:24:57 +0000