/usr/local/CPAN/Embperl/Embperl/WrapXS.pm

• package Embperl::WrapXS
  • new_parsesource
  • my_xs_prefix
  • h_filename_prefix
  • xs_includes
  • xs_map_dir
  • xs_target_dir
  • xs_include_dir
  • trans
  • mapline_elem
  • pm_text
  • makefilepl_text
• EOF

package Embperl::WrapXS ;
use strict;
use vars qw{@ISA $VERSION $verbose} ;

use warnings FATAL => 'all';

use ExtUtils::XSBuilder::WrapXS ;

@ISA = ('ExtUtils::XSBuilder::WrapXS') ;

$VERSION = '2.0.0';

# ============================================================================

sub new_parsesource  { [ Embperl::ParseSource->new ] }

# ============================================================================

sub my_xs_prefix  { 'epxs_' }

# ============================================================================

sub h_filename_prefix  { 'ep_xs_' }

# ============================================================================

sub xs_includes  
    { 
    my $self = shift ;

    my $inc = $self -> SUPER::xs_includes ;

    unshift @$inc, "epmacro.h" ;
    unshift @$inc, "ep.h" ;

    return $inc ;
    }


sub xs_map_dir    { "$FindBin::Bin/maps" } ;

sub xs_target_dir { "$FindBin::Bin/../xs" } ;

sub xs_include_dir { "$FindBin::Bin/../xsinclude" } ;

sub trans
    {
    my $name = shift ;

    return $name if ($name !~ /[A-Z]/) ;
    $name =~ s/^.*?([A-Z])/$1/ ;
    $name =~ s/([A-Z]+)/'_' . lc($1)/eg ;
    $name =~ s/^_// ;
    return $name ;
    }



sub mapline_elem

    {
    my ($self, $name) = @_ ;

    my $perl_name = trans ($name) ;

    return "$name | $perl_name" if ($name ne $perl_name) ;
    return $name ;
    }


sub pm_text { undef } ;

sub makefilepl_text {
    my $self = shift ;

    my $code = "local \$mp2cfg ;\nlocal \$ccdebug ;\nlocal \$addcflags;\n" .
                $self -> SUPER::makefilepl_text (@_) ;

    $code .= q[



sub MY::top_targets
		{
		my ($txt) = shift -> MM::top_targets (@_) ;
                $txt =~ s/config\s+pm_to_blib\s+subdirs\s+linkext/\$(O_FILES) subdirs/ ; 
		return $txt ;
		}


sub MY::cflags 
		{
		my $self = shift ;
                
                my $txt = $self -> MM::cflags (@_) ;

                if ($mp2cfg)
                        { # with Apache 2, make sure we have the same defines as mod_perl
                        $txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ;
                        $txt =~ /CCFLAGS\s*=(.*?)\n/s ;
	    	    my $flags = $mp2cfg->{MODPERL_CCOPTS} || $1 ;
                        $txt =~ s/CCFLAGS\s*=(.*?)\n/CCFLAGS = $ccdebug $flags $addcflags\n/s ;
                        }
                else
                        {
                        $txt =~ s/-O\d//g if ($ccdebug =~ /-O\d/) ;
	    	    $txt =~ s/CCFLAGS\s*=/CCFLAGS = $ccdebug $addcflags/ ;
                        }

                
                return $txt ;
		}

] ;

    return $code ;
    }