Ton

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

4
{ ."usage: " @' $0 type ." <dest-addr> <seqno> <amount> [<savefile>]" cr
5
  ."Creates a request to TestGiver and saves it into <savefile>.boc" cr
6
  ."('testgiver-query.boc' by default)" cr 1 halt
7
} : usage
8

9
$# 3 - -2 and ' usage if
10

11
// "testgiver.addr" load-address 
12
Masterchain 0xfcb91a3a3816d0f7b8c2c76108b8a9bc5a6b7a55bd79f8ab101c52db29232260
13
2constant giver_addr
14
 ."Test giver address = " giver_addr 2dup .addr cr 6 .Addr cr
15

16
$1 true parse-load-address =: bounce 2=: dest_addr
17
$2 parse-int =: seqno
18
$3 $>GR =: amount
19
def? $4 { @' $4 } { "testgiver-query" } cond constant savefile
20

21
."Requesting " amount .GR ."to account "
22
dest_addr 2dup bounce 7 + .Addr ." = " .addr
23
."seqno=0x" seqno x. ."bounce=" bounce . cr
24

25
// create a message (NB: 01b00.., b = bounce)
26
<b b{01} s, bounce 1 i, b{000100} s, dest_addr addr, 
27
   amount Gram, 0 9 64 32 + + 1+ 1+ u, 0 32 u, "GIFT" $, b>
28
<b seqno 32 u, 1 8 u, swap ref, b>
29
dup ."enveloping message: " <s csr. cr
30
<b b{1000100} s, giver_addr addr, 0 Gram, b{00} s,
31
   swap <s s, b>
32
dup ."resulting external message: " <s csr. cr
33
2 boc+>B dup Bx. cr
34
savefile +".boc" tuck B>file
35
."(Saved to file " type .")" cr
36