The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

PCIMPRICH / XML-SAX-ExpatXS-0.98 / lib / XML / SAX / ExpatXS / Encoding.pm 

            

              
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

              
# $Id: Encoding.pm,v 1.1 2004/04/07 13:08:11 cvspetr Exp $
package XML::SAX::ExpatXS::Encoding;
require 5.004;
use strict;
use vars qw(@ISA %Encoding_Table @Encoding_Path $have_File_Spec);
use XML::SAX::ExpatXS;
use Carp;
require DynaLoader;
@ISA = qw(DynaLoader);
$have_File_Spec = $INC{'File/Spec.pm'} || do 'File/Spec.pm';
%Encoding_Table = ();
if ($have_File_Spec) {
  @Encoding_Path = (grep(-d $_,
                         map(File::Spec->catdir($_, qw(XML SAX ExpatXS Encodings)),
                             @INC)),
                    File::Spec->curdir);
}
else {
  @Encoding_Path = (grep(-d $_, map($_ . '/XML/SAX/ExpatXS/Encodings', @INC)), '.');
}
   
sub load_encoding {
  my ($file) = @_;
  $file =~ s!([^/]+)$!\L$1\E!;
  $file .= '.enc' unless $file =~ /\.enc$/;
  unless ($file =~ m!^/!) {
    foreach (@Encoding_Path) {
      my $tmp = ($have_File_Spec
                 ? File::Spec->catfile($_, $file)
                 : "$_/$file");
      if (-e $tmp) {
        $file = $tmp;
        last;
      }
    }
  }
  local(*ENC);
  open(ENC, $file) or croak("Couldn't open encmap $file:\n$!\n");
  binmode(ENC);
  my $data;
  my $br = sysread(ENC, $data, -s $file);
  croak("Trouble reading $file:\n$!\n")
    unless defined($br);
  close(ENC);
  my $name = XML::SAX::ExpatXS::LoadEncoding($data, $br);
  croak("$file isn't an encmap file")
    unless defined($name);
  $name;
}  # End load_encoding
################################################################
package XML::SAX::ExpatXS::Encinfo;
sub DESTROY {
  my $self = shift;
  XML::SAX::ExpatXS::FreeEncoding($self);
}
1;
__END__
=head1 NAME
XML::SAX::ExpatXS::Encoding - Encoding support for XML::SAX::ExpatXS
=head1 DESCRIPTION
This module is derived from XML::Parser::Expat. It provides XML::SAX::ExpatXS
parser with support of not-built-in encodings. 
=head1 AUTHORS
Larry Wall <F<larry@wall.org>>
and
Clark Cooper <F<coopercc@netheaven.com>> authored XML::Parser::Expat.
Petr Cimprich <F<petr@gingerall.cz>> addapted it for XML::SAX::ExpatXS.
=cut