BCD

Tezos Contract Explorer
Search Networks Deploy
  • Home
  • /
  • Mainnet
  • /
  • Kolibri Oven Registry
operations (121K)Storage Code Interact Tokens Fork Statistics Details
Latest
​x
90
 
1
parameter (or (or (pair %addOven address address) (unit %default))
2
              (or (address %isOven)
3
                  (or (address %setGovernorContract) (address %setOvenFactoryContract))));
4
storage (pair (address %governorContractAddress)
5
              (pair (address %ovenFactoryContractAddress)
6
                    (big_map %ovenMap address address)));
7
code { DUP ;
8
       CDR ;
9
       SWAP ;
10
       CAR ;
11
       IF_LEFT
12
         { IF_LEFT
13
             { SWAP ;
14
               DUP ;
15
               DUG 2 ;
16
               CDR ;
17
               CAR ;
18
               SENDER ;
19
               COMPARE ;
20
               EQ ;
21
               IF {} { PUSH int 7 ; FAILWITH } ;
22
               SWAP ;
23
               DUP ;
24
               CAR ;
25
               SWAP ;
26
               CDR ;
27
               DUP ;
28
               CAR ;
29
               SWAP ;
30
               CDR ;
31
               DIG 3 ;
32
               DUP ;
33
               CAR ;
34
               SWAP ;
35
               CDR ;
36
               SOME ;
37
               SWAP ;
38
               UPDATE ;
39
               SWAP ;
40
               PAIR ;
41
               SWAP ;
42
               PAIR }
43
             { PUSH int 19 ; FAILWITH } }
44
         { IF_LEFT
45
             { SWAP ;
46
               DUP ;
47
               DUG 2 ;
48
               CDR ;
49
               CDR ;
50
               SWAP ;
51
               MEM ;
52
               IF {} { PUSH int 1 ; FAILWITH } ;
53
               PUSH mutez 0 ;
54
               AMOUNT ;
55
               COMPARE ;
56
               EQ ;
57
               IF {} { PUSH int 15 ; FAILWITH } }
58
             { IF_LEFT
59
                 { SWAP ;
60
                   DUP ;
61
                   DUG 2 ;
62
                   CAR ;
63
                   SENDER ;
64
                   COMPARE ;
65
                   EQ ;
66
                   IF {} { PUSH int 4 ; FAILWITH } ;
67
                   SWAP ;
68
                   CDR ;
69
                   SWAP ;
70
                   PAIR }
71
                 { SWAP ;
72
                   DUP ;
73
                   DUG 2 ;
74
                   CAR ;
75
                   SENDER ;
76
                   COMPARE ;
77
                   EQ ;
78
                   IF {} { PUSH int 4 ; FAILWITH } ;
79
                   SWAP ;
80
                   DUP ;
81
                   CAR ;
82
                   SWAP ;
83
                   CDR ;
84
                   CDR ;
85
                   DIG 2 ;
86
                   PAIR ;
87
                   SWAP ;
88
                   PAIR } } } ;
89
       NIL operation ;
90
       PAIR }