2019-02-02 00:49:14 +03:00
|
|
|
::
|
|
|
|
|
:::: /hoon/pill/mar
|
|
|
|
|
::
|
2022-03-17 19:03:10 +03:00
|
|
|
/+ *pill
|
2019-02-02 00:49:14 +03:00
|
|
|
=, mimes:html
|
|
|
|
|
|_ pil=pill
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ mime [/application/octet-stream (as-octs (jam pil))]
|
|
|
|
|
--
|
|
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ noun pill
|
|
|
|
|
++ mime
|
2020-10-04 09:34:10 +03:00
|
|
|
|= (pair mite octs)
|
2019-02-02 00:49:14 +03:00
|
|
|
=+ o=(pair ,* ,*) :: ,*)
|
2021-03-05 06:21:34 +03:00
|
|
|
=+ (,[%pill nam=term boot-ova=(list) kernel-ova=(list o) userspace-ova=(list o)] (cue q.q))
|
2019-02-02 00:49:14 +03:00
|
|
|
=/ 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)
|
2021-03-05 06:21:34 +03:00
|
|
|
[%pill nam boot-ova kernel-ova userspace-ova]
|
2019-02-02 00:49:14 +03:00
|
|
|
--
|
|
|
|
|
++ grad %mime
|
|
|
|
|
--
|
