18 lines
850 B
Plaintext
18 lines
850 B
Plaintext
|
parameter unit;
|
||
|
|
storage (option
|
||
|
|
(pair (pair (contract unit unit) (contract unit unit))
|
||
|
|
(pair (pair timestamp (contract (option (pair signature int)) int))
|
||
|
|
(pair tez int))));
|
||
|
|
return unit;
|
||
|
|
code { CDR; IF_NONE {FAIL} {}; # Check if settlement has already ocurred
|
||
|
|
DUP; CDAAR; NOW; CMPLT; IF {FAIL} {}; # Check the timestamp
|
||
|
|
DUP; CDADR; DIP{SOME}; PUSH tez "1.01"; NONE (pair signature int);
|
||
|
|
TRANSFER_TOKENS; DIP{IF_NONE{FAIL} {}};
|
||
|
|
DIP{DUP; CDDR; DUP; CDR}; CMPGT;
|
||
|
|
SWAP;
|
||
|
|
DIP{ IF {CAAR} {CADR};
|
||
|
|
DIP{ NONE (pair (pair (contract unit unit) (contract unit unit))
|
||
|
|
(pair (pair timestamp (contract (option (pair signature int)) int))
|
||
|
|
(pair tez int)))}};
|
||
|
|
CAR; UNIT; TRANSFER_TOKENS; PAIR}
|