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

gall: use less vertical separation when wuthepping

Browse Source
This commit is contained in:
Jared Tobin 2019-08-15 13:19:49 -07:00
parent a2d21debf5
commit cc7ac3cb2d
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 23 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
pkg/arvo/sys/vane/gall.hoon
View File

@ -766,37 +766,29 @@
=/ =internal-gift +>.sign-arvo =/ =internal-gift +>.sign-arvo
:: ::
?- -.internal-gift ?- -.internal-gift
::
%coup %coup
::
(mo-give %mack p.internal-gift) (mo-give %mack p.internal-gift)
:: ::
%diff %diff
::
=/ sys-path [%sys %red t.path] =/ sys-path [%sys %red t.path]
=/ =note-arvo =/ =note-arvo
=/ path [%g %gh dap ~] =/ path [%g %gh dap ~]
=/ noun [num %d p.p.internal-gift q.q.p.internal-gift] =/ noun [num %d p.p.internal-gift q.q.p.internal-gift]
[%a %want him path noun] [%a %want him path noun]
::
(mo-pass sys-path note-arvo) (mo-pass sys-path note-arvo)
:: ::
%quit %quit
::
=/ sys-path [%sys path] =/ sys-path [%sys path]
=/ =note-arvo =/ =note-arvo
=/ path [%g %gh dap ~] =/ path [%g %gh dap ~]
=/ noun [num %x ~] =/ noun [num %x ~]
[%a %want him path noun] [%a %want him path noun]
::
(mo-pass sys-path note-arvo) (mo-pass sys-path note-arvo)
:: ::
%reap %reap
::
(mo-give %mack p.internal-gift) (mo-give %mack p.internal-gift)
:: ::
%http-response %http-response
::
!! !!
== ==
:: ::
@ -869,30 +861,24 @@
=/ =sign-arvo q.hin =/ =sign-arvo q.hin
:: ::
?- i.t.t.path ?- i.t.t.path
::
%inn %inn
::
=/ =vase (slot 3 hin) =/ =vase (slot 3 hin)
=. app (ap-generic-take:app t.t.t.path vase) =. app (ap-generic-take:app t.t.t.path vase)
ap-abet:app ap-abet:app
:: ::
%cay %cay
::
~& [%mo-handle-use-weird sign-arvo] ~& [%mo-handle-use-weird sign-arvo]
~& [%mo-handle-use-weird-path path] ~& [%mo-handle-use-weird-path path]
mo-state mo-state
:: ::
%out %out
::
?. ?=([%g %unto *] sign-arvo) ?. ?=([%g %unto *] sign-arvo)
~& [%mo-handle-use-weird sign-arvo] ~& [%mo-handle-use-weird sign-arvo]
~& [%mo-handle-use-weird-path path] ~& [%mo-handle-use-weird-path path]
mo-state mo-state
::
=. app =. app
=/ =internal-gift +>.sign-arvo =/ =internal-gift +>.sign-arvo
(ap-specific-take:app t.t.t.path internal-gift) (ap-specific-take:app t.t.t.path internal-gift)
::
ap-abet:app ap-abet:app
== ==
:: ::
@ -1041,36 +1027,30 @@
:: ::
=/ =note-arvo =/ =note-arvo
?- -.forward-ames ?- -.forward-ames
::
%m %m
::
=/ =task:able =/ =task:able
=/ =internal-task [term %puff [mark noun]:forward-ames] =/ =internal-task [term %puff [mark noun]:forward-ames]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%l %l
::
=/ =task:able =/ =task:able
=/ =internal-task [term %peel [mark path]:forward-ames] =/ =internal-task [term %peel [mark path]:forward-ames]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%s %s
::
=/ =task:able =/ =task:able
=/ =internal-task [term %peer path.forward-ames] =/ =internal-task [term %peer path.forward-ames]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%u %u
::
=/ =task:able =/ =task:able
=/ =internal-task [term %pull ~] =/ =internal-task [term %pull ~]
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
== ==
::
(mo-pass path note-arvo) (mo-pass path note-arvo)
:: ::
:: +mo-handle-backward: handle reverse %ames message. :: +mo-handle-backward: handle reverse %ames message.
@ -1080,9 +1060,7 @@
^+ mo-state ^+ mo-state
:: ::
?- -.reverse-ames ?- -.reverse-ames
::
%d %d
::
=/ =path =/ =path
=/ him (scot %p ship) =/ him (scot %p ship)
=/ num (scot %ud bone) =/ num (scot %ud bone)
@ -1095,9 +1073,8 @@
[%f %build live=%.n schematic] [%f %build live=%.n schematic]
:: ::
(mo-pass path note-arvo) (mo-pass path note-arvo)
:: ::
%x %x
::
:: XX should crash :: XX should crash
=. mo-state (mo-give %mack ~) =. mo-state (mo-give %mack ~)
:: ::
@ -1245,11 +1222,9 @@
:: ::
=/ card =/ card
?- -.move.internal-move ?- -.move.internal-move
::
%slip !! %slip !!
:: ::
%give %give
::
?< =(0 bone.internal-move) ?< =(0 bone.internal-move)
:: ::
=/ =internal-gift p.move.internal-move =/ =internal-gift p.move.internal-move
@ -1265,7 +1240,6 @@
[%give %unto internal-gift] [%give %unto internal-gift]
:: ::
=/ =path /sys/pel/[agent-name] =/ =path /sys/pel/[agent-name]
::
=/ =note-arvo =/ =note-arvo
=/ =schematic:ford =/ =schematic:ford
=/ =beak (mo-beak agent-name) =/ =beak (mo-beak agent-name)
@ -1273,27 +1247,22 @@
[%f %build live=%.n schematic] [%f %build live=%.n schematic]
:: ::
[%pass path note-arvo] [%pass path note-arvo]
:: ::
%pass %pass
::
=/ =path p.move.internal-move =/ =path p.move.internal-move
=/ =internal-note q.move.internal-move =/ =internal-note q.move.internal-move
::
=/ use-path [%use agent-name path] =/ use-path [%use agent-name path]
:: ::
=/ =note-arvo =/ =note-arvo
?- -.internal-note ?- -.internal-note
::
%send %send
::
=/ =task:able =/ =task:able
=/ =sock [our ship.internal-note] =/ =sock [our ship.internal-note]
=/ =internal-task internal-task.internal-note =/ =internal-task internal-task.internal-note
[%deal sock internal-task] [%deal sock internal-task]
[%g task] [%g task]
:: ::
%meta %meta
::
=/ =term term.internal-note =/ =term term.internal-note
=/ =vase vase.internal-note =/ =vase vase.internal-note
[term %meta vase] [term %meta vase]
@ -1301,7 +1270,6 @@
:: ::
[%pass use-path note-arvo] [%pass use-path note-arvo]
== ==
::
[duct card] [duct card]
:: ::
:: +ap-call: call into server. :: +ap-call: call into server.
@ -2273,29 +2241,23 @@
=/ pax +.path =/ pax +.path
:: ::
?- -.internal-gift ?- -.internal-gift
::
%coup %coup
::
=/ maybe-vase (some !>(p.internal-gift)) =/ maybe-vase (some !>(p.internal-gift))
(ap-non-diff-take %coup pax maybe-vase) (ap-non-diff-take %coup pax maybe-vase)
:: ::
%diff %diff
::
=/ =ship attributing.agent-routes =/ =ship attributing.agent-routes
=/ =cage p.internal-gift =/ =cage p.internal-gift
(ap-diff ship path cage) (ap-diff ship path cage)
:: ::
%quit %quit
::
(ap-non-diff-take %quit pax ~) (ap-non-diff-take %quit pax ~)
:: ::
%reap %reap
::
=/ maybe-vase (some !>(p.internal-gift)) =/ maybe-vase (some !>(p.internal-gift))
(ap-non-diff-take %reap pax maybe-vase) (ap-non-diff-take %reap pax maybe-vase)
:: ::
%http-response %http-response
::
!! !!
== ==
:: ::
@ -2664,9 +2626,7 @@
=/ initialised (mo-abed:mo duct) =/ initialised (mo-abed:mo duct)
:: ::
?- -.task ?- -.task
::
%conf %conf
::
=/ =dock p.task =/ =dock p.task
=/ =ship p.dock =/ =ship p.dock
?. =(our ship) ?. =(our ship)
@ -2676,12 +2636,10 @@
~& [%gall-booting q.dock q.task] ~& [%gall-booting q.dock q.task]
=> (mo-boot:initialised q.dock q.task) => (mo-boot:initialised q.dock q.task)
mo-abet mo-abet
:: ::
%deal %deal
::
=/ =sock p.task =/ =sock p.task
=/ =internal-task q.task =/ =internal-task q.task
::
?. =(q.sock our) ?. =(q.sock our)
?> =(p.sock our) ?> =(p.sock our)
=> (mo-handle-foreign-request:initialised q.sock internal-task) => (mo-handle-foreign-request:initialised q.sock internal-task)
@ -2689,18 +2647,15 @@
:: ::
=> (mo-handle-local:initialised p.sock internal-task) => (mo-handle-local:initialised p.sock internal-task)
mo-abet mo-abet
:: ::
%init %init
::
=/ payload gall-payload(system-duct.agents.state duct) =/ payload gall-payload(system-duct.agents.state duct)
[~ payload] [~ payload]
:: ::
%vega %vega
::
[~ gall-payload] [~ gall-payload]
:: ::
%west %west
::
=/ =ship p.task =/ =ship p.task
=/ =path q.task =/ =path q.task
=/ =noun r.task =/ =noun r.task
@ -2716,15 +2671,13 @@
=/ mes ;;((pair @ud reverse-ames) noun) =/ mes ;;((pair @ud reverse-ames) noun)
=> (mo-handle-backward:initialised ship agent-name mes) => (mo-handle-backward:initialised ship agent-name mes)
mo-abet mo-abet
:: ::
%wash %wash
::
=. running.agents.state =. running.agents.state
(~(run by running.agents.state) |=(=agent agent(cache *worm))) (~(run by running.agents.state) |=(=agent agent(cache *worm)))
[~ gall-payload] [~ gall-payload]
:: ::
%wegh %wegh
::
=/ blocked =/ blocked
=/ queued (~(run by blocked.agents.state) |=(blocked [%.y +<])) =/ queued (~(run by blocked.agents.state) |=(blocked [%.y +<]))
(sort ~(tap by queued) aor) (sort ~(tap by queued) aor)