Insert a record at the end of a list


procedure tailins ( rec : list; var first,last : list ); begin if first = nil then first := rec else last^.next := rec; last := rec end;

Pascal source (42.ins.p)



© Addison-Wesley Publishing Co. Inc.