This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
C++ compilation patch by Jarkko
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 Apr 2007 08:34:09 +0000 (08:34 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 Apr 2007 08:34:09 +0000 (08:34 +0000)
p4raw-id: //depot/perl@30836

ext/Encode/bin/enc2xs

index 95067c8..c5cf8ee 100644 (file)
@@ -271,6 +271,9 @@ if ($doC)
 
     # push(@{$encoding{$name}},outstring(\*C,$e2u->{Cname}.'_def',$erep));
    }
+  my $cpp = ($Config{d_cplusplus} || '') eq 'define';
+  my $exta = $cpp ? 'extern "C" ' : "static";
+  my $extb = $cpp ? 'extern "C" ' : "";
   foreach my $enc (sort cmp_name keys %encoding)
    {
     # my ($e2u,$u2e,$rep,$min_el,$max_el,$rsym) = @{$encoding{$enc}};
@@ -282,9 +285,9 @@ if ($doC)
     $sym =~ s/\W+/_/g;
     my @info = ($e2u->{Cname},$u2e->{Cname},"${sym}_rep_character",$replen,
         $min_el,$max_el);
-    print C "static const U8 ${sym}_rep_character[] = \"$rep\";\n";
-    print C "static const char ${sym}_enc_name[] = \"$enc\";\n\n";
-    print C "const encode_t $sym = \n";
+    print C "${exta} const U8 ${sym}_rep_character[] = \"$rep\";\n";
+    print C "${exta} const char ${sym}_enc_name[] = \"$enc\";\n\n";
+    print C "${extb} const encode_t $sym = \n";
     # This is to make null encoding work -- dankogai
     for (my $i = (scalar @info) - 1;  $i >= 0; --$i){
     $info[$i] ||= 1;