1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00

better |unlink

This commit is contained in:
Anton Dyudin 2015-10-22 15:45:48 -07:00
parent 859bce32c9
commit 6104efc894

View File

@ -127,6 +127,7 @@
:: ::
|= [bowl drum-part] :: main drum work |= [bowl drum-part] :: main drum work
=+ (fall (~(get by bin) ost) (deft-pipe our)) =+ (fall (~(get by bin) ost) (deft-pipe our))
=* dev -
=> |% :: arvo structures => |% :: arvo structures
++ pear :: request ++ pear :: request
$% [%sole-action p=sole-action] :: $% [%sole-action p=sole-action] ::
@ -230,7 +231,7 @@
?. se-ably ?. se-ably
=. . se-adit =. . se-adit
[(flop moz) +>+>+<+] [(flop moz) +>+>+<+]
=. . se-adze:se-adit =. . se-subze:se-adze:se-adit
:_ %_(+>+>+<+ bin (~(put by bin) ost `source`+>+<)) :_ %_(+>+>+<+ bin (~(put by bin) ost `source`+>+<))
^- (list move) ^- (list move)
%+ welp (flop moz) %+ welp (flop moz)
@ -240,25 +241,46 @@
:: ::
++ se-ably (~(has by sup) ost) :: caused by console ++ se-ably (~(has by sup) ost) :: caused by console
++ se-adit :: update servers ++ se-adit :: update servers
=+ yar=(~(tap by ray)) ^+ .
|- ^+ +> %+ roll (~(tap in ray))
?~ yar +> =< .(con +>)
=+ hig=(~(get by fur) q.i.yar) |= [wel=well con=_..se-adit] ^+ con
?: &(?=(^ hig) |(?=(~ u.hig) =(p.i.yar syd.u.u.hig))) $(yar t.yar) =. +>.$ con
%= $ =+ hig=(~(get by fur) q.wel)
yar t.yar ?: &(?=(^ hig) |(?=(~ u.hig) =(p.wel syd.u.u.hig))) +>.$
+> =. +>.$ (se-text "activated app {(trip p.wel)}/{(trip q.wel)}")
=. +>.$ (se-text "activated app {(trip p.i.yar)}/{(trip q.i.yar)}") %- se-emit(fur (~(put by fur) q.wel ~))
%- se-emit(fur (~(put by fur) q.i.yar ~)) [ost %conf [%drum p.wel q.wel ~] [our q.wel] %load our p.wel]
[ost %conf [%drum p.i.yar q.i.yar ~] [our q.i.yar] %load our p.i.yar]
==
:: ::
++ se-adze :: update connections ++ se-adze :: update connections
=+ lee=(~(tap by eel)) ^+ .
|- ^+ +> %+ roll (~(tap in eel))
?~ lee +> =< .(con +>)
?: (~(has by fug) i.lee) $(lee t.lee) |= [gil=gill con=_.] ^+ con
$(lee t.lee, +> (se-peer i.lee)) =. +>.$ con
?: (~(has by fug) gil)
+>.$
(se-peer gil)
::
++ se-subze :: downdate connections
=< .(dev (~(got by bin) ost))
=. bin (~(put by bin) ost dev)
^+ .
%- ~(rep by bin)
=< .(con +>)
|= [[ost=bone dev=source] con=_.] ^+ con
=+ xeno=se-subze-local:%_(con ost ost, dev dev)
xeno(ost ost.con, dev dev.con, bin (~(put by bin) ost dev.xeno))
::
++ se-subze-local
^+ .
%- ~(rep by fug)
=< .(con +>)
|= [[gil=gill *] con=_.] ^+ con
=. +>.$ con
?: (~(has in eel) gil)
+>.$
(se-nuke gil)
:: ::
++ se-aint :: ignore result ++ se-aint :: ignore result
|= gyl=gill |= gyl=gill