Na}{

File Content: `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;

Name	Size	Permission
Reader	---	0755
DTDDecls.pm	16992 bytes	0444
DebugHandler.pm	1879 bytes	0444
DocType.pm	4658 bytes	0444
EncodingDetect.pm	2628 bytes	0444
Exception.pm	1707 bytes	0444
NoUnicodeExt.pm	628 bytes	0444
Productions.pm	6623 bytes	0444
Reader.pm	2541 bytes	0444
UnicodeExt.pm	369 bytes	0444
XMLDecl.pm	3389 bytes	0444

File Content: NoUnicodeExt.pm

File Content: `NoUnicodeExt.pm`