mirror of
https://github.com/tloncorp/landscape.git
synced 2024-12-23 16:54:04 +03:00
45 lines
734 B
Plaintext
45 lines
734 B
Plaintext
|
/+ *mip
|
||
|
|
|%
|
||
|
|
::
|
||
|
|
++ settings-0
|
||
|
|
=< settings
|
||
|
|
|%
|
||
|
|
+$ settings (map key bucket)
|
||
|
|
+$ bucket (map key val)
|
||
|
|
+$ val
|
||
|
|
$% [%s p=@t]
|
||
|
|
[%b p=?]
|
||
|
|
[%n p=@]
|
||
|
|
==
|
||
|
|
--
|
||
|
|
::
|
||
|
|
++ settings-1
|
||
|
|
=< settings
|
||
|
|
|%
|
||
|
|
+$ settings (map key bucket)
|
||
|
|
--
|
||
|
|
+$ bucket (map key val)
|
||
|
|
+$ key term
|
||
|
|
+$ val
|
||
|
|
$~ [%n 0]
|
||
|
|
$% [%s p=@t]
|
||
|
|
[%b p=?]
|
||
|
|
[%n p=@]
|
||
|
|
[%a p=(list val)]
|
||
|
|
==
|
||
|
|
::
|
||
|
|
+$ settings (mip desk key bucket)
|
||
|
|
+$ event
|
||
|
|
$% [%put-bucket =desk =key =bucket]
|
||
|
|
[%del-bucket =desk =key]
|
||
|
|
[%put-entry =desk buc=key =key =val]
|
||
|
|
[%del-entry =desk buc=key =key]
|
||
|
|
==
|
||
|
|
+$ data
|
||
|
|
$% [%all =settings]
|
||
|
|
[%bucket =bucket]
|
||
|
|
[%desk desk=(map key bucket)]
|
||
|
|
[%entry =val]
|
||
|
|
==
|
||
|
|
--
|