mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
31 lines
673 B
Plaintext
31 lines
673 B
Plaintext
/- spider, eval=ted-eval
|
|
/+ strandio
|
|
=, strand=strand:spider
|
|
^- thread:spider
|
|
|= raw=vase
|
|
=/ m (strand ,vase)
|
|
^- form:m
|
|
=+ !<(arg=(unit inpt:eval) raw)
|
|
?~ arg
|
|
(strand-fail:strand %no-input ~)
|
|
?@ u.arg
|
|
?~ u.arg
|
|
(strand-fail:strand %no-command ~)
|
|
(eval-hoon:strandio (ream u.arg) ~)
|
|
?~ p.u.arg
|
|
(strand-fail:strand %no-command ~)
|
|
;< =beak bind:m get-beak:strandio
|
|
=/ paz=(list path) q.u.arg
|
|
=/ bez=(list beam) ~
|
|
|-
|
|
?~ paz
|
|
(eval-hoon:strandio (ream p.u.arg) bez)
|
|
=/ bem
|
|
%+ fall
|
|
(de-beam i.paz)
|
|
[beak i.paz]
|
|
;< has=? bind:m (check-for-file:strandio bem)
|
|
?. has
|
|
(strand-fail:strand %no-file >bem< ~)
|
|
$(paz t.paz, bez [bem bez])
|