xmlparser 0.6.81

data/lib/xml/encoding-ja.rb

@@ -0,0 +1,42 @@
+## -*- Ruby -*-
+## Sample XMLEncoding class for Japanese (EUC-JP, Shift_JIS)
+## 1998 by yoshidam
+##
+## Usage:
+##    require 'xml/encoding-ja'
+##    include XML::Encoding_ja
+
+module XML
+module Encoding_ja
+  require 'xml/parser'
+  require 'uconv'
+
+  class EUCHandler<XML::Encoding
+    def map(i)
+      return i if i < 128
+      return -1 if i < 160 or i == 255
+      return -2 
+    end
+    def convert(s)
+      Uconv.euctou2(s)
+    end
+  end
+
+  class SJISHandler<XML::Encoding
+    def map(i)
+      return i if i < 128
+      return -2 
+    end
+    def convert(s)
+      Uconv.sjistou2(s)
+    end
+  end
+
+  def unknownEncoding(name)
+    return EUCHandler.new if name =~ /^euc-jp$/i
+    return SJISHandler.new if name =~ /^shift_jis$/i
+    nil
+  end
+
+end
+end

data/lib/xml/parser.rb

@@ -0,0 +1,13 @@
+## -*- Ruby -*-
+## XML::Parser (alias of XMLParser)
+## 1998 by yoshidam
+
+require 'xmlparser.so'
+
+#module XML
+#  Parser = XMLParser
+#  class Parser
+#    Error = XMLParserError
+#  end
+#  Encoding = XMLEncoding
+#end

data/lib/xml/parserns.rb

@@ -0,0 +1,236 @@
+## -*- Ruby -*-
+## XML::ParserNS
+## namespaces-aware version of XML::Parser (experimental)
+## 2002 by yoshidam
+
+require 'xml/parser'
+
+module XML
+  class InternalParserNS < Parser
+    XMLNS = 'http://www.w3.org/XML/1998/namespace'
+    attr_reader :ns
+
+    def self.new(parserNS, *args)
+      nssep = nil
+      if args.length == 2 && !args[0].is_a?(Parser)
+        nssep = args[1]
+        args = args.shift
+      end
+      obj = super(*args)
+      obj.__init__(parserNS, nssep)
+      obj
+    end
+
+    def __init__(parserNS, nssep)
+      @ns = []
+      @parserNS = parserNS
+      @nssep = nssep
+    end
+
+
+    def parse(*args)
+      if block_given?
+        super do |nodetype, name, args, parser|
+          case nodetype
+          when START_ELEM
+            ns, args = getNSAttrs(args)
+            @ns.push(ns)
+            if @nssep
+              if @parserNS.respond_to?(:startNamespaceDecl)
+                ns.each do |prefix, uri|
+                  yield(START_NAMESPACE_DECL, prefix, uri, parser)
+                end
+              end
+
+              prefix, uri, localpart = resolveElementQName(name)
+              name = uri + @nssep + name if uri
+              attrs = {}
+              args.each do |k, v|
+                prefix, uri, localpart = resolveAttributeQName(k)
+                k = uri + @nssep + k if uri
+                attrs[k] = v
+              end
+              args = attrs
+            end
+            yield(nodetype, name, args, parser)
+          when END_ELEM
+            if @nssep
+              prefix, uri, localpart = resolveElementQName(name)
+              name = uri + @nssep + name if uri
+            end
+            yield(nodetype, name, args, parser)
+            ns = @ns.pop
+            if @nssep and @parserNS.respond_to?(:endNamespaceDecl)
+              ns.to_a.reverse.each do |prefix, uri|
+                yield(END_NAMESPACE_DECL, prefix, nil, parser)
+              end
+            end
+          else
+            yield(nodetype, name, args, parser)
+          end
+        end
+      else
+        super
+      end
+    end
+
+    def getNamespaces
+      @ns[-1]
+    end
+
+    def getNSURI(prefix)
+      return XMLNS if prefix == 'xml'
+      @ns.reverse_each do |n|
+        return n[prefix] if n.include?(prefix)
+      end
+      nil
+    end
+
+    def resolveElementQName(qname)
+      qname =~ /^((\S+):)?(\S+)$/u
+      prefix, localpart = $2, $3
+      uri = getNSURI(prefix)
+      [prefix, uri, localpart]
+    end
+
+    def resolveAttributeQName(qname)
+      qname =~ /^((\S+):)?(\S+)$/u
+      prefix, localpart = $2, $3
+      uri = nil
+      uri = getNSURI(prefix) if !prefix.nil?
+      [prefix, uri, localpart]
+    end
+
+    def getSpecifiedAttributes
+      ret = super
+#      attrs = {}
+#      ret.each do |k, v|
+#        next if k =~ /^xmlns/u
+#        if @nssep
+#          prefix, uri, localpart = resolveAttributeQName(k)
+#          k = uri.to_s + @nssep + k
+#        end
+#        attrs[k] = v
+#      end
+      attrs = []
+      ret.each do |k|
+        next if k =~ /^xmlns:|^xmlns$/u
+        if @nssep
+          prefix, uri, localpart = resolveAttributeQName(k)
+          k = uri.to_s + @nssep + k
+        end
+        attrs.push(k)
+      end
+      attrs
+    end
+
+
+    private
+
+    def getNSAttrs(args, eliminateNSDecl = false)
+      ns = {}
+      newargs = {}
+      args.each do |n, v|
+        prefix, localpart = n.split(':')
+        if prefix == 'xmlns'
+          ns[localpart] = v
+          next if eliminateNSDecl
+        end
+        newargs[n] = v
+      end
+      [ns, newargs]
+    end
+
+
+    def startElement(name, args)
+      ns, args = getNSAttrs(args)
+      @ns.push(ns)
+      if @nssep and @parserNS.respond_to?(:startNamespaceDecl)
+        ns.each do |prefix, uri|
+          @parserNS.startNamespaceDecl(prefix, uri)
+        end
+      end
+      if @parserNS.respond_to?(:startElement)
+        if @nssep
+          prefix, uri, localpart = resolveElementQName(name)
+          name = uri + @nssep + name if uri
+          attrs = {}
+          args.each do |k, v|
+            prefix, uri, localpart = resolveAttributeQName(k)
+            k = uri + @nssep + k if uri
+            attrs[k] = v
+          end
+          args = attrs
+        end
+        @parserNS.startElement(name, args)
+      end
+    end
+
+    def endElement(name)
+      if @parserNS.respond_to?(:endElement)
+        if @nssep
+          prefix, uri, localpart = resolveElementQName(name)
+          name = uri + @nssep + name if uri
+        end
+        @parserNS.endElement(name)
+      end
+      ns = @ns.pop
+      if @nssep and @parserNS.respond_to?(:endNamespaceDecl)
+        ns.to_a.reverse.each do |prefix, uri|
+          @parserNS.endNamespaceDecl(prefix)
+        end
+      end
+    end
+  end
+
+
+  class ParserNS
+    EVENT_HANDLERS = [
+      :character,
+      :processingInstruction,
+      :unparsedEntityDecl,
+      :notationDecl,
+      :externalEntityRef,
+      :comment,
+      :startCdata,
+      :endCdata,
+      :startNamespaceDecl,
+      :endNamespaceDecl,
+      :startDoctypeDecl,
+      :endDoctypeDecl,
+      :default,
+      :defaultExpand,
+      :unknownEncoding,
+      :notStandalone,
+      :elementDecl,
+      :attlistDecl,
+      :xmlDecl,
+      :entityDecl,
+      :externalParsedEntityDecl,
+      :internalParsedEntityDecl]
+
+    def initialize(*args)
+      @parser = InternalParserNS.new(self, *args)
+    end
+
+    def parse(*args, &block)
+      EVENT_HANDLERS.each do |m|
+        if self.respond_to?(m)
+          eval "def @parser.#{m}(*args); @parserNS.#{m}(*args); end"
+        end
+      end
+      @parser.parse(*args, &block)
+    end
+
+    def setReturnNSTriplet(do_nst); end
+
+    def method_missing(name, *args)
+      if @parser.respond_to?(name)
+        @parser.send(name, *args)
+      else
+        raise NameError.new("undefined method `#{name.id2name}' " +
+                            "for #{self.inspect}")
+      end
+    end
+  end
+end

data/lib/xml/sax.rb

@@ -0,0 +1,353 @@
+## -*- Ruby -*-
+## SAX (Simple API for XML) 1.0 for Ruby (experimental)
+## 1999 by yoshidam
+##
+## SAX information: http://www.megginson.com/SAX/
+##
+
+module XML
+  module SAX
+    module AttributeList
+      def getLength
+        raise "not implemented"
+      end
+
+      def getName(pos)
+        raise "not implemented"
+      end
+
+      def getType(pos_or_name)
+        raise "not implemented"
+      end
+
+      def getValue(pos_or_name)
+        raise "not implemented"
+      end
+    end
+
+    module DTDHandler
+      def notationDecl(name, pubid, sysid)
+        raise "not implemented"
+      end
+
+      def unparsedEntityDecl(name, pubid, sysid, notation)
+        raise "not implemented"
+      end
+    end
+
+    module DocumentHandler
+      def setDocumentLocator(locator)
+        raise "not implemented"
+      end
+
+      def startDocument
+        raise "not implemented"
+      end
+
+      def endDocument()
+        raise "not implemented"
+      end
+
+      def startElement(name, atts)
+        raise "not implemented"
+      end
+
+      def endElement(name)
+        raise "not implemented"
+      end
+
+      def characters(ch, start, length)
+        raise "not implemented"
+      end
+
+      def ignorableWhitespace(ch, start, length)
+        raise "not implemented"
+      end
+
+      def processingInstruction(target, data)
+        raise "not implemented"
+      end
+    end
+
+    module EntityResolver
+      def resolveEntity(pubid, sysid)
+        raise "not implemented"
+      end
+    end
+
+    module ErrorHandler
+      def warning(e)
+        raise "not implemented"
+      end
+
+      def error(e)
+        raise "not implemented"
+      end
+
+      def fatalError(e)
+        raise "not implemented"
+      end
+    end
+
+    module Locator
+      def getPublicId
+        raise "not implemented"
+      end
+
+      def getSystemId
+        raise "not implemented"
+      end
+
+      def getLineNumber
+        raise "not implemented"
+      end
+
+      def getColumnNumber
+        raise "not implemented"
+      end
+    end
+
+    module Parser
+      def setLocale(locale)
+        raise "not implemented"
+      end
+
+      def setEntityResolver(resolver)
+        raise "not implemented"
+      end
+
+      def setDTDHandler(handler)
+        raise "not implemented"
+      end
+
+      def setDocumentHandler(handler)
+        raise "not implemented"
+      end
+
+      def setErrorHandler
+        raise "not implemented"
+      end
+
+      def parse(source_or_sysid)
+        raise "not implemented"
+      end
+    end
+
+    class HandlerBase
+      include EntityResolver
+      include DTDHandler
+      include DocumentHandler
+      include ErrorHandler
+
+      def resolveEntity(pubid, sysid)
+        nil
+      end
+
+      def notationDecl(name, pubid, sysid)
+      end
+
+      def unparsedEntityDecl(name, pubid, sysid, natation)
+      end
+
+      def setDocumentLocator(locator)
+      end
+
+      def startDocument
+      end
+
+      def endDocument
+      end
+
+      def startElement(name, atts)
+      end
+
+      def endElement(name)
+      end
+
+      def characters(ch, start, length)
+      end
+
+      def ignorableWhitespace(ch, sart, length)
+      end
+
+      def processingInstruction(target, data)
+      end
+
+      def warning(e)
+      end
+
+      def error(e)
+      end
+
+      def fatalError(e)
+        raise e
+      end
+    end
+
+    class InputSource
+      def initialize(sysid)
+        @publicId = nil
+        @systemId = nil
+        @stream = nil
+        @encoding = nil
+
+        if sysid.kind_of?(String)
+          setSystemId(sysid)
+        elsif !sysid.nil?
+          setByteStream(sysid)
+        end
+      end
+
+      def setPublicId(pubid)
+        @publicId = pubid
+      end
+
+      def getPublicId
+        @publicId
+      end
+
+      def setSystemId(sysid)
+        @systemId = sysid
+      end
+
+      def getSystemId
+        @systemId
+      end
+
+      def setByteStream(stream)
+        @stream = stream
+      end
+
+      def getByteStream
+        @stream
+      end
+
+      def setEncoding(encoding)
+        @encoding = encoding
+      end
+
+      def getEncoding
+        @encoding
+      end
+
+      def setCharacterStream(stream)
+        raise "not implemented"
+      end
+
+      def getCharacterStream
+        raise "not implemented"
+      end
+    end
+
+    class SAXException < Exception
+      ## initialize(String)
+      ## initialize(Exception)
+      ## initialize(String, Exception)
+      def initialize(message, e = nil)
+        @message = nil
+        @exception = nil
+        if message.kind_of?(String) && e.nil?
+          @message = message
+        elsif message.kind_of?(Exception) && e.nil?
+          @exception = e
+        elsif message.kind_of?(String) && e.kind_of?(Exception)
+          @message = message
+          @exception = e
+        else
+          raise TypeError.new("parameter error")
+        end
+      end
+
+      def getMessage
+        if @message.nil? && !@exception.nil?
+          return @exception.to_s
+        end
+        @message
+      end
+
+      def getException
+        @exception
+      end
+
+      def toString
+        getMessage
+      end
+      alias to_s toString
+    end
+
+    class SAXParseException < SAXException
+      ## initialize(String, Locator)
+      ## initialize(String, Locator, Exception)
+      ## initialize(String, String, String, Fixnum, Fixnum)
+      ## initialize(String, String, String, Fixnum, Fixnum, Exception)
+      def initialize(message, pubid = nil, sysid = nil,
+                     line = nil, column = nil, e = nil)
+        @publicId = nil
+        @systemiId = nil
+        @lineNumber = nil
+        @columnNumber = nil
+        if message.kind_of?(String) && pubid.kind_of?(Locator) &&
+            sysid.nil? && line.nil? && column.nil? && e.nil?
+          super(message)
+          @publicId = pubid.getPublicId
+          @systemId = pubid.getSystemId
+          @lineNumber = pubid.getLineNumber
+          @columnNumber = pubid.getColumnNumber
+        elsif message.kind_of?(String) && pubid.kind_of?(Locator) &&
+            sysid.kind_of?(Exception) && line.nil? && column.nil? && e.nil?
+          super(message, sysid)
+          @publicId = pubid.getPublicId
+          @systemId = pubid.getSystemId
+          @lineNumber = pubid.getLineNumber
+          @columnNumber = pubid.getColumnNumber
+        elsif message.kind_of?(String) && pubid.kind_of?(String) &&
+            sysid.kind_of?(String) && line.kind_of?(Fixnum) &&
+            column.kind_of?(Fixnum) && e.nil?
+          super(message)
+          @publicId = pubid
+          @systemId = sysid
+          @lineNumber = line
+          @columnNumber = column
+        elsif message.kind_of?(String) && pubid.kind_of?(String) &&
+            sysid.kind_of?(String) && line.kind_of?(Fixnum) &&
+            column.kind_of?(Fixnum) && e.kind_of?(Exception)
+          super(message, e)
+          @publicId = pubid
+          @systemId = sysid
+          @lineNumber = line
+          @columnNumber = column
+        else
+          raise TypeError.new("parameter error")
+        end
+      end
+
+      def getPublicId
+        @publicId
+      end
+
+      def getSystemId
+        @systemId
+      end
+
+      def getLineNumber
+        @lineNumber
+      end
+
+      def getColumnNumber
+        @columnNumber
+      end
+    end
+
+    module Helpers
+      module ParserFactory
+        def ParserFactory::makeParser(klass)
+          if klass.kind_of?(Class)
+            klass.new
+          elsif klass.kind_of?(String)
+            eval(klass).new
+          end
+        end
+      end
+    end
+  end
+end