view release on metacpan or search on metacpan
patches/Makefile.mingw view on Meta::CPAN
CFLAGS = -Isrc -Iinclude -O2 -Wall -D_WIN32_WINNT=0x0500 \
-DSUPPORT_ACCESSIBILITY_CHECKS=1 -DSUPPORT_ASIAN_ENCODINGS=1 -DSUPPORT_UTF16_ENCODINGS=1
OBJS = src/access.o src/alloc.o src/attrask.o src/attrdict.o src/attrget.o src/attrs.o src/buffio.o \
src/clean.o src/config.o src/entities.o src/fileio.o src/istack.o src/lexer.o src/localize.o \
src/mappedio.o src/parser.o src/pprint.o src/streamio.o src/tagask.o src/tags.o \
src/tidyplib.o src/tmbstr.o src/utf8.o
EXE1 = tidyp.exe
EXE1OBJS = src/tidyp.o
CC = gcc
AR = ar
view release on metacpan or search on metacpan
src/tests/tests2/81_types.expect
src/tests/tests2/82_attribs_position.c
src/tests/tests2/82_attribs_position.expect
src/tests/tests2/82_nocode_wanted.c
src/tests/tests2/82_nocode_wanted.expect
src/tests/tests2/83_utf8_in_identifiers.c
src/tests/tests2/83_utf8_in_identifiers.expect
src/tests/tests2/84-hex-float.c
src/tests/tests2/84-hex-float.expect
src/tests/tests2/85-asm-outside-function.c
src/tests/tests2/85-asm-outside-function.expect
src/tests/tests2/LICENSE
view release on metacpan or search on metacpan
lib/Alien/Unicruft.pm view on Meta::CPAN
__END__
=pod
=encoding utf8
=head1 NAME
Alien::Unicruft - install the libunicruft C library on your system
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/PPMMaker.pm view on Meta::CPAN
my $ppd_file = "$dist{name}.ppd";
my $fh = IO::File->new(">$ppd_file")
or die "Cannot write to $ppd_file: $!";
my $io_file_ok = eval { IO::File->VERSION(1.13); 1 };
$fh->binmode(":utf8")
if $io_file_ok && $fh->can('binmode') && $] >= 5.008 && $Config{useperlio};
print $fh $ppd;
close $fh;
return $ppd_file;
view release on metacpan or search on metacpan
# script still looks for one --- so we create an empty one if it
# doesn't exist and add stub Makefile (with 'install' and 'clean'
# targets)
my $doc_makefile = Path::Tiny->new('doc/Makefile');
$doc_makefile->parent->mkpath;
$doc_makefile->spew_utf8(<<'EOF');
install:
clean:
EOF
view release on metacpan or search on metacpan
share/examples/locale/multi-lang.html view on Meta::CPAN
<!--<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf8">
<title>Multiple Languages</title>
<link rel="stylesheet" type="text/css" href="../../resources/css/ext-all.css" />
<script type="text/javascript" src="../../adapter/ext/ext-base.js"></script>
<script type="text/javascript" src="../../ext-all.js"></script>
<script type="text/javascript" src="languages.js"></script>
view release on metacpan or search on metacpan
t/000_report_versions.t view on Meta::CPAN
BEGIN {
if (HAVE_UTF8) {
# The string eval helps hide this from Test::MinimumVersion
eval "require utf8;";
die "Failed to load UTF-8 support" if $@;
}
# Class structure
require 5.004;
t/000_report_versions.t view on Meta::CPAN
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
# Try to decode as utf8
utf8::decode($string) if HAVE_UTF8;
# Check for some special cases
return $self unless length $string;
unless ( $string =~ /[\012\015]+\z/ ) {
return $self->_error("Stream does not end with newline character");
view release on metacpan or search on metacpan
"test" : {
"requires" : {
"Test2::V0" : "0",
"Test::Alien" : "0",
"Test::Most" : "0",
"utf8" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
view release on metacpan or search on metacpan
lib/Alien/XInputSimulator.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::XInputSimulator - Perl distribution for XInputSimulator
view release on metacpan or search on metacpan
eg/xmake_project.pl view on Meta::CPAN
my $orig = getcwd;
chdir $dir or die "chdir $dir: $!";
# src/main.cpp for the demo
path('src')->mkpath;
path('src/main.cpp')->spew_utf8(<<~'CPP');
#include <cstdio>
#include <string>
int main() {
std::puts("hello from Alien::Xmake::Project");
return 0;
eg/xmake_project.pl view on Meta::CPAN
->when( 'is_plat("windows")', sub ($t) { $t->add_defines('WIN32_LEAN_AND_MEAN') } );
# write the build file and show what we generated
$p->save;
say 'Wrote xmake.lua';
say path('xmake.lua')->slurp_utf8;
# Drive it via Alien::Xmake handle
say 'Configuring (release)...';
die 'configure failed' unless $p->configure( mode => 'release' );
say 'Building...';
view release on metacpan or search on metacpan
builder/Alien/Xmake/Builder.pm view on Meta::CPAN
( defined $parts[0] and !ref $parts[0] and length( $parts[0] ) ) ? $parts[0] : undef;
}
};
1;
PERL
$dest->spew_utf8($content);
say "Generated $dest";
}
method _install_windows ($installdir) {
my $temppath = path('_build_xmake');
view release on metacpan or search on metacpan
lib/Alien/Xrepo.pm view on Meta::CPAN
method _cache_load (%opts) {
my $dir = $self->_cache_dir(%opts) or return ();
my $file = $dir->child('cache.json');
return () unless -f $file;
my $raw = eval { $file->slurp_utf8 };
return () unless defined $raw && length $raw;
my $meta = eval { decode_json($raw) };
return () unless ref $meta eq 'HASH' && ref $meta->{order} eq 'ARRAY' && ref $meta->{entries} eq 'HASH';
$meta;
}
lib/Alien/Xrepo.pm view on Meta::CPAN
while ( @order > _CACHE_MAX() ) { delete $keep{ pop @order }; }
$dir->mkpath;
my $file = $dir->child('cache.json');
my $tmp = $dir->child('cache.json.tmp');
$tmp->remove if $tmp->exists; # clear a tmp stranded by an interrupted save
$tmp->spew_utf8( encode_json( { version => 1, order => \@order, entries => \%keep } ) );
$file->remove if $^O eq 'MSWin32' && $file->exists;
move( "$tmp", "$file" );
}
method _entry_alive ($e) {
view release on metacpan or search on metacpan
lib/Alien/Z3.pm view on Meta::CPAN
1;
__END__
=pod
=encoding utf8
=head1 NAME
Alien::Z3 - Perl distribution for Z3
view release on metacpan or search on metacpan
include/boost/config/stdlib/dinkumware.hpp view on Meta::CPAN
#if !defined(_CPPLIB_VER) || _CPPLIB_VER < 650
# define BOOST_NO_CXX11_ADDRESSOF
#endif
// Bug specific to VC14,
// See https://connect.microsoft.com/VisualStudio/feedback/details/1348277/link-error-when-using-std-codecvt-utf8-utf16-char16-t
// and discussion here: http://blogs.msdn.com/b/vcblog/archive/2014/11/12/visual-studio-2015-preview-now-available.aspx?PageIndex=2
#if defined(_CPPLIB_VER) && (_CPPLIB_VER == 650)
# define BOOST_NO_CXX11_HDR_CODECVT
#endif
view release on metacpan or search on metacpan
libcares/test/fuzznames/name08 view on Meta::CPAN
utf8.££.data.com
view release on metacpan or search on metacpan
src/catch.hpp view on Meta::CPAN
, std::string>::type convertUnstreamable( T const& value ) {
return convertUnknownEnumToString( value );
}
#if defined(_MANAGED)
//! Convert a CLR string to a utf8 std::string
template<typename T>
std::string clrReferenceToString( T^ ref ) {
if (ref == nullptr)
return std::string("null");
auto bytes = System::Text::Encoding::UTF8->GetBytes(ref->ToString());
src/catch.hpp view on Meta::CPAN
}
#if defined(CATCH_CONFIG_WCHAR) && defined(WIN32) && defined(UNICODE)
int Session::run( int argc, wchar_t* const argv[] ) {
char **utf8Argv = new char *[ argc ];
for ( int i = 0; i < argc; ++i ) {
int bufSize = WideCharToMultiByte( CP_UTF8, 0, argv[i], -1, NULL, 0, NULL, NULL );
utf8Argv[ i ] = new char[ bufSize ];
WideCharToMultiByte( CP_UTF8, 0, argv[i], -1, utf8Argv[i], bufSize, NULL, NULL );
}
int returnCode = run( argc, utf8Argv );
for ( int i = 0; i < argc; ++i )
delete [] utf8Argv[ i ];
delete [] utf8Argv;
return returnCode;
}
#endif
int Session::run() {
src/catch.hpp view on Meta::CPAN
return tp;
}
friend TablePrinter& operator << (TablePrinter& tp, ColumnBreak) {
auto colStr = tp.m_oss.str();
// This takes account of utf8 encodings
auto strSize = Catch::StringRef(colStr).numberOfCharacters();
tp.m_oss.str("");
tp.open();
if (tp.m_currentColumn == static_cast<int>(tp.m_columnInfos.size() - 1)) {
tp.m_currentColumn = -1;
view release on metacpan or search on metacpan
die "could not locate extracted ckdl source tree (cwd=" . `pwd` . ")"
unless $srcdir;
my $cb = ExtUtils::CBuilder->new(quiet => 0);
my @units = qw(bigint compat emitter parser str tokenizer utf8);
my @objects;
for my $unit (@units) {
my $src = File::Spec->catfile($srcdir, 'src', "$unit.c");
my $obj = $cb->compile(
source => $src,
view release on metacpan or search on metacpan
lib/Alien/gperf.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::gperf - Perl distribution for GNU gperf
view release on metacpan or search on metacpan
bundled/src/vendor/cJSON/cJSON.c view on Meta::CPAN
return h;
}
/* converts a UTF-16 literal to UTF-8
* A literal can be one or two sequences of the form \uXXXX */
static unsigned char utf16_literal_to_utf8(const unsigned char * const input_pointer, const unsigned char * const input_end, unsigned char **output_pointer)
{
long unsigned int codepoint = 0;
unsigned int first_code = 0;
const unsigned char *first_sequence = input_pointer;
unsigned char utf8_length = 0;
unsigned char utf8_position = 0;
unsigned char sequence_length = 0;
unsigned char first_byte_mark = 0;
if ((input_end - first_sequence) < 6)
{
bundled/src/vendor/cJSON/cJSON.c view on Meta::CPAN
* takes at maximum 4 bytes to encode:
* 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */
if (codepoint < 0x80)
{
/* normal ascii, encoding 0xxxxxxx */
utf8_length = 1;
}
else if (codepoint < 0x800)
{
/* two bytes, encoding 110xxxxx 10xxxxxx */
utf8_length = 2;
first_byte_mark = 0xC0; /* 11000000 */
}
else if (codepoint < 0x10000)
{
/* three bytes, encoding 1110xxxx 10xxxxxx 10xxxxxx */
utf8_length = 3;
first_byte_mark = 0xE0; /* 11100000 */
}
else if (codepoint <= 0x10FFFF)
{
/* four bytes, encoding 1110xxxx 10xxxxxx 10xxxxxx 10xxxxxx */
utf8_length = 4;
first_byte_mark = 0xF0; /* 11110000 */
}
else
{
/* invalid unicode codepoint */
goto fail;
}
/* encode as utf8 */
for (utf8_position = (unsigned char)(utf8_length - 1); utf8_position > 0; utf8_position--)
{
/* 10xxxxxx */
(*output_pointer)[utf8_position] = (unsigned char)((codepoint | 0x80) & 0xBF);
codepoint >>= 6;
}
/* encode first byte */
if (utf8_length > 1)
{
(*output_pointer)[0] = (unsigned char)((codepoint | first_byte_mark) & 0xFF);
}
else
{
(*output_pointer)[0] = (unsigned char)(codepoint & 0x7F);
}
*output_pointer += utf8_length;
return sequence_length;
fail:
return 0;
bundled/src/vendor/cJSON/cJSON.c view on Meta::CPAN
*output_pointer++ = input_pointer[1];
break;
/* UTF-16 literal */
case 'u':
sequence_length = utf16_literal_to_utf8(input_pointer, input_end, &output_pointer);
if (sequence_length == 0)
{
/* failed to convert UTF16-literal to UTF-8 */
goto fail;
}
bundled/src/vendor/cJSON/cJSON.c view on Meta::CPAN
return buffer;
}
/* skip the UTF-8 BOM (byte order mark) if it is at the beginning of a buffer */
static parse_buffer *skip_utf8_bom(parse_buffer * const buffer)
{
if ((buffer == NULL) || (buffer->content == NULL) || (buffer->offset != 0))
{
return NULL;
}
bundled/src/vendor/cJSON/cJSON.c view on Meta::CPAN
if (item == NULL) /* memory fail */
{
goto fail;
}
if (!parse_value(item, buffer_skip_whitespace(skip_utf8_bom(&buffer))))
{
/* parse failure. ep is set. */
goto fail;
}
view release on metacpan or search on metacpan
lib/Alien/libmaxminddb.pm view on Meta::CPAN
# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
use 5.014;
use warnings;
use utf8;
our $VERSION = 2.003;
use File::Spec qw();
use JSON::PP qw();
view release on metacpan or search on metacpan
lib/Alien/libpid.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::libpid - Perl distribution for libpid
view release on metacpan or search on metacpan
lib/Alien/libsdl2.pm view on Meta::CPAN
our $VERSION = '1.07';
1;
__END__
=encoding utf8
=head1 NAME
Alien::libsdl2 - Find or download and install libsdl2
view release on metacpan or search on metacpan
.claude/skills/getty-perl-core/SKILL.md view on Meta::CPAN
- **Nested ternaries** for a return that picks between expressions, instead of an if/elsif chain.
## Data
- **`{ %hash }` and `\%hash` are different operations, not two styles.** `{ %h }` builds a new anonymous copy; `\%h` references the existing hash. Return a copy when the caller must not mutate your state; return the reference when sharing is the poin...
- **`Path::Tiny`** for every file operation — not `File::Spec`, not bare `open`. `path(...)->child(...)->slurp_utf8`.
- **`JSON::MaybeXS`** always — never `JSON::PP`, `JSON::XS`, `Cpanel::JSON::XS` directly. Encoders get `canonical => 1, convert_blessed => 1`.
- **Every serialiser is deterministic.** MessagePack `->canonical`, DBIC `serializer_options => { canonical => 1 }`. Same rule, every format.
- **Booleans: `JSON->true` / `JSON->false`.** `use JSON::MaybeXS;` covers codec and booleans.
- `$YAML::XS::Boolean = 'JSON::PP'` is one of YAML::XS's fixed mode names, not a module choice — leave it alone.
- **Align `=>` in multi-line hash literals** when keys are of similar length.
view release on metacpan or search on metacpan
lib/Alien/libudev.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::libudev - Perl distribution for libudev
view release on metacpan or search on metacpan
use 5.008_001;
use strict;
use warnings;
use utf8;
BEGIN { push @INC, '.' }
use inc::libui;
use File::Basename;
use File::Spec;
view release on metacpan or search on metacpan
lib/Alien/libvas.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::libvas - Perl distribution for libvas
view release on metacpan or search on metacpan
lib/Alien/lshw.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::lshw - Perl distribution for GNU lshw
view release on metacpan or search on metacpan
script/build.pl view on Meta::CPAN
chdir(_catdir(File::Spec->updir, File::Spec->updir, File::Spec->updir));
my $fh;
open($fh, '>', $status_filename) || die "unable to write $status_filename $!";
print $fh JSON::PP->new->utf8->canonical->encode({ destdir => $ENV{DESTDIR}, prefix => \@prefix, skip => 0 });
close $fh;
view release on metacpan or search on metacpan
lib/Alien/premake5.pm view on Meta::CPAN
1;
__END__
=encoding utf8
=head1 NAME
Alien::premake5 - Build or find premake5
view release on metacpan or search on metacpan
lib/Alien/raylib.pm view on Meta::CPAN
use parent 'Alien::Base';
=pod
=encoding utf8
=head1 NAME
Alien::raylib - Alien distribution for raylib video game engine