urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 18:48:14 +03:00
Code Issues Packages Projects Releases Wiki Activity

more lenient :cat

Browse Source
This commit is contained in:
Anton Dyudin 2014-08-12 23:21:59 -07:00 committed by Anton Dyudin
parent d47a837d2d
commit d32d4848b4
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
main/bin/cat.hoon
View File

@ -7,4 +7,16 @@
^- gift :- %te
%- zing
%+ turn ape |= pax=path
^- wain
=+ ark=;;(arch .^(%cy pax))
?~ q.ark
?- r.ark
~
~[(crip "No file {(spud pax)}")]
[[@t ~] ~ ~]
$(pax (welp pax /[p.n.r.ark]))
*
~[(crip "Multiple in {(spud pax)}")]
==
:- (crip (spud pax))
(lore ;;(,@t .^(%cx pax)))