@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux hosjweb-prod2 6.12.0-107.59.3.2.el9uek.x86_64 #1 SMP PREEMPT_DYNAMIC Mon Dec 22 10:16:59 PST 2025 x86_64
Current Path :
/
homepage
/
v-mt
/
extlib
/
XML
/
SAX
/
PurePerl
/
Path :
Upload File :
New :
File
Dir
/homepage/v-mt/extlib/XML/SAX/PurePerl/NoUnicodeExt.pm
# $Id: NoUnicodeExt.pm,v 1.1 2002/01/30 17:35:21 matt Exp $ package XML::SAX::PurePerl; use strict; sub chr_ref { my $n = shift; if ($n < 0x80) { return chr ($n); } elsif ($n < 0x800) { return pack ("CC", (($n >> 6) | 0xc0), (($n & 0x3f) | 0x80)); } elsif ($n < 0x10000) { return pack ("CCC", (($n >> 12) | 0xe0), ((($n >> 6) & 0x3f) | 0x80), (($n & 0x3f) | 0x80)); } elsif ($n < 0x110000) { return pack ("CCCC", (($n >> 18) | 0xf0), ((($n >> 12) & 0x3f) | 0x80), ((($n >> 6) & 0x3f) | 0x80), (($n & 0x3f) | 0x80)); } else { return undef; } } 1;