-
Notifications
You must be signed in to change notification settings - Fork 0
/
graveyard.ccg
35 lines (35 loc) · 1.16 KB
/
graveyard.ccg
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(Pair { DIP 1
{ NIL (pair (pair string (lambda (pair bytes bytes) (pair (list operation) bytes)))
(pair bytes mutez)) } ;
LAMBDA
(pair bytes bytes)
(pair (list operation) bytes)
{ { DUP ; CAR ; DIP 1 { CDR } } ;
UNPACK bytes ;
IF_NONE
{ PUSH string "unpack param" ; FAILWITH }
{ SWAP ;
UNPACK bytes ;
IF_NONE
{ PUSH string "unpack storage" ; FAILWITH }
{ SWAP ;
PAIR ;
DUP ;
CAR ;
UNPACK unit ;
IF_NONE { PUSH string "unpack param" ; FAILWITH } { DROP 1 } ;
CDR ;
NIL operation ;
PAIR ;
{ DUP ; CAR ; DIP 1 { CDR } } ;
DIP 1 { PACK } ;
PAIR } } } ;
PUSH string "main" ;
PAIR ;
PAIR ;
CONS }
{ DROP 1 ;
LAMBDA
(map string address)
(list (pair string bytes))
{ DROP 1 ; NIL (pair string bytes) } })