From 2f8c632519cf8cf255bc2b633d118a0646206a7d Mon Sep 17 00:00:00 2001 From: Elliot Glaysher Date: Mon, 10 Dec 2018 15:09:30 -0800 Subject: [PATCH] Delete +pipe --- app/pipe.hoon | 93 ------------------------------------------- gen/pipe/cancel.hoon | 6 --- gen/pipe/connect.hoon | 6 --- gen/pipe/list.hoon | 6 --- 4 files changed, 111 deletions(-) delete mode 100644 app/pipe.hoon delete mode 100644 gen/pipe/cancel.hoon delete mode 100644 gen/pipe/connect.hoon delete mode 100644 gen/pipe/list.hoon diff --git a/app/pipe.hoon b/app/pipe.hoon deleted file mode 100644 index 2e466d1d34..0000000000 --- a/app/pipe.hoon +++ /dev/null @@ -1,93 +0,0 @@ -/+ hall -:: -=> |% - ++ move (pair bone card) - ++ card - $% {$peel wire dock mark path} - {$poke wire dock $hall-command command:hall} - == - -- -:: -=, gall -|_ {hid/bowl connections/(set {app/term source/path station/knot})} -++ poke-noun - |= arg/* - ^- {(list move) _+>.$} - ?: ?=($list arg) - (poke-pipe-list ~) - =+ ((soft {$cancel app/term source/path station/knot}) arg) - ?^ - - (poke-pipe-cancel app.u source.u station.u) - =+ ((hard {app/term source/path station/knot}) arg) - (poke-pipe-connect app source station) -:: -++ poke-pipe-list - |= ~ - ^- {(list move) _+>.$} - %- %- slog - %+ turn ~(tap in connections) - |= {app/term source/path station/knot} - leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}" - [~ +>.$] -:: -++ poke-pipe-cancel - |= {app/term source/path station/knot} - ^- {(list move) _+>.$} - ?. (~(has in connections) [app source station]) - %- %- slog :~ - leaf+"no connection:" - leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}" - == - [~ +>.$] - %- %- slog :~ - leaf+"canceling:" - leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}" - == - [~ +>.$(connections (~(del in connections) [app source station]))] -:: -++ poke-pipe-connect - |= {app/term source/path station/knot} - ^- {(list move) _+>.$} - :_ +>.$(connections (~(put in connections) [app source station])) - :_ ~ - ~& [%peeling app source station] - :* ost.hid %peel [%subscribe app station source] - [our.hid app] %hall-speeches source - == -:: -++ diff-hall-speeches - |= {way/wire speeches/(list speech:hall)} - ^- {(list move) _+>.$} - ?> ?=({$subscribe @ @ *} way) - =+ app=(slav %tas i.t.way) - =+ station=i.t.t.way - =+ source=t.t.t.way - ?. (~(has in connections) [app source station]) - %- %- slog :~ - leaf+"pipe dropping:" - leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}" - == - [~ +>.$] - :_ +>.$ :_ ~ - :* ost.hid %poke [%relay app station source] - [our.hid %hall] %hall-command - %publish - |- ^- (list thought:hall) - ?~ speeches - ~ - :_ $(speeches t.speeches, eny.hid (shax (cat 3 %pipe eny.hid))) - :* `@uvH`(end (sub 'H' 'A') 1 eny.hid) - [[[%& our.hid station] *envelope:hall %pending] ~ ~] - now.hid *(set flavor:hall) i.speeches - == - == -:: -++ coup-relay - |= {way/wire saw/(unit tang)} - ^- {(list move) _+>.$} - ?> ?=({@ @ @ *} way) - ?~ saw - [~ +>.$] - %- (slog leaf+"pipe relay failure in:" >way< u.saw) - [~ +>.$] --- diff --git a/gen/pipe/cancel.hoon b/gen/pipe/cancel.hoon deleted file mode 100644 index 57592c4f8c..0000000000 --- a/gen/pipe/cancel.hoon +++ /dev/null @@ -1,6 +0,0 @@ -:: -:- %say -|= $: {now/@da eny/@uvJ bec/beak} - {{app/term source/path station/knot ~} ~} - == -[%pipe-cancel app source station] diff --git a/gen/pipe/connect.hoon b/gen/pipe/connect.hoon deleted file mode 100644 index d055491c08..0000000000 --- a/gen/pipe/connect.hoon +++ /dev/null @@ -1,6 +0,0 @@ -:: -:- %say -|= $: {now/@da eny/@uvJ bec/beak} - {{app/term source/path station/knot ~} ~} - == -[%pipe-connect app source station] diff --git a/gen/pipe/list.hoon b/gen/pipe/list.hoon deleted file mode 100644 index e969df023a..0000000000 --- a/gen/pipe/list.hoon +++ /dev/null @@ -1,6 +0,0 @@ -:: -:- %say -|= $: {now/@da eny/@uvJ bec/beak} - {~ ~} - == -[%pipe-list ~]