urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 04:52:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

zuse,ames: ^^sein:title

Browse Source
This commit is contained in:
Ted Blackman 2021-09-25 16:52:53 -04:00
parent ef65c9c152
commit bbc80f9d45
2 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/arvo/sys/vane/ames.hoon
View File

@ -1567,7 +1567,7 @@
=| =point
=. life.point life
=. keys.point (my [life crypto-suite public-key]~)
=. sponsor.point `(scry-for-sponsor ship)
=. sponsor.point `(^^sein:title rof our now ship)
::
(on-publ-full (my [ship point]~))
::
@ -1670,7 +1670,7 @@
=. sponsor.peer-state
?^ sponsor.point
u.sponsor.point
(scry-for-sponsor ship)
(^^sein:title rof our now ship)
:: automatically set galaxy route, since unix handles lookup
::
=? route.peer-state ?=(%czar (clan:title ship))
@ -1680,14 +1680,6 @@
(~(put by peers.ames-state) ship %known peer-state)
::
event-core
:: +scry-for-sponsor: ask jael for .who's sponsoring ship
::
++ scry-for-sponsor
|= who=ship
^- ship
;; ship
=< q.q %- need %- need
(rof ~ %j `beam`[[our %sein %da now] /(scot %p who)])
--
:: +on-take-turf: relay %turf move from jael to unix
::

18
pkg/arvo/sys/zuse.hoon
View File

@ -4847,9 +4847,23 @@
:: (both hed ((..^$ +.b) +.a))
-- ::wired
:: ::
:::: ++title :: (2j) namespace
:::: ++title :: (2j) identity
:: ::::
++ title
:: deep core: for vane use, with $roof for scrying
::
:: TODO: refactor to share high-level gates like +saxo
:: among the three cores
::
=> |%
++ sein
|= [rof=roof our=ship now=@da who=ship]
;; ship
=< q.q %- need %- need
(rof ~ %j `beam`[[our %sein %da now] /(scot %p who)])
--
:: middle core: for userspace use, with .^
::
=> |%
:: :: ++clan:title
++ clan :: ship to rank
@ -4888,6 +4902,8 @@
%pawn (end 4 who)
==
--
:: surface core: stateless queries for default numeric sponsorship
::
|%
:: :: ++cite:title
++ cite :: render ship