test3.tig

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

/* a record type and a record variable */
let
	type  rectype = {name:string, age:int}
	var rec1:rectype := rectype {name="Nobody", age=1000}
in
	rec1.name := "Somebody";
	rec1
end