operator.ast

来自「一个编译器修改的例子」· AST 代码 · 共 35 行

include io.inc

record foo1 is
    var a: int;
end

record foo2 is
    var a: int;
end

record foofoo1 is
    var a: int;
        b: foo1;
end

record foofoo2 is
    var a: foo2;
        b: int;
end

record bar is
    var a: foofoo1;
        b: foofoo2;
end

function main(argv: array of string): int is
  var bar: bar;
      foo1: foo1;
      foo2: foo2;
begin
  bar.b.a := foo2;

  return 0;
end