Lines Matching refs:id
36 my $id = shift;
75 print STDERR "no external attributes defined for $id/$kidId\n";
81 print STDERR "missing id for internal name of $id\n";
91 return bless {'id' => $id,
133 my $id = shift @{$pkg->{'entryList'}};
135 return ($pkg->getEntry($id)); # getEntry returns an array
149 my $id = shift; #entry id
152 my $array = $$ref{$id};
187 my $id = shift;
201 my $id = $kid->getAttr('id');
209 print STDERR "no internal attributes defined for $id\n";
213 return bless {'id' => $id,
249 my $id = shift;
268 print STDERR "$uniqueId{$idNo} and $id have the same id ($idNo)\n";
271 $uniqueId{$idNo} = $id;
274 return bless {'id' => $id,
295 my $id = $pkg->{'id'};
298 $pkg->{$context} = new internalEvent($id, $obj);
301 my $ref = $pkg->{$context} = new externalEvent($id, $obj);
375 my $id = shift;
380 return bless {'id' => $id,
404 my $id = shift;
432 return bless {'id' => $id,
559 my $id = $obj->getAttr('id');
563 print "*** $callbackSource: $class", (defined ($id)) ? "= $id\n" : "\n";
596 my $id = shift @event;
598 return $event{$id};
611 my $id = shift;
613 return $event{$id};
618 my $id = shift;
620 return $token{$id};
635 my $id = shift @token;
637 return $token{$id};
655 my $id = shift @msg_list;
657 return ($id, $msg_list{$id});
668 my $id = shift;
670 return $msg_list{$id};
683 my $id = $obj->getAttr('id');
685 unless ($id) {
689 unless (defined $event{$id}) {
696 $event{$id} = new eventDef($id, $obj, $super);
697 push (@event, $id);
699 print STDERR "duplicate event id: $id\n";
706 my $id = $obj->getAttr('id');
707 unless (defined $id) {
711 print "event = $id\n" if $main::debug;
718 $event{$id}->{$class} = $content;
720 push @{$event{$id}->{$class}}, $content;
723 $event{$id}->putDef($obj, 'internal');
725 my $internalName = $event{$id}->putDef($obj, 'external');
727 $externalToInternal{$id} = $internalName if $internalName;
757 my $id = $obj->getAttr('id');
759 if (defined $id) {
760 print "token = $id\n" if $main::debug;
761 $token{$id} = new tokenDef($obj, $id);
762 push (@token, $id);
772 my $id = $obj->getAttr('id');
783 if (defined $id) {
784 print "msg_list = $id\n" if $main::debug;
785 $msg_list{$id} = new messageList($obj, $id, $header, $start,
787 push (@msg_list, $id);
805 my $id = $obj->getAttr('id');
807 if ((defined $id) && (defined $name)) {
808 print "service $name = $id\n" if $main::debug;
809 $service{$name} = $id;
814 elsif (defined $id) {
815 print STDERR "service name missing for id = $id\n";