29 lines
811 B
Plaintext
29 lines
811 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
|