Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

import version 2.63 from backpan

  • Loading branch information...
commit 98d42c48b7f82c41061adf164fae7ad68210b2c4 1 parent f66ae5c
@fperrad authored
View
3  Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension CORBA::IDL.
+2.63 Wed Mar 19 18:30:00 2008
+ - performance profiling
+
2.62 Wed Oct 24 12:30:00 2007
- UidVisitor.pm : fix a regression (from 2.61)
View
2  META.yml
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: CORBA-IDL
-version: 2.62
+version: 2.63
abstract: CORBA-IDL 3.0 parser
license: ~
generated_by: ExtUtils::MakeMaker version 6.3201
View
2  lib/CORBA/IDL.pm
@@ -3,7 +3,7 @@ use warnings;
package CORBA::IDL;
-our $VERSION = '2.62';
+our $VERSION = '2.63';
use CORBA::IDL::ParserFactory;
View
15 lib/CORBA/IDL/Lexer.pm
@@ -9,7 +9,7 @@ package CORBA::IDL::Lexer;
use strict;
use warnings;
-our $VERSION = '2.60';
+our $VERSION = '2.63';
use Math::BigInt;
use Math::BigFloat;
@@ -128,9 +128,7 @@ sub _Identifier {
my $key = uc $ident;
if (exists $parser->YYData->{keyword}{$key}) {
- my $keywd = $parser->YYData->{keyword}{$key}[0];
- my $version = $parser->YYData->{keyword}{$key}[1];
- my $lang = $parser->YYData->{keyword}{$key}[2];
+ my ($keywd, $version, $lang) = @{$parser->YYData->{keyword}{$key}};
if ($CORBA::IDL::Parser::IDL_VERSION ge $version) {
if ($ident eq $keywd) {
return ($key, $ident);
@@ -157,7 +155,6 @@ sub _Identifier {
$parser->Info("'$ident' collides with future keyword '$keywd'.\n");
}
}
- return ('IDENTIFIER', $ident);
}
}
return ('IDENTIFIER', $ident);
@@ -212,7 +209,7 @@ sub _CommentLexer {
last;
s/^\*\///
and return;
- s/^.//
+ s/^.[^*\n]*//
and last;
}
}
@@ -246,7 +243,7 @@ sub _DocLexer {
s/^([ \t\f\013]+)//
and $parser->YYData->{doc} .= $1,
last;
- s/^(.)//
+ s/^(.[\w \t]*)//
and $parser->YYData->{doc} .= $1,
$flag = 1,
last;
@@ -289,7 +286,7 @@ sub _DocAfterLexer {
s/^([ \t\f\013]+)//
and $parser->YYData->{curr_node}->{doc} .= $1,
last;
- s/^(.)//
+ s/^(.[\w \t]*)//
and $parser->YYData->{curr_node}->{doc} .= $1,
$flag = 1,
last;
@@ -313,7 +310,7 @@ sub _CodeLexer {
last;
s/^%\}.*//
and return ('CODE_FRAGMENT', $frag);
- s/^(.)//
+ s/^(.[^%\n]*)//
and $frag .= $1,
last;
}
View
34 lib/CORBA/IDL/Node.pm
@@ -7,12 +7,14 @@ use warnings;
package CORBA::IDL::Node;
-our $VERSION = '2.61';
+our $VERSION = '2.63';
use UNIVERSAL;
-sub _Build {
+sub new {
my $proto = shift;
+ my $class = ref($proto) || $proto;
+ my $parser = shift;
my %attr = @_;
my $self = \%attr;
foreach (keys %attr) {
@@ -20,23 +22,13 @@ sub _Build {
delete $self->{$_};
}
}
- return $self;
-}
-
-sub new {
- my $proto = shift;
- my $class = ref($proto) || $proto;
- my $parser = shift;
- my $self = _Build CORBA::IDL::Node(@_);
bless($self, $class);
$self->_Init($parser); # specialized or default
- return $self
+ return $self;
}
sub isa {
- my $self = shift;
- my ($type) = @_;
- return UNIVERSAL::isa($self, 'CORBA::IDL::' . $type);
+ return UNIVERSAL::isa(shift, 'CORBA::IDL::' . shift);
}
sub _Init {
@@ -113,7 +105,7 @@ sub visit {
my $self = shift;
my $class = ref $self;
my $visitor = shift;
- no strict "refs";
+ no strict 'refs';
while ($class ne 'CORBA::IDL::Node') {
my $func = 'visit' . substr($class, rindex($class, ':') + 1);
if ($visitor->can($func)) {
@@ -130,7 +122,7 @@ sub visitName {
my $self = shift;
my $class = ref $self;
my $visitor = shift;
- no strict "refs";
+ no strict 'refs';
while ($class ne 'CORBA::IDL::Node') {
my $func = 'visitName' . substr($class, rindex($class, ':') + 1);
if ($visitor->can($func)) {
@@ -1448,15 +1440,15 @@ sub _Init {
my $defn = CORBA::IDL::TypeDeclarator->GetEffectiveType($parser, $type);
if (defined $defn) {
if ( ! $defn->isa('IntegerType')
+ and ! $defn->isa('EnumType')
+ and ! $defn->isa('OctetType')
and ! $defn->isa('CharType')
- and ! $defn->isa('WideCharType')
+ and ! $defn->isa('StringType')
and ! $defn->isa('BooleanType')
and ! $defn->isa('FloatingPtType')
- and ! $defn->isa('StringType')
+ and ! $defn->isa('WideCharType')
and ! $defn->isa('WideStringType')
- and ! $defn->isa('FixedPtConstType')
- and ! $defn->isa('OctetType')
- and ! $defn->isa('EnumType') ) {
+ and ! $defn->isa('FixedPtConstType') ) {
my $idf = $defn->{idf} if (exists $defn->{idf});
$idf ||= $type->{idf} if (exists $type->{idf});
$idf ||= $type;
View
5 lib/CORBA/IDL/Symbtab.pm
@@ -27,15 +27,14 @@ sub _Insert {
sub _Lookup {
my $self = shift;
- my($name) = @_;
- return $self->{entry}->{lc $name};
+ return $self->{entry}->{lc shift};
}
##############################################################################
package CORBA::IDL::Symbtab;
-our $VERSION = '2.61';
+our $VERSION = '2.63';
sub new {
my $proto = shift;
Please sign in to comment.
Something went wrong with that request. Please try again.