X7ROOT File Manager
Current Path:
/usr/local/share/perl5/XML/SAX/PurePerl
usr
/
local
/
share
/
perl5
/
XML
/
SAX
/
PurePerl
/
ðŸ“
..
📄
DTDDecls.pm
(16.59 KB)
📄
DebugHandler.pm
(1.83 KB)
📄
DocType.pm
(4.55 KB)
📄
EncodingDetect.pm
(2.57 KB)
📄
Exception.pm
(1.67 KB)
📄
NoUnicodeExt.pm
(628 B)
📄
Productions.pm
(6.47 KB)
ðŸ“
Reader
📄
Reader.pm
(2.48 KB)
📄
UnicodeExt.pm
(369 B)
📄
XMLDecl.pm
(3.31 KB)
Editing: NoUnicodeExt.pm
# $Id$ 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;
Upload File
Create Folder