mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 10:29:01 +03:00
67 lines
1.3 KiB
Plaintext
67 lines
1.3 KiB
Plaintext
:: usage:
|
|
:: :eth-manage %look
|
|
:: kick polling from eth mainnet node
|
|
:: :eth-manage [%wind 1.000.000]
|
|
:: rewind to block 1.000.000
|
|
=> $~ |%
|
|
++ move (pair bone card)
|
|
++ card
|
|
$% [%turf wire ~]
|
|
[%vein wire]
|
|
[%look wire src=(each ship purl:eyre)]
|
|
[%wind wire p=@ud]
|
|
[%snap wire snapshot=snapshot:jael kick=?]
|
|
==
|
|
++ state
|
|
$: a/@
|
|
==
|
|
--
|
|
=, gall
|
|
|_ $: hid/bowl
|
|
state
|
|
==
|
|
++ poke
|
|
|= [mar=@tas val=*]
|
|
^- (quip move _+>)
|
|
:_ +>.$
|
|
?+ val ~&(%oops ~)
|
|
%turf [ost.hid %turf /hi ~]~
|
|
%vein [ost.hid %vein /hi]~
|
|
[%wind @ud] [ost.hid %wind /hi +.val]~
|
|
[%snap * ?]
|
|
[ost.hid %snap /hi (snapshot:jael +<.val) +>.val]~
|
|
::
|
|
%look-ethnode
|
|
:_ ~
|
|
=/ pul
|
|
(need (de-purl:html 'http://eth-mainnet.urbit.org:8545'))
|
|
[ost.hid %look /hi |+pul]
|
|
::
|
|
[%look-kick who=@p]
|
|
:_ ~
|
|
[ost.hid %look /hi %& who.val]
|
|
==
|
|
::
|
|
++ vein
|
|
|= [wir/wire =life ven=(map life ring)]
|
|
^- (quip move _+>)
|
|
~& [%pierc life ven]
|
|
`+>.$
|
|
::
|
|
++ turf
|
|
|= [wir/wire pax=(list path)]
|
|
^- (quip move _+>)
|
|
~& [%slurp pax]
|
|
`+>.$
|
|
::
|
|
++ prep
|
|
|= old/(unit noun)
|
|
^- [(list move) _+>.$]
|
|
?~ old
|
|
`+>.$
|
|
=+ new=((soft state) u.old)
|
|
?~ new
|
|
`+>.$
|
|
`+>.$(+<+ u.new)
|
|
--
|