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

WIP: Dump so I can go fix 881.

Browse Source
This commit is contained in:
Elliot Glaysher 2018-11-13 11:12:59 -08:00
parent 9bb899308d
commit 6514925f87
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sys/vane/jael.hoon
View File

@ -737,7 +737,7 @@
^- (list move) ^- (list move)
:~ [hen %pass /(scot %p our)/init %b %wait +(now.sys)] :~ [hen %pass /(scot %p our)/init %b %wait +(now.sys)]
[hen %give %init our] [hen %give %init our]
[hen %slip %e %init our] [hen %slip %l %init our]
[hen %slip %d %init our] [hen %slip %d %init our]
[hen %slip %g %init our] [hen %slip %g %init our]
[hen %slip %c %init our] [hen %slip %c %init our]
@ -787,7 +787,7 @@
%+ weld moz %+ weld moz
^- (list move) ^- (list move)
:~ [hen %give %init our] :~ [hen %give %init our]
[hen %slip %e %init our] [hen %slip %l %init our]
[hen %slip %d %init our] [hen %slip %d %init our]
[hen %slip %g %init our] [hen %slip %g %init our]
[hen %slip %c %init our] [hen %slip %c %init our]

13
sys/vane/light.hoon
View File

@ -163,6 +163,9 @@
:: internal authentication page :: internal authentication page
:: ::
[%login-handler ~] [%login-handler ~]
:: gall subscription system
::
[%subscriptions ~]
== ==
:: +authentication-state: state used in the login system :: +authentication-state: state used in the login system
:: ::
@ -406,6 +409,9 @@
:: ::
%login-handler %login-handler
(handle-request:authentication secure address http-request) (handle-request:authentication secure address http-request)
::
%subscriptions
[~ state]
== ==
:: +cancel-request: handles a request being externally aborted :: +cancel-request: handles a request being externally aborted
:: ::
@ -446,6 +452,11 @@
:: ::
%login-handler %login-handler
[~ state] [~ state]
::
%subscriptions
:: todo: this part actually matters.
::
[~ state]
== ==
:: +return-static-data-on-duct: returns one piece of data all at once :: +return-static-data-on-duct: returns one piece of data all at once
:: ::
@ -837,12 +848,14 @@
:: %init: tells us what our ship name is :: %init: tells us what our ship name is
:: ::
%init %init
~& %light-born
:: ::
=. ship.ax [~ our.task] =. ship.ax [~ our.task]
:: initial value for the login handler :: initial value for the login handler
:: ::
=. bindings.server-state.ax =. bindings.server-state.ax
:~ [[~ /~/login] duct [%login-handler ~]] :~ [[~ /~/login] duct [%login-handler ~]]
[[~ /~/subscription] duct [%subscription ~]]
== ==
[~ light-gate] [~ light-gate]
:: %born: new unix process :: %born: new unix process