Lines Matching defs:token
60 $tokenId = $internal->getAttr('token');
501 %token = (); # token name => $objRef
502 @token = (); # token id
519 register('token', 0, \&token);
592 @token = sort @token;
620 return $token{$id};
623 # getNextToken reads from @token destructively. 'firstToken' could
629 return undef unless (@token);
632 @token = sort @token;
635 my $id = shift @token;
637 return $token{$id};
640 # return token Ids
645 return @token;
754 sub token {
760 print "token = $id\n" if $main::debug;
761 $token{$id} = new tokenDef($obj, $id);
762 push (@token, $id);
765 print STDERR "token element is missing required id attribute\n";