xmlparser 0.6.81

data/lib/xml/dom/digest.rb

@@ -0,0 +1,94 @@
+## -*- Ruby -*-
+## DOMHASH test implementation
+## 1999 by yoshidam
+##
+## Apr 20, 1999 Change for draft-hiroshi-dom-hash-01.txt
+##
+
+require 'xml/dom/core'
+require 'md5'
+require 'uconv'
+
+module XML
+  module DOM
+
+    def self.tou16(str)
+      Uconv.u16swap(Uconv.u8tou16(str))
+    end
+
+    class Node
+      def getDigest(force = false)
+        nil
+      end
+    end
+
+    class Text
+      def getDigest(force = false)
+        (!force && @digest) ||
+          @digest = MD5.new([TEXT_NODE].pack("N") + DOM.tou16(nodeValue)).digest
+      end
+    end
+
+##    class Comment
+##      def getDigest(force = false)
+##        (!force && @digest) ||
+##          @digest = MD5.new([COMMENT_NODE].pack("N") + DOM.tou16(data)).digest
+##      end
+##    end
+
+    class ProcessingInstruction
+      def getDigest(force = false)
+        (!force && @digest) ||
+          @digest = MD5.new([PROCESSING_INSTRUCTION_NODE].pack("N") +
+                            DOM.tou16(target) + "\0\0" + DOM.tou16(data)).digest
+      end
+    end
+
+    class Attr
+      def getDigest(force = false)
+        (!force && @digest) ||
+          @digest = MD5.new([ATTRIBUTE_NODE].pack("N") +
+                            DOM.tou16(nodeName) + "\0\0" + DOM.tou16(nodeValue)).digest
+      end
+    end
+
+    class NamedNodeMap
+      include Enumerable
+    end
+
+    class NodeList
+      include Enumerable
+    end
+
+    class Element
+      def getDigest(force = false)
+        return @digest if (!force && @digest)
+        attr = attributes
+        children = childNodes
+        attr_digests = ""
+        children_digests = ""
+        if attr
+          attr_array = attr.sort {|a, b|
+            DOM.tou16(a.nodeName) <=> DOM.tou16(b.nodeName)}
+          attr_array.each {|a|
+            attr_digests << a.getDigest(force)
+          }
+        end
+        children_num = 0
+        children.each {|c|
+          next if c.nodeType == COMMENT_NODE
+          children_num += 1
+          children_digests << c.getDigest(force)
+        }
+        @digest = MD5.new([ELEMENT_NODE].pack("N") +
+                          DOM.tou16(nodeName) +
+                          "\0\0" +
+                          [attr.length].pack("N") +
+                          attr_digests +
+                          [children_num].pack("N") +
+                          children_digests).digest
+      end
+    end
+
+  end
+end

data/lib/xml/dom/visitor.rb

@@ -0,0 +1,182 @@
+## -*- Ruby -*-
+## XML::DOM::Visitor
+## 1998 by yoshidam
+##
+## Oct 23, 1998 yoshidam Fix each
+##
+
+
+=begin
+= XML::DOM::Visitor
+
+== Module XML
+
+=end
+module XML
+
+=begin
+== Module XML::DOM (XML::SimpleTree)
+
+=end
+  module DOM
+
+=begin
+== Class XML::DOM::Visitor
+
+Skelton class of Visitor.
+
+You can override the following methods and implement the other
+"visit_TYPE" methods.
+
+You should implement some "visit_name_NAME" methods and
+"method_missing" method for accept_name.
+
+=end
+    ## Skeleton visitor
+    class Visitor
+      ## You can override the following methods and implement the other
+      ## "visit_TYPE" methods.
+      ## You should implement some "visit_name_NAME" methods and
+      ## "method_missing" method for accept_name.
+
+=begin
+=== Methods
+
+    --- Visitor#visit_Document(grove, *rest)
+
+callback method.
+=end
+      def visit_Document(grove, *rest)
+        grove.children_accept(self, *rest)
+      end
+
+=begin
+    --- Visitor#visit_Element(element, *rest)
+
+callback method.
+=end
+      def visit_Element(element, *rest)
+        element.children_accept(self, *rest)
+      end
+
+=begin
+    --- Visitor#visit_Text(text, *rest)
+
+callback method.
+=end
+      def visit_Text(text, *rest)
+      end
+
+=begin
+    --- Visitor#visit_CDATASection(text, *rest)
+
+callback method.
+=end
+      def visit_CDATASection(text, *rest)
+      end
+
+=begin
+    --- Visitor#visit_Comment(comment, *rest)
+
+callback method.
+=end
+      def visit_Comment(comment, *rest)
+      end
+
+=begin
+    --- Visitor#visit_ProcessingInstruction(pi, *rest)
+
+callback method.
+=end
+      def visit_ProcessingInstruction(pi, *rest)
+      end
+
+    end
+
+=begin
+
+== Class XML::DOM::Node
+
+XML::Grove::Visitor like interfaces.
+=end
+    class Node
+
+=begin
+    --- Node#accept(visitor, *rest)
+
+call back visit_* method.
+=end
+      ## XML::Grove::Visitor like interfaces
+      def accept(visitor, *rest)
+        typename = self.class.to_s.sub(/.*?([^:]+)$/, '\1')
+        visitor.send("visit_" + typename, self, *rest)
+      end
+
+=begin
+    --- Node#accept_name(visitor, *rest)
+
+call back visit_name_* method.
+=end
+      def accept_name(visitor, *rest)
+        if nodeType == ELEMENT_NODE
+          name_method = "visit_name_" + nodeName
+          visitor.send(name_method, self, *rest)
+        else
+          self.accept(visitor, *rest)
+        end
+      end
+
+=begin
+    --- Node#children_accept(visitor, *rest)
+
+for each children, call back visit_* methods.
+=end
+      def children_accept(visitor, *rest)
+        ret = []
+        @children && @children.each { |node|
+          ret.push(node.accept(visitor, *rest))
+        }
+        ret
+      end
+
+=begin
+    --- Node#children_accept_name(visitor, *rest)
+
+for each children, call back visit_name_* method.
+=end
+      def children_accept_name(visitor, *rest)
+        ret = []
+        @children && @children.each { |node|
+          ret.push(node.accept_name(visitor, *rest))
+        }
+        ret
+      end
+
+=begin
+    --- Node#each
+
+iterator interface.
+=end
+      ## Iterator interface
+      include Enumerable
+      def each
+        sibstack = []
+        siblings = [ self ]
+        while true
+          if siblings.length == 0
+            break if sibstack.length == 0
+            siblings = sibstack.pop
+            next
+          end
+          node = siblings.shift
+          yield(node)
+          children = node.childNodes
+          if !children.nil?
+            sibstack.push(siblings)
+            siblings = children.to_a.dup
+          end
+        end
+      end
+    end
+  end
+end

data/lib/xml/dom2/attr.rb

@@ -0,0 +1,213 @@
+## -*- Ruby -*-
+## XML::DOM
+## 1998-2001 by yoshidam
+##
+
+require 'xml/dom2/node'
+require 'xml/dom2/domexception'
+
+module XML
+  module DOM
+
+=begin
+== Class XML::DOM::Attr
+
+=== superclass
+Node
+
+=end
+    class Attr<Node
+      ## new(name, [text1, text2, ...]) or
+      ## new(name, text1, text2, ...)
+      ##     name:  String
+      ##     text?: String or Node
+
+=begin
+=== Class Methods
+
+    --- Attr.new(name = nil, *text)
+
+create a new Attr.
+=end
+      def initialize(name, *text)
+        super(text)
+        raise "parameter error" if !name
+        @name = nil
+        @prefix = nil
+        @localname = nil
+        @uri = nil
+        @ownerElement = nil
+        if name.is_a?(Array)
+          ## namespaces
+          raise "parameter error" if name.length != 2
+          @localname = name[1]
+          if name[1].index(':')
+            @prefix, @localname = name[1].split(':')
+          end
+          @name = name[1] ## qualified name
+          @uri =  name[0] ## namespace URI
+        else
+          @name = name
+        end
+        @name.freeze
+        @prefix.freeze
+        @localname.freeze
+        @uri.freeze
+      end
+
+=begin
+=== Methods
+
+    --- Attr#nodeType()
+
+[DOM]
+returns the nodeType.
+=end
+      ## [DOM]
+      def nodeType
+        ATTRIBUTE_NODE
+      end
+
+=begin
+    --- Attr#nodeName()
+
+[DOM]
+returns the nodeName.
+=end
+      ## [DOM]
+      def nodeName
+        @name
+      end
+
+=begin
+    --- Attr#nodeValue()
+
+[DOM]
+returns the nodeValue.
+=end
+      ## [DOM]
+      def nodeValue
+        ret = ""
+        @children.each do |child|
+          ret << child.nodeValue
+        end if @children
+        ret
+      end
+
+=begin
+    --- Attr#nodeValue=(text)
+
+[DOM]
+returns the value of this node.
+=end
+      ## [DOM]
+      def nodeValue=(text)
+        self.childNodes = [text]
+      end
+
+=begin
+    --- Attr#to_s()
+
+return the string representation of the Attr.
+=end
+      def to_s
+        value = ""
+        nodeValue.scan(/./um) do |c|
+          code = c.unpack("U")[0]
+          if code == 9 || code == 10 || code == 13
+            value << sprintf("&#x%X;", code)
+          elsif c == "&"
+            value << "&amp;"
+          elsif c == "\""
+            value << "&quot;"
+          elsif c == "<"
+            value << "&lt;"
+          else
+            value << c
+          end
+        end
+        "#{@name}=\"#{value}\""
+      end
+
+=begin
+    --- Attr#dump(depth = 0)
+
+dump the Attr.
+=end
+      def dump(depth = 0)
+        print ' ' * depth * 2
+        print "// #{self.to_s}\n"
+      end
+
+=begin
+    --- Attr#cloneNode(deep = true)
+
+[DOM]
+returns the copy of the Attr.
+=end
+      ## [DOM]
+      def cloneNode(deep = true)
+        super(deep, @name)
+      end
+
+=begin
+    --- Attr#name()
+
+[DOM]
+alias of nodeName.
+=end
+      ## [DOM]
+      alias name nodeName
+
+=begin
+    --- Attr#value()
+
+alias of nodeValue.
+
+    --- Attr#value=(value)
+
+[DOM]
+alias of nodeValue=.
+=end
+      ## [DOM]
+      alias value nodeValue
+      alias value= nodeValue= ##
+
+      ## [DOM]
+      def specified; @specified; end
+      def specified=(is_specified); @specified = is_specified; end
+
+      ## [DOM2]
+      def namespaceURI; @uri; end
+
+      ## [DOM2]
+      def prefix; @prefix; end
+
+      ## [DOM2]
+      def prefix=(prefix);
+        ## to be checked
+
+        @ownerElement.removeAttributeNode(self) if @ownerElement
+        @prefix = prefix
+        @name = @prefix + ':' + @localname
+        @ownerElement.setAttributeNode(self) if @ownerElement
+        @prefix.freeze
+        @name.freeze
+      end
+
+      ## [DOM2]
+      def localname; @localname; end
+
+      ## [DOM2]
+      def ownerElement; @ownerElement; end
+      def ownerElement=(elem); @ownerElement = elem; end
+
+      def _checkNode(node)
+        unless node.nodeType == TEXT_NODE ||
+            node.nodeType == ENTITY_REFERENCE_NODE
+          raise DOMException.new(DOMException::HIERARCHY_REQUEST_ERR)
+        end
+      end
+    end
+  end
+end