| Current File : /home/mmdealscpanel/yummmdeals.com/Typemaps.tar |
InputMap.pm 0000644 00000003642 15051764260 0006652 0 ustar 00 package ExtUtils::Typemaps::InputMap;
use 5.006001;
use strict;
use warnings;
our $VERSION = '3.35';
=head1 NAME
ExtUtils::Typemaps::InputMap - Entry in the INPUT section of a typemap
=head1 SYNOPSIS
use ExtUtils::Typemaps;
...
my $input = $typemap->get_input_map('T_NV');
my $code = $input->code();
$input->code("...");
=head1 DESCRIPTION
Refer to L<ExtUtils::Typemaps> for details.
=head1 METHODS
=cut
=head2 new
Requires C<xstype> and C<code> parameters.
=cut
sub new {
my $prot = shift;
my $class = ref($prot)||$prot;
my %args = @_;
if (!ref($prot)) {
if (not defined $args{xstype} or not defined $args{code}) {
die("Need xstype and code parameters");
}
}
my $self = bless(
(ref($prot) ? {%$prot} : {})
=> $class
);
$self->{xstype} = $args{xstype} if defined $args{xstype};
$self->{code} = $args{code} if defined $args{code};
$self->{code} =~ s/^(?=\S)/\t/mg;
return $self;
}
=head2 code
Returns or sets the INPUT mapping code for this entry.
=cut
sub code {
$_[0]->{code} = $_[1] if @_ > 1;
return $_[0]->{code};
}
=head2 xstype
Returns the name of the XS type of the INPUT map.
=cut
sub xstype {
return $_[0]->{xstype};
}
=head2 cleaned_code
Returns a cleaned-up copy of the code to which certain transformations
have been applied to make it more ANSI compliant.
=cut
sub cleaned_code {
my $self = shift;
my $code = $self->code;
$code =~ s/(?:;+\s*|;*\s+)\z//s;
# Move C pre-processor instructions to column 1 to be strictly ANSI
# conformant. Some pre-processors are fussy about this.
$code =~ s/^\s+#/#/mg;
$code =~ s/\s*\z/\n/;
return $code;
}
=head1 SEE ALSO
L<ExtUtils::Typemaps>
=head1 AUTHOR
Steffen Mueller C<<smueller@cpan.org>>
=head1 COPYRIGHT & LICENSE
Copyright 2009, 2010, 2011, 2012 Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
1;
OutputMap.pm 0000644 00000010514 15051764260 0007047 0 ustar 00 package ExtUtils::Typemaps::OutputMap;
use 5.006001;
use strict;
use warnings;
our $VERSION = '3.35';
=head1 NAME
ExtUtils::Typemaps::OutputMap - Entry in the OUTPUT section of a typemap
=head1 SYNOPSIS
use ExtUtils::Typemaps;
...
my $output = $typemap->get_output_map('T_NV');
my $code = $output->code();
$output->code("...");
=head1 DESCRIPTION
Refer to L<ExtUtils::Typemaps> for details.
=head1 METHODS
=cut
=head2 new
Requires C<xstype> and C<code> parameters.
=cut
sub new {
my $prot = shift;
my $class = ref($prot)||$prot;
my %args = @_;
if (!ref($prot)) {
if (not defined $args{xstype} or not defined $args{code}) {
die("Need xstype and code parameters");
}
}
my $self = bless(
(ref($prot) ? {%$prot} : {})
=> $class
);
$self->{xstype} = $args{xstype} if defined $args{xstype};
$self->{code} = $args{code} if defined $args{code};
$self->{code} =~ s/^(?=\S)/\t/mg;
return $self;
}
=head2 code
Returns or sets the OUTPUT mapping code for this entry.
=cut
sub code {
$_[0]->{code} = $_[1] if @_ > 1;
return $_[0]->{code};
}
=head2 xstype
Returns the name of the XS type of the OUTPUT map.
=cut
sub xstype {
return $_[0]->{xstype};
}
=head2 cleaned_code
Returns a cleaned-up copy of the code to which certain transformations
have been applied to make it more ANSI compliant.
=cut
sub cleaned_code {
my $self = shift;
my $code = $self->code;
# Move C pre-processor instructions to column 1 to be strictly ANSI
# conformant. Some pre-processors are fussy about this.
$code =~ s/^\s+#/#/mg;
$code =~ s/\s*\z/\n/;
return $code;
}
=head2 targetable
This is an obscure but effective optimization that used to
live in C<ExtUtils::ParseXS> directly. Not implementing it
should never result in incorrect use of typemaps, just less
efficient code.
In a nutshell, this will check whether the output code
involves calling C<sv_setiv>, C<sv_setuv>, C<sv_setnv>, C<sv_setpv> or
C<sv_setpvn> to set the special C<$arg> placeholder to a new value
B<AT THE END OF THE OUTPUT CODE>. If that is the case, the code is
eligible for using the C<TARG>-related macros to optimize this.
Thus the name of the method: C<targetable>.
If this optimization is applicable, C<ExtUtils::ParseXS> will
emit a C<dXSTARG;> definition at the start of the generated XSUB code,
and type (see below) dependent code to set C<TARG> and push it on
the stack at the end of the generated XSUB code.
If the optimization can not be applied, this returns undef.
If it can be applied, this method returns a hash reference containing
the following information:
type: Any of the characters i, u, n, p
with_size: Bool indicating whether this is the sv_setpvn variant
what: The code that actually evaluates to the output scalar
what_size: If "with_size", this has the string length (as code,
not constant, including leading comma)
=cut
sub targetable {
my $self = shift;
return $self->{targetable} if exists $self->{targetable};
our $bal; # ()-balanced
$bal = qr[
(?:
(?>[^()]+)
|
\( (??{ $bal }) \)
)*
]x;
my $bal_no_comma = qr[
(?:
(?>[^(),]+)
|
\( (??{ $bal }) \)
)+
]x;
# matches variations on (SV*)
my $sv_cast = qr[
(?:
\( \s* SV \s* \* \s* \) \s*
)?
]x;
my $size = qr[ # Third arg (to setpvn)
, \s* (??{ $bal })
]xo;
my $code = $self->code;
# We can still bootstrap compile 're', because in code re.pm is
# available to miniperl, and does not attempt to load the XS code.
use re 'eval';
my ($type, $with_size, $arg, $sarg) =
($code =~
m[^
\s+
sv_set([iunp])v(n)? # Type, is_setpvn
\s*
\( \s*
$sv_cast \$arg \s* , \s*
( $bal_no_comma ) # Set from
( $size )? # Possible sizeof set-from
\s* \) \s* ; \s* $
]xo
);
my $rv = undef;
if ($type) {
$rv = {
type => $type,
with_size => $with_size,
what => $arg,
what_size => $sarg,
};
}
$self->{targetable} = $rv;
return $rv;
}
=head1 SEE ALSO
L<ExtUtils::Typemaps>
=head1 AUTHOR
Steffen Mueller C<<smueller@cpan.org>>
=head1 COPYRIGHT & LICENSE
Copyright 2009, 2010, 2011, 2012 Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
1;
Type.pm 0000644 00000004045 15051764260 0006034 0 ustar 00 package ExtUtils::Typemaps::Type;
use 5.006001;
use strict;
use warnings;
require ExtUtils::Typemaps;
our $VERSION = '3.35';
=head1 NAME
ExtUtils::Typemaps::Type - Entry in the TYPEMAP section of a typemap
=head1 SYNOPSIS
use ExtUtils::Typemaps;
...
my $type = $typemap->get_type_map('char*');
my $input = $typemap->get_input_map($type->xstype);
=head1 DESCRIPTION
Refer to L<ExtUtils::Typemaps> for details.
Object associates C<ctype> with C<xstype>, which is the index
into the in- and output mapping tables.
=head1 METHODS
=cut
=head2 new
Requires C<xstype> and C<ctype> parameters.
Optionally takes C<prototype> parameter.
=cut
sub new {
my $prot = shift;
my $class = ref($prot)||$prot;
my %args = @_;
if (!ref($prot)) {
if (not defined $args{xstype} or not defined $args{ctype}) {
die("Need xstype and ctype parameters");
}
}
my $self = bless(
(ref($prot) ? {%$prot} : {proto => ''})
=> $class
);
$self->{xstype} = $args{xstype} if defined $args{xstype};
$self->{ctype} = $args{ctype} if defined $args{ctype};
$self->{tidy_ctype} = ExtUtils::Typemaps::tidy_type($self->{ctype});
$self->{proto} = $args{'prototype'} if defined $args{'prototype'};
return $self;
}
=head2 proto
Returns or sets the prototype.
=cut
sub proto {
$_[0]->{proto} = $_[1] if @_ > 1;
return $_[0]->{proto};
}
=head2 xstype
Returns the name of the XS type that this C type is associated to.
=cut
sub xstype {
return $_[0]->{xstype};
}
=head2 ctype
Returns the name of the C type as it was set on construction.
=cut
sub ctype {
return defined($_[0]->{ctype}) ? $_[0]->{ctype} : $_[0]->{tidy_ctype};
}
=head2 tidy_ctype
Returns the canonicalized name of the C type.
=cut
sub tidy_ctype {
return $_[0]->{tidy_ctype};
}
=head1 SEE ALSO
L<ExtUtils::Typemaps>
=head1 AUTHOR
Steffen Mueller C<<smueller@cpan.org>>
=head1 COPYRIGHT & LICENSE
Copyright 2009, 2010, 2011, 2012 Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
1;
Cmd.pm 0000644 00000010045 15051764260 0005613 0 ustar 00 package ExtUtils::Typemaps::Cmd;
use 5.006001;
use strict;
use warnings;
our $VERSION = '3.35';
use ExtUtils::Typemaps;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(embeddable_typemap);
our %EXPORT_TAGS = (all => \@EXPORT);
sub embeddable_typemap {
my @tms = @_;
# Get typemap objects
my @tm_objs = map [$_, _intuit_typemap_source($_)], @tms;
# merge or short-circuit
my $final_tm;
if (@tm_objs == 1) {
# just one, merge would be pointless
$final_tm = shift(@tm_objs)->[1];
}
else {
# multiple, need merge
$final_tm = ExtUtils::Typemaps->new;
foreach my $other_tm (@tm_objs) {
my ($tm_ident, $tm_obj) = @$other_tm;
eval {
$final_tm->merge(typemap => $tm_obj);
1
} or do {
my $err = $@ || 'Zombie error';
die "Failed to merge typ";
}
}
}
# stringify for embedding
return $final_tm->as_embedded_typemap();
}
sub _load_module {
my $name = shift;
return eval "require $name; 1";
}
SCOPE: {
my %sources = (
module => sub {
my $ident = shift;
my $tm;
if (/::/) { # looks like FQ module name, try that first
foreach my $module ($ident, "ExtUtils::Typemaps::$ident") {
if (_load_module($module)) {
eval { $tm = $module->new }
and return $tm;
}
}
}
else {
foreach my $module ("ExtUtils::Typemaps::$ident", "$ident") {
if (_load_module($module)) {
eval { $tm = $module->new }
and return $tm;
}
}
}
return();
},
file => sub {
my $ident = shift;
return unless -e $ident and -r _;
return ExtUtils::Typemaps->new(file => $ident);
},
);
# Try to find typemap either from module or file
sub _intuit_typemap_source {
my $identifier = shift;
my @locate_attempts;
if ($identifier =~ /::/ || $identifier !~ /[^\w_]/) {
@locate_attempts = qw(module file);
}
else {
@locate_attempts = qw(file module);
}
foreach my $source (@locate_attempts) {
my $tm = $sources{$source}->($identifier);
return $tm if defined $tm;
}
die "Unable to find typemap for '$identifier': "
. "Tried to load both as file or module and failed.\n";
}
} # end SCOPE
=head1 NAME
ExtUtils::Typemaps::Cmd - Quick commands for handling typemaps
=head1 SYNOPSIS
From XS:
INCLUDE_COMMAND: $^X -MExtUtils::Typemaps::Cmd \
-e "print embeddable_typemap(q{Excommunicated})"
Loads C<ExtUtils::Typemaps::Excommunicated>, instantiates an object,
and dumps it as an embeddable typemap for use directly in your XS file.
=head1 DESCRIPTION
This is a helper module for L<ExtUtils::Typemaps> for quick
one-liners, specifically for inclusion of shared typemaps
that live on CPAN into an XS file (see SYNOPSIS).
For this reason, the following functions are exported by default:
=head1 EXPORTED FUNCTIONS
=head2 embeddable_typemap
Given a list of identifiers, C<embeddable_typemap>
tries to load typemaps from a file of the given name(s),
or from a module that is an C<ExtUtils::Typemaps> subclass.
Returns a string representation of the merged typemaps that can
be included verbatim into XS. Example:
print embeddable_typemap(
"Excommunicated", "ExtUtils::Typemaps::Basic", "./typemap"
);
This will try to load a module C<ExtUtils::Typemaps::Excommunicated>
and use it as an C<ExtUtils::Typemaps> subclass. If that fails, it'll
try loading C<Excommunicated> as a module, if that fails, it'll try to
read a file called F<Excommunicated>. It'll work similarly for the
second argument, but the third will be loaded as a file first.
After loading all typemap files or modules, it will merge them in the
specified order and dump the result as an embeddable typemap.
=head1 SEE ALSO
L<ExtUtils::Typemaps>
L<perlxs>
=head1 AUTHOR
Steffen Mueller C<<smueller@cpan.org>>
=head1 COPYRIGHT & LICENSE
Copyright 2012 Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
1;