def MsgGroup.parse (p, segment_list)
grp = p.new_msggroup(:msg_type => 'DUMMY')
header = grp.parse_segment(segment_list.shift, 'UNG')
trailer = grp.parse_segment(segment_list.pop, 'UNE')
init_seg = Regexp.new('^UNH')
exit_seg = Regexp.new('^UNT')
while segbuf = segment_list.shift
case segbuf
when init_seg
sub_list = Array.new
sub_list.push segbuf
when exit_seg
sub_list.push segbuf
grp.add grp.parse_message(sub_list)
else
sub_list.push segbuf
end
end
grp.header = header
grp.trailer = trailer
grp
end