Lines Matching refs:id
33 my $id = shift;
50 my $kidId = $kid->getAttr('id');
72 print STDERR "no external attributes defined for $id/$kidId\n";
75 } # handle event id translation...
77 $internalName = $kid->getAttr('id');
79 print STDERR "missing id for internal name of $id\n";
90 return bless {'id' => $id,
100 # return id
105 return $pkg->{'id'};
109 # return internal name if it exists, else id
118 return $pkg->{'id'};
132 my $id = shift @{$pkg->{'entryList'}};
134 return ($pkg->getEntry($id)); # getEntry returns an array
148 my $id = shift; #entry id
151 my $array = $$ref{$id};
171 # return a reference to the list of event id's allowed for
186 my $id = shift;
200 my $id = $kid->getAttr('id');
208 print STDERR "no internal attributes defined for $id\n";
213 return bless {'id' => $id,
238 return $pkg->{'id'};
249 my $id = shift;
269 print STDERR "$uniqueId{$idNo} and $id have the same id ($idNo)\n";
273 $uniqueId{$idNo} = $id;
276 return bless {'id' => $id,
298 my $id = $pkg->{'id'};
301 $pkg->{$context} = new internalEvent($id, $obj);
304 my $ref = $pkg->{$context} = new externalEvent($id, $obj);
312 return $pkg->{'id'};
382 my $id = shift;
387 return bless {'id' => $id,
395 return $pkg->{'id'};
411 my $id = shift;
426 my $msgId = $kid->getAttr('id');
431 print STDERR "missing id for $class <msg>\n";
441 return bless {'id' => $id,
453 return $pkg->{'id'};
508 my $id = shift;
519 my $note_id = $kid->getAttr('id');
524 print STDERR "missing id for $class <note>\n";
534 return bless {'id' => $id,
542 return $pkg->{'id'};
558 @event = (); # event id
560 @token = (); # token id
561 %note_list = (); # noteList string list id to obj
562 %msg_list = (); # messageList string list id to obj
563 @msg_list = (); # id list
619 my $id = $obj->getAttr('id');
623 print "*** $callbackSource: $class", (defined ($id)) ? "= $id\n" : "\n";
657 my $id = shift @event;
659 return $event{$id};
669 # returns event for id
672 my $id = shift;
674 return $event{$id};
679 my $id = shift;
681 return $token{$id};
696 my $id = shift @token;
698 return $token{$id};
716 my $id = shift @msg_list;
718 return ($id, $msg_list{$id});
729 my $id = shift;
731 return $msg_list{$id};
744 my $id = $obj->getAttr('id');
746 unless ($id) {
747 print STDERR "eventStart can't get a valid id\n";
751 unless (defined $event{$id}) {
758 $event{$id} = new eventDef($id, $obj, $super);
759 push (@event, $id);
761 print STDERR "duplicate event id: $id\n";
769 my $id = $obj->getAttr('id');
770 unless (defined $id) {
771 print STDERR "event element is missing required id attribute\n";
775 print "event = $id\n" if $main::debug;
783 $event{$id}->{$class} = $content;
786 my $note_id = $kid->getAttr('id');
801 push @{$event{$id}->{$class}}, $content;
803 push @{$event{$id}->{$class}}, $content;
806 $event{$id}->putDef($obj, 'internal');
808 my $internalName = $event{$id}->putDef($obj, 'external');
810 $externalToInternal{$id} = $internalName if $internalName;
827 # my $id = $obj->getAttr('id');
829 # if (defined $id) {
830 # print "include = $id\n" if $main::debug;
833 # print STDERR "include element is missing required id attribute\n";
841 my $id = $obj->getAttr('id');
843 if (defined $id) {
844 print "token = $id\n" if $main::debug;
845 $token{$id} = new tokenDef($obj, $id);
846 push (@token, $id);
849 print STDERR "token element is missing required id attribute\n";
857 my $id = $obj->getAttr('id');
868 if (defined $id) {
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";
888 my $id = $obj->getAttr('id');
890 if (defined $id) {
891 if (defined $note_list{$id}) {
892 print STDERR "note_list \'$id\' already defined\n";
896 print "note_list = $id\n" if $main::debug;
897 $note_list{$id} = new noteList($obj, $id);
901 "note_list element is missing required id attribute\n";
912 my $id = $obj->getAttr('id');
914 if ((defined $id) && (defined $name)) {
915 print "service $name = $id\n" if $main::debug;
916 $service{$name} = $id;
919 print STDERR "service $name is missing an id number\n";
922 elsif (defined $id) {
923 print STDERR "service name missing for id = $id\n";
927 print STDERR "missing both name and id for a service entry\n";