40 lines
743 B
Plaintext
40 lines
743 B
Plaintext
type t is int * string
|
|
type u is t
|
|
type v is record foo: key; bar: mutez; baz: address end
|
|
type w is K of (U of int) // v * u
|
|
|
|
type i is int;
|
|
|
|
const x : v =
|
|
record
|
|
foo = 4;
|
|
bar = 5;
|
|
baz = 0x3244
|
|
end
|
|
|
|
(* Block comment *)
|
|
|
|
entrypoint g (var s : storage; const l : list (int))
|
|
: operation (list) is
|
|
var m : map (int, string) := empty_map;
|
|
var y : v := copy x with record bar = 7 end;
|
|
|
|
function f (const x : int) : int is
|
|
var y : int := 5 - x
|
|
const z : int = 6
|
|
begin
|
|
y := x + y
|
|
end with y * 2
|
|
|
|
begin
|
|
y.[4] := "hello";
|
|
match l with
|
|
[] -> null
|
|
| h#t -> q (h+2)
|
|
end;
|
|
begin
|
|
g (Unit);
|
|
fail "in extremis"
|
|
end
|
|
end with ([]: operation (list))
|