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: further refactor +load logic

Browse Source 
Co-authored by: joemfb <joemfb@gmail.com>
This commit is contained in:
fang 2023-04-12 18:53:00 +02:00
parent 132299f278
commit d32527ba19
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 38 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2764,11 +2764,11 @@
++ load ++ load
=> |% => |%
+$ axle-any +$ axle-any
$% [%~2020.10.18 =server-state-0] $% [date=%~2020.10.18 server-state=server-state-0]
[%~2022.7.26 =server-state-0] [date=%~2022.7.26 server-state=server-state-0]
[%~2023.2.17 =server-state-1] [date=%~2023.2.17 server-state=server-state-1]
[%~2023.3.16 server-state-2] [date=%~2023.3.16 server-state=server-state-2]
[%~2023.4.11 server-state] [date=%~2023.4.11 =server-state]
== ==
:: ::
+$ server-state-0 +$ server-state-0
@ -2793,12 +2793,12 @@
=http-config =http-config
ports=[insecure=@ud secure=(unit @ud)] ports=[insecure=@ud secure=(unit @ud)]
outgoing-duct=duct outgoing-duct=duct
verb=@ verb=@ :: <- new
== ==
:: ::
+$ server-state-2 +$ server-state-2
$: bindings=(list [=binding =duct =action]) $: bindings=(list [=binding =duct =action])
cache=(map url=@t [aeon=@ud val=(unit cache-entry)]) cache=(map url=@t [aeon=@ud val=(unit cache-entry)]) :: <- new
=cors-registry =cors-registry
connections=(map duct outstanding-connection) connections=(map duct outstanding-connection)
=authentication-state =authentication-state
@ -2824,81 +2824,51 @@
== ==
-- --
|= old=axle-any |= old=axle-any
^+ ..^$ ^+ http-server-gate
?- -.old ?- -.old
::
:: adds /~/name
::
%~2020.10.18 %~2020.10.18
=, server-state-0.old
%= $ %= $
old date.old %~2022.7.26
:* %~2023.3.16 ::
(insert-binding [[~ /~/name] outgoing-duct [%name ~]] bindings) bindings.server-state.old
*(map url=@t [aeon=@ud val=(unit cache-entry)]) %+ insert-binding
cors-registry [[~ /~/name] outgoing-duct.server-state.old [%name ~]]
connections bindings.server-state.old
authentication-state ==
channel-state ::
domains :: enables https redirects if certificate configured
http-config :: inits .verb
ports
outgoing-duct
0
== ==
:: ::
%~2022.7.26 %~2022.7.26
=, server-state-0.old =. redirect.http-config.server-state.old
%= $ ?& ?=(^ secure.ports.server-state.old)
old ?=(^ secure.http-config.server-state.old)
:* %~2023.3.16 ==
bindings $(old [%~2023.2.17 server-state.old(|8 [|8 verb=0]:server-state.old)])
*(map url=@t [aeon=@ud val=(unit cache-entry)]) ::
cors-registry :: inits .cache
connections
authentication-state
channel-state
domains
http-config
ports
outgoing-duct
0
== ==
:: ::
%~2023.2.17 %~2023.2.17
=, server-state-1.old $(old [%~2023.3.16 [bindings ~ +]:server-state.old])
%= $ ::
old :: inits channel mode
:* %~2023.3.16
bindings
*(map url=@t [aeon=@ud val=(unit cache-entry)])
cors-registry
connections
authentication-state
channel-state
domains
http-config
ports
outgoing-duct
verb
== ==
:: ::
%~2023.3.16 %~2023.3.16
%= $ %= $
old date.old %~2023.4.11
:- %~2023.4.11 ::
%= +.old server-state.old
%= server-state.old
session.channel-state session.channel-state
(~(run by session.channel-state.old) (lead %json)) (~(run by session.channel-state.server-state.old) (lead %json))
::
redirect.http-config
:: enable https redirects if certificate configured
::
?& ?=(^ secure.ports.old)
?=(^ secure.http-config.old)
==
== ==
== ==
:: ::
%~2023.4.11 %~2023.4.11
..^$(ax old) http-server-gate(ax old)
== ==
:: +stay: produce current state :: +stay: produce current state
:: ::