25 lines
796 B
Plaintext
25 lines
796 B
Plaintext
|
type storage_t is timestamp
|
||
|
|
|
||
|
|
type message_t is (unit -> list(operation))
|
||
|
|
type default_pt is unit
|
||
|
|
type call_pt is message_t
|
||
|
|
type contract_return_t is (list(operation) * storage_t)
|
||
|
|
|
||
|
|
type entry_point_t is
|
||
|
|
| Call of call_pt
|
||
|
|
| Default of default_pt
|
||
|
|
|
||
|
|
function call (const p : call_pt; const s : storage_t) : contract_return_t is block {
|
||
|
|
if s >= now then failwith("Contract is still time locked") else skip ;
|
||
|
|
const message : message_t = p ;
|
||
|
|
const ret_ops : list(operation) = message(unit) ;
|
||
|
|
} with (ret_ops,s)
|
||
|
|
|
||
|
|
function default (const p : default_pt; const s : storage_t) : contract_return_t is
|
||
|
|
((nil: list(operation)) , s)
|
||
|
|
|
||
|
|
function main(const param : entry_point_t; const s : storage_t) : contract_return_t is
|
||
|
|
case param of
|
||
|
|
| Call (p) -> call(p,s)
|
||
|
|
| Default (p) -> default(p,s)
|
||
|
|
end
|