ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 08:34:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

WIP: wire up scanning logic

Browse Source
This commit is contained in:
timlucmiptev 2020-11-02 15:12:44 +02:00 committed by ixv
parent 6991d2ff73
commit 73d920bea0
2 changed files with 51 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
app/btc-wallet-store.hoon
View File

@ -77,48 +77,82 @@
^- (quip card _state)
?- -.act
%add-wallet
`state
=/ w=_walt (from-xpub:walt +.act)
:- ~[(pass-scan xpub.act)]
state(walts (~(put by walts) xpub.act w))
::
%scan
`state
%run-scan
(run-scan +.act)
::
%watch-address
:: [%watch-address =xpub =chyg =idx utxos=(set utxo) used=?]
(watch-address +.act)
::
%update-address
`state
==
::
++ scan-action
++ pass-scan
|= =xpub ^- card
:* %pass /[(scot %da now.bowl)]
%agent [our.bowl %btc-wallet-store] %poke
%btc-wallet-store-action !>([%scan xpub])
%btc-wallet-store-action !>([%run-scan xpub])
==
:: update scans to start a new wallet scan from 0 indices
::
++ do-scan 2
:: watch the address passed
:: update wallet if it's used
:: if this idx was the last in todo.scans,
++ init-scan
|= [=xpub max-gap=@]
^- ^scans
=/ final=idx (dec max-gap)
=/ b=batch [(sy (gulf 0 final)) 0 final]
=. scans
(~(put by scans) [xpub %0] b)
(~(put by scans) [xpub %1] b)
::
++ end-scan
|= [=xpub]
^- _state
=/ w=_walt (~(got by walts) xpub)
=. scans (~(del by scans) [xpub %0])
=. scans (~(del by scans) [xpub %1])
state(walts (~(put by walts) xpub w(scanned.st %.y)))
::
++ run-scan
|= =xpub
^- (quip card _state)
=/ w=_walt (~(got by walts) xpub)
=? scans ?!((~(has by scans) [xpub %0]))
(init-scan xpub max-gap.st.w)
=/ ching=batch (~(got by scans) [xpub %0])
=/ chang=batch (~(got by scans) [xpub %1])
?: ?& (empty ching)
(empty chang)
~(scan-done w %0)
~(scan-done w %1)
==
`(end-scan xpub)
:: TODO: otherwise, make cards for the non-empty one
`state
:: watch the address passed, update wallet if it's used
:: if this idx was the last in todo.scans, check whether scan is done
::
++ watch-address
|= [=xpub:btc =chyg =idx utxos=(set utxo) used=?]
^- (quip card _state)
?. (~(has by scans) [xpub chyg]) `state
=/ w=_walt (~(got by walts) xpub)
=/ s=scan-batch (~(got by scans) [xpub chyg])
=/ b=batch (~(got by scans) [xpub chyg])
=? w used
%+ ~(watch-address w chyg)
(~(mk-address w chyg) idx)
[chyg idx utxos]
:: if todo is empty, either scan a new batch or finish
:: if todo is empty, check the scan status *after* this update
::
:- ?:(=(0 ~(wyt in todo.s)) ~[(scan-action xpub)] ~)
:- ?: (empty todo.b) ~[(pass-scan xpub)] ~
%= state
walts (~(put by walts) xpub w)
scans %+ ~(put by scans)
[xpub chyg]
s(todo (~(del in todo.s) idx))
b(todo (~(del in todo.b) idx))
==
++ empty |*(s=(set *) =(0 ~(wyt in s)))
--

6
sur/btc-wallet-store.hoon
View File

@ -29,8 +29,8 @@
:: todo: Set of indices; empty it out until none are left--means scanning of that batch is done
:: start: index this batch started scanning from
::
+$ scan-batch [todo=(set idx) start=idx]
+$ scans (map [xpub chyg] scan-batch)
+$ batch [todo=(set idx) start=idx final=idx]
+$ scans (map [xpub chyg] batch)
::
:: %add-wallet: add wallet to state and initiate a scan
:: %scan: start a scan of the next address batch in a wallet
@ -40,7 +40,7 @@
::
+$ action
$% [%add-wallet =xpub scan-to=(unit scon) max-gap=(unit @)]
[%scan =xpub]
[%run-scan =xpub]
[%watch-address =xpub =chyg =idx utxos=(set utxo) used=?]
[%update-address a=address utxos=(set utxo)]
==