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

clay: add -read to demonstrate live ford builds

Browse Source
This commit is contained in:
Philip Monk 2020-04-15 20:12:47 -07:00
parent 6441116e9f
commit 522a7fb933
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/ted/read.hoon Normal file
View File

@ -0,0 +1,20 @@
/- spider
/+ strandio
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
:: Parse arguments as ship, desk, and path
::
=+ !<([=target=path ~] arg)
:: Read the file, possibly asyncrhonously
::
;< =bowl:spider bind:m get-bowl:strandio
;< =riot:clay bind:m
(warp:strandio our.bowl %home ~ %next %a [%da now.bowl] target-path)
?~ riot
~& %nothing
(pure:m !>("nothing"))
%- (slog leaf+"got writ" (sell !<(vase q.r.u.riot)) ~)
(pure:m !<(vase q.r.u.riot))