urbit/lib/constitution.hoon

24 lines
465 B
Plaintext

/- constitution, ethereum
/+ ethereum
=> [^constitution ethereum]
|%
++ parse-id
|= id=@t
^- ships:function
|^
%+ rash id
;~ pose
(function %ships 'ships' shipname)
(function %get-spawned 'getSpawned' shipname)
(function %dns-domains 'dnsDomain' dem:ag)
==
::
++ function
|* [tag=@tas fun=@t rul=rule]
;~(plug (cold tag (jest fun)) (ifix [pel per] rul))
::
++ shipname
;~(pfix sig fed:ag)
--
--