Skip to content
Browse files

import version 0.62

  • Loading branch information...
1 parent a4b6a56 commit 43b554bbe975734df633e54fd842df21b688e49e @fperrad committed
Showing with 39 additions and 14 deletions.
  1. +3 −0 Changes
  2. +13 −10 META.yml
  3. +1 −1 lib/CORBA/XS.pm
  4. +8 −1 lib/CORBA/XS/CVisitor.pm
  5. +8 −1 lib/CORBA/XS/StubCVisitor.pm
  6. +6 −1 lib/CORBA/XS/StubPerlVisitor.pm
View
3 Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension CORBA::XS.
+0.62 Wed Jul 16 18:30:00 2008
+ - add Vi & Emacs macros
+
0.61 Fri Oct 19 08:30:00 2007
- compatible with CORBA::IDL 2.61
View
23 META.yml
@@ -1,13 +1,16 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: CORBA-XS
-version: 0.61
-version_from: lib/CORBA/XS.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: CORBA-XS
+version: 0.62
+abstract: IDL compiler to extension interface between Perl and C code
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.3201
+distribution_type: module
+requires:
CORBA::C: 2.6
CORBA::IDL: 2.6
CORBA::Perl: 0.41
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
+author:
+ - Francois PERRAD (francois.perrad@gadz.org)
View
2 lib/CORBA/XS.pm
@@ -3,7 +3,7 @@ use warnings;
package CORBA::XS;
-our $VERSION = '0.61';
+our $VERSION = '0.62';
use CORBA::XS::CdrCVisitor;
use CORBA::XS::CVisitor;
View
9 lib/CORBA/XS/CVisitor.pm
@@ -8,7 +8,7 @@ package CORBA::XS::CVisitor;
use strict;
use warnings;
-our $VERSION = '0.60';
+our $VERSION = '0.62';
use File::Basename;
use POSIX qw(ctime);
@@ -70,6 +70,7 @@ sub visitSpecification {
my $src_name = basename($self->{srcname}, '.idl');
$self->open_stream($src_name . '.c');
my $FH = $self->{out};
+ print $FH "/* ex: set ro: */\n";
print $FH "/* This file was generated (by ",$0,"). DO NOT modify it */\n";
print $FH "/*\n";
print $FH " * From file : ",$self->{srcname},", ",$self->{srcname_size}," octets, ",POSIX::ctime($self->{srcname_mtime});
@@ -98,6 +99,12 @@ sub visitSpecification {
print $FH "}\n";
print $FH "\n";
print $FH "/* end of file : ",$self->{filename}," */\n";
+ print $FH "\n";
+ print $FH "/*\n";
+ print $FH " * Local variables:\n";
+ print $FH " * buffer-read-only: t\n";
+ print $FH " * End:\n";
+ print $FH " */\n";
close $FH;
unless ($self->{has_methods}) {
unlink $self->{filename}
View
9 lib/CORBA/XS/StubCVisitor.pm
@@ -8,7 +8,7 @@ package CORBA::XS::StubCVisitor;
use strict;
use POSIX qw(ctime);
-our $VERSION = '0.61';
+our $VERSION = '0.62';
use CORBA::XS::CdrCVisitor;
use base qw(CORBA::XS::CdrCVisitor);
@@ -666,6 +666,7 @@ sub visitSpecification {
my($node) = @_;
my $filename = $self->{prefix} . basename($self->{srcname}, '.idl') . '.h';
my $FH = $self->{out};
+ print $FH "/* ex: set ro: */\n";
print $FH "/* This file was generated (by ",$0,"). DO NOT modify it */\n";
print $FH "// From file : ",$self->{srcname},", ",$self->{srcname_size}," octets, ",POSIX::ctime($self->{srcname_mtime});
print $FH "\n";
@@ -678,6 +679,12 @@ sub visitSpecification {
$self->_get_defn($_)->visit($self);
}
print $FH "/* end of file : ",$self->{filename}," */\n";
+ print $FH "\n";
+ print $FH "/*\n";
+ print $FH " * Local variables:\n";
+ print $FH " * buffer-read-only: t\n";
+ print $FH " * End:\n";
+ print $FH " */\n";
close $FH;
}
View
7 lib/CORBA/XS/StubPerlVisitor.pm
@@ -8,7 +8,7 @@ package CORBA::XS::StubPerlVisitor;
use strict;
use warnings;
-our $VERSION = '0.61';
+our $VERSION = '0.62';
use CORBA::Perl::CdrVisitor;
use base qw(CORBA::Perl::CdrVisitor);
@@ -61,6 +61,7 @@ sub visitSpecification {
my $filename = basename($self->{srcname}, '.idl');
my $FH = $self->{out};
$self->{pkg_modif} = 0;
+ print $FH "# ex: set ro:\n";
print $FH "# This file was generated (by ",$0,"). DO NOT modify it.\n";
print $FH "# From file : ",$self->{srcname},", ",$self->{srcname_size}," octets, ",POSIX::ctime($self->{srcname_mtime});
print $FH "\n";
@@ -104,6 +105,10 @@ sub visitSpecification {
print $FH "1;\n";
print $FH "\n";
print $FH "# end of file : ",$self->{filename},"\n";
+ print $FH "\n";
+ print $FH "# Local variables:\n";
+ print $FH "# buffer-read-only: t\n";
+ print $FH "# End:\n";
close $FH;
}

0 comments on commit 43b554b

Please sign in to comment.
Something went wrong with that request. Please try again.