decs

来自「编译原理大作业---tiger编译器 包括semant,translate,m」· 代码 · 共 31 行

/* correct declarations */
let

type arrtype1 = array of int
type rectype1 = {name:string, address:string, id: int , age: int}
type arrtype2 = array of rectype1
type rectype2 = {name : string, dates: arrtype1}

type arrtype3 = array of string

var arr1 := arrtype1 [10] of 0
var arr2  := arrtype2 [5] of rectype1 {name="aname", address="somewhere", id=0, age=0}
var arr3:arrtype3 := arrtype3 [100] of ""

var rec1 := rectype1 {name="pluto", address="topolinia", id=1234, age=30}
var rec2 := rectype2 {name="gastone", dates=arrtype1 [3] of 1234}

in

arr1[0] := 1;
arr1[9] := 3;
arr2[3].name := "tizio";
arr2[1].age := 18;
arr3[34] := "abc";

rec1.name := "abc";
rec2.dates[0] := 555;
rec2.dates[2] := 555

end