Merge pull request #6586 from urbit/i/6584/rift-life-gen

gen: add +ames-keys generator
This commit is contained in:
Ted Blackman 2023-05-16 11:22:05 -04:00 committed by GitHub
commit 0113f8a01d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -0,0 +1,11 @@
:: Print keys for a ship, as stored in %ames
::
:- %say
|= [[now=time @ our=ship ^] [=ship ~] ~]
=+ .^ =ship-state:ames
%ax /(scot %p our)//(scot %da now)/peers/(scot %p ship)
==
:- %noun
?. ?=(%known -.ship-state)
%ship-still-alien
[life=life rift=rift]:+.ship-state