# File hexja, line 1437
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