mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
18 lines
503 B
Plaintext
18 lines
503 B
Plaintext
/- spider
|
|
/+ *threadio
|
|
=, thread=thread:libthread
|
|
^- imp:spider
|
|
|= =bowl:mall
|
|
=/ m (thread ,~)
|
|
^- 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
|