Lines Matching defs:msg_list
412 my @kid = $obj->getKids(); # kids of msg_list are msg
428 print STDERR "invalid tag in <msg_list> block: $class\n";
503 %msg_list = (); # messageList string list id to obj
504 @msg_list = (); # id list
521 register('msg_list', 0, \&msg_list);
648 # getNextMsgId reads from @msg_list destructively.
653 return undef unless (@msg_list);
655 my $id = shift @msg_list;
657 return ($id, $msg_list{$id});
663 return @msg_list;
670 return $msg_list{$id};
769 sub msg_list {
784 print "msg_list = $id\n" if $main::debug;
785 $msg_list{$id} = new messageList($obj, $id, $header, $start,
787 push (@msg_list, $id);
791 "msg_list element is missing required id attribute\n";