Ton

1
#!/usr/bin/fift -s
2
"TonUtil.fif" include
3

4
{ ."usage: " @' $0 type ." [<savefile>]" cr
5
  ."Creates the message body to be sent from a validator controlling smart contract (wallet) to recover its share of unfrozen stakes and bonuses." cr
6
  ."The result is saved into <savefile> (`recover-query.boc` by default) and output in hexadecimal form, to be sent later as the body of a message from the wallet to elections smart contract, along with a small value (say, one Gram) to cover forwarding and processing fees" cr 1 halt
7
} : usage
8

9
$# dup 0 < swap 1 > or ' usage if
10
def? $1 { @' $1 } { "recover-query.boc" } cond constant output_fname
11
now constant query_id
12
."query_id for stake recovery message is set to " query_id . cr
13

14
<b x{47657424} s, query_id 64 u, b>
15
cr ."Message body is " dup <s csr. cr
16

17
2 boc+>B output_fname tuck B>file ."Saved to file " type cr
18