[ruby-list:30673] Re: XMLParser & DTD

	小林＠豊橋技術科学大学です。

In Subject : [ruby-list:30660] Re: XMLParser & DTD 
    Message-ID : <[e-mail]> 
    Yoshida Masato さん wrote:
>よしだです
>
>DTD は自動的には読みこみません。externalEntityRef イベントで
>外部実体をパースしてやる必要があります。
>
>例えば以下のようになります。

    ご指摘のように変更してみましたが、やはり読み込んでくれません。
when XMLParser::EXTERNAL_ENTITY_REF の所に入ってくれていないようです。
samples/extdtd.rbを試したところ、こちらではDTDを読み込んでくれているよ
うですので、環境としてはOKだと思うのですが...

    プログラムはこんな感じになっています。

#! /usr/local/bin/ruby

require 'parsearg'
require 'xmlparser'
require 'uconv'
require 'nkf'

class XMLRetry<Exception; end

ENTRY = 1;
READ  = 2;
POS   = 3;
INF   = 4;

def morphlist(file = nil, date = nil)

  ## file open
  if !file
    f = $stdin
  else
    begin
      f = open(file, "r")
    rescue
      $stderr.print "#{$0}: #{$!}\n";
      return
    end
  end


  ## read body
  xml = f.read
  f.close

  ## dummy default handler
  parser = XMLParser.new

  def parser.unknownEncoding(e)
    raise XMLRetry, e
  end
  def parser.default
  end
  def parser.externalEntityRef; end
  parser.setParamEntityParsing(XML::Parser::PARAM_ENTITY_PARSING_UNLESS_STANDALONE)

  ## start to parse

morph = Array.new;
element = ''

pdata = ''
i = 0;

  begin
    print XMLParser.expatVersion(),"\n";
    parser.parse(xml) do |type, name, data|
      case type
      when XMLParser::EXTERNAL_ENTITY_REF
        eparser = XML::Parser.new(parser, name)
        eparser.parse(open(data[1]).read)
        eparser.done
        print "----\n";
      when XMLParser::START_ELEM
        element = name
        case name
        when 'vocabulary'
        when 'head'
        when 'history'
        when 'version'
        when 'id'
        when 'date'
        when 'detail'
        when 'morph'
            i = i + 1
            morph[i] = Array.new
        when 'entry'
            morph[i][ENTRY] = ''
        when 'read'
            morph[i][READ] = ''
        when 'pos'
            morph[i][POS] = ''
        when 'inf'
            morph[i][INF] = ''
        end
      when XMLParser::END_ELEM
        case name
        when 'morph'
            print i,",";
            print morph[i][ENTRY],",";
            print morph[i][READ],",";
            print morph[i][POS],",";
            print morph[i][INF],"\n";
        end
      when XMLParser::CDATA
        next if data =~ /^\s*$/;
        data = Uconv.u8toeuc(data)
        case element
        when 'id'
        when 'date'
        when 'detail'
        when 'entry'
            data.gsub!(/^ +/,"")
            data.gsub!(/ +$/,"")
            morph[i][ENTRY] << data;
        when 'read'
            data.gsub!(/^ +/,"")
            data.gsub!(/ +$/,"")
            morph[i][READ] << data;
        when 'pos'
            data.gsub!(/^ +/,"")
            data.gsub!(/ +$/,"")
            morph[i][POS] << data;
        when 'inf'
            data.gsub!(/^ +/,"")
            data.gsub!(/ +$/,"")
            morph[i][INF] << data;
        end
      when XMLParser::PI
      else
      end
    end
  rescue XMLRetry
    newencoding = nil
    e = $!.to_s
    if e =~ /^iso-2022-jp$/i
      xml = NKF.nkf("-Je", xml)
      newencoding = "EUC-JP"
    end
    parser = XMLParser.new(newencoding)
    def parser.default; end
    retry
  rescue XMLParserError
    line = parser.line
    print "#{$0}: #{$!} (#{file}:#{line})\n"
  end
end

def usage
  $stderr.print "Usage: #{$0} [-d <date>] <file>\n"
  exit 1
end

parseArgs(0, nil, nil, "d:")
if (ARGV.length == 0)
  usage
end

morphlist(ARGV[0], $OPT_d)

=-=-=-=-=-=
小林 聡 @ 情報処理センター . 豊橋技術科学大学 
mail:  [e-mail]
tel:   [phone]
fax:   [phone]