/usr/lib/x86_64-linux-gnu/perl5/5.24/Lucy/Util/StringHelper.pm is in liblucy-perl 0.3.3-7+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 | # Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements. See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to You under the Apache License, Version 2.0
# (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
package Lucy::Util::StringHelper;
use Lucy;
our $VERSION = '0.003003';
$VERSION = eval $VERSION;
1;
__END__
__BINDING__
my $xs_code = <<'END_XS_CODE';
MODULE = Lucy PACKAGE = Lucy::Util::StringHelper
=for comment
Turn an SV's UTF8 flag on. Equivalent to Encode::_utf8_on, but we don't have
to load Encode.
=cut
void
utf8_flag_on(sv)
SV *sv;
PPCODE:
SvUTF8_on(sv);
=for comment
Turn an SV's UTF8 flag off.
=cut
void
utf8_flag_off(sv)
SV *sv;
PPCODE:
SvUTF8_off(sv);
SV*
to_base36(num)
uint64_t num;
CODE:
{
char base36[lucy_StrHelp_MAX_BASE36_BYTES];
size_t size = lucy_StrHelp_to_base36(num, &base36);
RETVAL = newSVpvn(base36, size);
}
OUTPUT: RETVAL
IV
from_base36(str)
char *str;
CODE:
RETVAL = strtol(str, NULL, 36);
OUTPUT: RETVAL
=for comment
Upgrade a SV to UTF8, converting Latin1 if necessary. Equivalent to
utf::upgrade().
=cut
void
utf8ify(sv)
SV *sv;
PPCODE:
sv_utf8_upgrade(sv);
chy_bool_t
utf8_valid(sv)
SV *sv;
CODE:
{
STRLEN len;
char *ptr = SvPV(sv, len);
RETVAL = lucy_StrHelp_utf8_valid(ptr, len);
}
OUTPUT: RETVAL
=for comment
Concatenate one scalar onto the end of the other, ignoring UTF-8 status of the
second scalar. This is necessary because $not_utf8 . $utf8 results in a
scalar which has been infected by the UTF-8 flag of the second argument.
=cut
void
cat_bytes(sv, catted)
SV *sv;
SV *catted;
PPCODE:
{
STRLEN len;
char *ptr = SvPV(catted, len);
if (SvUTF8(sv)) { CFISH_THROW(LUCY_ERR, "Can't cat_bytes onto a UTF-8 SV"); }
sv_catpvn(sv, ptr, len);
}
END_XS_CODE
Clownfish::CFC::Binding::Perl::Class->register(
parcel => "Lucy",
class_name => "Lucy::Util::StringHelper",
xs_code => $xs_code,
);
|