mirror of
https://github.com/ton-blockchain/ton
synced 2025-03-09 15:40:10 +00:00
Add state-init option to wallet-v3.fif script (#1282)
This commit is contained in:
parent
96ddbcd674
commit
c1ee18c902
1 changed files with 8 additions and 2 deletions
|
@ -13,7 +13,7 @@ variable extra-currencies
|
||||||
{ extra-currencies @ cc+ extra-currencies ! } : extra-cc+!
|
{ extra-currencies @ cc+ extra-currencies ! } : extra-cc+!
|
||||||
|
|
||||||
begin-options
|
begin-options
|
||||||
" <filename-base> <dest-addr> <subwallet-id> <seqno> <amount> [-x <extra-amount>*<extra-currency-id>] [-n|-b] [-t<timeout>] [-B <body-boc>] [-C <comment>] [<savefile>]" +cr +tab
|
" <filename-base> <dest-addr> <subwallet-id> <seqno> <amount> [-x <extra-amount>*<extra-currency-id>] [-n|-b] [-t<timeout>] [-B <body-boc>] [-C <comment>] [-I <init-boc>] [<savefile>]" +cr +tab
|
||||||
+"Creates a request to advanced wallet created by new-wallet-v3.fif, with private key loaded from file <filename-base>.pk "
|
+"Creates a request to advanced wallet created by new-wallet-v3.fif, with private key loaded from file <filename-base>.pk "
|
||||||
+"and address from <filename-base>.addr, and saves it into <savefile>.boc ('wallet-query.boc' by default)"
|
+"and address from <filename-base>.addr, and saves it into <savefile>.boc ('wallet-query.boc' by default)"
|
||||||
disable-digit-options generic-help-setopt
|
disable-digit-options generic-help-setopt
|
||||||
|
@ -29,6 +29,8 @@ begin-options
|
||||||
"Sets the payload of the transfer message" option-help
|
"Sets the payload of the transfer message" option-help
|
||||||
"C" "--comment" { =: comment } short-long-option-arg
|
"C" "--comment" { =: comment } short-long-option-arg
|
||||||
"Sets the comment to be sent in the transfer message" option-help
|
"Sets the comment to be sent in the transfer message" option-help
|
||||||
|
"I" "--with-init" { =: init-file } short-long-option-arg
|
||||||
|
"Indicates filename with BoC containing StateInit for internal message" option-help
|
||||||
"m" "--mode" { parse-int =: send-mode } short-long-option-arg
|
"m" "--mode" { parse-int =: send-mode } short-long-option-arg
|
||||||
"Sets transfer mode (0..255) for SENDRAWMSG (" send-mode (.) $+ +" by default)"
|
"Sets transfer mode (0..255) for SENDRAWMSG (" send-mode (.) $+ +" by default)"
|
||||||
option-help
|
option-help
|
||||||
|
@ -57,14 +59,18 @@ file-base +".pk" load-keypair nip constant wallet_pk
|
||||||
def? body-boc-file { @' body-boc-file file>B B>boc } { comment simple-transfer-body } cond
|
def? body-boc-file { @' body-boc-file file>B B>boc } { comment simple-transfer-body } cond
|
||||||
constant body-cell
|
constant body-cell
|
||||||
|
|
||||||
|
def? init-file { @' init-file file>B B>boc <s b{11} swap |_ } { b{0} } cond
|
||||||
|
=: state-init
|
||||||
|
|
||||||
."Transferring " amount .GR+cc ."to account "
|
."Transferring " amount .GR+cc ."to account "
|
||||||
dest_addr 2dup bounce 7 + .Addr ." = " .addr
|
dest_addr 2dup bounce 7 + .Addr ." = " .addr
|
||||||
."subwallet_id=0x" subwallet_id x.
|
."subwallet_id=0x" subwallet_id x.
|
||||||
."seqno=0x" seqno x. ."bounce=" bounce . cr
|
."seqno=0x" seqno x. ."bounce=" bounce . cr
|
||||||
."Body of transfer message is " body-cell <s csr. cr
|
."Body of transfer message is " body-cell <s csr. cr
|
||||||
|
."StateInit is " state-init csr. cr
|
||||||
|
|
||||||
// create a message
|
// create a message
|
||||||
<b b{01} s, bounce 1 i, b{000} s, dest_addr Addr, amount Gram+cc, 0 9 64 32 + + u,
|
<b b{01} s, bounce 1 i, b{000} s, dest_addr Addr, amount Gram+cc, 0 8 64 32 + + u, state-init s,
|
||||||
body-cell <s 2dup 1 s-fits-with? not rot over 1 i, -rot { drop body-cell ref, } { s, } cond
|
body-cell <s 2dup 1 s-fits-with? not rot over 1 i, -rot { drop body-cell ref, } { s, } cond
|
||||||
b>
|
b>
|
||||||
<b subwallet_id 32 u, now timeout + 32 u, seqno 32 u, send-mode 8 u, swap ref, b>
|
<b subwallet_id 32 u, now timeout + 32 u, seqno 32 u, send-mode 8 u, swap ref, b>
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue