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

Minimal compatibility with the rearranged light card types.

Browse Source
This commit is contained in:
Elliot Glaysher 2019-02-05 16:15:13 -08:00
parent 8570a8f3c9
commit 0e589f38f2
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sys/vane/gall.hoon
View File

@ -819,6 +819,8 @@
$poke (ap-move-poke -.q.vax cav)
$send (ap-move-send -.q.vax cav)
$quit (ap-move-quit -.q.vax cav)
::
$connect (ap-move-connect -.q.vax cav)
$http-response (ap-move-http-response -.q.vax cav)
==
::
@ -840,6 +842,20 @@
=^ tel vel (~(slot wa vel) 3 pec)
:_(+>.$ [%& sto %give %diff `cage`[-.q.pec tel]])
::
++ ap-move-connect
|= {sto/bone vax/vase}
^- {(each cove tang) _+>}
=+ pux=((soft path) -.q.vax)
?. &(?=(^ pux) (levy u.pux (sane %ta)))
~& [%bad-path pux]
:_(+>.$ [%| (ap-suck "pass: malformed path")])
=^ tel vel (~(slot wa vel) 3 vax)
:_ +>.$
~& [%ap-move-connect sto]
:^ %& sto %pass
:- [(scot %p q.q.pry) %inn u.pux]
[%meta %l (slop (ap-term %tas %http-server) (slop (ap-term %tas %connect) tel))]
::
++ ap-move-http-response
|= [sto=bone vax=vase]
^- [(each cove tang) _+>]
@ -895,6 +911,7 @@
:_(+>.$ [%| (ap-suck "pass: malformed card")])
=+ pux=((soft path) -.q.vax)
?. &(?=(^ pux) (levy u.pux (sane %ta)))
~& [%bad-path pux]
:_(+>.$ [%| (ap-suck "pass: malformed path")])
=+ huj=(ap-vain wut)
?~ huj :_(+>.$ [%| (ap-suck "move: unknown note {(trip wut)}")])
@ -1310,8 +1327,7 @@
$well `%e
$wind `%j
$wipe `%f
%connect `%l
%serve `%l
%http-server `%l
==
--
--