urbit/main/app/cp/core.hook

!:
|_  [hid=hide ~]
++  poke-cp-args
  |=  [ost=bone you=ship input=path output=path ~]
  :_  +>.$
  :*  [ost %pass /cp %c %info our.hid (foal output .^(%cx input))]
      [ost %pass / %g %cide %$]
      [ost %give %nice ~]
      %+  turn  (~(tap by sup.hid))
      |=  [ost=bone *]
      :^  ost  %give  %rush
      :-  %tang  :_  ~
      leaf/"copied"
  ==
++  peer
  |=
    *
  `+>
--
added cp, mv, and rm 2014-10-03 04:38:30 +04:00			`!:`
			`\|_ [hid=hide ~]`
			`++ poke-cp-args`
			`\|= [ost=bone you=ship input=path output=path ~]`
			`:_ +>.$`
			`:* [ost %pass /cp %c %info our.hid (foal output .^(%cx input))]`
Make short-lived apps %cide. 2014-12-19 01:40:56 +03:00			`[ost %pass / %g %cide %$]`
added cp, mv, and rm 2014-10-03 04:38:30 +04:00			`[ost %give %nice ~]`
			`%+ turn (~(tap by sup.hid))`
			`\|= [ost=bone *]`
			`:^ ost %give %rush`
			`:- %tang :_ ~`
			`leaf/"copied"`
			`==`
			`++ peer`
			`\|=`
			`*`
			`+>
			`--`