urbit/main/app/radio/core.hook

/-  mess,user,users,zing,zong
!:
=>  |%
    ++  axle
      $%  [%0 p=(map path ,[p=(list zong) q=(map ship ,?)])]
      ==
    ++  blitz
      $%  [%zong p=zong]
          [%user p=user]
      ==
    ++  iron
      $%  [%zongs p=(list zong)]
          [%users p=users]
      ==
    ++  gift
      $%  [%rush blitz]
          [%rust iron]
          [%mean ares]
          [%nice ~]
      ==
    ++  move  ,[p=bone q=(mold note gift)]
    ++  note  ,~
    --
|_  [hid=hide vat=axle]
++  grab
  |=  sta=path
  (fall (~(get by p.vat) sta) *[p=(list zong) q=(map ship ,?)])
::
++  ident
  |=  you=ship
  %-  (hard ,@t)
  .^(%a (scot %p our.hid) %name (scot %da lat.hid) (scot %p you) ~)
::
++  peer
  |=  [ost=bone you=ship pax=path]
  ^-  [(list move) _+>]
  ?~  pax
    [[ost %give %mean ~ %radio-bad-path ~]~ +>.$]
  =+  ya=(grab t.pax)
  ?+    -.pax  [~ +>.$]
      %mensajes
    [[ost %give %rust %zongs p.ya]~ +>.$]
      %amigos
    =.  q.ya  (~(put by q.ya) you %.y)
    :_  +>.$(p.vat (~(put by p.vat) t.pax ya))
    :_  (send pax %give %rush %user %in you (ident you))
    :*  ost  %give  %rust  %users
        %+  murn  (~(tap by q.ya))
        |=  [shi=ship liv=?]
        ?.  liv
          ~
        (some [shi (ident shi)])
    ==
  ==
::
++  poke-zing
  |=  [ost=bone you=ship zig=zing]
  ^-  [(list move) _+>]
  =+  ya=(grab p.zig)
  ?.  (~(has by q.ya) you)
    [[ost %give %mean ~ %no-te-conozco ~]~ +>.$]
  =+  zog=`zong`[%mess lat.hid you q.zig]
  =.  p.vat  (~(put by p.vat) p.zig [[zog p.ya] q.ya])
  :_  +>.$
  :-  [ost %give %nice ~]
  (send mensajes/p.zig %give %rush %zong zog)
::
++  pull
  |=  ost=bone
  ^-  [(list move) _+>]
  =+  ^-  [his=ship pax=path]  (~(got by sup.hid) ost)
  ?.  ?=([%mensajes *] pax)
    [~ +>.$]
  =+  sta=(~(got by p.vat) t.pax)
  =.  q.sta  %+  ~(put by q.sta)  his  %.n
  =.  p.vat  %+  ~(put by p.vat)  t.pax  sta
  [(send amigos/t.pax %give %rush %user %out his (ident his)) +>.$]
::
++  send
  |=  [pax=path msg=(mold note gift)]
  ^-  (list move)
  ::  ~&  [%radi-sub pus.hid]
  %+  turn  (~(tap in (~(get ju pus.hid) pax)))
  |=(ost=bone [ost msg])
--