eyre: expose bindings through scry

Allows you to scry out all bound endpoints at /=bindings=.

Moves an internal type into zuse for easier external use.
This commit is contained in:
Fang 2020-05-08 01:39:56 +02:00
parent 61a5e7a45e
commit 664275c9f1
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
2 changed files with 21 additions and 19 deletions

View File

@ -144,25 +144,6 @@
::
bytes-sent=@ud
==
:: +action: the action to take when a binding matches an incoming request
::
+$ action
$% :: dispatch to a generator
::
[%gen =generator]
:: dispatch to an application
::
[%app app=term]
:: internal authentication page
::
[%authentication ~]
:: gall channel system
::
[%channel ~]
:: respond with the default file not found page
::
[%four-oh-four ~]
==
:: +authentication-state: state used in the login system
::
+$ authentication-state
@ -2462,6 +2443,8 @@
[~ ~]
?. ?=(%$ -.lot)
[~ ~]
?: ?=(%bindings syd)
``noun+!>(bindings.server-state.ax)
?. ?=(%host syd)
[~ ~]
%- (lift (lift |=(a=hart:eyre [%hart !>(a)])))

View File

@ -1156,6 +1156,25 @@
::
path=(list @t)
==
:: +action: the action to take when a binding matches an incoming request
::
+$ action
$% :: dispatch to a generator
::
[%gen =generator]
:: dispatch to an application
::
[%app app=term]
:: internal authentication page
::
[%authentication ~]
:: gall channel system
::
[%channel ~]
:: respond with the default file not found page
::
[%four-oh-four ~]
==
:: +generator: a generator on the local ship that handles requests
::
:: This refers to a generator on the local ship, run with a set of