x
484
{ parameter (or (or (or (or (or (nat %burn) (pair %burn_supply (nat %amount) (nat %issuer_id))) (or (unit %close_seed_mode) (pair %mint (nat %issuer_id) (pair (option %referrer address) (option %reserve_input bytes))))) (or (or (pair %mint_issuer (pair (pair (nat %amount) (bool %enabled)) (pair (bytes %metadata) (pair %pricing (bytes %details) (nat %pricing_id)))) (pair (pair (list %primary_split (pair (address %address) (nat %pct))) (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id))))) (pair (nat %royalties) (pair (list %royalties_split (pair (address %address) (nat %pct))) (list %tags nat))))) (list %seed_tokens (pair (pair (pair (address %author) (pair (nat %balance) (bool %enabled))) (pair (nat %id) (pair (bytes %metadata) (nat %original_supply)))) (pair (pair (nat %pricing_id) (pair (list %primary_split (pair (address %address) (nat %pct))) (nat %royalties))) (pair (list %royalties_split (pair (address %address) (nat %pct))) (pair (nat %supply) (timestamp %timestamp_minted))))))) (or (nat %set_fees) (or (bytes %set_gentk_void_metadata) (nat %set_lock_time))))) (or (or (or (pair %set_pricing_contract (address %address) (pair (bool %enabled) (nat %id))) (nat %set_referrer_fees_share)) (or (pair %set_reserve_method (nat %id) (pair %reserve_method (lambda %apply_reserve (pair (pair (nat %current_amount) (bytes %current_data)) (pair (address %sender) (option %user_input bytes))) (pair (bool %applied) (bytes %new_data))) (pair (bool %enabled) (lambda %is_valid (pair (nat %amount) (pair (bytes %data) (address %sender))) bool)))) (pair %set_reserve_method_enabled (bool %enabled) (nat %id)))) (or (or (option %transfer_xtz_treasury mutez) (pair %update_issuer (pair (bool %enabled) (nat %issuer_id)) (pair (list %primary_split (pair (address %address) (nat %pct))) (pair (nat %royalties) (list %royalties_split (pair (address %address) (nat %pct))))))) (or (pair %update_price (bytes %details) (nat %issuer_id)) (or (pair %update_reserve (nat %issuer_id) (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id))))) (pair %update_token_mod (nat %issuer_id) (list %tags nat))))))) (or (or (pair %ep_set_enabled (bool %enabled) (string %name)) (or (unit %lock_eps) (list %set_addresses (pair (address %address) (string %address_id))))) (or (or (address %set_administrator) (big_map %set_metadata string bytes)) (or (bool %set_pause) (pair %update_ep (lambda %code (pair (or (or (or (or (nat %burn) (pair %burn_supply (nat %amount) (nat %issuer_id))) (or (unit %close_seed_mode) (pair %mint (nat %issuer_id) (pair (option %referrer address) (option %reserve_input bytes))))) (or (or (pair %mint_issuer (pair (pair (nat %amount) (bool %enabled)) (pair (bytes %metadata) (pair %pricing (bytes %details) (nat %pricing_id)))) (pair (pair (list %primary_split (pair (address %address) (nat %pct))) (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id))))) (pair (nat %royalties) (pair (list %royalties_split (pair (address %address) (nat %pct))) (list %tags nat))))) (list %seed_tokens (pair (pair (pair (address %author) (pair (nat %balance) (bool %enabled))) (pair (nat %id) (pair (bytes %metadata) (nat %original_supply)))) (pair (pair (nat %pricing_id) (pair (list %primary_split (pair (address %address) (nat %pct))) (nat %royalties))) (pair (list %royalties_split (pair (address %address) (nat %pct))) (pair (nat %supply) (timestamp %timestamp_minted))))))) (or (nat %set_fees) (or (bytes %set_gentk_void_metadata) (nat %set_lock_time))))) (or (or (or (pair %set_pricing_contract (address %address) (pair (bool %enabled) (nat %id))) (nat %set_referrer_fees_share)) (or (pair %set_reserve_method (nat %id) (pair %reserve_method (lambda %apply_reserve (pair (pair (nat %current_amount) (bytes %current_data)) (pair (address %sender) (option %user_input bytes))) (pair (bool %applied) (bytes %new_data))) (pair (bool %enabled) (lambda %is_valid (pair (nat %amount) (pair (bytes %data) (address %sender))) bool)))) (pair %set_reserve_method_enabled (bool %enabled) (nat %id)))) (or (or (option %transfer_xtz_treasury mutez) (pair %update_issuer (pair (bool %enabled) (nat %issuer_id)) (pair (list %primary_split (pair (address %address) (nat %pct))) (pair (nat %royalties) (list %royalties_split (pair (address %address) (nat %pct))))))) (or (pair %update_price (bytes %details) (nat %issuer_id)) (or (pair %update_reserve (nat %issuer_id) (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id))))) (pair %update_token_mod (nat %issuer_id) (list %tags nat))))))) (pair (pair (pair (pair (big_map %addresses string address) (address %admin)) (pair (nat %all_gentk_tokens) (nat %all_tokens))) (pair (pair (big_map %entrypoints_enabled string bool) (big_map %extended_storage bytes bytes)) (pair (nat %fees) (pair (bytes %gentk_void_metadata) (big_map %ledger nat (pair (pair (pair (address %author) (pair (nat %balance) (bool %enabled))) (pair (pair (nat %locked_seconds) (bytes %metadata)) (pair (nat %original_supply) (nat %pricing_id)))) (pair (pair (list %primary_split (pair (address %address) (nat %pct))) (pair (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id)))) (nat %royalties))) (pair (pair (list %royalties_split (pair (address %address) (nat %pct))) (nat %supply)) (pair (list %tags nat) (timestamp %timestamp_minted)))))))))) (pair (pair (pair (nat %lock_time) (bool %locked_eps)) (pair (big_map %metadata string bytes) (bool %paused))) (pair (pair (map %pricing_contracts nat (pair (address %address) (bool %enabled))) (nat %referrer_fees_share)) (pair (big_map %reserve_methods nat (pair (lambda %apply_reserve (pair (pair (nat %current_amount) (bytes %current_data)) (pair (address %sender) (option %user_input bytes))) (pair (bool %applied) (bytes %new_data))) (pair (bool %enabled) (lambda %is_valid (pair (nat %amount) (pair (bytes %data) (address %sender))) bool)))) (pair (bool %seed_mode) (big_map %user_actions address (pair (pair (nat %last_issuer_minted) (timestamp %last_issuer_minted_time)) (pair (list %last_minted nat) (timestamp %last_minted_time)))))))))) (pair (list operation) (pair (pair (pair (pair (big_map %addresses string address) (address %admin)) (pair (nat %all_gentk_tokens) (nat %all_tokens))) (pair (pair (big_map %entrypoints_enabled string bool) (big_map %extended_storage bytes bytes)) (pair (nat %fees) (pair (bytes %gentk_void_metadata) (big_map %ledger nat (pair (pair (pair (address %author) (pair (nat %balance) (bool %enabled))) (pair (pair (nat %locked_seconds) (bytes %metadata)) (pair (nat %original_supply) (nat %pricing_id)))) (pair (pair (list %primary_split (pair (address %address) (nat %pct))) (pair (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id)))) (nat %royalties))) (pair (pair (list %royalties_split (pair (address %address) (nat %pct))) (nat %supply)) (pair (list %tags nat) (timestamp %timestamp_minted)))))))))) (pair (pair (pair (nat %lock_time) (bool %locked_eps)) (pair (big_map %metadata string bytes) (bool %paused))) (pair (pair (map %pricing_contracts nat (pair (address %address) (bool %enabled))) (nat %referrer_fees_share)) (pair (big_map %reserve_methods nat (pair (lambda %apply_reserve (pair (pair (nat %current_amount) (bytes %current_data)) (pair (address %sender) (option %user_input bytes))) (pair (bool %applied) (bytes %new_data))) (pair (bool %enabled) (lambda %is_valid (pair (nat %amount) (pair (bytes %data) (address %sender))) bool)))) (pair (bool %seed_mode) (big_map %user_actions address (pair (pair (nat %last_issuer_minted) (timestamp %last_issuer_minted_time)) (pair (list %last_minted nat) (timestamp %last_minted_time))))))))))) (or %ep_name (or (or (unit %burn) (or (unit %burn_supply) (unit %mint))) (or (unit %mint_issuer) (or (unit %set_pricing_contract) (unit %set_reserve_method)))) (or (or (unit %set_reserve_method_enabled) (or (unit %transfer_xtz_treasury) (unit %update_issuer))) (or (unit %update_price) (or (unit %update_reserve) (unit %update_token_mod)))))))))) ; storage (pair (pair (pair (pair (pair (big_map %addresses string address) (address %admin)) (pair (nat %all_gentk_tokens) (nat %all_tokens))) (pair (pair (big_map %entrypoints_enabled string bool) (big_map %extended_storage bytes bytes)) (pair (nat %fees) (pair (bytes %gentk_void_metadata) (big_map %ledger nat (pair (pair (pair (address %author) (pair (nat %balance) (bool %enabled))) (pair (pair (nat %locked_seconds) (bytes %metadata)) (pair (nat %original_supply) (nat %pricing_id)))) (pair (pair (list %primary_split (pair (address %address) (nat %pct))) (pair (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id)))) (nat %royalties))) (pair (pair (list %royalties_split (pair (address %address) (nat %pct))) (nat %supply)) (pair (list %tags nat) (timestamp %timestamp_minted)))))))))) (pair (pair (pair (nat %lock_time) (bool %locked_eps)) (pair (big_map %metadata string bytes) (bool %paused))) (pair (pair (map %pricing_contracts nat (pair (address %address) (bool %enabled))) (nat %referrer_fees_share)) (pair (big_map %reserve_methods nat (pair (lambda %apply_reserve (pair (pair (nat %current_amount) (bytes %current_data)) (pair (address %sender) (option %user_input bytes))) (pair (bool %applied) (bytes %new_data))) (pair (bool %enabled) (lambda %is_valid (pair (nat %amount) (pair (bytes %data) (address %sender))) bool)))) (pair (bool %seed_mode) (big_map %user_actions address (pair (pair (nat %last_issuer_minted) (timestamp %last_issuer_minted_time)) (pair (list %last_minted nat) (timestamp %last_minted_time))))))))) (big_map nat (lambda (pair (or (or (or (or nat (pair nat nat)) (or unit (pair nat (pair (option address) (option bytes))))) (or (or (pair (pair (pair nat bool) (pair bytes (pair bytes nat))) (pair (pair (list (pair address nat)) (list (pair nat (pair bytes nat)))) (pair nat (pair (list (pair address nat)) (list nat))))) (list (pair (pair (pair address (pair nat bool)) (pair nat (pair bytes nat))) (pair (pair nat (pair (list (pair address nat)) nat)) (pair (list (pair address nat)) (pair nat timestamp)))))) (or nat (or bytes nat)))) (or (or (or (pair address (pair bool nat)) nat) (or (pair nat (pair (lambda (pair (pair nat bytes) (pair address (option bytes))) (pair bool bytes)) (pair bool (lambda (pair nat (pair bytes address)) bool)))) (pair bool nat))) (or (or (option mutez) (pair (pair bool nat) (pair (list (pair address nat)) (pair nat (list (pair address nat)))))) (or (pair bytes nat) (or (pair nat (list (pair nat (pair bytes nat)))) (pair nat (list nat))))))) (pair (pair (pair (pair (big_map string address) address) (pair nat nat)) (pair (pair (big_map string bool) (big_map bytes bytes)) (pair nat (pair bytes (big_map nat (pair (pair (pair address (pair nat bool)) (pair (pair nat bytes) (pair nat nat))) (pair (pair (list (pair address nat)) (pair (list (pair nat (pair bytes nat))) nat)) (pair (pair (list (pair address nat)) nat) (pair (list nat) timestamp))))))))) (pair (pair (pair nat bool) (pair (big_map string bytes) bool)) (pair (pair (map nat (pair address bool)) nat) (pair (big_map nat (pair (lambda (pair (pair nat bytes) (pair address (option bytes))) (pair bool bytes)) (pair bool (lambda (pair nat (pair bytes address)) bool)))) (pair bool (big_map address (pair (pair nat timestamp) (pair (list nat) timestamp))))))))) (pair (list operation) (pair (pair (pair (pair (big_map string address) address) (pair nat nat)) (pair (pair (big_map string bool) (big_map bytes bytes)) (pair nat (pair bytes (big_map nat (pair (pair (pair address (pair nat bool)) (pair (pair nat bytes) (pair nat nat))) (pair (pair (list (pair address nat)) (pair (list (pair nat (pair bytes nat))) nat)) (pair (pair (list (pair address nat)) nat) (pair (list nat) timestamp))))))))) (pair (pair (pair nat bool) (pair (big_map string bytes) bool)) (pair (pair (map nat (pair address bool)) nat) (pair (big_map nat (pair (lambda (pair (pair nat bytes) (pair address (option bytes))) (pair bool bytes)) (pair bool (lambda (pair nat (pair bytes address)) bool)))) (pair bool (big_map address (pair (pair nat timestamp) (pair (list nat) timestamp)))))))))))) ; code { UNPAIR 3 ; IF_LEFT { DUP ; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP ; PUSH nat 0 } { DROP ; PUSH nat 1 } } { IF_LEFT { DROP ; PUSH nat 2 } { DROP ; PUSH nat 3 } } } { IF_LEFT { IF_LEFT { DROP ; PUSH nat 4 } { DROP ; PUSH nat 5 } } { IF_LEFT { DROP ; PUSH nat 6 } { IF_LEFT { DROP ; PUSH nat 7 } { DROP ; PUSH nat 8 } } } } } { IF_LEFT { IF_LEFT { IF_LEFT { DROP ; PUSH nat 9 } { DROP ; PUSH nat 10 } } { IF_LEFT { DROP ; PUSH nat 11 } { DROP ; PUSH nat 12 } } } { IF_LEFT { IF_LEFT { DROP ; PUSH nat 13 } { DROP ; PUSH nat 14 } } { IF_LEFT { DROP ; PUSH nat 15 } { IF_LEFT { DROP ; PUSH nat 16 } { DROP ; PUSH nat 17 } } } } } ; DUP 4 ; SWAP ; GET ; IF_NONE { PUSH int -1 ; FAILWITH } {} ; DUG 2 ; PAIR ; EXEC ; UNPAIR } { IF_LEFT { IF_LEFT { SWAP ; DUP ; DUG 2 ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; SWAP ; DUP ; DUG 2 ; CAR ; GET 3 ; CAR ; SWAP ; DUP ; DUG 2 ; CDR ; MEM ; IF {} { PUSH string "EP_DOESNT_EXIST" ; FAILWITH } ; SWAP ; UNPAIR ; UNPAIR ; SWAP ; UNPAIR ; UNPAIR ; DUP 6 ; CAR ; SOME ; DIG 6 ; CDR ; UPDATE ; PAIR ; PAIR ; SWAP ; PAIR ; PAIR } { IF_LEFT { DROP ; DUP ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; UNPAIR ; SWAP ; UNPAIR ; UNPAIR ; CAR ; PUSH bool True ; SWAP ; PAIR ; PAIR ; PAIR ; SWAP ; PAIR } { SWAP ; DUP ; DUG 2 ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; DUP ; ITER { DIG 2 ; UNPAIR ; UNPAIR ; UNPAIR ; UNPAIR ; DUP 6 ; CAR ; SOME ; DIG 6 ; CDR ; UPDATE ; PAIR ; PAIR ; PAIR ; PAIR ; SWAP } ; DROP } } } { IF_LEFT { IF_LEFT { SWAP ; DUP ; DUG 2 ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; SWAP ; UNPAIR ; UNPAIR ; UNPAIR ; CAR ; DIG 4 ; SWAP ; PAIR ; PAIR ; PAIR ; PAIR } { SWAP ; DUP ; DUG 2 ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; SWAP ; UNPAIR ; SWAP ; UNPAIR ; UNPAIR ; SWAP ; CDR ; DIG 4 ; PAIR ; SWAP ; PAIR ; PAIR ; SWAP ; PAIR } } { IF_LEFT { SWAP ; DUP ; DUG 2 ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; SWAP ; UNPAIR ; SWAP ; UNPAIR ; UNPAIR ; SWAP ; CAR ; DIG 4 ; SWAP ; PAIR ; SWAP ; PAIR ; PAIR ; SWAP ; PAIR } { SWAP ; DUP ; DUG 2 ; CAR ; CAR ; CAR ; CDR ; SENDER ; COMPARE ; EQ ; IF {} { PUSH string "NOT_ADMIN" ; FAILWITH } ; SWAP ; DUP ; DUG 2 ; GET 3 ; CAR ; CDR ; IF { PUSH string "EPS_LOCKED" ; FAILWITH } {} ; DUP ; CDR ; IF_LEFT { IF_LEFT { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 0 ; UPDATE ; SWAP } { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 1 ; UPDATE ; SWAP } { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 3 ; UPDATE ; SWAP } } } { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 4 ; UPDATE ; SWAP } { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 9 ; UPDATE ; SWAP } { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 11 ; UPDATE ; SWAP } } } } { IF_LEFT { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 12 ; UPDATE ; SWAP } { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 13 ; UPDATE ; SWAP } { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 14 ; UPDATE ; SWAP } } } { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 15 ; UPDATE ; SWAP } { IF_LEFT { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 16 ; UPDATE ; SWAP } { DROP ; DIG 2 ; SWAP ; CAR ; SOME ; PUSH nat 17 ; UPDATE ; SWAP } } } } } } } ; NIL operation } ; NIL operation ; SWAP ; ITER { CONS } ; DUG 2 ; PAIR ; SWAP ; PAIR } ; view "get_extended_storage" bytes bytes { UNPAIR 3 ; DIG 2 ; DROP ; SWAP ; CAR ; GET 3 ; CDR ; SWAP ; GET ; IF_NONE { PUSH int 29 ; FAILWITH } {} } ; view "get_token_data" nat (pair (pair (pair (address %author) (pair (nat %balance) (bool %enabled))) (pair (pair (nat %locked_seconds) (bytes %metadata)) (pair (nat %original_supply) (nat %pricing_id)))) (pair (pair (list %primary_split (pair (address %address) (nat %pct))) (pair (list %reserves (pair (nat %amount) (pair (bytes %data) (nat %method_id)))) (nat %royalties))) (pair (pair (list %royalties_split (pair (address %address) (nat %pct))) (nat %supply)) (pair (list %tags nat) (timestamp %timestamp_minted))))) { UNPAIR 3 ; DIG 2 ; DROP ; SWAP ; DUP ; DUG 2 ; CAR ; GET 8 ; SWAP ; DUP ; DUG 2 ; MEM ; IF {} { PUSH string "NO_TOKEN" ; FAILWITH } ; SWAP ; CAR ; GET 8 ; SWAP ; GET ; IF_NONE { PUSH int 195 ; FAILWITH } {} } ; view "get_user_actions" address (pair (pair (nat %last_issuer_minted) (timestamp %last_issuer_minted_time)) (pair (list %last_minted nat) (timestamp %last_minted_time))) { UNPAIR 3 ; DIG 2 ; DROP ; SWAP ; GET 10 ; SWAP ; GET ; IF_NONE { PUSH (pair (pair nat timestamp) (pair (list nat) timestamp)) (Pair (Pair 0 "1970-01-01T00:00:00Z") (Pair {} "1970-01-01T00:00:00Z")) } {} } }