test1.ast

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

include io.inc

record foo is
    var a: int;
end

record bar is
    var a: int;
        b: foo;
end

function f(x: bar): int is
begin
        x.b.a := x.b.a + "hallo";
        return x.b.a;
end

function main(argv: array of string): int is
    var h: bar;
        i: int;
begin
        h.a := 2;
        h.b.a := 3;
        i := f(h);

        WriteString("This should be 4: ");
        WriteInt(i);
        WriteString("\n");

        WriteString("This should be 3: ");
        WriteInt(h.b.a);
        WriteString("\n");

        return 0;
end