2015-01-11 11:00:36 +03:00
|
|
|
:: ConCATenate file listings
|
|
|
|
|
::
|
|
|
|
|
:::: /hook/core/cat/app
|
|
|
|
|
::
|
2015-01-12 04:13:34 +03:00
|
|
|
/+ sh-utils
|
2015-01-10 02:21:28 +03:00
|
|
|
// /%%%/ls/subdir
|
2014-09-25 04:37:29 +04:00
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2014-09-25 04:37:29 +04:00
|
|
|
|_ [hid=hide ~]
|
2015-01-10 05:21:25 +03:00
|
|
|
++ peer ,_`.
|
2015-01-11 11:00:36 +03:00
|
|
|
++ poke--args
|
2015-01-10 04:28:17 +03:00
|
|
|
%+ args-into-gate .
|
|
|
|
|
|= [arg=(list path)]
|
2015-01-20 00:54:49 +03:00
|
|
|
=- tang/(zing -)
|
2015-01-10 04:28:17 +03:00
|
|
|
%+ turn arg
|
|
|
|
|
|= pax=path
|
2015-01-20 00:54:49 +03:00
|
|
|
^- tang
|
2015-01-10 04:28:17 +03:00
|
|
|
=+ ark=;;(arch .^(%cy pax))
|
|
|
|
|
?^ q.ark
|
|
|
|
|
:- leaf/(spud pax)
|
|
|
|
|
%+ turn (lore ;;(@t .^(%cx pax)))
|
|
|
|
|
|=(a=cord leaf/(trip a))
|
|
|
|
|
?- r.ark :: handle ambiguity
|
|
|
|
|
~
|
|
|
|
|
[rose/[" " `~]^~[leaf/"~" (smyt pax)]]~
|
|
|
|
|
[[@t ~] ~ ~]
|
|
|
|
|
$(pax (welp pax /[p.n.r.ark]))
|
|
|
|
|
*
|
|
|
|
|
=- [palm/[": " ``~]^-]~
|
|
|
|
|
:~ rose/[" " `~]^~[leaf/"*" (smyt pax)]
|
|
|
|
|
`tank`(subdir pax r.ark)
|
|
|
|
|
==
|
|
|
|
|
==
|
2014-09-25 04:37:29 +04:00
|
|
|
--
|
