ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 15:08:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

zuse,clay: WIP +migrate-dist

Browse Source
This commit is contained in:
Ted Blackman 2021-09-20 13:01:48 -04:00
parent 04e010e6c8
commit fb8c73e39a
2 changed files with 33 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
pkg/arvo/sys/vane/clay.hoon
View File

@ -1574,27 +1574,31 @@
=. mim.dom (apply-changes-to-mim mim.dom mim)
=. fod.dom ford-cache.args
=. ..park (emil (print q.old-yaki data))
:: TODO: replace with .dist-upgraded=? state
::
=? ..park &(updated =(%420 zuse)) migrate-dist
::
wake:(ergo mim)
::
++ migrate-dist
^+ ..park
:: TODO: filter +park's yaki by path prefix, call +make-yaki?
=/ base=ankh (~(dug an ank.dom) /tmp/base)
=/ garden=ankh (~(dug an ank.dom) /tmp/garden)
%- emil
:~ [hen %pass /dist/base %c %park %base base]
:* hen %pass /dist/base %g %deal [our %hood]
%kiln-install %base our %base
==
|^ ^+ ..park
=. ..park (install-from-tmp %base)
=. ..park (install-from-tmp %garden)
=. ..park (install-from-tmp %landscape)
..park
::
[hen %pass /dist/garden %c %dart %garden garden]
:* hen %pass /dist/garden %g %deal [our %hood]
%kiln-install %garden our %garden
==
++ install-from-tmp
|= =desk
%- emil
:~ :^ hen %pass /dist/[desk]/create
%- new-desk:cloy
%- ~(run by (~(mup an:cloy ank.dom) /tmp/[desk]))
|=([* =mark * =noun] [mark noun]))
::
:^ hen %pass /dist/[desk]/install
[%g %deal [our %hood] %kiln-install desk our desk]
==
--
:: +is-kernel-path: should changing .pax cause a kernel or vane reload?
::
++ is-kernel-path |=(pax=path ?=([%sys *] pax))

15
pkg/arvo/sys/zuse.hoon
View File

@ -3734,6 +3734,10 @@
++ cloy
=, clay
|%
++ new-desk
|= [=desk files=(map path page)]
^- note-arvo
[%c %park desk &/[~ (~(run by files) |=(p=page &/p))] *rang]
:: +an: $ankh interface door
::
++ an
@ -3755,6 +3759,17 @@
?~ nik=(dug path) ~
?~ fil.u.nik ~
`q.u.fil.u.nik
:: +mup: convert sub-tree at .pax to (map path [lobe cage])
::
++ mup
|= pax=path
=. nak (dug pax)
=| res=(map path [=lobe =cage])
|- ^+ res
=? res ?=(^ fil.nak) (~(put by res) pax u.fil.nak)
%+ roll ~(tap by dir.nak)
|= [[seg=@ta =ankh] res=_res]
^$(pax [seg pax], nak ankh, res res)
--
--
:: ::