test3.ast

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

include io.inc

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

record bar is
    var b: int;
        c: int;
end

function main(argv: array of string): int is
    var x: array of foo;
        y: int;
begin
	x := new array[5] of foo;
	x[1].a := "Hello World!\n";
	x[0].b := 5;
        WriteString(x[1].a);
        WriteString("This should be 5: ");
        WriteInt(x[0].b);
        WriteString("\n");
	
        return 0;
end