<h2>Edit File - xsubpp</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/bin/xsubpp">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/bin/perl
use 5.006;
BEGIN { pop @INC if $INC[-1] eq &#039;.&#039; }
use strict;
eval {
  require ExtUtils::ParseXS;
  1;
}
or do {
  my $err = $@ || &#039;Zombie error&#039;;
  my $v = $ExtUtils::ParseXS::VERSION;
  $v = &#039;&lt;undef&gt;&#039; if not defined $v;
  die &quot;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&quot;;
};

use Getopt::Long;

my %args = ();

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

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

@ARGV = grep {$_ ne &#039;-C++&#039;} @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 &quot;xsubpp version $ExtUtils::ParseXS::VERSION\n&quot;;
  exit;
}

@ARGV == 1 or die $usage;

$args{filename} = shift @ARGV;

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

__END__

=head1 NAME

xsubpp - compiler to convert Perl XS code into C code

=head1 SYNOPSIS

B&lt;xsubpp&gt; [B&lt;-v&gt;] [B&lt;-except&gt;] [B&lt;-s pattern&gt;] [B&lt;-prototypes&gt;] [B&lt;-noversioncheck&gt;] [B&lt;-nolinenumbers&gt;] [B&lt;-nooptimize&gt;] [B&lt;-typemap typemap&gt;] [B&lt;-output filename&gt;]... file.xs

=head1 DESCRIPTION

This compiler is typically run by the makefiles created by L&lt;ExtUtils::MakeMaker&gt;
or by L&lt;Module::Build&gt; or other Perl module build tools.

I&lt;xsubpp&gt; 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&lt;typemap&gt;.  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&lt;ExtUtils::typemap&gt;.

=head1 OPTIONS

Note that the C&lt;XSOPT&gt; MakeMaker option may be used to add these options to
any makefiles generated by MakeMaker.

=over 5

=item B&lt;-hiertype&gt;

Retains &#039;::&#039; in type names so that C++ hierarchical types can be mapped.

=item B&lt;-except&gt;

Adds exception handling stubs to the C code.

=item B&lt;-typemap typemap&gt;

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&lt;-output filename&gt;

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

=item B&lt;-v&gt;

Prints the I&lt;xsubpp&gt; version number to standard output, then exits.

=item B&lt;-prototypes&gt;

By default I&lt;xsubpp&gt; will not automatically generate prototype code for
all xsubs. This flag will enable prototypes.

=item B&lt;-noversioncheck&gt;

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

=item B&lt;-nolinenumbers&gt;

Prevents the inclusion of &#039;#line&#039; directives in the output.

=item B&lt;-nooptimize&gt;

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

=item B&lt;-noinout&gt;

Disable recognition of C&lt;IN&gt;, C&lt;OUT_LIST&gt; and C&lt;INOUT_LIST&gt; declarations.

=item B&lt;-noargtypes&gt;

Disable recognition of ANSI-like descriptions of function signature.

=item B&lt;-C++&gt;

Currently doesn&#039;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&#039;s
allowed here for backwards compatibility.

=item B&lt;-s=...&gt; or B&lt;-strip=...&gt;

I&lt;This option is obscure and discouraged.&gt;

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&lt;CODE&gt; or C&lt;PPCODE&gt; blocks.
For example, the XS:

  void foo_bar(int i);

when C&lt;xsubpp&gt; is invoked with C&lt;-s foo_&gt; will install a C&lt;foo_bar&gt;
function in Perl, but really call C&lt;bar(i)&gt; 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&lt;ExtUtils::ParseXS&gt; module
by Ken Williams.

=head1 MODIFICATION HISTORY

See the file F&lt;Changes&gt;.

=head1 SEE ALSO

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

=cut

</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>