urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-03 10:02:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

2. refactors %zuse handling in arvo

Browse Source
This commit is contained in:
Joe Bryan 2018-12-05 11:42:20 -05:00
parent 563b174de4
commit b19109c288
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
sys/arvo.hoon
View File

@ -502,12 +502,11 @@
$(ova (weld p.nyx ova), mor (weld q.nyx t.mor))
--
--
=+ pit=`vase`!>(.) ::
=+ bud=pit :: becomes tang
:: =+ vil=(viol p.bud) :: cached reflexives
=+ vil=(viol p.bud) :: cached reflexives
=| $: lac/? :: laconic bit
eny/@ :: entropy
=/ pit=vase !>(.) ::
=/ vil=vile (viol p.pit) :: cached reflexives
=| bod=(unit vase) :: %zuse if installed
=| $: lac=? :: laconic bit
eny=@ :: entropy
vanes=(list [label=@tas =vane]) :: modules
== ::
=< |%
@ -570,11 +569,14 @@
=/ avo $(ova t.ova)
[[+.vov -.avo] +.avo]
::
++ mast :: stdlib if installed
`vase`?~(bod pit u.bod)
::
++ peek :: external inspect
|= {now/@da hap/path}
^- (unit)
?~ hap [~ hoon-version]
=+ rob=((sloy ~(beck (is vil eny bud vanes) now)) [151 %noun] hap)
=+ rob=((sloy ~(beck (is vil eny mast vanes) now)) [151 %noun] hap)
?~ rob ~
?~ u.rob ~
[~ u.u.rob]
@ -594,7 +596,7 @@
[[ovo ~] +>.$]
::
=^ zef vanes
(~(hurl (is vil eny bud vanes) now) lac ovo)
(~(hurl (is vil eny mast vanes) now) lac ovo)
[zef +>.$]
:: +feck: handle an arvo effect
::
@ -620,7 +622,7 @@
:- %userspace
:- %|
:~ hoon+`pit
zuse+`bud
zuse+`mast
:: hoon-cache+`p.niz
q.q.ovo
dot+`.
@ -690,26 +692,26 @@
~& [%tang pax.fav `@p`(mug txt.fav)]
=+ gen=(rain pax.fav txt.fav)
=+ vax=(slap pit gen)
+>.^$(bud vax)
+>.^$(bod (some vax))
%_ +>.^$
vanes
|- ^+ vanes
?~ vanes
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
=+ vin=(vint lal.fav vil bud pax.fav txt.fav)
=+ vin=(vint lal.fav vil mast pax.fav txt.fav)
?~ vin
vanes
[[lal.fav vane:u.vin] vanes]
?. =(lal.fav label.i.vanes)
[i.vanes $(vanes t.vanes)]
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
~& [%vane `@tas`lal.fav pax.fav `@p`(mug txt.fav)]
:_ t.vanes
:- label.i.vanes
vane:(ruck:(vent lal.fav vil bud [vase.vane.i.vanes *worm]) pax.fav txt.fav)
vane:(ruck:(vent lal.fav vil mast [vase.vane.i.vanes *worm]) pax.fav txt.fav)
==
::
++ wish :: external compute
|= txt/@
q:(slap bud (ream txt))
q:(slap mast (ream txt))
--