编译原理(陈火旺第三版)练习答案

procedure L； var l_type :Ttype； begin

if sym = “，” then begin

advance;

if sym = “id” then begin

advance ; l_type = L ;

adddtype(id.entry，l_type)

end else error ; end

else if sym = “:” then begin advance ; l_type = T ; end

else error ; return (l_type) ； end；

procedure T ; var t_type: Ttype ; begin

if sym = “integer” then

begin advance ;

t_type = integer ; end else if sym = “real” then

begin advance ; t_type = real ; end else error

return(t_type); end;