2020-05-15 01:50:04 +03:00
|
|
|
/- *group-store
|
|
|
|
|
|_ upd=update
|
2019-09-25 23:31:31 +03:00
|
|
|
++ grab
|
|
|
|
|
|%
|
2020-05-15 01:50:04 +03:00
|
|
|
++ noun update
|
2019-09-25 23:31:31 +03:00
|
|
|
--
|
2020-05-15 01:50:04 +03:00
|
|
|
:: ++ grow
|
|
|
|
|
:: |%
|
|
|
|
|
:: ++ json
|
|
|
|
|
:: =, enjs:format
|
|
|
|
|
:: ^- ^json
|
|
|
|
|
:: %+ frond %group-update
|
|
|
|
|
:: %- pairs
|
|
|
|
|
:: :~
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %add
|
|
|
|
|
:: ?: =(%add -.upd)
|
|
|
|
|
:: ?> ?=(%add -.upd)
|
|
|
|
|
:: :- %add
|
|
|
|
|
:: %- pairs
|
|
|
|
|
:: :~ [%members (set-to-array members.upd ship)]
|
|
|
|
|
:: [%path (path pax.upd)]
|
|
|
|
|
:: ==
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %remove
|
|
|
|
|
:: ?: =(%remove -.upd)
|
|
|
|
|
:: ?> ?=(%remove -.upd)
|
|
|
|
|
:: :- %remove
|
|
|
|
|
:: %- pairs
|
|
|
|
|
:: :~ [%members (set-to-array members.upd ship)]
|
|
|
|
|
:: [%path (path pax.upd)]
|
|
|
|
|
:: ==
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %bundle
|
|
|
|
|
:: ?: =(%bundle -.upd)
|
|
|
|
|
:: ?> ?=(%bundle -.upd)
|
|
|
|
|
:: [%bundle (pairs [%path (path pax.upd)]~)]
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %unbundle
|
|
|
|
|
:: ?: =(%unbundle -.upd)
|
|
|
|
|
:: ?> ?=(%unbundle -.upd)
|
|
|
|
|
:: [%unbundle (pairs [%path (path pax.upd)]~)]
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %keys
|
|
|
|
|
:: ?: =(%keys -.upd)
|
|
|
|
|
:: ?> ?=(%keys -.upd)
|
|
|
|
|
:: [%keys (pairs [%keys (set-to-array keys.upd path)]~)]
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %path
|
|
|
|
|
:: ?: =(%path -.upd)
|
|
|
|
|
:: ?> ?=(%path -.upd)
|
|
|
|
|
:: :- %path
|
|
|
|
|
:: %- pairs
|
|
|
|
|
:: :~ [%members (set-to-array members.upd ship)]
|
|
|
|
|
:: [%path (path pax.upd)]
|
|
|
|
|
:: ==
|
|
|
|
|
:: ::
|
|
|
|
|
:: :: %noop
|
|
|
|
|
:: [*@t *^json]
|
|
|
|
|
:: ==
|
|
|
|
|
:: --
|
2019-09-25 23:31:31 +03:00
|
|
|
--
|
