urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 21:12:56 +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 =| =point
=. life.point life =. life.point life
=. keys.point (my [life crypto-suite public-key]~) =. 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]~)) (on-publ-full (my [ship point]~))
:: ::
@ -1670,7 +1670,7 @@
=. sponsor.peer-state =. sponsor.peer-state
?^ sponsor.point ?^ sponsor.point
u.sponsor.point u.sponsor.point
(scry-for-sponsor ship) (^^sein:title rof our now ship)
:: automatically set galaxy route, since unix handles lookup :: automatically set galaxy route, since unix handles lookup
:: ::
=? route.peer-state ?=(%czar (clan:title ship)) =? route.peer-state ?=(%czar (clan:title ship))
@ -1680,14 +1680,6 @@
(~(put by peers.ames-state) ship %known peer-state) (~(put by peers.ames-state) ship %known peer-state)
:: ::
event-core 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 :: +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)) :: (both hed ((..^$ +.b) +.a))
-- ::wired -- ::wired
:: :: :: ::
:::: ++title :: (2j) namespace :::: ++title :: (2j) identity
:: :::: :: ::::
++ title ++ 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:title
++ clan :: ship to rank ++ clan :: ship to rank
@ -4888,6 +4902,8 @@
%pawn (end 4 who) %pawn (end 4 who)
== ==
-- --
:: surface core: stateless queries for default numeric sponsorship
::
|% |%
:: :: ++cite:title :: :: ++cite:title
++ cite :: render ship ++ cite :: render ship