Minor doc & portability fixes

This commit is contained in:
Yorhel 2025-02-26 08:06:57 +01:00
parent 7b0ba45346
commit 0c59b56ee8
4 changed files with 11 additions and 6 deletions

View file

@ -366,7 +366,7 @@ here anyway because the L<FU> supervisor uses them:
=item fdpass_send($send_fd, $pass_fd, $message) =item fdpass_send($send_fd, $pass_fd, $message)
Send a message and a file descriptor (C<$pass_fd>) over the given socket Send a message and a file descriptor (C<$pass_fd>) over the given socket
(<$send_fd>). C<$message> must not be empty, even if you don't intend to do (C<$send_fd>). C<$message> must not be empty, even if you don't intend to do
anything with it on receipt. Both C<$send_fd> and C<$pass_fd> must be numeric anything with it on receipt. Both C<$send_fd> and C<$pass_fd> must be numeric
file descriptors, as obtained by C<fileno()>. file descriptors, as obtained by C<fileno()>.

View file

@ -90,7 +90,7 @@ changes, see the main L<FU> module for details.
=head1 SYNOPSIS =head1 SYNOPSIS
use FU::XMLWriter ':html5'; use FU::XMLWriter ':html5_';
my $html_string = html_ sub { my $html_string = html_ sub {
head_ sub { head_ sub {
@ -108,7 +108,7 @@ changes, see the main L<FU> module for details.
# Or XML: # Or XML:
use FU::XMLWriter ':xml'; use FU::XMLWriter ':xml_';
my $xml_string = xml_ sub { my $xml_string = xml_ sub {
tag_ feed => xmlns => 'http://www.w3.org/2005/Atom', tag_ feed => xmlns => 'http://www.w3.org/2005/Atom',
@ -268,12 +268,12 @@ and C<"> are replaced with their XML entity.
All of the functions mentioned in this document can be imported individually. All of the functions mentioned in this document can be imported individually.
There are also two import groups: There are also two import groups:
use FU::XMLWriter ':html'; use FU::XMLWriter ':html_';
Exports C<tag_()>, C<html_()>, C<lit_()>, C<txt_()> and all of the C<< Exports C<tag_()>, C<html_()>, C<lit_()>, C<txt_()> and all of the C<<
<html-tag>_ >> functions mentioned above. <html-tag>_ >> functions mentioned above.
use FU::XMLWriter ':xml'; use FU::XMLWriter ':xml_';
Exports C<xml_()>, C<tag_()>, C<lit_()> and C<txt_()>. Exports C<xml_()>, C<tag_()>, C<lit_()> and C<txt_()>.

View file

@ -17,6 +17,10 @@ WriteMakefile(
dynamic_config => 0, dynamic_config => 0,
resources => { resources => {
repository => 'https://code.blicky.net/yorhel/fu', repository => 'https://code.blicky.net/yorhel/fu',
bugtracker => 'https://code.blicky.net/yorhel/fu/issues',
},
no_index => {
file => 'bench.PL',
}, },
}, },
depend => { '$(OBJECT)', 'c/*.c' }, depend => { '$(OBJECT)', 'c/*.c' },

View file

@ -31,6 +31,7 @@ static void fuxmlwr_escape(pTHX_ fuxmlwr *wr, SV *sv) {
const unsigned char *str = (unsigned char *)SvPV_const(sv, len); const unsigned char *str = (unsigned char *)SvPV_const(sv, len);
const unsigned char *tmp, *end = str + len; const unsigned char *tmp, *end = str + len;
unsigned char x = 0; unsigned char x = 0;
unsigned char *buf;
int utf8 = SvUTF8(sv); int utf8 = SvUTF8(sv);
while (str < end) { while (str < end) {
@ -55,7 +56,7 @@ static void fuxmlwr_escape(pTHX_ fuxmlwr *wr, SV *sv) {
case '&': fustr_write(&wr->out, "&amp;", 5); break; case '&': fustr_write(&wr->out, "&amp;", 5); break;
case '"': fustr_write(&wr->out, "&quot;", 6); break; case '"': fustr_write(&wr->out, "&quot;", 6); break;
default: default:
unsigned char *buf = (unsigned char *)fustr_write_buf(&wr->out, 2); buf = (unsigned char *)fustr_write_buf(&wr->out, 2);
buf[0] = 0xc0 | (x >> 6); buf[0] = 0xc0 | (x >> 6);
buf[1] = 0x80 | (x & 0x3f); buf[1] = 0x80 | (x & 0x3f);
break; break;