review changes: fix comments, refactor module-ova

This commit is contained in:
Joe Bryan 2018-12-04 20:18:38 -05:00
parent 51ca94d192
commit fd6fe349d6
2 changed files with 36 additions and 36 deletions

View File

@ -71,7 +71,7 @@
:: our boot-ova is a list containing one massive formula: :: our boot-ova is a list containing one massive formula:
:: ::
:: We evaluate :arvo-formula (for jet registration), :: We evaluate :arvo-formula (for jet registration),
:: then ignore the result and produces :installed :: then ignore the result and produce :installed
:: ::
=/ boot-ova=(list) =/ boot-ova=(list)
[[%7 arvo-formula %1 installed] ~] [[%7 arvo-formula %1 installed] ~]

View File

@ -8,41 +8,41 @@
++ module-ova ++ module-ova
|= sys=path |= sys=path
^- (list ovum) ^- (list ovum)
|^ :~ :: sys/zuse: standard library %+ turn
:: ^- (list (pair term path))
(vent %$ /zuse) :~ :: sys/zuse: standard library
:: sys/vane/ames: network ::
:: [%$ /zuse]
(vent %a /vane/ames) :: sys/vane/ames: network
:: sys/vane/behn: timer ::
:: [%a /vane/ames]
(vent %b /vane/behn) :: sys/vane/behn: timer
:: sys/vane/clay: revision control ::
:: [%b /vane/behn]
(vent %c /vane/clay) :: sys/vane/clay: revision control
:: sys/vane/dill: console ::
:: [%c /vane/clay]
(vent %d /vane/dill) :: sys/vane/dill: console
:: sys/vane/eyre: web ::
:: [%d /vane/dill]
(vent %e /vane/eyre) :: sys/vane/eyre: web
:: sys/vane/ford: build ::
:: [%e /vane/eyre]
(vent %f /vane/ford) :: sys/vane/ford: build
:: sys/vane/gall: applications ::
:: [%f /vane/ford]
(vent %g /vane/gall) :: sys/vane/gall: applications
:: sys/vane/jael: security ::
:: [%g /vane/gall]
(vent %j /vane/jael) :: sys/vane/jael: security
== ::
++ vent [%j /vane/jael]
|= [abr=term den=path] ==
^- ovum |= [=term =path]
=/ pax (weld sys den) ^- ovum
=/ txt .^(@ %cx (weld pax /hoon)) =/ pax (weld sys path)
[[%vane den] [%veer abr pax txt]] =/ txt .^(@ %cx (weld pax /hoon))
-- [[%vane path] [%veer term pax txt]]
:: +file-ovum: userspace filesystem load :: +file-ovum: userspace filesystem load
:: ::
:: bas: full path to / directory :: bas: full path to / directory