1
0
Fork 0
mirror of https://github.com/ton-blockchain/ton synced 2025-02-15 04:32:21 +00:00
ton/crypto/func/auto-tests/legacy_tests/whales-nominators/modules/utils.fc
EmelyanenkoK 6b49d6a382
Add legacy_tester for existing funC contracts (#588)
* Add legacy_tester for existing funC contracts

* Add storage-contracts and pragma options
2023-01-12 12:33:15 +03:00

185 lines
No EOL
4.2 KiB
Text

;;
;; Basic workchain addresses
;;
int parse_work_addr(slice cs) {
(int sender_wc, slice sender_addr) = parse_var_addr(cs);
throw_unless(error::invalid_address(), 0 == sender_wc);
return sender_addr~load_uint(256);
}
(slice) serialize_work_addr(int addr) {
return (begin_cell()
.store_uint(2, 2) ;; Is std address
.store_uint(0, 1) ;; Non-unicast
.store_uint(0, 8) ;; Basic workchain
.store_uint(addr, 256) ;; Address hash
).end_cell().begin_parse();
}
;;
;; Custom Commands
;;
(int) equal_slices (slice s1, slice s2) asm "SDEQ";
builder store_builder(builder to, builder what) asm(what to) "STB";
builder store_builder_ref(builder to, builder what) asm(what to) "STBREFR";
(slice, cell) load_maybe_cell(slice s) asm( -> 1 0) "LDDICT";
(int) mod (int x, int y) asm "MOD";
builder store_coins(builder b, int x) asm "STGRAMS";
(slice, int) load_coins(slice s) asm( -> 1 0) "LDGRAMS";
;;
;; Events
;;
() send_std_message(
slice to_addr,
int value,
int mode,
int op,
int query_id,
builder content
) impure {
var body = begin_cell()
.store_uint(op, 32)
.store_uint(query_id, 64)
.store_builder(content)
.end_cell();
var msg = begin_cell()
.store_uint(0x10, 6)
.store_slice(to_addr)
.store_coins(value)
.store_uint(1, 1 + 4 + 4 + 64 + 32 + 1 + 1)
.store_ref(body)
.end_cell();
send_raw_message(msg, mode);
}
() send_empty_std_message(
slice to_addr,
int value,
int mode,
int op,
int query_id
) impure {
var body = begin_cell()
.store_uint(op, 32)
.store_uint(query_id, 64)
.end_cell();
var msg = begin_cell()
.store_uint(0x10, 6)
.store_slice(to_addr)
.store_coins(value)
.store_uint(1, 1 + 4 + 4 + 64 + 32 + 1 + 1)
.store_ref(body)
.end_cell();
send_raw_message(msg, mode);
}
() send_text_message(
slice to_addr,
int value,
int mode,
builder content
) impure {
var body = begin_cell()
.store_uint(0, 32)
.store_builder(content)
.end_cell();
var msg = begin_cell()
.store_uint(0x10, 6)
.store_slice(to_addr)
.store_coins(value)
.store_uint(1, 1 + 4 + 4 + 64 + 32 + 1 + 1)
.store_ref(body)
.end_cell();
send_raw_message(msg, mode);
}
;;
;; Generate
;;
(int) new_query_id() inline {
return now() + mod(cur_lt(), 4294967296);
}
;;
;; Text Utils
;;
(int, int) encode_number_to_text(int number) {
int len = 0;
int value = 0;
int mult = 1;
do {
(number, int res) = number.divmod(10);
value = value + (res + 48) * mult;
mult = mult * 256;
len = len + 1;
} until (number == 0);
return (len, value);
}
builder store_coins_string(builder msg, int amount) {
(int ceil, int res) = divmod(amount, 1000000000);
(int cl, int cv) = encode_number_to_text(ceil);
msg = msg.store_uint(cv, cl * 8 );
msg = msg.store_uint(46, 8); ;; "."
(int rl, int rv) = encode_number_to_text(res);
;; repeat( 9 - rl ) {
;; msg = msg.store_uint(48, 8); ;; " "
;; }
return msg.store_uint(rv, rl * 8);
}
;; 'Stake'
builder store_text_stake(builder b) inline {
return b.store_uint(358434827109, 40);
}
;; ' '
builder store_text_space(builder b) inline {
return b.store_uint(32, 8);
}
;; 'accepted'
builder store_text_accepted(builder b) inline {
return b.store_uint(7017561931702887780, 64);
}
;; Stake 123.333 accepted
builder store_accepted_stake(builder b, int amount) inline {
return b.store_text_stake()
.store_text_space()
.store_coins_string(amount)
.store_text_space()
.store_text_accepted();
}
;; 'Withdraw completed'
builder store_withdraw_completed(builder b) inline {
return b.store_uint(7614653257073527469736132165096662684165476, 144);
}
;; 'Withdraw requested. Please, retry the command when your balance is ready.'
builder store_withdraw_delayed(builder b) inline {
return b
.store_uint(1949351233810823032252520485584178069312463918, 152) ;; 'Withdraw requested.'
.store_text_space()
.store_uint(555062058613674355757418046597367430905687018487295295368960255172568430, 240) ;; 'Please, retry the command when'
.store_text_space()
.store_uint(45434371896731988359547695118970428857702208118225198, 176); ;; 'your balance is ready.'
}