mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-19 23:01:46 +03:00
25 lines
448 B
Plaintext
25 lines
448 B
Plaintext
/- vitals
|
|
|%
|
|
++ simplify-qos
|
|
|= =ship-state:ames
|
|
^- qos:ames
|
|
?- -.ship-state
|
|
%alien [%dead *@da]
|
|
%known ?+ -.qos.ship-state qos.ship-state
|
|
%unborn [%dead last-contact.qos.ship-state]
|
|
== ==
|
|
++ scry-qos
|
|
|= [=ship =time peer=ship]
|
|
^- qos:ames
|
|
%- simplify-qos
|
|
.^ ship-state:ames
|
|
%ax
|
|
(scot %p ship)
|
|
%$
|
|
(scot %da time)
|
|
%peers
|
|
(scot %p peer)
|
|
~
|
|
==
|
|
--
|