2003-06-09 21:31:01 -04:00
|
|
|
module REXML
|
|
|
|
module Encoding
|
|
|
|
@@uconv_available = false
|
|
|
|
|
|
|
|
# Native, default format is UTF-8, so it is declared here rather than in
|
|
|
|
# an encodings/ definition.
|
|
|
|
UTF_8 = 'UTF-8'
|
2003-10-10 08:54:46 -04:00
|
|
|
UTF_16 = 'UTF-16'
|
|
|
|
UNILE = 'UNILE'
|
2003-06-09 21:31:01 -04:00
|
|
|
|
|
|
|
# ID ---> Encoding name
|
|
|
|
attr_reader :encoding
|
|
|
|
def encoding=( enc )
|
2003-10-10 08:54:46 -04:00
|
|
|
old_verbosity = $VERBOSE
|
|
|
|
begin
|
|
|
|
$VERBOSE = false
|
|
|
|
return if defined? @encoding and enc == @encoding
|
|
|
|
if enc and enc != UTF_8
|
|
|
|
@encoding = enc.upcase
|
|
|
|
begin
|
2003-12-08 21:41:33 -05:00
|
|
|
load 'rexml/encodings/ICONV.rb'
|
|
|
|
instance_eval @@__REXML_encoding_methods
|
2003-10-10 08:54:46 -04:00
|
|
|
Iconv::iconv( UTF_8, @encoding, "" )
|
|
|
|
rescue LoadError, Exception => err
|
2003-12-08 21:41:33 -05:00
|
|
|
raise "Bad encoding name #@encoding" unless @encoding =~ /^[\w-]+$/
|
|
|
|
@encoding.untaint
|
2003-10-10 08:54:46 -04:00
|
|
|
enc_file = File.join( "rexml", "encodings", "#@encoding.rb" )
|
|
|
|
begin
|
2003-12-08 21:41:33 -05:00
|
|
|
load enc_file
|
|
|
|
instance_eval @@__REXML_encoding_methods
|
2003-10-10 08:54:46 -04:00
|
|
|
rescue LoadError
|
2003-12-08 21:41:33 -05:00
|
|
|
puts $!.message
|
2003-10-10 08:54:46 -04:00
|
|
|
raise Exception.new( "No decoder found for encoding #@encoding. Please install iconv." )
|
|
|
|
end
|
|
|
|
end
|
2003-06-09 21:31:01 -04:00
|
|
|
else
|
2003-10-10 08:54:46 -04:00
|
|
|
enc = UTF_8
|
|
|
|
@encoding = enc.upcase
|
2003-12-08 21:41:33 -05:00
|
|
|
load 'rexml/encodings/UTF-8.rb'
|
|
|
|
instance_eval @@__REXML_encoding_methods
|
2003-06-09 21:31:01 -04:00
|
|
|
end
|
2003-10-10 08:54:46 -04:00
|
|
|
ensure
|
|
|
|
$VERBOSE = old_verbosity
|
2003-06-09 21:31:01 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2003-10-10 08:54:46 -04:00
|
|
|
def check_encoding str
|
|
|
|
# We have to recognize UTF-16, LSB UTF-16, and UTF-8
|
|
|
|
return UTF_16 if str[0] == 254 && str[1] == 255
|
|
|
|
return UNILE if str[0] == 255 && str[1] == 254
|
|
|
|
str =~ /^\s*<?xml\s*version=(['"]).*?\2\s*encoding=(["'])(.*?)\2/um
|
|
|
|
return $1.upcase if $1
|
|
|
|
return UTF_8
|
2003-06-09 21:31:01 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|