shrub/pkg/arvo/gen/ames-keys.hoon

::  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
gen: add +ames-keys generator 2023-05-12 10:20:43 +03:00			`:: 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`
gen: don't crash if alien 2023-05-12 11:27:30 +03:00			`?. ?=(%known -.ship-state)`
			`%ship-still-alien`
			`[life=life rift=rift]:+.ship-state`