mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-01 02:45:49 +03:00
60 lines
1.1 KiB
Plaintext
60 lines
1.1 KiB
Plaintext
/- docket
|
|
|%
|
|
++ treaty
|
|
=< treaty
|
|
|%
|
|
:: $treaty: An extrajudicial docket
|
|
::
|
|
:: Includes the docket itself, plus provenance generated by clay
|
|
::
|
|
+$ treaty
|
|
[=ship =desk =case hash=@uv =docket:docket]
|
|
::
|
|
:: $update:treaty: Diff of treaty state
|
|
::
|
|
+$ update
|
|
$% [%ini init=(map [=ship =desk] =treaty)]
|
|
[%add =treaty]
|
|
[%del =ship =desk]
|
|
==
|
|
--
|
|
++ alliance
|
|
=< alliance
|
|
|%
|
|
:: $alliance: Dockets to be advertised for install
|
|
::
|
|
+$ alliance (set [=ship =desk])
|
|
+$ diff
|
|
$% [%add =ship =desk]
|
|
[%del =ship =desk]
|
|
==
|
|
::
|
|
+$ update
|
|
$% [%ini init=(set [=ship =desk])]
|
|
diff
|
|
==
|
|
--
|
|
|
|
:: +ally: Discovery structures
|
|
::
|
|
++ ally
|
|
|%
|
|
::
|
|
:: $allies: Provider ships and their alliances
|
|
::
|
|
+$ allies (map ship alliance)
|
|
:: $diff: Request to change ally state
|
|
+$ diff
|
|
$% [%add =ship]
|
|
[%del =ship]
|
|
==
|
|
:: $update: Changed ally state
|
|
::
|
|
+$ update
|
|
$% diff
|
|
[%ini init=(map ship alliance)]
|
|
[%new =ship =alliance]
|
|
==
|
|
--
|
|
--
|