view release on metacpan or search on metacpan
corpus/dir/http.html view on Meta::CPAN
<html><head>
<title>Index of /corpus/dist/</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<style type='text/css'>
table { width:100%%; }
.name { text-align:left; }
.size, .mtime { text-align:right; }
.type { width:11em; }
view release on metacpan or search on metacpan
t/alien_build_plugin_download_github.t view on Meta::CPAN
@mock_calls = ();
my $file = path( tempdir( CLEANUP => 1 ) )->child('release');
local $mock_response{path} = "$file";
$file->spew_utf8(encode_json([
{
tag_name => 'v1.01',
tarball_url => 'https://api.github.com/repos/PerlAlien/dontpanic/tarball/v1.01',
},
{
view release on metacpan or search on metacpan
t/alien_build_plugin_fetch_promp.t view on Meta::CPAN
use Test2::V0 -no_srand => 1, -no_utf8 => 1;
use Test2::Mock;
use Test::Alien::Build;
use Test2::Tools::Process qw( intercept_exit );
use ExtUtils::MakeMaker;
use Alien::Build::Plugin::Fetch::Prompt;
t/alien_build_plugin_fetch_promp.t view on Meta::CPAN
fetch sub {
my($build, $url) = @_;
return {
type => 'html',
charset => 'utf-8',
base => $url,
content => '<html/>',
protocol => 'https',
};
};
view release on metacpan or search on metacpan
t/alien_build_plugin_fetch_promptbeforedownload.t view on Meta::CPAN
fetch sub {
my($build, $url) = @_;
return {
type => 'html',
charset => 'utf-8',
base => $url,
content => '<html/>',
};
};
view release on metacpan or search on metacpan
inc/MBCSFML.pm view on Meta::CPAN
);
sub Build {
my $action = @ARGV && $ARGV[0] =~ /\A\w+\z/ ? shift @ARGV : 'build';
die "No such action '$action'\n" if not $actions{$action};
unshift @ARGV, @{ decode_json( read_file( '_build_params', 'utf8' ) ) };
GetOptions(
\my %opt,
qw/install_base=s install_path=s% installdirs=s destdir=s prefix=s config=s% uninst:1 verbose:1 dry_run:1 pureperl-only:1 create_packlist=i/
);
$_ = detildefy($_)
inc/MBCSFML.pm view on Meta::CPAN
printf "Creating new 'Build' script for '%s' version '%s'\n", $meta->name, $meta->version;
my $dir = $meta->name eq 'MBCSFML' ? '' : "use lib 'inc';";
write_file( 'Build', 'raw', "#!perl\n$dir\nuse MBCSFML;\n\$|++;\nBuild();\n" );
make_executable('Build');
my @env = defined $ENV{PERL_MB_OPT} ? split_like_shell( $ENV{PERL_MB_OPT} ) : ();
write_file( '_build_params', 'utf8', encode_json( [ @env, @ARGV ] ) );
$meta->save(@$_) for ['MYMETA.json'], [ 'MYMETA.yml' => { version => 1.4 } ];
}
1;
=head1 SEE ALSO
view release on metacpan or search on metacpan
cp/codepress/languages/html.js view on Meta::CPAN
{ input : 'h3', output : '<h3>$0</h3>' },
{ input : 'h4', output : '<h4>$0</h4>' },
{ input : 'h5', output : '<h5>$0</h5>' },
{ input : 'h6', output : '<h6>$0</h6>' },
{ input : 'html', output : '<html>\n\t$0\n</html>' },
{ input : 'head', output : '<head>\n\t<meta http-equiv="content-type" content="text/html; charset=utf-8" />\n\t<title>$0</title>\n\t\n</head>' },
{ input : 'img', output : '<img src="$0" alt="" />' },
{ input : 'input', output : '<input name="$0" id="" type="" value="" />' },
{ input : 'label', output : '<label for="$0"></label>' },
{ input : 'legend', output : '<legend>\n\t$0\n</legend>' },
{ input : 'link', output : '<link rel="stylesheet" href="$0" type="text/css" media="screen" charset="utf-8" />' },
{ input : 'base', output : '<base href="$0" />' },
{ input : 'body', output : '<body>\n\t$0\n</body>' },
{ input : 'css', output : '<link rel="stylesheet" href="$0" type="text/css" media="screen" charset="utf-8" />' },
{ input : 'div', output : '<div>\n\t$0\n</div>' },
{ input : 'divid', output : '<div id="$0">\n\t\n</div>' },
{ input : 'dl', output : '<dl>\n\t<dt>\n\t\t$0\n\t</dt>\n\t<dd></dd>\n</dl>' },
{ input : 'fieldset', output : '<fieldset>\n\t$0\n</fieldset>' },
{ input : 'form', output : '<form action="$0" method="" name="">\n\t\n</form>' },
{ input : 'meta', output : '<meta name="$0" content="" />' },
{ input : 'p', output : '<p>$0</p>' },
{ input : 'script', output : '<script type="text/javascript" language="javascript" charset="utf-8">\n\t$0\t\n</script>' },
{ input : 'scriptsrc', output : '<script src="$0" type="text/javascript" language="javascript" charset="utf-8"></script>' },
{ input : 'span', output : '<span>$0</span>' },
{ input : 'table', output : '<table border="$0" cellspacing="" cellpadding="">\n\t<tr><th></th></tr>\n\t<tr><td></td></tr>\n</table>' },
{ input : 'style', output : '<style type="text/css" media="screen">\n\t$0\n</style>' }
]
view release on metacpan or search on metacpan
patch sub {
# See <https://github.com/sisinflab-swot/cowl/pull/9>.
my $needle = q|add_subdirectory("${COWL_DOCS_DIR}")|;
my $install_targets = q|install(TARGETS cowl ulib)|;
Path::Tiny->new('CMakeLists.txt')->edit_utf8(sub {
s/\Q$needle\E/$install_targets\n\n$&/s;
});
};
plugin 'Build::CMake';
view release on metacpan or search on metacpan
lib/Alien/DDC/Concordance.pm view on Meta::CPAN
__END__
=pod
=encoding utf8
=head1 NAME
Alien::DDC::Concordance - install the ddc-concordance C++ libraries on your system
view release on metacpan or search on metacpan
script/ditaa view on Meta::CPAN
ditaa - Trivial wrapper script for ditaa.jar
=head1 SYNOPSIS
ditaa infile.txt outfile.png
=head1 DESCRIPTION
Trivial wrapper to run ditaa.jar.
view release on metacpan or search on metacpan
inc/MBTFLTK.pm view on Meta::CPAN
dircopy rel2abs('lib'), catdir($archdir, 'lib')
or die $!;
#
write_file(catfile($archdir, qw[config.json]),
'utf8', encode_json(\%libinfo));
}
}
sub find {
my ($pattern, $dir) = @_;
inc/MBTFLTK.pm view on Meta::CPAN
);
sub Build {
my $action = @ARGV && $ARGV[0] =~ /\A\w+\z/ ? shift @ARGV : 'build';
die "No such action '$action'\n" if not $actions{$action};
unshift @ARGV, @{decode_json(read_file('_build_params', 'utf8'))};
GetOptions(\my %opt,
qw/install_base=s install_path=s% installdirs=s destdir=s prefix=s config=s% uninst:1 verbose:1 dry_run:1 pureperl-only:1 create_packlist=i/
);
$_ = detildefy($_)
for grep {defined} @opt{qw/install_base destdir prefix/},
inc/MBTFLTK.pm view on Meta::CPAN
make_executable('Build');
my @env
= defined $ENV{PERL_MB_OPT} ?
split_like_shell($ENV{PERL_MB_OPT})
: ();
write_file('_build_params', 'utf8', encode_json([@env, @ARGV]));
$meta->save(@$_) for ['MYMETA.json'], ['MYMETA.yml' => {version => 1.4}];
}
1;
=head1 SEE ALSO
view release on metacpan or search on metacpan
src/Source/FreeImage/PluginJPEG.cpp view on Meta::CPAN
typedef struct tagDestinationManager {
/// public fields
struct jpeg_destination_mgr pub;
/// destination stream
fi_handle outfile;
FreeImageIO *m_io;
/// start of buffer
JOCTET * buffer;
} DestinationManager;
src/Source/FreeImage/PluginJPEG.cpp view on Meta::CPAN
*/
METHODDEF(boolean)
empty_output_buffer (j_compress_ptr cinfo) {
freeimage_dst_ptr dest = (freeimage_dst_ptr) cinfo->dest;
if (dest->m_io->write_proc(dest->buffer, 1, OUTPUT_BUF_SIZE, dest->outfile) != OUTPUT_BUF_SIZE) {
// let the memory manager delete any temp files before we die
jpeg_destroy((j_common_ptr)cinfo);
JPEG_EXIT((j_common_ptr)cinfo, JERR_FILE_WRITE);
}
src/Source/FreeImage/PluginJPEG.cpp view on Meta::CPAN
size_t datacount = OUTPUT_BUF_SIZE - dest->pub.free_in_buffer;
// write any data remaining in the buffer
if (datacount > 0) {
if (dest->m_io->write_proc(dest->buffer, 1, (unsigned int)datacount, dest->outfile) != datacount) {
// let the memory manager delete any temp files before we die
jpeg_destroy((j_common_ptr)cinfo);
JPEG_EXIT((j_common_ptr)cinfo, JERR_FILE_WRITE);
}
src/Source/FreeImage/PluginJPEG.cpp view on Meta::CPAN
Prepare for output to a stdio stream.
The caller must have already opened the stream, and is responsible
for closing it after finishing compression.
*/
GLOBAL(void)
jpeg_freeimage_dst (j_compress_ptr cinfo, fi_handle outfile, FreeImageIO *io) {
freeimage_dst_ptr dest;
if (cinfo->dest == NULL) {
cinfo->dest = (struct jpeg_destination_mgr *)(*cinfo->mem->alloc_small)
((j_common_ptr) cinfo, JPOOL_PERMANENT, sizeof(DestinationManager));
src/Source/FreeImage/PluginJPEG.cpp view on Meta::CPAN
dest = (freeimage_dst_ptr) cinfo->dest;
dest->pub.init_destination = init_destination;
dest->pub.empty_output_buffer = empty_output_buffer;
dest->pub.term_destination = term_destination;
dest->outfile = outfile;
dest->m_io = io;
}
// ----------------------------------------------------------
// Special markers read functions
view release on metacpan or search on metacpan
lib/Alien/GMP.pm view on Meta::CPAN
package Alien::GMP;
use v5.10;
use strict;
use warnings FATAL => "all";
use utf8;
our $VERSION = 'v0.0.6'; # VERSION
# ABSTRACT: Build and install the GNU Multiple Precision library.
sub inc_dir () { "##" }
sub lib_dir () { "##" }
1;
=encoding utf8
=head1 NAME
Alien::GMP - Build and install the GNU Multiple Precision library.
view release on metacpan or search on metacpan
lib/Alien/Gfsm.pm view on Meta::CPAN
__END__
=pod
=encoding utf8
=head1 NAME
Alien::Gfsm - install the libgfsm C library on your system
view release on metacpan or search on metacpan
lib/Alien/GfsmXL.pm view on Meta::CPAN
__END__
=pod
=encoding utf8
=head1 NAME
Alien::GfsmXL - install the libgfsmxl C library on your system
view release on metacpan or search on metacpan
test/functional/examples.pl view on Meta::CPAN
use CGI;
use HTTP::Daemon;
use HTTP::Status;
use URI::Escape;
use JSON;
use Encode qw/decode_utf8/;
my $query;
my @countries = <DATA>;
chomp foreach @countries;
test/functional/examples.pl view on Meta::CPAN
my $daemon = HTTP::Daemon->new(LocalPort => $port) || die;
print "Please contact me at: <URL:", $daemon->url, ">\n";
while (my $client_connection = $daemon->accept) {
while (my $req = $client_connection->get_request) {
my $path_info = decode_utf8(substr(uri_unescape($req->url->path), 1));
print STDERR "REQUEST: $path_info\n";
$client_connection->force_last_request;
test/functional/examples.pl view on Meta::CPAN
$client_connection->send_response($response);
}
elsif ($path_info =~ /^.*\.css$/) {
print STDERR "CSS $path_info\n";
my $response = HTTP::Response->new(RC_OK);
$response->header('Content-Type' => 'text/css; charset=utf-8');
$client_connection->send_file("../$path_info");
}
elsif ($path_info =~ /^.*\.(gif|png|jpg|jpeg)$/) {
print STDERR "IMAGE $path_info\n";
$client_connection->send_file_response("../$path_info");
view release on metacpan or search on metacpan
lib/Alien/HIDAPI.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::HIDAPI - Perl distribution for HIDAPI
view release on metacpan or search on metacpan
src/judy-1.0.5/aclocal.m4 view on Meta::CPAN
# _LT_COMPILER_BOILERPLATE
# ------------------------
# Check for compiler boilerplate output or warnings with
# the simple compiler test code.
AC_DEFUN([_LT_COMPILER_BOILERPLATE],
[ac_outfile=conftest.$ac_objext
printf "$lt_simple_compile_test_code" >conftest.$ac_ext
eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_compiler_boilerplate=`cat conftest.err`
$rm conftest*
])# _LT_COMPILER_BOILERPLATE
src/judy-1.0.5/aclocal.m4 view on Meta::CPAN
# _LT_LINKER_BOILERPLATE
# ----------------------
# Check for linker boilerplate output or warnings with
# the simple link test code.
AC_DEFUN([_LT_LINKER_BOILERPLATE],
[ac_outfile=conftest.$ac_objext
printf "$lt_simple_link_test_code" >conftest.$ac_ext
eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
_lt_linker_boilerplate=`cat conftest.err`
$rm conftest*
])# _LT_LINKER_BOILERPLATE
src/judy-1.0.5/aclocal.m4 view on Meta::CPAN
# Check whether the given compiler option works
AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION],
[AC_REQUIRE([LT_AC_PROG_SED])
AC_CACHE_CHECK([$1], [$2],
[$2=no
ifelse([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4])
printf "$lt_simple_compile_test_code" > conftest.$ac_ext
lt_compiler_flag="$3"
# Insert the option either (1) after the last *FLAGS variable, or
# (2) before a word containing "conftest.", or (3) at the end.
# Note that $ac_compile itself does not contain backslashes and begins
src/judy-1.0.5/aclocal.m4 view on Meta::CPAN
(eval echo "\"\$as_me:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&AS_MESSAGE_LOG_FD
echo "$as_me:__oline__: \$? = $ac_status" >&AS_MESSAGE_LOG_FD
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
$echo "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp
$SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
view release on metacpan or search on metacpan
);
plugin Extract => 'zip';
patch sub {
Path::Tiny->new("kiwi/variable.h")->edit_utf8(sub {
s/private:\n/$&friend int* get_refcount( kiwi::Variable* obj );/s;
});
Path::Tiny->new("kiwi/constraint.h")->edit_utf8(sub {
s/private:\n/$&friend int* get_refcount( kiwi::Constraint* obj );/s;
});
};
build [
view release on metacpan or search on metacpan
my $sh_version = "3";
patch sub {
my $makefile = Path::Tiny::path('Makefile');
# real version is 3.x
$makefile->edit_lines_utf8(sub {
s/^SHVER = 2/SHVER = $sh_version/;
});
};
build [
view release on metacpan or search on metacpan
libjit/dpas/dpas-scanner.l view on Meta::CPAN
*/
static void dpas_skip_comment(int star_style);
%}
%option outfile="lex.yy.c"
%option noyywrap
%option nounput
%option case-insensitive
DIGIT [0-9]
view release on metacpan or search on metacpan
jq/CMakeLists.txt view on Meta::CPAN
src/jq_test.c src/jv.c src/jv_alloc.c src/jv_aux.c
src/jv_dtoa.c src/jv_file.c src/jv_parse.c src/jv_print.c
src/jv_unicode.c src/linker.c src/locfile.c src/util.c
src/builtin.h src/bytecode.h src/compile.h
src/exec_stack.h src/jq_parser.h src/jv_alloc.h src/jv_dtoa.h
src/jv_unicode.h src/jv_utf8_tables.h src/lexer.l src/libm.h
src/linker.h src/locfile.h src/opcode_list.h src/parser.y
src/util.h
)
target_link_libraries(jq PUBLIC "$<BUILD_INTERFACE:jq_compiler_flags>")
target_link_libraries(jq PUBLIC -lm)
view release on metacpan or search on metacpan
lib/Alien/LibMagic.pm view on Meta::CPAN
sub libs {
my ($self) = @_;
my $top_lib = File::Spec->catfile( File::Spec->rel2abs($self->dist_dir), qw(lib) );
my $la_file = path( File::Spec->catfile( $top_lib, 'libmagic.la' ) );
my ($deps) = $la_file->slurp_utf8 =~ /^dependency_libs=' (.*)'$/m;
return "-L$top_lib -lmagic $deps";
}
sub Inline {
my ($self, $lang) = @_;
view release on metacpan or search on metacpan
lib/Alien/LibUSB.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::LibUSB - Perl distribution for LibUSB
view release on metacpan or search on metacpan
lib/Alien/LibXML.pm view on Meta::CPAN
__END__
=pod
=encoding utf8
=head1 NAME
Alien::LibXML - install the C libxml2 library on your system
view release on metacpan or search on metacpan
when doing a share install (gh#12)
0.32 2021-05-26 21:04:50 -0600
- Bump required libarchive to 3.2.0 (gh#9)
This allows downstream modules to use the
*_utf8 functions and the match API
0.31 2021-05-20 16:54:11 -0600
- Bump required libarchive to 3.0.2 (3.0.0 and 3.0.1
were alpha / beta versions)
- Only build libarchive once where possible. On MSWin32
view release on metacpan or search on metacpan
lib/Alien/Libasyncns.pm view on Meta::CPAN
our $VERSION = '0.002';
1;
__END__
=encoding utf-8
=head1 NAME
Alien::Libasyncns - Alien package for libasyncns
view release on metacpan or search on metacpan
lib/Alien/Libmcrypt.pm view on Meta::CPAN
1;
=pod
=encoding utf8
=head1 NAME
Alien::Libmcrypt
view release on metacpan or search on metacpan
maint/tags-to-versions.pl view on Meta::CPAN
[2,6,19,0], # broken c14n
[2,6,20,0], # broken schemas
[2,6,24,1], # all tests pass
[2,6,25,0], # broken XPath
[2,6,32,1], # tested, works ok
[2,7,1,0], # broken release, broken utf-16
[2,7,6,1], # tested, ok
[2,7,8,1], # tested, ok
[2,9,3,1], # schema regression
[2,9,4,0], # schema regression
[2,9,6,1],