Permalink
Browse files

import version 2.60 from backpan

  • Loading branch information...
1 parent bae7587 commit 5879bb9f598a1962d2f05301ea32fda1e734518b @fperrad committed with Oct 12, 2007
Showing with 29,034 additions and 28,722 deletions.
  1. +4 −0 Changes
  2. +22 −20 MANIFEST
  3. +1 −1 META.yml
  4. +43 −61 bin/idl
  5. +4 −2 lib/CORBA/IDL.pm
  6. +1,038 −0 lib/CORBA/IDL/AsciiVisitor.pm
  7. +622 −0 lib/CORBA/IDL/Lexer.pm
  8. +43 −0 lib/CORBA/IDL/Makefile.yapp
  9. +2,789 −0 lib/CORBA/IDL/Node.pm
  10. +776 −778 lib/CORBA/IDL/{parser20.pm → Parser20.pm}
  11. +1,534 −0 lib/CORBA/IDL/Parser20.yp
  12. +858 −860 lib/CORBA/IDL/{parser21.pm → Parser21.pm}
  13. +1,695 −0 lib/CORBA/IDL/Parser21.yp
  14. +863 −865 lib/CORBA/IDL/{parser22.pm → Parser22.pm}
  15. +1,702 −0 lib/CORBA/IDL/Parser22.yp
  16. +1,102 −1,102 lib/CORBA/IDL/{parser23.pm → Parser23.pm}
  17. +2,130 −0 lib/CORBA/IDL/Parser23.yp
  18. +1,131 −1,129 lib/CORBA/IDL/{parser24.pm → Parser24.pm}
  19. +2,172 −0 lib/CORBA/IDL/Parser24.yp
  20. +1,620 −1,618 lib/CORBA/IDL/{parser30.pm → Parser30.pm}
  21. +3,014 −0 lib/CORBA/IDL/Parser30.yp
  22. +265 −0 lib/CORBA/IDL/ParserFactory.pm
  23. +1,379 −1,377 lib/CORBA/IDL/{parserxp.pm → ParserXp.pm}
  24. +2,557 −0 lib/CORBA/IDL/ParserXp.yp
  25. +352 −0 lib/CORBA/IDL/RepositoryIdVisitor.pm
  26. +912 −0 lib/CORBA/IDL/Symbtab.pm
  27. +386 −0 lib/CORBA/IDL/UidVisitor.pm
  28. +0 −1,028 lib/CORBA/IDL/ascii.pm
  29. +0 −779 lib/CORBA/IDL/lexer.pm
  30. +0 −42 lib/CORBA/IDL/makefile.yapp
  31. +0 −2,650 lib/CORBA/IDL/node.pm
  32. +0 −1,536 lib/CORBA/IDL/parser20.yp
  33. +0 −1,697 lib/CORBA/IDL/parser21.yp
  34. +0 −1,704 lib/CORBA/IDL/parser22.yp
  35. +0 −2,130 lib/CORBA/IDL/parser23.yp
  36. +0 −2,170 lib/CORBA/IDL/parser24.yp
  37. +0 −3,012 lib/CORBA/IDL/parser30.yp
  38. +0 −2,555 lib/CORBA/IDL/parserxp.yp
  39. +0 −715 lib/CORBA/IDL/repos_id.pm
  40. +0 −871 lib/CORBA/IDL/symbtab.pm
  41. +20 −20 test.pl
View
@@ -1,5 +1,9 @@
Revision history for Perl extension CORBA::IDL.
+2.60 Fri Oct 12 08:30:00 2007
+ - package refactoring (not compatible with 2.4x version)
+ - some Perl Best Practices
+
2.47 Wed Sep 26 12:30:00 2007
- reorg: more compliant with CPAN requirements
View
@@ -1,25 +1,27 @@
Changes
lib/CORBA/IDL.pm
-lib/CORBA/IDL/ascii.pm
-lib/CORBA/IDL/lexer.pm
-lib/CORBA/IDL/node.pm
-lib/CORBA/IDL/parser20.pm
-lib/CORBA/IDL/parser21.pm
-lib/CORBA/IDL/parser22.pm
-lib/CORBA/IDL/parser23.pm
-lib/CORBA/IDL/parser24.pm
-lib/CORBA/IDL/parser30.pm
-lib/CORBA/IDL/parserxp.pm
-lib/CORBA/IDL/repos_id.pm
-lib/CORBA/IDL/symbtab.pm
-lib/CORBA/IDL/parser20.yp
-lib/CORBA/IDL/parser21.yp
-lib/CORBA/IDL/parser22.yp
-lib/CORBA/IDL/parser23.yp
-lib/CORBA/IDL/parser24.yp
-lib/CORBA/IDL/parser30.yp
-lib/CORBA/IDL/parserxp.yp
-lib/CORBA/IDL/makefile.yapp
+lib/CORBA/IDL/AsciiVisitor.pm
+lib/CORBA/IDL/RepositoryIdVisitor.pm
+lib/CORBA/IDL/UidVisitor.pm
+lib/CORBA/IDL/Lexer.pm
+lib/CORBA/IDL/Node.pm
+lib/CORBA/IDL/Symbtab.pm
+lib/CORBA/IDL/ParserFactory.pm
+lib/CORBA/IDL/Parser20.pm
+lib/CORBA/IDL/Parser21.pm
+lib/CORBA/IDL/Parser22.pm
+lib/CORBA/IDL/Parser23.pm
+lib/CORBA/IDL/Parser24.pm
+lib/CORBA/IDL/Parser30.pm
+lib/CORBA/IDL/ParserXp.pm
+lib/CORBA/IDL/Parser20.yp
+lib/CORBA/IDL/Parser21.yp
+lib/CORBA/IDL/Parser22.yp
+lib/CORBA/IDL/Parser23.yp
+lib/CORBA/IDL/Parser24.yp
+lib/CORBA/IDL/Parser30.yp
+lib/CORBA/IDL/ParserXp.yp
+lib/CORBA/IDL/Makefile.yapp
bin/idl
TypeCode.idl
Makefile.PL
View
@@ -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.47
+version: 2.60
version_from: lib/CORBA/IDL.pm
installdirs: site
requires:
View
104 bin/idl
@@ -1,79 +1,61 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
-use CORBA::IDL;
-use CORBA::IDL::parser30;
-use CORBA::IDL::symbtab;
+use warnings;
+
+use CORBA::IDL 2.60;
# visitors
-use CORBA::IDL::repos_id;
-use CORBA::IDL::ascii;
-
-my $parser = new Parser;
-$parser->YYData->{verbose_error} = 1; # 0, 1
-$parser->YYData->{verbose_warning} = 1; # 0, 1
-$parser->YYData->{verbose_info} = 1; # 0, 1
-$parser->YYData->{verbose_deprecated} = 0; # 0, 1 (concerns only version '2.4' and upper)
-$parser->YYData->{symbtab} = new CORBA::IDL::Symbtab($parser);
-my $cflags = '-D__idl';
-if ($Parser::IDL_version lt '3.0') {
- $cflags .= ' -D_PRE_3_0_COMPILER_';
-}
-if ($^O eq 'MSWin32') {
- $parser->YYData->{preprocessor} = 'cpp -C ' . $cflags;
-# $parser->YYData->{preprocessor} = 'CL /E /C /nologo ' . $cflags; # Microsoft VC
-} else {
- $parser->YYData->{preprocessor} = 'cpp -C ' . $cflags;
-}
-$parser->getopts("hi:vx");
+use CORBA::IDL::RepositoryIdVisitor;
+use CORBA::IDL::AsciiVisitor;
+
+my $parser = CORBA::IDL::ParserFactory::create('3.0');
+$parser->getopts('hi:vx');
if ($parser->YYData->{opt_v}) {
- print "CORBA::IDL $CORBA::IDL::VERSION\n";
- print "IDL $Parser::IDL_version\n";
- print "$0\n";
- print "Perl $] on $^O\n";
- exit;
+ print "CORBA::IDL $CORBA::IDL::VERSION\n";
+ print "IDL $CORBA::IDL::Parser::IDL_VERSION\n";
+ print "$0\n";
+ print "Perl $] on $^O\n";
+ exit;
}
if ($parser->YYData->{opt_h}) {
- use Pod::Usage;
- pod2usage(-verbose => 1);
+ use Pod::Usage;
+ pod2usage(-verbose => 1);
}
-#$parser->YYData->{collision_allowed} = 1;
-$parser->Run(@ARGV);
-$parser->YYData->{symbtab}->CheckForward();
-$parser->YYData->{symbtab}->CheckRepositoryID();
-if (exists $parser->YYData->{nb_error}) {
- my $nb = $parser->YYData->{nb_error};
- print "$nb error(s).\n"
-}
-if ( $parser->YYData->{verbose_warning}
- and exists $parser->YYData->{nb_warning} ) {
- my $nb = $parser->YYData->{nb_warning};
- print "$nb warning(s).\n"
+my $cflags = '-D__idl';
+if ($CORBA::IDL::Parser::IDL_VERSION lt '3.0') {
+ $cflags .= ' -D_PRE_3_0_COMPILER_';
}
-if ( $parser->YYData->{verbose_info}
- and exists $parser->YYData->{nb_info} ) {
- my $nb = $parser->YYData->{nb_info};
- print "$nb info(s).\n"
+my $preprocessor;
+if ($^O eq 'MSWin32') {
+ $preprocessor = 'cpp -C ' . $cflags;
+# $preprocessor = 'CL /E /C /nologo ' . $cflags; # Microsoft VC
}
-if ( $parser->YYData->{verbose_deprecated}
- and exists $parser->YYData->{nb_deprecated} ) {
- my $nb = $parser->YYData->{nb_deprecated};
- print "$nb deprecated(s).\n"
+else {
+ $preprocessor = 'cpp -C ' . $cflags;
}
-
-if ( exists $parser->YYData->{root}
- and ! exists $parser->YYData->{nb_error} ) {
- $parser->YYData->{root}->visit(new CORBA::IDL::repositoryIdVisitor($parser));
- if ( $Parser::IDL_version ge '3.0'
- and $parser->YYData->{opt_x} ) {
- $parser->YYData->{symbtab}->Export();
- }
- $parser->YYData->{root}->visit(new CORBA::IDL::asciiVisitor($parser));
+$parser->Configure(
+ 'preprocessor' => $preprocessor,
+ 'verbose_error' => 1, # 0, 1
+ 'verbose_warning' => 1, # 0, 1
+ 'verbose_info' => 1, # 0, 1
+ 'verbose_deprecated' => 0, # 0, 1 (concerns only version '2.4' and upper)
+# 'collision_allowed' => 1,
+);
+$parser->Run(@ARGV);
+$parser->DisplayStatus();
+my $root = $parser->getRoot();
+if (defined $root) {
+ $root->visit(new CORBA::IDL::RepositoryIdVisitor($parser));
+ if ($parser->YYData->{opt_x}) {
+ $parser->Export();
+ }
+ $root->visit(new CORBA::IDL::AsciiVisitor($parser));
}
#use Data::Dumper;
#if (exists $parser->YYData->{root}) {
-# print Data::Dumper->Dump([$parser->YYData->{root}], ['root']);
+# print Data::Dumper->Dump([$parser->YYData->{root}], ['root']);
#}
__END__
View
@@ -1,9 +1,11 @@
use strict;
+use warnings;
package CORBA::IDL;
-use vars qw($VERSION);
-$VERSION = '2.47';
+our $VERSION = '2.60';
+
+use CORBA::IDL::ParserFactory;
1;
Oops, something went wrong.

0 comments on commit 5879bb9

Please sign in to comment.