Permalink
Browse files

import version 2.42 from backpan

  • Loading branch information...
1 parent 8f196e8 commit 936e11a165d22460fabdbe8bb6aa6c38e1541804 @fperrad committed Jul 27, 2004
Showing with 2,178 additions and 2,119 deletions.
  1. +5 −0 Changes
  2. +15 −5 node.pm
  3. +2,138 −2,110 parserxp.pm
  4. +20 −4 parserxp.yp
View
@@ -1,5 +1,10 @@
Revision history for Perl extension CORBA::IDL.
+2.42 Tue Jul 27 12:30:00 2004
+ - node.pm : 'float' 0 is out of range (ticket 7114 on rt.cpan.org)
+ - bug : [props] for 'typedef'
+ - parserxp.yp : add [props] for member
+
2.41 Mon Jun 7 08:30:00 2004
- better support of 'import'
View
20 node.pm
@@ -8,7 +8,7 @@ use UNIVERSAL;
package CORBA::IDL::node;
use vars qw($VERSION);
-$VERSION = '2.41';
+$VERSION = '2.42';
sub _Build {
my $proto = shift;
@@ -1216,6 +1216,7 @@ sub _CheckRange {
return undef;
}
} elsif ( $type->isa('FloatingPtType') ) {
+ return $value if ($value == 0);
my $abs_v = abs $value;
if ( $type->{value} eq 'float' ) {
if ($abs_v >= FLT_MIN and $abs_v <= FLT_MAX) {
@@ -1390,17 +1391,13 @@ sub _Init {
my $decl;
if (@array_size) {
$decl = new TypeDeclarator($parser,
- declspec => $self->{declspec},
- props => $self->{props},
type => $self->{type},
idf => $idf,
array_size => \@array_size
);
TypeDeclarator->CheckDeprecated($parser, $self->{type});
} else {
$decl = new TypeDeclarator($parser,
- declspec => $self->{declspec},
- props => $self->{props},
type => $self->{type},
idf => $idf
);
@@ -1410,6 +1407,17 @@ sub _Init {
$self->configure(list_decl => \@list);
}
+sub Configure {
+ my $self = shift;
+ my $parser = shift;
+ $self->configure(@_);
+ foreach (@{$self->{list_decl}}) {
+ my $defn = $parser->YYData->{symbtab}->Lookup($_);
+ $defn->configure(@_);
+ }
+ return $self;
+}
+
package TypeDeclarator;
use base qw(CORBA::IDL::node);
@@ -1668,6 +1676,7 @@ sub _Init {
my $idf = shift @array_size;
if (@array_size) {
$member = new Member($parser,
+ props => $self->{props},
type => $self->{type},
idf => $idf,
array_size => \@array_size,
@@ -1677,6 +1686,7 @@ sub _Init {
if ($Parser::IDL_version ge '2.4');
} else {
$member = new Member($parser,
+ props => $self->{props},
type => $self->{type},
idf => $idf,
deprecated => TypeDeclarator->IsDeprecated($parser, $self->{type}),
Oops, something went wrong.

0 comments on commit 936e11a

Please sign in to comment.