Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

import version 2.44 from backpan

  • Loading branch information...
commit e21148d502e76ef382f3a37a67518a92aabd0309 1 parent f49fcc0
@fperrad authored
View
6 Changes
@@ -1,5 +1,11 @@
Revision history for Perl extension CORBA::IDL.
+2.44 Sun Apr 3 20:30;00 2005
+ - lexer.pm : /**< doxygen comment */
+ - parser* : BooleanLiteral->{value}
+ - repos_id.pm : generalization
+ - Specification->{full} = ''
+
2.43 Tue Jan 4 18:30:00 2005
- bug [cpan #9366] AST for Enum-discriminated Unions always indicates 'need_default'
View
2  META.yml
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: CORBA-IDL
-version: 2.43
+version: 2.44
version_from: node.pm
installdirs: site
requires:
View
46 lexer.pm
@@ -321,6 +321,49 @@ sub _DocLexer {
}
}
+sub _DocAfterLexer {
+ my $parser = shift;
+
+ unless (defined $parser->YYData->{curr_node}) {
+ $parser->_DocLexer();
+ return;
+ }
+
+ unless (exists $parser->YYData->{curr_node}->{doc}) {
+ $parser->YYData->{curr_node}->{doc} = '';
+ }
+ my $flag = 1;
+ while (1) {
+ $parser->YYData->{line}
+ or $parser->YYData->{line} = readline $parser->YYData->{fh}
+ or return;
+
+ for ($parser->YYData->{line}) {
+ s/^(\n)//
+ and $parser->YYData->{lineno} ++,
+ $parser->YYData->{curr_node}->{doc} .= $1,
+ $flag = 0,
+ last;
+ s/^\r//
+ and last;
+ s/^\*\///
+ and return;
+ unless ($flag) {
+ s/^\*//
+ and $flag = 1,
+ last;
+ }
+ s/^([ \t\f\013]+)//
+ and $parser->YYData->{curr_node}->{doc} .= $1,
+ last;
+ s/^(.)//
+ and $parser->YYData->{curr_node}->{doc} .= $1,
+ $flag = 1,
+ last;
+ }
+ }
+}
+
sub _CodeLexer {
my $parser = shift;
my $frag = "";
@@ -434,6 +477,9 @@ sub _Lexer {
$parser->YYData->{curr_node} = undef,
last;
+ s/^\/\*\*<// # documentation after
+ and $parser->_DocAfterLexer(),
+ last;
s/^\/\*\*// # documentation
and $parser->_DocLexer(),
last;
View
2  node.pm
@@ -8,7 +8,7 @@ use UNIVERSAL;
package CORBA::IDL::node;
use vars qw($VERSION);
-$VERSION = '2.43';
+$VERSION = '2.44';
sub _Build {
my $proto = shift;
View
4 parser20.pm
@@ -3873,7 +3873,7 @@ sub
#line 538 "parser20.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -3883,7 +3883,7 @@ sub
#line 544 "parser20.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parser20.yp
@@ -537,13 +537,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
4 parser21.pm
@@ -4360,7 +4360,7 @@ sub
#line 579 "parser21.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -4370,7 +4370,7 @@ sub
#line 585 "parser21.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parser21.yp
@@ -578,13 +578,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
4 parser22.pm
@@ -4377,7 +4377,7 @@ sub
#line 580 "parser22.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -4387,7 +4387,7 @@ sub
#line 586 "parser22.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parser22.yp
@@ -579,13 +579,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
4 parser23.pm
@@ -5719,7 +5719,7 @@ sub
#line 986 "parser23.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -5729,7 +5729,7 @@ sub
#line 992 "parser23.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parser23.yp
@@ -985,13 +985,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
4 parser24.pm
@@ -5784,7 +5784,7 @@ sub
#line 998 "parser24.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -5794,7 +5794,7 @@ sub
#line 1004 "parser24.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parser24.yp
@@ -997,13 +997,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
4 parser30.pm
@@ -7509,7 +7509,7 @@ sub
#line 1043 "parser30.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -7519,7 +7519,7 @@ sub
#line 1049 "parser30.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parser30.yp
@@ -1042,13 +1042,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
4 parserxp.pm
@@ -6453,7 +6453,7 @@ sub
#line 1077 "parserxp.yp"
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
],
@@ -6463,7 +6463,7 @@ sub
#line 1083 "parserxp.yp"
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
],
View
4 parserxp.yp
@@ -1076,13 +1076,13 @@ boolean_literal
: TRUE
{
new BooleanLiteral($_[0],
- 'value' => 1
+ 'value' => $_[1]
);
}
| FALSE
{
new BooleanLiteral($_[0],
- 'value' => 0
+ 'value' => $_[1]
);
}
;
View
28 repos_id.pm
@@ -118,11 +118,15 @@ sub visitBaseInterface {
#
sub visitStateMember {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
sub visitInitializer {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
sub visitBoxedValue {
@@ -137,7 +141,9 @@ sub visitBoxedValue {
#
sub visitConstant {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
#
@@ -257,7 +263,9 @@ sub visitException {
#
sub visitOperation {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
#
@@ -265,7 +273,9 @@ sub visitOperation {
#
sub visitAttribute {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
#
@@ -313,11 +323,15 @@ sub visitConsumes {
#
sub visitFactory {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
sub visitFinder {
- # empty
+ my $self = shift;
+ my ($node) = @_;
+ $self->_set_repos_id($node);
}
1;
View
3  symbtab.pm
@@ -273,6 +273,7 @@ sub Insert {
my $self = shift;
my($node) = @_;
if ($node->isa('Specification')) {
+ $node->{full} = '';
$self->{scopes}->{''}->_Insert('', $node);
return;
}
@@ -630,7 +631,7 @@ sub CheckID {
} elsif ($id =~ /^RMI:/) {
# 10.7.2 RMI Hashed Format
$self->{parser}->Error("Bad RMI format for Repository ID '$id'.\n")
- unless ($id =~ /^RMI:[0-9A-Fa-f\-]+:[0-9A-F]{16}(:[0-9A-F]{16})?/);
+ unless ($id =~ /^RMI:[0-9A-Za-z_\[\-\.\/\$\\]+:[0-9A-Fa-f]{16}(:[0-9A-Fa-f]{16})?/);
} elsif ($id =~ /^DCE:/) {
# 10.7.3 DCE UUID Format
$self->{parser}->Error("Bad DCE format for Repository ID '$id'.\n")
Please sign in to comment.
Something went wrong with that request. Please try again.