mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
18 lines
516 B
Plaintext
18 lines
516 B
Plaintext
/- spider
|
|
/+ *threadio
|
|
=, thread=thread:libthread
|
|
^- imp:spider
|
|
|= [=bowl:spider =vase]
|
|
=/ m (thread ,vase)
|
|
^- form:m
|
|
~& > 'starting azt'
|
|
=/ url 'http://eth-mainnet.urbit.org:8545'
|
|
=/ poke-vase !>([%azimuth-tracker %azimuth-tracker-poke !>([%watch url])])
|
|
;< ~ bind:m (poke-our %spider %spider-imput poke-vase)
|
|
;< ~ bind:m (watch-our /sub %spider /imp/azimuth-tracker)
|
|
|- ^- form:m
|
|
=* loop $
|
|
;< [=mark =vase] bind:m (take-fact /sub)
|
|
%- (slog (sell vase) ~)
|
|
loop
|