view release on metacpan or search on metacpan
lib/App/soapcli.pm view on Meta::CPAN
defined $port ? ( port => $port ) : (),
$self->{dump_xml_request} ? ( transport => sub { print $_[0]->toString(1); goto EXIT } ) : (),
);
if ($self->{explain}) {
die $wsdl->explain($operation, PERL => 'INPUT');
}
my ($response, $trace) = $wsdl->call($operation, $request);
my $json = JSON::PP->new->utf8->allow_nonref;
view release on metacpan or search on metacpan
script/summ view on Meta::CPAN
'covariance!' => \$Opts{calc_covariance},
'correlation!' => \$Opts{calc_correlation},
'help|h' => sub {
print <<USAGE;
Usage:
summ [OPTIONS]... [INPUT]...
summ --help
For more details, see the manpage/documentation.
USAGE
exit 0;
view release on metacpan or search on metacpan
script/tchart view on Meta::CPAN
exit 0;
},
'help|h' => sub {
print <<USAGE;
Usage:
tchart [OPTIONS] < INPUT
tchart --version
tchart --help
Examples:
tchart -o YAML < data.json
Options:
script/tchart view on Meta::CPAN
=head1 SYNOPSIS
Usage:
% tchart [OPTIONS] NUMBER ...
% tchart [OPTIONS] < INPUT
Examples:
% echo '[1,5,10,2,4,6]' | tchart -t sparkline
view release on metacpan or search on metacpan
lib/App/td.pm view on Meta::CPAN
my %args = @_;
my $action = $args{action};
my $argv = $args{argv};
my ($input, $input_form, $input_obj, $input_form_err);
GET_INPUT:
{
last unless $actions{$action}{req_input} // 1;
eval {
local $/;
$input = _decode_json(~~<STDIN>);
lib/App/td.pm view on Meta::CPAN
# detect table form
($input_form, $input_obj, $input_form_err) = _get_td_obj($input);
return [400, "Input is not table data: $input_form_err"]
unless $input_form;
} # GET_INPUT
my $output;
PROCESS:
{
if ($action eq 'actions') {
lib/App/td.pm view on Meta::CPAN
}
return [400, "Unknown action '$action'"];
} # PROCESS
POSTPROCESS_OUTPUT:
{
require Pipe::Find;
my $pipeinfo = Pipe::Find::get_stdout_pipe_process();
last unless $pipeinfo;
last unless
view release on metacpan or search on metacpan
bin/toposort view on Meta::CPAN
my $res = GetOptions(
'ignore-case|i' => \$Opts{ignore_case},
'help|h' => sub {
print <<USAGE;
Usage:
toposort [OPTIONS]... [INPUT ...]
toposort --help
Options:
--ignore-case, -i
For more details, see the manpage/documentation.
USAGE
bin/toposort view on Meta::CPAN
This document describes version 0.001 of toposort (from Perl distribution App-toposort), released on 2017-04-03.
=head1 SYNOPSIS
toposort [OPTION]... [INPUT]...
Sample input:
c: a
c: b
view release on metacpan or search on metacpan
sub get_sources {
my ($source) = @_;
$archive_file = download($source);
info("scanning $archive_file") if $verbose;
open(my $fd, '-|', "tar tf $archive_file")
or abend(EX_NOINPUT, "can't open $archive_file: $!");
while (<$fd>) {
chomp;
unless (m#^(?<dir>.+?)/(?<file>.*)$#) {
abend(EX_DATAERR, "$archive_file content suspicious: member $_");
}
# "Project-Id-Version" header and that its msgids differ from the ones
# already registered on the TP.
sub verify {
my ($in, $out);
my $pid = open2($out, $in, "m4 -P - $files{'configure.ac'}")
or abend(EX_NOINPUT, "can't open $files{'configure.ac'}: $!");
print $in <<'EOT';
m4_divert(-1)
m4_changequote([,])
m4_define([AC_INIT],[m4_divert(0)$1
$2[]m4_divert(-1)])
);
sub read_config {
my $config_file = shift;
open(FILE, "<", $config_file)
or abend(EX_NOINPUT, "cannot open $config_file: $!");
my $line = 0;
my $err;
my $key;
my $val;
my $heredoc;
GetOptions("keep|k" => \$keep,
"alpha|A" => sub { $release_type = 'alpha' },
"stable|S" => sub { $release_type = 'stable' },
"template|t=s" => sub {
exit(EX_NOINPUT) unless read_template_file($_[1])
},
"signature|s=s" => \$signature_file,
"no-signature" => sub { $signature_file = undef },
"verbose|v+" => \$verbose,
"dry-run|n" => \$dry_run,
view release on metacpan or search on metacpan
sort keys %NAMESPACES )
. "\n";
$help =~ s/^([^:]+):/cName($1).":"/mge;
}
elsif ( $topic =~ /^out(put)?$/ ) {
$help = pod_text( -sections => ['OUTPUT'] );
$help =~
s/( (name|value|identifier|title|error))/$COLORS{substr $2, 0,1}.$1."\e[0m"/mge
if $OPT{color};
}
elsif ( $topic eq 'pretty' ) {
$help = pod_text( -sections => ['OUTPUT/Pretty'] );
$help =~
s/( (name|value|identifier|title|error))/$COLORS{substr $2, 0,1}.$1."\e[0m"/mge
if $OPT{color};
}
elsif ( $topic =~ /^formats?$/ ) {
$help = pod_text( -sections => ['OUTPUT/Formats'] );
}
elsif ( $topic =~ /^modes?$/ ) {
$help = pod_text( -sections => ['MODES'] );
}
elsif ( $topic =~ /^exp?(ort)?$/ ) {
$help = pod_text( -sections => ['OUTPUT/Export'] );
}
elsif ( $topic =~ /^ont(ology)?$/ ) {
$help = pod_text( -sections => ['WIKIDATA ONTOLOGY'] );
$help =~ s/^.*Wikidata Ontology:.*\n//;
$help =~ s/^( | )//mg;
Show version if this script
=back
=head1 OUTPUT
Output can be controlled with options C<--format>/C<-f>, C<--export>,
C<--header>/C<--no-header>/C<-H>, and C<--color>/C<--no-color>/C<-C>.
=head2 Formats
view release on metacpan or search on metacpan
"--output FILENAME" => [\$opt_output_file, 'Set output file'],
"--port PORT:i" => [\$opt_port, 'Start HTTP Server at port'],
"--daemon" => [\$opt_daemon, "Run server in background"],
"--json-dump" => [\$opt_json_dump, 'Dump the document'],
"-x SECTION" => [\$opt_exec, 'short for --exec'],
"-o OUTPUTFILE" => [\$opt_output_file, 'short for --output'],
"-t SECTION" => [\$opt_target, 'short for --target'],
"-s SECTION" => [\$opt_target, 'short for --section'],
"-h" => [\$opt_help, 'Shows help information'],
);
use Data::Dumper;
sub docgen_html {
my $zf = shift;
my $old = select(shift);
print "<!DOCTYPE HTML>\n\n<html>\n<head>\n <meta charset=\"UTF-8\">\n <meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\n\n<link rel=\"stylesheet\" href=\"https://cdn.jsdelivr.net/gh/highlightjs/cdn-release\@10.7.3/build/style...
print "<script>";
print "window.zen = ";
print JSON::encode_json({
last_modified => $zf->{last_modified},
size => $zf->{size},
on_hello($cgi);
} elsif ($method eq 'GET') {
on_get_file($cgi, ".$path");
} elsif ($method eq 'POST') {
on_append_file($cgi, ".$path");
} elsif ($method eq 'PUT') {
on_put_file($cgi, ".$path");
} else {
print "HTTP/1.0 400 Bad Request\r\n\r\nUnsupported Request\n";
}
}
if ($last_mtime != $mtime) {
write_error(409, "Conflict", "last modified doesn't match: $mtime");
return;
}
}
my $data = $cgi->param('PUTDATA');
if ($l == 0) {
write_file($path, $data);
} elsif ($l > 0) {
$data .= "\n" unless !$data || substr($data, -1) eq "\n";
open my $fh, '<', $path or die "Can not open file: $!";
view release on metacpan or search on metacpan
bin/zipdetails view on Meta::CPAN
if (! $opt_Redact && TextEncoding::debugEncoding())
{
# use Devel::Peek;
# print "READ " ; Dump($raw_filename);
# print "INTERNAL " ; Dump($decoded_filename);
# print "OUTPUT " ; Dump($filename);
debug $FH->tell() - length($raw_filename),
"$message Encoding Change"
if $modified ;
view release on metacpan or search on metacpan
$output = `$^X -Iblib/lib t/testscript.pl $args 2>&1`;
if ($output eq $expected[$i-1]->[1]) {
print "ok $i\n";
}
else {
print STDERR "OUTPUT:\n$output\nEXPECTED:\n", $expected[$i-1]->[1], "\n";
print "not ok $i\n";
}
}
exit 0;
view release on metacpan or search on metacpan
bin/pro_opt view on Meta::CPAN
pro_opt, released September 12, 2015
as part of AppleII-LibA2 version 0.201.
=head1 SYNOPSIS
pro_opt IMAGE-FILE OUTPUT-FILE
=head1 DESCRIPTION
B<pro_opt> eliminates wasted space from a disk image file containing
an Apple II ProDOS volume. It does this by creating a new disk image
view release on metacpan or search on metacpan
inc/Devel/PPPort.pm view on Meta::CPAN
PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_context_layers||5.009004|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|
inc/Devel/PPPort.pm view on Meta::CPAN
eval_sv(sv, G_SCALAR);
SvREFCNT_dec(sv);
SPAGAIN;
sv = POPs;
PUTBACK;
if (croak_on_error && SvTRUE(GvSV(errgv)))
croak(SvPVx(GvSV(errgv), na));
return sv;
view release on metacpan or search on metacpan
lib/ArangoDB/Connection.pm view on Meta::CPAN
$data = $JSON->encode( defined $data ? $data : {} );
}
my $headers = $self->_build_headers($data, $additional_headers);
my ( undef, $code, $msg, undef, $body ) = $self->{_http_agent}->request(
%{ $self->{_req_args} },
method => 'PUT',
path_query => $path,
headers => $headers,
content => $data,
);
return $self->_parse_response( $code, $msg, $body );
view release on metacpan or search on metacpan
lib/ArangoDB2/Admin.pm view on Meta::CPAN
return $self->arango->http->get('/_admin/time');
}
# walFlush
#
# PUT /_admin/wal/flush
sub walFlush
{
my($self, $args) = @_;
# process args
$args = $self->_build_args($args, ['waitForSync', 'waitForCollector']);
lib/ArangoDB2/Admin.pm view on Meta::CPAN
}
# walProperties
#
# GET /_admin/wal/properties
# PUT /_admin/wal/properties
sub walProperties
{
my($self, $args) = @_;
# process args
$args = $self->_build_args($args, [qw(
lib/ArangoDB2/Admin.pm view on Meta::CPAN
The call returns an object with the attribute time.
=item walFlush
PUT /_admin/wal/flush
Flushes the write-ahead log.
Parameters:
lib/ArangoDB2/Admin.pm view on Meta::CPAN
waitForCollector
=item walProperties
GET /_admin/wal/properties
PUT /_admin/wal/properties
Configures the behavior of the write-ahead log.
Parameters:
view release on metacpan or search on metacpan
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
dSP;
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSViv(PTR2IV((void*)archive))));
PUTBACK;
count = call_sv(ar->callback, G_ARRAY);
SPAGAIN;
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
if(status == ARCHIVE_OK)
{
*buffer = (void*) SvPV(sv_buffer, len);
}
PUTBACK;
FREETMPS;
LEAVE;
if(status == ARCHIVE_OK)
return len == 1 ? 0 : len;
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSViv(PTR2IV((void*)archive))));
XPUSHs(sv_2mortal(newSVpvn(buffer, length)));
PUTBACK;
call_sv(ar->callback, G_SCALAR);
SPAGAIN;
status = SvI64(POPs);
PUTBACK;
FREETMPS;
LEAVE;
return status;
}
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
self->opt_chmod = 1; /* ignored */
self->opt_same_perms = 1; /* different: pp version this is true for root only */
self->opt_chown = 1;
ar_reset(self);
RETVAL = self;
OUTPUT:
RETVAL
int
set_opt(self, name, value)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
RETVAL = self->opt_type = SvIV(value);
else if(!strcmp(name, "symbols"))
self->opt_symbols = SvREFCNT_inc(value); /* TODO: make set_opt return void; maybe */
else
warn("unknown or unsupported option %s", name);
OUTPUT:
RETVAL
int
get_opt(self, name)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
else
RETVAL = self->opt_type;
}
else
warn("unknown or unsupported option %s", name);
OUTPUT:
RETVAL
void
_set_error(self, message, longmess)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
XSRETURN_EMPTY;
if(items >= 2 && SvTRUE(ST(1)))
RETVAL = SvREFCNT_inc(self->longmess);
else
RETVAL = SvREFCNT_inc(self->error);
OUTPUT:
RETVAL
int
_read_from_filename(self, filename)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
#if ARCHIVE_VERSION_NUMBER < 3000000
archive_read_finish(archive);
#else
archive_read_free(archive);
#endif
OUTPUT:
RETVAL
int
_read_from_callback(self, callback)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
#else
archive_read_free(archive);
#endif
SvREFCNT_dec(callback);
self->callback = NULL;
OUTPUT:
RETVAL
int
_write_to_filename(self, filename)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
if(r == ARCHIVE_OK || r == ARCHIVE_WARN)
RETVAL = ar_write_archive(archive, self);
else
RETVAL = 0;
archive_write_free(archive);
OUTPUT:
RETVAL
int
_write_to_callback(self, callback)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
else
RETVAL = 0;
archive_write_free(archive);
SvREFCNT_dec(callback);
self->callback = NULL;
OUTPUT:
RETVAL
int
_remove(self,pathname)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
break;
entry = &((*entry)->next);
}
OUTPUT:
RETVAL
void
_add_data(self,filename,data,uid,gid,date,mode)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
pathname = archive_entry_pathname(entry->entry);
av_push(list, newSVpv(pathname, strlen(pathname)));
}
RETVAL = newRV_noinc((SV*)list);
OUTPUT:
RETVAL
void
DESTROY(self)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
}
else
{
XSRETURN_EMPTY;
}
OUTPUT:
RETVAL
SV *
get_data(self, filename)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
struct ar_entry *entry;
entry = ar_find_by_name(self, filename);
if(entry == NULL)
XSRETURN_EMPTY;
RETVAL = newSVpv(entry->data, entry->data_size);
OUTPUT:
RETVAL
void
rename(self, old, new)
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
if(ok)
RETVAL = 1;
else
XSRETURN_EMPTY;
OUTPUT:
RETVAL
int
extract_file(self,filename)
struct ar *self
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
if(ok)
RETVAL = 1;
else
XSRETURN_EMPTY;
OUTPUT:
RETVAL
int
type(self)
struct ar *self
CODE:
RETVAL = self->opt_type;
OUTPUT:
RETVAL
int
contains_file(self, filename)
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
CODE:
if(ar_find_by_name(self, filename))
RETVAL = 1;
else
XSRETURN_EMPTY;
OUTPUT:
RETVAL
void
clear(self)
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
}
else
{
XSRETURN_EMPTY;
}
OUTPUT:
RETVAL
int
_chown(self, filename, uid, gid)
lib/Archive/Ar/Libarchive.xs view on Meta::CPAN
const char *
_libarchive_version()
CODE:
RETVAL = ARCHIVE_VERSION_STRING;
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
ByteBoozer.xs view on Meta::CPAN
if (source == NULL)
XSRETURN_UNDEF;
source->size = size;
source->data = (byte *)data;
RETVAL = source;
OUTPUT:
RETVAL
# my $target = bb_crunch($source, $start_address);
File*
ByteBoozer.xs view on Meta::CPAN
if (target == NULL)
XSRETURN_UNDEF;
if (!crunch(source, target, start_address, theDecrType, isRelocated))
XSRETURN_UNDEF;
RETVAL = target;
OUTPUT:
RETVAL
# my $data = bb_data($file);
void
view release on metacpan or search on metacpan
ByteBoozer2.xs view on Meta::CPAN
XSRETURN_UNDEF;
myFile->name = (char *)NULL;
myFile->size = 0;
myFile->data = (byte *)NULL;
RETVAL = myFile;
OUTPUT:
RETVAL
SV *
file_name(file)
File *file
CODE:
RETVAL = newSVpv(file->name, 0);
OUTPUT:
RETVAL
_bool
crunch_file(aSource, aTarget, startAdress, decrFlag, isRelocated)
File *aSource
ByteBoozer2.xs view on Meta::CPAN
uint startAdress
_bool decrFlag
_bool isRelocated
CODE:
RETVAL = crunch(aSource, aTarget, startAdress, decrFlag, isRelocated);
OUTPUT:
RETVAL
void
free_file(...)
CODE:
ByteBoozer2.xs view on Meta::CPAN
read_file(aFile, fileName)
File *aFile
const char *fileName
CODE:
RETVAL = readFile(aFile, fileName);
OUTPUT:
RETVAL
_bool
write_file(aFile, fileName)
File *aFile
const char *fileName
CODE:
RETVAL = writeFile(aFile, fileName);
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
lib/Archive/Extract/ppport.h view on Meta::CPAN
PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_context_layers||5.009004|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|
lib/Archive/Extract/ppport.h view on Meta::CPAN
eval_sv(sv, G_SCALAR);
SvREFCNT_dec(sv);
SPAGAIN;
sv = POPs;
PUTBACK;
if (croak_on_error && SvTRUE(GvSV(errgv)))
croak(SvPVx(GvSV(errgv), na));
return sv;
view release on metacpan or search on metacpan
],
"cookies": [],
"content": {
"size": 213057,
"mimeType": "text/html",
"text": "<!doctype html><html itemscope=\"\" itemtype=\"http://schema.org/WebPage\" lang=\"en-AU\"><head><meta content=\"/images/branding/googleg/1x/googleg_standard_color_128dp.png\" itemprop=\"image\"><link href=\"/images/branding/produ...
},
"redirectURL": "",
"headersSize": -1,
"bodySize": -1,
"_transferSize": 68060
],
"cookies": [],
"content": {
"size": 436180,
"mimeType": "text/javascript",
"text": "/* _GlobalPrefix_ */\n/* _Module_:quantum */\ntry{\nvar s_,s_aaa=\"function\"==typeof Object.defineProperties?Object.defineProperty:function(a,b,c){if(c.get||c.set)throw new TypeError(\"ES3 does not support getters and setters.\"...
},
"redirectURL": "",
"headersSize": -1,
"bodySize": 0,
"_transferSize": 0
],
"cookies": [],
"content": {
"size": 108222,
"mimeType": "text/javascript",
"text": "/* _GlobalPrefix_ */\n/* _Module_:sy1p */\ntry{\nvar s_vja,s_wja,s_1i,s_xja,s_2i,s_yja={};s_D(\"sy1p\");var s_3i=function(a){s_K(this,a,0,2,null,null)};s_g(s_3i,s_J);s_3i.prototype.jh=function(){return s_L(this,1)};var s_zja={};v...
},
"redirectURL": "",
"headersSize": -1,
"bodySize": -1,
"_transferSize": 36140
],
"cookies": [],
"content": {
"size": 136732,
"mimeType": "text/javascript",
"text": "/* _GlobalPrefix_ */\nthis.gbar_=this.gbar_||{};(function(_){var window=this;\n/* _Module_:syp */\ntry{\nvar On=function(){};_.y(On,Error);_.Pn=function(){this.b=\"pending\";this.B=[];this.w=this.C=void 0};_.ae(_.Pn);var Qn=funct...
},
"redirectURL": "",
"headersSize": -1,
"bodySize": 0,
"_transferSize": 0
]
}
}
_CHROME_RESULTS_
ok($har->string($chrome_string), "Successfully read Chrome har archive for https://www.google.com/");
ok($har->version() eq '1.2', "INPUT: Chrome produces a version 1.2 http archive");
ok($har->creator()->name() eq 'WebInspector', "INPUT: Chrome's creator name is 'WebInspector'");
ok($har->creator()->version() eq '537.36', "INPUT: Chrome's creator version is '537.36'");
ok(!defined $har->creator()->comment(), "INPUT: Chrome's creator comment is not used");
my $chrome_ref = $har->hashref();
ok(!exists $chrome_ref->{log}->{entries}->[0]->{request}->{postData}, "Empty postData entry stripped from Chrome output");
view release on metacpan or search on metacpan
inc/path.xs.template view on Meta::CPAN
{
archive_entry_copy_<%= $name %>(entry, NULL);
RETVAL = ARCHIVE_OK;
}
#endif
OUTPUT:
RETVAL
#endif
=head2 archive_entry_<%= $name %>
inc/path.xs.template view on Meta::CPAN
string_or_null
_archive_entry_<%= $name %>(entry)
struct archive_entry *entry
CODE:
RETVAL = archive_entry_<%= $name %>(entry);
OUTPUT:
RETVAL
#endif
view release on metacpan or search on metacpan
Libarchive.xs view on Meta::CPAN
PUSHMARK(SP);
DEBUG && printf(" mXPUSHs1\n");
mXPUSHs(filename);
DEBUG && printf(" mXPUSHs2\n");
mXPUSHs(contents);
DEBUG && printf(" PUTBACK\n");
PUTBACK;
DEBUG && printf(" call_sv\n");
call_sv(callback, G_DISCARD);
DEBUG && printf(" FREETMPS\n");
FREETMPS;
DEBUG && printf(" LEAVE\n");
view release on metacpan or search on metacpan
int
libarchive_version()
CODE:
RETVAL = archive_version_number();
OUTPUT: RETVAL
INCLUDE: const-xs-constants.inc
INCLUDE: xs/DiskWriter.xs
INCLUDE: xs/Entry.xs
view release on metacpan or search on metacpan
lib/Archive/SCS/CityHash.xs view on Meta::CPAN
STRLEN len;
const char *buf = SvPVbyte(sv, len);
uint64 cityhash_int = CityHash64(buf, len);
U64 cityhash = to_network_byteorder(cityhash_int);
RETVAL = newSVpvn((const char * const) &cityhash, U64SIZE);
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
t/common.pm view on Meta::CPAN
use constant TESTDIR => do {
my $tmpdir = File::Spec->abs2rel(tempdir(DIR => 'testdir', CLEANUP => 1));
$tmpdir =~ s!\\!/!g if $^O eq 'MSWin32';
$tmpdir
};
use constant INPUTZIP =>
(tempfile('testin-XXXXX', SUFFIX => '.zip', TMPDIR => 1, $^O eq 'MSWin32' ? () : (UNLINK => 1)))[1];
use constant OUTPUTZIP =>
(tempfile('testout-XXXXX', SUFFIX => '.zip', TMPDIR => 1, $^O eq 'MSWin32' ? () : (UNLINK => 1)))[1];
# Do we have the 'zip' and 'unzip' programs?
# Embed a copy of the module, rather than adding a dependency
BEGIN {
t/common.pm view on Meta::CPAN
use vars qw($zipWorks $testZipDoesntWork $catWorks);
# Run ZIPTEST to test a zip file.
sub testZip {
my $zipName = shift || OUTPUTZIP;
if ($testZipDoesntWork) {
return wantarray ? (0, '') : 0;
}
my $cmd = ZIPTEST . $zipName . ($^O eq 'MSWin32' ? '' : ' 2>&1');
my $zipout = `$cmd`;
t/common.pm view on Meta::CPAN
}
#--------- check to see if cat works
sub testCat {
my $fh = IO::File->new(CATPIPE . OUTPUTZIP);
binmode($fh);
my $testString = pack('C256', 0 .. 255);
my $testCrc = Archive::Zip::computeCRC32($testString);
$fh->write($testString, length($testString)) or return 0;
$fh->close();
(-f OUTPUTZIP) or return 0;
my @stat = stat(OUTPUTZIP);
$stat[7] == length($testString) or return 0;
fileCRC(OUTPUTZIP) == $testCrc or return 0;
unlink(OUTPUTZIP);
return 1;
}
BEGIN {
$catWorks = testCat();
unless ($catWorks) {
warn('warning: ', CAT, " doesn't seem to work, may skip some tests");
}
}
#--------- check to see if zip works (and make INPUTZIP)
BEGIN {
unlink(INPUTZIP);
# Do we have zip installed?
if (HAVEZIP) {
my $cmd = ZIP . INPUTZIP . ' *' . ($^O eq 'MSWin32' ? '' : ' 2>&1');
my $zipout = `$cmd`;
$zipWorks = not $?;
unless ($zipWorks) {
warn('warning: ', ZIP,
" doesn't seem to work, may skip some tests");
t/common.pm view on Meta::CPAN
#--------- check to see if unzip -t works
BEGIN {
$testZipDoesntWork = 1;
if (HAVEUNZIP) {
my ($status, $zipout) = do { local $testZipDoesntWork = 0; testZip(INPUTZIP) };
$testZipDoesntWork = $status;
# Again, on Win32 no big surprise if this doesn't work
if ($testZipDoesntWork) {
warn('warning: ', ZIPTEST,
view release on metacpan or search on metacpan
src/Builder.xs view on Meta::CPAN
*/
PUSHMARK(SP);
XPUSHs(cache);
XPUSHs(sv_2mortal(newSViv(uid)));
XPUSHs(sv_2mortal(newSViv(gid)));
PUTBACK;
retc = call_method("lookup", G_ARRAY);
SPAGAIN;
src/Builder.xs view on Meta::CPAN
goto error_string_new_user;
}
}
}
PUTBACK;
FREETMPS;
LEAVE;
return 0;
src/Builder.xs view on Meta::CPAN
b_string_free(*group);
error_string_new_group:
error_lookup:
PUTBACK;
FREETMPS;
LEAVE;
return -1;
src/Builder.xs view on Meta::CPAN
PUSHMARK(SP);
XPUSHs(cache);
XPUSHs(sv_2mortal(newSViv(dev)));
XPUSHs(sv_2mortal(newSViv(ino)));
XPUSHs(sv_2mortal(newSVpv(path->str, path->len)));
PUTBACK;
path = NULL;
retc = call_method("lookup", G_ARRAY);
SPAGAIN;
src/Builder.xs view on Meta::CPAN
goto leave;
}
}
leave:
PUTBACK;
FREETMPS;
LEAVE;
return path;
src/Builder.xs view on Meta::CPAN
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSVpvf("Archive::Tar::Builder::UserCache")));
PUTBACK;
retc = call_method("new", G_SCALAR);
SPAGAIN;
if (retc == 1) {
cache = POPs;
SvREFCNT_inc(cache);
}
PUTBACK;
FREETMPS;
LEAVE;
b_builder_set_user_lookup(builder, B_USER_LOOKUP(user_lookup), cache);
src/Builder.xs view on Meta::CPAN
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSVpvf("Archive::Tar::Builder::HardlinkCache")));
PUTBACK;
retc = call_method("new", G_SCALAR);
SPAGAIN;
if (retc == 1) {
cache = POPs;
SvREFCNT_inc(cache);
}
PUTBACK;
FREETMPS;
LEAVE;
b_builder_set_hardlink_cache(builder, B_HARDLINK_LOOKUP(hardlink_lookup), cache);
}
RETVAL = builder;
OUTPUT:
RETVAL
void
builder_DESTROY(builder)
Archive::Tar::Builder builder
src/Builder.xs view on Meta::CPAN
const char *path
CODE:
RETVAL = b_builder_is_excluded(builder, path);
OUTPUT:
RETVAL
void
builder_set_handle(builder, fh)
Archive::Tar::Builder builder
src/Builder.xs view on Meta::CPAN
}
}
RETVAL = builder->total;
OUTPUT:
RETVAL
ssize_t
builder_flush(builder)
Archive::Tar::Builder builder
src/Builder.xs view on Meta::CPAN
croak("%s: %s", "b_buffer_flush()", strerror(errno));
}
RETVAL = ret;
OUTPUT:
RETVAL
ssize_t
builder_finish(builder)
Archive::Tar::Builder builder
src/Builder.xs view on Meta::CPAN
b_error_reset(err);
RETVAL = ret;
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
bin/ptardiff view on Meta::CPAN
}
diff( \($file->get_content), $name,
{ FILENAME_A => $name,
MTIME_A => $file->mtime,
OUTPUT => \*STDOUT
}
);
}
view release on metacpan or search on metacpan
lib/Archive/Unzip/Burst.xs view on Meta::CPAN
args[1] = "-qq";
args[2] = "-o";
args[3] = filename;
r = UzpMain(argno, args);
RETVAL = r;
OUTPUT:
RETVAL
view release on metacpan or search on metacpan
ZZip/ZZip.xs view on Meta::CPAN
RETVAL = zzip_dir_open(filename, &err);
if (err != 0) {
SV* sv = perl_get_sv("!", TRUE);
sv_setpvf(sv, zzip_strerror(err), filename);
}
OUTPUT:
RETVAL
Archive_ZZip
newWithFd(fd)
int fd
ZZip/ZZip.xs view on Meta::CPAN
RETVAL = zzip_dir_fdopen(fd, &err);
if (err != 0) {
SV* sv = perl_get_sv("!", TRUE);
sv_setpv(sv, zzip_strerror(err));
}
OUTPUT:
RETVAL
Archive_ZZip_File
openFile(dir, name, mode = O_RDONLY)
Archive_ZZip dir
ZZip/ZZip.xs view on Meta::CPAN
RETVAL = zzip_file_open(dir, name, mode);
if (dir->errcode != 0) {
SV* sv = perl_get_sv("!", TRUE);
sv_setpvf(sv, zzip_strerror(dir->errcode), name);
}
OUTPUT:
RETVAL
int
fd(dir)
Archive_ZZip dir
CODE:
RETVAL = zzip_dirfd(dir);
OUTPUT:
RETVAL
void
rewind(dir)
ZZip/ZZip.xs view on Meta::CPAN
int
tell(dir)
Archive_ZZip dir
CODE:
RETVAL = zzip_telldir(dir);
OUTPUT:
RETVAL
void
seek(dir, offset)
Archive_ZZip dir
ZZip/ZZip.xs view on Meta::CPAN
XSRETURN_UNDEF;
}
RETVAL = info;
OUTPUT:
RETVAL
HV *
stat(dir, name, flags)
Archive_ZZip dir
ZZip/ZZip.xs view on Meta::CPAN
XSRETURN_UNDEF;
}
RETVAL = info;
OUTPUT:
RETVAL
void
DESTROY(dir)
ZZip/ZZip.xs view on Meta::CPAN
//Also return the buffer
RETVAL = buf;
//Now the buffer is referenced twice because of the retval.
SvREFCNT_inc(buf);
OUTPUT:
RETVAL
buf
int
rewind(fp)
Archive_ZZip_File fp
CODE:
RETVAL = zzip_rewind(fp);
OUTPUT:
RETVAL
int
seek(fp, offset, whence)
Archive_ZZip_File fp
int offset
int whence
CODE:
RETVAL = zzip_seek(fp, offset, whence);
OUTPUT:
RETVAL
int
tell(fp)
Archive_ZZip_File fp
CODE:
RETVAL = zzip_tell(fp);
OUTPUT:
RETVAL
void
DESTROY(fd)
Archive_ZZip_File fd