clay: WIP migrate from master

This commit is contained in:
Ted Blackman 2021-08-26 19:32:52 +03:00
parent 3233e1e134
commit dda7f13e0e
2 changed files with 20 additions and 0 deletions

View File

@ -771,6 +771,7 @@
[%dirk des=desk] :: mark mount dirty
[%ogre pot=$@(desk beam)] :: delete mount point
[%park des=desk yok=yoki ran=rang] :: synchronous commit
[%dart des=desk nak=ankh] :: create desk
[%perm des=desk pax=path rit=rite] :: change permissions
[%pork ~] :: resume commit
$>(%trim vane-task) :: trim state

View File

@ -1575,7 +1575,26 @@
=. fod.dom ford-cache.args
=. ..park (emil (print q.old-yaki data))
::
=? ..park &(updated =(%420 zuse)) migrate-dist
::
wake:(ergo mim)
::
::
++ migrate-dist
^+ ..park
=/ base=ankh (~(dug an ank.dom) /tmp/base)
=/ garden=ankh (~(dug an ank.dom) /tmp/garden)
%- emil
:~ [hen %pass /dist/base %c %dart %base base]
:* hen %pass /dist/base %g %deal [our %hood]
%kiln-install %base our %base
==
::
[hen %pass /dist/garden %c %dart %garden garden]
:* hen %pass /dist/garden %g %deal [our %hood]
%kiln-install %garden our %garden
==
==
:: +is-kernel-path: should changing .pax cause a kernel or vane reload?
::
++ is-kernel-path |=(pax=path ?=([%sys *] pax))