mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 22:15:47 +03:00
135 lines
2.1 KiB
Plaintext
135 lines
2.1 KiB
Plaintext
/- *settings
|
|
|%
|
|
++ enjs
|
|
=, enjs:format
|
|
|%
|
|
++ data
|
|
|= dat=^data
|
|
^- json
|
|
%+ frond -.dat
|
|
?- -.dat
|
|
%all (settings +.dat)
|
|
%bucket (bucket +.dat)
|
|
%entry (value +.dat)
|
|
==
|
|
::
|
|
++ settings
|
|
|= s=^settings
|
|
^- json
|
|
[%o (~(run by s) bucket)]
|
|
::
|
|
++ event
|
|
|= evt=^event
|
|
^- json
|
|
%+ frond -.evt
|
|
?- -.evt
|
|
%put-bucket (put-bucket +.evt)
|
|
%del-bucket (del-bucket +.evt)
|
|
%put-entry (put-entry +.evt)
|
|
%del-entry (del-entry +.evt)
|
|
==
|
|
::
|
|
++ put-bucket
|
|
|= [k=key b=^bucket]
|
|
^- json
|
|
%- pairs
|
|
:~ bucket-key+s+k
|
|
bucket+(bucket b)
|
|
==
|
|
::
|
|
++ del-bucket
|
|
|= k=key
|
|
^- json
|
|
%- pairs
|
|
:~ bucket-key+s+k
|
|
==
|
|
::
|
|
++ put-entry
|
|
|= [b=key k=key v=val]
|
|
^- json
|
|
%- pairs
|
|
:~ bucket-key+s+b
|
|
entry-key+s+k
|
|
value+(value v)
|
|
==
|
|
::
|
|
++ del-entry
|
|
|= [buc=key =key]
|
|
^- json
|
|
%- pairs
|
|
:~ bucket-key+s+buc
|
|
entry-key+s+key
|
|
==
|
|
::
|
|
++ value
|
|
|= =val
|
|
^- json
|
|
?- -.val
|
|
%s val
|
|
%b val
|
|
%n (numb p.val)
|
|
%a [%a (turn p.val value)]
|
|
==
|
|
::
|
|
++ bucket
|
|
|= b=^bucket
|
|
^- json
|
|
[%o (~(run by b) value)]
|
|
--
|
|
::
|
|
++ dejs
|
|
=, dejs:format
|
|
|%
|
|
++ event
|
|
|= jon=json
|
|
^- ^event
|
|
%. jon
|
|
%- of
|
|
:~ put-bucket+put-bucket
|
|
del-bucket+del-bucket
|
|
put-entry+put-entry
|
|
del-entry+del-entry
|
|
==
|
|
::
|
|
++ put-bucket
|
|
%- ot
|
|
:~ bucket-key+so
|
|
bucket+bucket
|
|
==
|
|
::
|
|
++ del-bucket
|
|
%- ot
|
|
:~ bucket-key+so
|
|
==
|
|
::
|
|
++ put-entry
|
|
%- ot
|
|
:~ bucket-key+so
|
|
entry-key+so
|
|
value+value
|
|
==
|
|
::
|
|
++ del-entry
|
|
%- ot
|
|
:~ bucket-key+so
|
|
entry-key+so
|
|
==
|
|
::
|
|
++ value
|
|
|= jon=json
|
|
^- val
|
|
?+ -.jon !!
|
|
%s jon
|
|
%b jon
|
|
%n [%n (rash p.jon dem)]
|
|
%a [%a (turn p.jon value)]
|
|
==
|
|
::
|
|
++ bucket
|
|
|= jon=json
|
|
^- ^bucket
|
|
?> ?=([%o *] jon)
|
|
(~(run by p.jon) value)
|
|
--
|
|
--
|