ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-16 10:49:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

++beam-dents-in-dir:na to go with ++de-dup-subdirs

Browse Source
This commit is contained in:
Ted Blackman 2018-01-09 17:34:28 -08:00
parent 2cfccc3670
commit 7e009048a4
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
sys/vane/ford.hoon
View File

@ -147,6 +147,20 @@
|- ^+ a
?~ liz a
$(liz t.liz, a (put k i.liz))
::
++ beam-dents-in-dir
:> find all %beam dents inside the folder {bem} with care {ren}.
|= [bem=beam ren=care:clay]
^- (set dent)
?> =(%z ren) :: only %z supported
::
%- silt
%+ skim ~(tap in ~(key by sup.a))
|= den=dent
::
:: match the dent tag and beak exactly, and match the tops of the spurs
.= [%beam bem ren] :: a dent representing the folder
den(s.bem (flop (scag (lent s.bem) (flop s.bem.den))))
--
::
++ pin-dephash
@ -751,9 +765,9 @@
++ on-update
:> {bem} is at the old revision, {bek} is at the new revision.
|= {bem/beam ren/care:clay bek/beak} ^+ this
=/ new (sy [%beam bem ren] ~)
=/ new (~(beam-dents-in-dir na gaf.bay) bem ren)
:: ~& new-dents/new
=/ dos (downstream-dents new)
:: ~& [%on-update ren (en-beam bem) (en-beam new ~) dos]
=/ todo ~(tap in dos)
=^ unchanged this (rebuild bek new todo)
~| unchanged=unchanged