5
{ show-options-help 1 halt } : usage
9
3 =: send-mode // mode for SENDRAWMSG: +1 - sender pays fees, +2 - ignore errors
10
60 =: timeout // external message expires in 60 seconds
13
" <filename-base> <subwallet-id> <order-file> [-n|-b] [-t<timeout>] [<savefile>]" +cr +tab
14
+"Creates a request with up to 254 orders loaded from <order-file> to high-load (sub)wallet created by new-highload-v2-wallet.fif, with private key loaded from file <filename-base>.pk "
15
+"and address from <filename-base><subwallet-id>.addr, and saves it into <savefile>.boc ('wallet-query.boc' by default)" +cr
16
+"<order-file> is a text file with lines `SEND <dest-addr> <amount>`"
17
disable-digit-options generic-help-setopt
18
"n" "--no-bounce" { false =: allow-bounce } short-long-option
19
"Clears bounce flag" option-help
20
"b" "--force-bounce" { true =: force-bounce } short-long-option
21
"Forces bounce flag" option-help
22
"t" "--timeout" { parse-int =: timeout } short-long-option-arg
23
"Sets expiration timeout in seconds (" timeout (.) $+ +" by default)" option-help
24
"m" "--mode" { parse-int =: send-mode } short-long-option-arg
25
"Sets transfer mode (0..255) for SENDRAWMSG (" send-mode (.) $+ +" by default)"
27
"h" "--help" { usage } short-long-option
28
"Shows a help message" option-help
31
$# dup 3 < swap 4 > or ' usage if
35
$2 parse-int dup 32 fits ' usage ifnot =: subwallet-id // parse subwallet-id
36
{ subwallet-id (.) $+ } : +subwallet
38
$4 "wallet-query" replace-if-null =: savefile
40
file-base +subwallet +".addr" load-address
41
2dup 2constant wallet_addr
42
."Source wallet address = " 2dup .addr cr 6 .Addr cr
43
file-base +".pk" load-keypair nip constant wallet_pk
45
variable orders dictnew orders !
46
variable order# order# 0!
48
{ <s order# @ dup 254 >= abort"more than 254 orders"
49
orders @ 16 udict!+ not abort"cannot add order to dictionary"
53
{ tuck <s 2dup 1 s-fits-with? not rot over 1 i, -rot
54
{ drop swap ref, } { s, nip } cond
56
// ng wc addr bounce body -- c
57
{ <b b{01} s, rot 1 i, b{000100} s, 2swap addr, rot Gram,
58
0 9 64 32 + + 1+ u, swap append-msg-body b>
61
{ ."Transferring " 3 roll .GR ."to account "
62
-rot 2dup 4 pick 7 + .Addr ." = " .addr ." bounce=" . cr
65
{ swap parse-smc-addr force-bounce or allow-bounce and // ng wc addr bnc
67
<b 0 32 u, b> create-int-msg
68
} : create-simple-transfer
70
{ <b swap 8 u, swap ref, b> } : create-order
73
{ create-simple-transfer send-mode create-order add-order } : send
74
{ bl word bl word $>GR send } : SEND
79
// create external message
80
now timeout + 32 << <b orders @ dict, b> hashu 32 1<<1- and + =: query_id
81
<b subwallet-id 32 i, query_id 64 u, orders @ dict, b>
82
dup ."signing message: " <s csr. cr
83
dup hashu wallet_pk ed25519_sign_uint
84
<b b{1000100} s, wallet_addr addr, 0 Gram, b{00} s,
86
dup ."resulting external message: " <s csr. cr
88
."Query_id is " query_id dup . ."= 0x" X. cr
89
savefile +".boc" tuck B>file
90
."(Saved to file " type .")" cr