urbit/pkg/arvo/mar/pill.hoon
Jared Tobin b3901ab42f Add 'pkg/arvo/' from commit 'c20e2a185f131ff3f5d3961829bd7a3fe0f227f8'
git-subtree-dir: pkg/arvo
git-subtree-mainline: 9c8f40bf6c
git-subtree-split: c20e2a185f
2019-06-28 12:48:05 +08:00

37 lines
805 B
Plaintext

::
:::: /hoon/pill/mar
::
/- aquarium
=, aquarium
=, mimes:html
|_ pil=pill
++ grow
|%
++ mime [/application/octet-stream (as-octs (jam pil))]
--
++ grab
|%
++ noun pill
++ mime
|= [p=mite:eyre q=octs:eyre]
=+ o=(pair ,* ,*) :: ,*)
=+ (,[boot-ova=* kernel-ova=(list o) userspace-ova=(list o)] (cue q.q))
=/ convert
|= ova=(list o)
^- (list unix-event)
%+ turn ova
|= ovo=o
=/ sof ((soft unix-event) ovo)
?~ sof
~& [%unknown-event p.ovo]
!!
~& [%known-event (wire p.ovo) (@tas -.q.ovo)]
u.sof
:: =/ boot-ova (convert boot-ova)
=/ kernel-ova (convert kernel-ova)
=/ userspace-ova (convert userspace-ova)
[boot-ova kernel-ova userspace-ova]
--
++ grad %mime
--