urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-04 14:58:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

Removed unused ++etch arms from agent.

Browse Source
This commit is contained in:
Fang 2017-03-30 23:57:49 +02:00
parent 6c20c8d0fe
commit 8ac81e570d
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
app/talk-agent.hoon
View File

@ -1710,30 +1710,6 @@
~& [%r-peer-sole ost.hid] ~& [%r-peer-sole ost.hid]
ra-abet:(ra-console:ra src.hid t.pax) ra-abet:(ra-console:ra src.hid t.pax)
:: ::
::TODO move to lib.
++ etch :: parse wire
::x parse wire to obtain either %friend with story and station or %repeat
::x with message number, source ship and story.
::
|= way/wire
^- weir
?+ -.way !!
$friend
?> ?=({$show @ @ @ $~} t.way)
[%friend i.t.t.way (slav %p i.t.t.t.way) i.t.t.t.t.way]
::
$repeat
?> ?=({@ @ @ $~} t.way)
[%repeat (slav %ud i.t.way) (slav %p i.t.t.way) i.t.t.t.way]
==
::
++ etch-friend ::
::x parse a /friend wire, call gate with resulting data.
::
|= {way/wire fun/$-({man/knot cuz/station} {(list move) _.})}
=+ wer=(etch way)
?>(?=($friend -.wer) (fun p.wer q.wer))
::
++ diff-talk-lowdown ++ diff-talk-lowdown
::x incoming talk-lowdown. process it. ::x incoming talk-lowdown. process it.
:: ::