0 "lY> e8.4o h0  355_I|Mjq؂ 404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.

0 lah8]\i1h !_ub &=LV[(3A require 5.002; package ExtUtils::Embed; require Exporter; require FileHandle; use Config; use Getopt::Std; use File::Spec; #Only when we need them #require ExtUtils::MakeMaker; #require ExtUtils::Liblist; use vars qw(@ISA @EXPORT $VERSION @Extensions $Verbose $lib_ext $opt_o $opt_s ); use strict; # This is not a dual-life module, so no need for development version numbers $VERSION = '1.30'; @ISA = qw(Exporter); @EXPORT = qw(&xsinit &ldopts &ccopts &ccflags &ccdlflags &perl_inc &xsi_header &xsi_protos &xsi_body); #let's have Miniperl borrow from us instead #require ExtUtils::Miniperl; #*canon = \&ExtUtils::Miniperl::canon; $Verbose = 0; $lib_ext = $Config{lib_ext} || '.a'; sub is_cmd { $0 eq '-e' } sub my_return { my $val = shift; if(is_cmd) { print $val; } else { return $val; } } sub xsinit { my($file, $std, $mods) = @_; my($fh,@mods,%seen); $file ||= "perlxsi.c"; my $xsinit_proto = "pTHX"; if (@_) { @mods = @$mods if $mods; } else { getopts('o:s:'); $file = $opt_o if defined $opt_o; $std = $opt_s if defined $opt_s; @mods = @ARGV; } $std = 1 unless scalar @mods; if ($file eq "STDOUT") { $fh = \*STDOUT; } else { $fh = new FileHandle "> $file"; } push(@mods, static_ext()) if defined $std; @mods = grep(!$seen{$_}++, @mods); print $fh &xsi_header(); print $fh "EXTERN_C void xs_init ($xsinit_proto);\n\n"; print $fh &xsi_protos(@mods); print $fh "\nEXTERN_C void\nxs_init($xsinit_proto)\n{\n"; print $fh &xsi_body(@mods); print $fh "}\n"; } sub xsi_header { return < #include EOF } sub xsi_protos { my(@exts) = @_; my(@retval,%seen); my $boot_proto = "pTHX_ CV* cv"; foreach $_ (@exts){ my($pname) = canon('/', $_); my($mname, $cname); ($mname = $pname) =~ s!/!::!g; ($cname = $pname) =~ s!/!__!g; my($ccode) = "EXTERN_C void boot_${cname} ($boot_proto);\n"; next if $seen{$ccode}++; push(@retval, $ccode); } return join '', @retval; } sub xsi_body { my(@exts) = @_; my($pname,@retval,%seen); my($dl) = canon('/','DynaLoader'); push(@retval, "\tchar *file = __FILE__;\n"); push(@retval, "\tdXSUB_SYS;\n") if $] > 5.002; push(@retval, "\n"); foreach $_ (@exts){ my($pname) = canon('/', $_); my($mname, $cname, $ccode); ($mname = $pname) =~ s!/!::!g; ($cname = $pname) =~ s!/!__!g; if ($pname eq $dl){ # Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'! # boot_DynaLoader is called directly in DynaLoader.pm $ccode = "\t/* DynaLoader is a special case */\n\tnewXS(\"${mname}::boot_${cname}\", boot_${cname}, file);\n"; push(@retval, $ccode) unless $seen{$ccode}++; } else { $ccode = "\tnewXS(\"${mname}::bootstrap\", boot_${cname}, file);\n"; push(@retval, $ccode) unless $seen{$ccode}++; } } return join '', @retval; } sub static_ext { unless (scalar @Extensions) { my $static_ext = $Config{static_ext}; $static_ext =~ s/^\s+//; @Extensions = sort split /\s+/, $static_ext; unshift @Extensions, qw(DynaLoader); } @Extensions; } sub _escape { my $arg = shift; return $$arg if $^O eq 'VMS'; # parens legal in qualifier lists $$arg =~ s/([\(\)])/\\$1/g; } sub _ldflags { my $ldflags = $Config{ldflags}; _escape(\$ldfl