2016-10-22 02:44:39 +03:00
|
|
|
:: Kiln: Move file in clay
|
2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/mv/hood/gen
|
2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2015-09-12 03:24:51 +03:00
|
|
|
:- %say
|
2016-05-07 02:21:29 +03:00
|
|
|
|= {^ {input/path output/path $~} $~}
|
2016-07-19 07:08:28 +03:00
|
|
|
:- %kiln-info
|
2016-07-16 07:19:49 +03:00
|
|
|
?. =(-:(flop input) -:(flop output))
|
2016-07-20 01:21:21 +03:00
|
|
|
["Can't move to a different mark" ~]
|
2016-07-16 07:19:49 +03:00
|
|
|
=+ dir=.^(arch %cy input)
|
|
|
|
?~ fil.dir
|
|
|
|
~& "No such file:"
|
2016-07-20 01:21:21 +03:00
|
|
|
[<input> ~]
|
|
|
|
:- "moved" :- ~
|
2016-07-16 07:19:49 +03:00
|
|
|
%+ furl (fray input)
|
|
|
|
(foal output -:(flop input) [%noun .^(* %cx input)])
|