ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 12:22:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

eyre: combine unreleased loads for ~2023.4.19 and ~2023.4.11

Browse Source
This commit is contained in:
pkova 2023-04-24 18:54:22 +03:00
parent 3792ba5cc7
commit 5868c29c3b
1 changed files with 26 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
pkg/arvo/sys/vane/eyre.hoon
View File

@ -70,7 +70,7 @@
++ axle ++ axle
$: :: date: date at which http-server's state was updated to this data structure $: :: date: date at which http-server's state was updated to this data structure
:: ::
date=%~2023.4.19 date=%~2023.4.11
:: server-state: state of inbound requests :: server-state: state of inbound requests
:: ::
=server-state =server-state
@ -2753,8 +2753,7 @@
[date=%~2022.7.26 server-state=server-state-0] [date=%~2022.7.26 server-state=server-state-0]
[date=%~2023.2.17 server-state=server-state-1] [date=%~2023.2.17 server-state=server-state-1]
[date=%~2023.3.16 server-state=server-state-2] [date=%~2023.3.16 server-state=server-state-2]
[date=%~2023.4.11 server-state=server-state-3] [date=%~2023.4.11 =server-state]
[date=%~2023.4.19 =server-state]
== ==
:: ::
+$ server-state-0 +$ server-state-0
@ -2803,39 +2802,12 @@
$: state=(each timer duct) $: state=(each timer duct)
next-id=@ud next-id=@ud
last-ack=@da last-ack=@da
events=(qeu [id=@ud request-id=@ud channel-event=channel-event-3]) events=(qeu [id=@ud request-id=@ud channel-event=channel-event-2])
unacked=(map @ud @ud) unacked=(map @ud @ud)
subscriptions=(map @ud [ship=@p app=term =path duc=duct]) subscriptions=(map @ud [ship=@p app=term =path duc=duct])
heartbeat=(unit timer) heartbeat=(unit timer)
== ==
+$ server-state-3 +$ channel-event-2
$: bindings=(list [=binding =duct =action])
cache=(map url=@t [aeon=@ud val=(unit cache-entry)])
=cors-registry
connections=(map duct outstanding-connection)
=authentication-state
channel-state=channel-state-3 :: <- new
domains=(set turf)
=http-config
ports=[insecure=@ud secure=(unit @ud)]
outgoing-duct=duct
verb=@
==
+$ channel-state-3
$: session=(map @t channel-3)
duct-to-key=(map duct @t)
==
+$ channel-3
$: mode=?(%json %jam) :: <- new
state=(each timer duct)
next-id=@ud
last-ack=@da
events=(qeu [id=@ud request-id=@ud channel-event=channel-event-3])
unacked=(map @ud @ud)
subscriptions=(map @ud [ship=@p app=term =path duc=duct])
heartbeat=(unit timer)
==
+$ channel-event-3
$% $>(%poke-ack sign:agent:gall) $% $>(%poke-ack sign:agent:gall)
$>(%watch-ack sign:agent:gall) $>(%watch-ack sign:agent:gall)
$>(%kick sign:agent:gall) $>(%kick sign:agent:gall)
@ -2873,20 +2845,9 @@
%~2023.2.17 %~2023.2.17
$(old [%~2023.3.16 [bindings ~ +]:server-state.old]) $(old [%~2023.3.16 [bindings ~ +]:server-state.old])
:: ::
:: inits channel mode :: inits channel mode and desks in unacked events
:: ::
%~2023.3.16 %~2023.3.16
%= $
date.old %~2023.4.11
::
server-state.old
%= server-state.old
session.channel-state
(~(run by session.channel-state.server-state.old) (lead %json))
==
==
::
%~2023.4.11
:: ::
:: Prior to this desks were not part of events.channel. :: Prior to this desks were not part of events.channel.
:: When serializing we used to rely on the desk stored in :: When serializing we used to rely on the desk stored in
@ -2894,27 +2855,30 @@
:: This migration adds the desk to events.channel, but we can not :: This migration adds the desk to events.channel, but we can not
:: scry in +load to populate the desks in the old events, :: scry in +load to populate the desks in the old events,
:: so we just kick all subscriptions on all channels. :: so we just kick all subscriptions on all channels.
:: %= $
=; new-channel-sessions date.old %~2023.4.11
%= $ ::
-.old %~2023.4.19 server-state.old
session.channel-state.server-state.old new-channel-sessions %= server-state.old
session.channel-state
%- ~(run by session.channel-state.server-state.old)
|= c=channel-2
=; new-events
:- %json
c(events new-events, unacked ~, subscriptions ~)
=| events=(qeu [id=@ud request-id=@ud =channel-event])
=/ l ~(tap in ~(key by subscriptions.c))
|-
?~ l events
%= $
l t.l
next-id.c +(next-id.c)
events (~(put to events) [next-id.c i.l %kick ~])
==
== ==
%- ~(run by session.channel-state.server-state.old)
|= c=channel-3
=; new-events
c(events new-events, unacked ~, subscriptions ~)
=| events=(qeu [id=@ud request-id=@ud =channel-event])
=/ l ~(tap in ~(key by subscriptions.c))
|-
?~ l events
%= $
l t.l
next-id.c +(next-id.c)
events (~(put to events) [next-id.c i.l %kick ~])
== ==
:: ::
%~2023.4.19 %~2023.4.11
http-server-gate(ax old) http-server-gate(ax old)
== ==
:: +stay: produce current state :: +stay: produce current state