Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Makefile	2.15 KB	-rw-r--r--	2016-10-10 17:41
Makefile.PL	2.8 KB	-r--r--r--	2014-12-27 11:49
c2ph	35.77 KB	-rwxr-xr-x	2016-10-10 17:41
c2ph.PL	37.81 KB	-r--r--r--	2014-12-27 11:49
config_data	7.08 KB	-rwxr-xr-x	2016-10-10 17:41
config_data.PL	1.45 KB	-r--r--r--	2014-12-27 11:49
corelist	12.51 KB	-rwxr-xr-x	2016-10-10 17:41
corelist.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
cpan	5.75 KB	-rwxr-xr-x	2016-10-10 17:41
cpan.PL	1.4 KB	-r--r--r--	2014-12-27 11:49
enc2xs	38.51 KB	-rwxr-xr-x	2016-10-10 17:41
enc2xs.PL	1.41 KB	-r--r--r--	2014-12-27 11:49
h2ph	27.67 KB	-rwxr-xr-x	2016-10-10 17:41
h2ph.PL	28.84 KB	-r--r--r--	2014-12-27 11:49
h2xs	59.37 KB	-rwxr-xr-x	2016-10-10 17:41
h2xs.PL	60.53 KB	-r--r--r--	2014-12-27 11:49
instmodsh	4.17 KB	-rwxr-xr-x	2016-10-10 17:41
instmodsh.PL	1.46 KB	-r--r--r--	2014-12-27 11:49
json_pp	3.85 KB	-rwxr-xr-x	2016-10-10 17:41
json_pp.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
libnetcfg	15.37 KB	-rwxr-xr-x	2016-10-10 17:41
libnetcfg.PL	16.53 KB	-r--r--r--	2014-12-27 11:49
perlbug	44.31 KB	-rwxr-xr-x	2016-10-10 17:41
perlbug.PL	45.92 KB	-r--r--r--	2014-12-27 11:49
perldoc	246 B	-rwxr-xr-x	2016-10-10 17:41
perldoc.PL	1.65 KB	-r--r--r--	2014-12-27 11:49
perlivp	10.55 KB	-rwxr-xr-x	2016-10-10 17:41
perlivp.PL	12.34 KB	-r--r--r--	2014-12-27 11:49
piconv	8.09 KB	-rwxr-xr-x	2016-10-10 17:41
piconv.PL	1.41 KB	-r--r--r--	2014-12-27 11:49
pl2pm	4.45 KB	-rwxr-xr-x	2016-10-10 17:41
pl2pm.PL	5.6 KB	-r--r--r--	2014-12-27 11:49
pod2html	4.02 KB	-rwxr-xr-x	2016-10-10 17:41
pod2html.PL	1.42 KB	-r--r--r--	2014-12-27 11:49
prove	13.21 KB	-rwxr-xr-x	2016-10-10 17:41
prove.PL	1.41 KB	-r--r--r--	2014-12-27 11:49
pstruct	35.77 KB	-rwxr-xr-x	2016-10-10 17:41
ptar	3.46 KB	-rwxr-xr-x	2016-10-10 17:41
ptar.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
ptardiff	2.44 KB	-rwxr-xr-x	2016-10-10 17:41
ptardiff.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
ptargrep	4.16 KB	-rwxr-xr-x	2016-10-10 17:41
ptargrep.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
shasum	8.84 KB	-rwxr-xr-x	2016-10-10 17:41
shasum.PL	1.44 KB	-r--r--r--	2014-12-27 11:49
splain	18.35 KB	-rwxr-xr-x	2016-10-10 17:41
splain.PL	1.38 KB	-r--r--r--	2014-12-27 11:49
xsubpp	5.03 KB	-rwxr-xr-x	2016-10-10 17:41
xsubpp.PL	1.45 KB	-r--r--r--	2014-12-27 11:49
zipdetails	47.34 KB	-rwxr-xr-x	2016-10-10 17:41
zipdetails.PL	1.45 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/root/localperl/bin/perl
    eval 'exec /root/localperl/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;
#!perl
use 5.006;
use strict;
eval {
  require ExtUtils::ParseXS;
  1;
}
or do {
  my $err = $@ || 'Zombie error';
  my $v = $ExtUtils::ParseXS::VERSION;
  $v = '<undef>' if not defined $v;
  die "Failed to load or import from ExtUtils::ParseXS (version $v). Please check that ExtUtils::ParseXS is installed correctly and that the newest version will be found in your \@INC path: $err";
};

use Getopt::Long;

my %args = ();

my $usage = "Usage: xsubpp [-v] [-csuffix csuffix] [-except] [-prototypes] [-noversioncheck] [-nolinenumbers] [-nooptimize] [-noinout] [-noargtypes] [-strip|s pattern] [-typemap typemap]... file.xs\n";

Getopt::Long::Configure qw(no_auto_abbrev no_ignore_case);

@ARGV = grep {$_ ne '-C++'} @ARGV;  # Allow -C++ for backward compatibility
GetOptions(\%args, qw(hiertype!
		      prototypes!
		      versioncheck!
		      linenumbers!
		      optimize!
		      inout!
		      argtypes!
		      object_capi!
		      except!
		      v
		      typemap=s@
		      output=s
		      s|strip=s
		      csuffix=s
		     ))
  or die $usage;

if ($args{v}) {
  print "xsubpp version $ExtUtils::ParseXS::VERSION\n";
  exit;
}

@ARGV == 1 or die $usage;

$args{filename} = shift @ARGV;

my $pxs = ExtUtils::ParseXS->new;
$pxs->process_file(%args);
exit( $pxs->report_error_count() ? 1 : 0 );

__END__

=head1 NAME

xsubpp - compiler to convert Perl XS code into C code

=head1 SYNOPSIS

B<xsubpp> [B<-v>] [B<-except>] [B<-s pattern>] [B<-prototypes>] [B<-noversioncheck>] [B<-nolinenumbers>] [B<-nooptimize>] [B<-typemap typemap>] [B<-output filename>]... file.xs

=head1 DESCRIPTION

This compiler is typically run by the makefiles created by L<ExtUtils::MakeMaker>
or by L<Module::Build> or other Perl module build tools.

I<xsubpp> will compile XS code into C code by embedding the constructs
necessary to let C functions manipulate Perl values and creates the glue
necessary to let Perl access those functions.  The compiler uses typemaps to
determine how to map C function parameters and variables to Perl values.

The compiler will search for typemap files called I<typemap>.  It will use
the following search path to find default typemaps, with the rightmost
typemap taking precedence.

../../../typemap:../../typemap:../typemap:typemap

It will also use a default typemap installed as C<ExtUtils::typemap>.

=head1 OPTIONS

Note that the C<XSOPT> MakeMaker option may be used to add these options to
any makefiles generated by MakeMaker.

=over 5

=item B<-hiertype>

Retains '::' in type names so that C++ hierarchical types can be mapped.

=item B<-except>

Adds exception handling stubs to the C code.

=item B<-typemap typemap>

Indicates that a user-supplied typemap should take precedence over the
default typemaps.  This option may be used multiple times, with the last
typemap having the highest precedence.

=item B<-output filename>

Specifies the name of the output file to generate.  If no file is
specified, output will be written to standard output.

=item B<-v>

Prints the I<xsubpp> version number to standard output, then exits.

=item B<-prototypes>

By default I<xsubpp> will not automatically generate prototype code for
all xsubs. This flag will enable prototypes.

=item B<-noversioncheck>

Disables the run time test that determines if the object file (derived
from the C<.xs> file) and the C<.pm> files have the same version
number.

=item B<-nolinenumbers>

Prevents the inclusion of '#line' directives in the output.

=item B<-nooptimize>

Disables certain optimizations.  The only optimization that is currently
affected is the use of I<target>s by the output C code (see L<perlguts>).
This may significantly slow down the generated code, but this is the way
B<xsubpp> of 5.005 and earlier operated.

=item B<-noinout>

Disable recognition of C<IN>, C<OUT_LIST> and C<INOUT_LIST> declarations.

=item B<-noargtypes>

Disable recognition of ANSI-like descriptions of function signature.

=item B<-C++>

Currently doesn't do anything at all.  This flag has been a no-op for
many versions of perl, at least as far back as perl5.003_07.  It's
allowed here for backwards compatibility.

=item B<-s=...> or B<-strip=...>

I<This option is obscure and discouraged.>

If specified, the given string will be stripped off from the beginning
of the C function name in the generated XS functions (if it starts with that prefix).
This only applies to XSUBs without C<CODE> or C<PPCODE> blocks.
For example, the XS:

void foo_bar(int i);

when C<xsubpp> is invoked with C<-s foo_> will install a C<foo_bar>
function in Perl, but really call C<bar(i)> in C. Most of the time,
this is the opposite of what you want and failure modes are somewhat
obscure, so please avoid this option where possible.

=back

=head1 ENVIRONMENT

No environment variables are used.

=head1 AUTHOR

Originally by Larry Wall.  Turned into the C<ExtUtils::ParseXS> module
by Ken Williams.

=head1 MODIFICATION HISTORY

See the file F<Changes>.

=head1 SEE ALSO

perl(1), perlxs(1), perlxstut(1), ExtUtils::ParseXS

=cut