mirror of
https://github.com/urbit/shrub.git
synced 2024-12-29 23:23:52 +03:00
36 lines
810 B
Plaintext
36 lines
810 B
Plaintext
::
|
|
:::: /hoon/pill/mar
|
|
::
|
|
/+ *pill
|
|
=, mimes:html
|
|
|_ pil=pill
|
|
++ grow
|
|
|%
|
|
++ mime [/application/octet-stream (as-octs (jam pil))]
|
|
--
|
|
++ grab
|
|
|%
|
|
++ noun pill
|
|
++ mime
|
|
|= (pair mite octs)
|
|
=+ o=(pair ,* ,*) :: ,*)
|
|
=+ (,[%pill nam=term boot-ova=(list) 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)
|
|
[%pill nam boot-ova kernel-ova userspace-ova]
|
|
--
|
|
++ grad %mime
|
|
--
|