Lines Matching defs:msg_list
419 my @kid = $obj->getKids(); # kids of msg_list are msg
436 print STDERR "invalid tag in <msg_list> block: $class\n";
562 %msg_list = (); # messageList string list id to obj
563 @msg_list = (); # id list
581 register('msg_list', 0, \&msg_list);
709 # getNextMsgId reads from @msg_list destructively.
714 return undef unless (@msg_list);
716 my $id = shift @msg_list;
718 return ($id, $msg_list{$id});
724 return @msg_list;
731 return $msg_list{$id};
854 sub msg_list {
869 print "msg_list = $id\n" if $main::debug;
870 $msg_list{$id} = new messageList($obj, $id, $header, $start,
872 push (@msg_list, $id);
876 "msg_list element is missing required id attribute\n";