shrub/pkg/arvo/ted/build-cast.hoon

/-  spider
/+  strandio
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
=+  !<([pax=path ~] arg)
?~  bem=(de-beam:format pax)
  (strand-fail:strand %path-not-beam >pax< ~)
=/  =mars:clay  [i.t i]:?>(?=([@ @ ~] s.u.bem) s.u.bem)
;<  =tube:clay  bind:m  (build-cast:strandio -.u.bem mars)
(pure:m !>(tube))
-test, -build-file, -build-mark, -build-cast 2020-04-18 11:21:15 +03:00			`/- spider`
			`/+ strandio`
			`=, strand=strand:spider`
			`^- thread:spider`
			`\|= arg=vase`
			`=/ m (strand ,vase)`
			`^- form:m`
-build-{cast,file,mark}: accept full beams; load from any desk 2020-07-08 10:08:17 +03:00			`=+ !<([pax=path ~] arg)`
			`?~ bem=(de-beam:format pax)`
			`(strand-fail:strand %path-not-beam >pax< ~)`
			`=/ =mars:clay [i.t i]:?>(?=([@ @ ~] s.u.bem) s.u.bem)`
			`;< =tube:clay bind:m (build-cast:strandio -.u.bem mars)`
-test, -build-file, -build-mark, -build-cast 2020-04-18 11:21:15 +03:00			`(pure:m !>(tube))`