local-lib5/lib/perl5/XML/SAX/PurePerl/NoUnicodeExt.pm

   1 # $Id: NoUnicodeExt.pm,v 1.1 2002-01-30 17:35:21 matt Exp $
   2
   3 package XML::SAX::PurePerl;
   4 use strict;
   5
   6 sub chr_ref {
   7     my $n = shift;
   8     if ($n < 0x80) {
   9         return chr ($n);
  10     }
  11     elsif ($n < 0x800) {
  12         return pack ("CC", (($n >> 6) | 0xc0), (($n & 0x3f) | 0x80));
  13     }
  14     elsif ($n < 0x10000) {
  15         return pack ("CCC", (($n >> 12) | 0xe0), ((($n >> 6) & 0x3f) | 0x80),
  16                                     (($n & 0x3f) | 0x80));
  17     }
  18     elsif ($n < 0x110000)
  19     {
  20         return pack ("CCCC", (($n >> 18) | 0xf0), ((($n >> 12) & 0x3f) | 0x80),
  21         ((($n >> 6) & 0x3f) | 0x80), (($n & 0x3f) | 0x80));
  22     }
  23     else {
  24         return undef;
  25     }
  26 }
  27
  28 1;