danog/toncontest
1
0
Fork 0
mirror of https://github.com/danog/toncontest.git synced 2024-11-30 04:29:14 +01:00
Code Issues Projects Releases Wiki Activity

Multi

Browse Source
This commit is contained in:
Daniil Gentili 2019-10-11 20:56:55 +02:00
parent 2e33110e76
commit c154bdfcdc
Signed by: danog
GPG Key ID: 8C1BE3B34B230CA7
1 changed files with 43 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
wallet/test.fif
View File

@ -1,19 +1,31 @@
"TonUtil.fif" include "TonUtil.fif" include
"lib.fif" include "lib.fif" include
{ file>B B>boc } : load-boc
{ {
."usage: " @' $0 type ." <message> <init-message> <func>" cr ."usage: " @' $0 type ." <init-message> <message> <func> [ <message2> <func2> ... ]" cr
."Runs the function with ID <func> in the TON VM, using code and storage data from <init-message>.boc and <message>.boc as message." cr 1 halt ."Runs the function with ID <func> in the TON VM, using code and storage data from <init-message>.boc and <message>.boc as message." cr 1 halt
} : usage } : usage
$# 3 < ' usage if $# 3 < ' usage if
$1 +".boc" load-boc const message-boc $1 +".boc" load-boc const init-boc
$2 +".boc" load-boc const init-boc $# 1- 2 /c const message-count
$3 parse-int const function
// message$_ {X:Type} info:CommonMsgInfo variable-set message-boc message-boc!
// init:(Maybe (Either StateInit ^StateInit)) variable-set function function!
// body:(Either X ^X) = Message X; variable-set code code!
variable-set storage storage!
// c7
// [ magic:0x076ef1ea actions:Integer msgs_sent:Integer
// unixtime:Integer block_lt:Integer trans_lt:Integer
// rand_seed:Integer balance_remaining:[Integer (Maybe Cell)]
// myself:MsgAddressInt global_config:(Maybe Cell)
// ] = SmartContractInfo;
0x076ef1ea 0 0 now 0 0 <b 1234 32 u, b> hash 7 tuple 1 tuple const ctx
// message$_ {X:Type} info:CommonMsgInfo
// init:(Maybe (Either StateInit ^StateInit))
// body:(Either X ^X) = Message X;
init-boc <s init-boc <s
// External message // External message
@ -22,7 +34,7 @@ init-boc <s
8 i@+ 8 i@+
256 u@+ -rot 256 u@+ -rot
."Init wallet address: " .addr cr ."Init wallet address: " .addr cr
Gram@+ nip // Ignore grams Gram@+ nip // Ignore grams
1 u@+ swap 1 u@+ swap
@ -30,10 +42,10 @@ init-boc <s
1 u@+ swap 1 u@+ swap
{ ."Loading ref..." cr ref@ <s } if // Load ref to StateInit if ref { ."Loading ref..." cr ref@ <s } if // Load ref to StateInit if ref
// _ split_depth:(Maybe (## 5)) special:(Maybe TickTock) // _ split_depth:(Maybe (## 5)) special:(Maybe TickTock)
// code:(Maybe ^Cell) data:(Maybe ^Cell) // code:(Maybe ^Cell) data:(Maybe ^Cell)
// library:(HashmapE 256 SimpleLib) = StateInit; // library:(HashmapE 256 SimpleLib) = StateInit;
1 u@+ swap 1 u@+ swap
@ -44,27 +56,28 @@ init-boc <s
1 u@+ swap 1 u@+ swap
1- abort"No code!" 1- abort"No code!"
ref@+ <s constant code // Load code ref@+ <s code! // Load code
1 u@+ swap 1 u@+ swap
1- abort"No data!" 1- abort"No data!"
ref@+ constant storage // Load storage ref@+ storage! // Load storage
drop drop
message-boc inspect 2 { dup 1+ swap // Increase counter
cr ."===================================================" cr cr
$() +".boc" load-boc message-boc!
dup 1+ swap // Increase counter
$() parse-int function!
// c7 message-boc inspect
// [ magic:0x076ef1ea actions:Integer msgs_sent:Integer
// unixtime:Integer block_lt:Integer trans_lt:Integer
// rand_seed:Integer balance_remaining:[Integer (Maybe Cell)]
// myself:MsgAddressInt global_config:(Maybe Cell)
// ] = SmartContractInfo;
0x076ef1ea 0 0 now 0 0 <b 1234 32 u, b> hash 7 tuple 1 tuple constant ctx
message-contents function code storage ctx runvmctx .s
message-contents function code storage ctx runvmctx .s swap
inspect-storage ."Retcode: " . cr
// rot dup storage!
// ."Signature: " inspect-storage
// 64 B@ Bx. // rot
// ."Signature: "
// 64 B@ Bx.
} message-count times