2014-11-23 08:20:51 +03:00
|
|
|
:: Ye broadcast
|
|
|
|
|
::
|
|
|
|
|
:::: /hook/gate/ye/bin
|
|
|
|
|
::
|
2015-01-12 04:13:34 +03:00
|
|
|
/+ sh-utils
|
|
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
::
|
2014-11-23 08:20:51 +03:00
|
|
|
|%
|
|
|
|
|
++ sign ::
|
|
|
|
|
$% $: %a ::
|
|
|
|
|
$% [%went p=ship q=cape] ::
|
|
|
|
|
== == == ::
|
|
|
|
|
++ flog :: sent to %dill
|
|
|
|
|
$% [%crud p=@tas q=(list tank)] ::
|
|
|
|
|
[%text p=tape] ::
|
|
|
|
|
== ::
|
|
|
|
|
--
|
|
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2014-11-23 08:20:51 +03:00
|
|
|
|_ [hid=hide ~]
|
2015-01-10 05:21:25 +03:00
|
|
|
++ peer ,_`.
|
2015-01-11 11:00:36 +03:00
|
|
|
++ poke--args
|
|
|
|
|
%+ gate-bang
|
|
|
|
|
|= [tex=tape ~]
|
|
|
|
|
=+ mez=(crip "{<our.hid>}: {tex}")
|
|
|
|
|
[%a %want [our.hid (sein our.hid)] /q/ye mez]
|
2015-01-20 00:54:49 +03:00
|
|
|
(add-nice ,_`.)
|
2014-11-23 08:20:51 +03:00
|
|
|
::
|
|
|
|
|
++ poke-txt
|
2015-01-11 11:00:36 +03:00
|
|
|
%+ gate-bang |=(cor=@t [%d %flog `flog`[%text "> {(trip cor)}"]])
|
2015-01-20 00:54:49 +03:00
|
|
|
(add-nice ,_`.)
|
2014-11-23 08:20:51 +03:00
|
|
|
::
|
|
|
|
|
++ pour
|
|
|
|
|
|= [ost=bone pax=path sih=sign]
|
2015-01-11 11:00:36 +03:00
|
|
|
?> ?=([%bang ~] pax)
|
|
|
|
|
%. +<
|
2015-01-20 00:54:49 +03:00
|
|
|
=+ ack=?+(q.sih "failed" %good "recieved")
|
|
|
|
|
(add-exit (print +>.$ "ye {ack}"))
|
2014-11-23 08:20:51 +03:00
|
|
|
::
|
|
|
|
|
--
|
