ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 11:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Support multiple, sequential batches

Browse Source
This commit is contained in:
Fang 2019-06-13 21:11:26 +02:00
parent 701caf537f
commit 37e85275b3
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
app/claz.hoon
View File

@ -33,6 +33,7 @@
==
::
++ batch
$~ [%deed '{}']
$% :: %single: execute a single ecliptic function call
::
[%single =call]
@ -45,6 +46,9 @@
:: %lock: put ships into lockup for the target address
::
[%lock what=(list ship) to=address =lockup]
:: %more: multiple batches sequentially
::
[%more batches=(list batch)]
==
::
++ lockup
@ -377,11 +381,29 @@
%generate
%+ write-file-transactions
path.command
?- -.batch.command
%single [(single nonce [network as +.batch]:command) ~]
%deed (deed nonce [network as +.batch]:command)
%lock-prep (lock-prep nonce [network as +.batch]:command)
%lock (lock nonce [network as +.batch]:command)
(batch-to-transactions nonce [network as batch]:command)
==
::
++ batch-to-transactions
|= [nonce=@ud =network as=address =batch]
^- (list transaction)
?- -.batch
%single [(single nonce network as +.batch) ~]
%deed (deed nonce network as +.batch)
%lock-prep (lock-prep nonce network as +.batch)
%lock (lock nonce network as +.batch)
::
%more
=| txs=(list transaction)
=* batches batches.batch
|-
?~ batches txs
=/ new-txs=(list transaction)
^$(batch i.batches)
%_ $
txs (weld txs new-txs)
nonce (add nonce (lent new-txs))
batches t.batches
==
==
::