def input(file)
if $restoreMode
restore(file)
return
end
if $outputAsHTML == :css && $useColor
print "<html>\n<style type=\"text/css\">\n"
print ".hexja .letter { color:\#{$HTML_TTYC_LETTER}; }\n" if $HTML_TTYC_LETTER
print ".hexja .non-letter { color:\#{$HTML_TTYC_NON_LETTER}; }\n.hexja .breaked-letter { color:\#{$HTML_TTYC_BREAKED_LETTER}; }\n.hexja .iso-seq { color:\#{$HTML_TTYC_ISO_SEQ}; }\n</style>\n<body>\n<pre class=\"hexja\">\n"
elsif $outputAsHTML
print "<pre>\n"
end
uio = UndoableIO.new(file)
if !$inputCS
inputUnknown(uio)
elsif $inputCS =~ /UTF-?8/i
inputUTF8(uio)
elsif $inputCS =~ /UTF-?16-?le/i
inputUTF16(uio, true)
elsif $inputCS =~ /UTF-?16-?be/i
inputUTF16(uio, false)
elsif $inputCS =~ /UTF-?16/i
inputUTF16(uio, true)
elsif $inputCS =~ /euc/i
inputEUCJP(uio)
elsif $inputCS =~ /sjis|shift.?jis/i
inputSHIFT_JIS(uio, false)
elsif $inputCS =~ /cp932/i
inputSHIFT_JIS(uio, true)
else
print "入力文字コードが間違っています: #{$inputCS}\n";
exit 1
end
if $outputAsHTML == :css && $useColor
print "</pre>\n</body>\n</html>\n"
elsif $outputAsHTML
print "</pre>\n"
end
end