2019-11-12 21:07:09 +04:00
|
|
|
//Test simple_access in PascalLigo
|
|
|
|
|
type tpi is (int*int)
|
|
|
|
|
type rpi is record
|
|
|
|
|
x : int;
|
|
|
|
|
y : int;
|
|
|
|
|
end
|
|
|
|
|
type mpi is map(string,int)
|
|
|
|
|
|
|
|
|
|
function main (const toto : tpi) : int is
|
2019-11-18 19:10:48 +04:00
|
|
|
begin
|
|
|
|
|
var a : tpi := toto;
|
|
|
|
|
var b : rpi := record x = 0; y=1 ; end;
|
|
|
|
|
var m : mpi := map "y" -> 1; end;
|
|
|
|
|
a.0 := 2;
|
|
|
|
|
b.x := a.0;
|
|
|
|
|
m["x"] := b.x;
|
|
|
|
|
end with
|
|
|
|
|
case m["x"] of
|
|
|
|
|
| Some (s) -> s
|
|
|
|
|
| None -> 42
|
|
|
|
|
end
|
