mame-xmlparser 0.6.81.1

data/samples/dom2/dom2test1.rb

@@ -0,0 +1,7 @@
+#! /usr/local/bin/ruby
+
+require 'xml/dom2/dombuilder'
+
+b = XML::DOM::DOMBuilder.new
+doc = b.parse($<.read)
+print doc.to_s, "\n"

data/samples/dom2/dom2test2.rb

@@ -0,0 +1,10 @@
+#! /usr/local/bin/ruby
+
+require 'xml/dom2/core'
+
+builder = XML::DOM::DOMImplementation.instance.createDOMBuilder
+#builder.createCDATASection = true
+doc = builder.parseURI(ARGV[0])
+doc.each do |a|
+   p [a.nodeName, a._getNamespaces(nil)] if a.nodeType == XML::DOM::Node::ELEMENT_NODE
+end

data/samples/dom2/gtkxpath.rb

@@ -0,0 +1,259 @@
+#! /usr/local/bin/ruby
+
+## XPath demo for Gtk
+## 1999 by yoshidam
+##
+
+require 'gtk'
+require 'xml/dom2/core'
+require 'xml/dom2/dombuilder'
+require 'xml/dom2/xpath'
+#require 'uconv'
+
+GC.disable
+
+## TREE_MODE = 0: expand entity references, and not create DOCUMENT_TYPE_NODE
+## TREE_MODE = 1: not expand entity references
+TREE_MODE = 0
+## enpand tree at the beginning
+EXPAND_TREE = false
+## trim extra white spaces
+TRIM = true
+## concatenate folding lines
+UNFOLD = false
+## parse external entity
+PARSE_EXT = true
+
+## Gtk resources
+#Gtk::RC::parse_string <<EOS
+#style "default" {
+#  fontset = "-*-helvetica-medium-r-normal--12-*-*-*-*-*-*-*,\ 
+#             -*-fixed-medium-r-normal--14-*-*-*-*-*-jisx0208.1983-0,*"
+#}
+#widget_class "*" style "default"
+#EOS
+
+def unfold(str)
+  str.
+    gsub(/([��-��])\n\s*([��-��])/, '\1\2').
+    gsub(/([a-z])-\n\s+([a-z])/, '\1\2').
+    gsub(/\s+/, ' ')
+end
+
+module Gtk
+  class TreeItem
+    attr :xml_node
+    alias initialize0 initialize
+    def initialize(*arg)
+      initialize0(arg[0])
+      @xml_node = arg[1]
+    end
+  end
+end
+
+## Extend the Node class to manipulate the Gtk::Tree
+module XML
+module DOM
+class Node
+  ##  a node to Gtk::Tree
+  def appendNodeToTree(node)
+    if @treeitem.nil?
+      raise "Cannot append tree"
+    end
+    if @tree.nil?
+      @tree = Gtk::Tree::new()
+      @treeitem.set_subtree(@tree)
+      if EXPAND_TREE
+        @tree.show
+        @treeitem.expand
+      end
+    end
+    @tree.append(node)
+  end
+
+  ## create Gtk::Tree from XML::Node tree
+  def newTreeItem(parent = nil)
+    if !@treeitem.nil?
+      raise "tree item already exist"
+    end
+
+    case self.nodeType
+    when TEXT_NODE
+      attr = self.parentNode.attributes
+      if attr && attr['xml:space'] != 'preserve'
+        self.nodeValue = unfold(self.nodeValue) if UNFOLD
+      end
+#      str = "\"" + Uconv::u8toeuc(self.nodeValue) + "\""
+      str = "\"" + self.nodeValue + "\""
+    when CDATA_SECTION_NODE
+#      str = "<![CDATA[" + Uconv::u8toeuc(self.nodeValue) + "]]>"
+      str = "<![CDATA[" + self.nodeValue + "]]>"
+    when PROCESSING_INSTRUCTION_NODE
+#      str = "?" + Uconv::u8toeuc(self.nodeValue)
+      str = "?" + self.nodeValue
+    when ELEMENT_NODE
+      attr = ''
+      @attr.each do |a|  ## self.attributes do |a|
+        attr += a.to_s + ", "
+      end if @attr
+      attr.chop!
+      attr.chop!
+#      str = Uconv::u8toeuc(nodeName)
+      str = nodeName
+      if (attr != '');
+#        str += "  (" + Uconv::u8toeuc(attr) + ")"
+        str += "  (" + attr + ")"
+      end
+    when COMMENT_NODE
+#      str = "<!--" + Uconv::u8toeuc(self.nodeValue) + "-->"
+      str = "<!--" + self.nodeValue + "-->"
+    when DOCUMENT_TYPE_NODE
+#      str = "#doctype: " + Uconv::u8toeuc(self.nodeName)
+      str = "#doctype: " + self.nodeName
+    when ENTITY_REFERENCE_NODE
+#      str = "&" + Uconv::u8toeuc(self.nodeName) + ";"
+      str = "&" + self.nodeName + ";"
+    else
+#      str = Uconv::u8toeuc(self.nodeName)
+      str = self.nodeName
+    end
+    str.gsub!(/\n/, "\\\\n")
+    @treeitem = Gtk::TreeItem::new(str, self)
+    @selecting = false
+    @treeitem.signal_connect("select") do |w|
+#      $text.set_text(Uconv::u8toeuc(w.xml_node.makeXPath)) unless @selecting
+      $text.set_text(w.xml_node.makeXPath) unless @selecting
+    end
+    if (parent.nil? && !self.parentNode.nil?)
+      self.parentNode.appendNodeToTree(@treeitem)
+    else
+      parent.append(@treeitem)
+    end
+    @treeitem.show
+    self.childNodes do |c|
+      c.newTreeItem
+    end
+  end
+
+  def selectNode
+    @selecting = true
+    parentNode.showTree if parentNode
+    if @treeitem
+      @treeitem.activate
+    else
+      print "Unseen node on the tree view\n"
+    end
+    @selecting = false
+  end
+
+  def showTree
+    if parentNode
+      parentNode.showTree
+    end
+    @tree.show if @tree
+  end
+
+  def deselect
+    @treeitem.deselect
+    childNodes do |node|
+      node.deselect
+    end
+  end
+end
+end
+end
+
+## create XML tree
+builder = XML::DOM::DOMBuilder.new
+builder.setBase("./")
+begin
+  xmltree = builder.parse($<.read, PARSE_EXT)
+rescue XML::Parser::Error
+  line = builder.line
+  print "#{$0}: #{$!} (in line #{line})\n"
+  exit 1
+end
+print "Parsing end\n"
+GC.start
+
+## unify sequential Text nodes
+xmltree.documentElement.normalize
+xmltree.trim if TRIM
+print "Normalization end\n"
+GC.start
+
+## create Gtk window
+window = Gtk::Window::new(Gtk::WINDOW_TOPLEVEL)
+window.signal_connect("delete_event") { exit }
+window.signal_connect("destroy_event") { exit }
+
+window.border_width(10)
+window.set_title($<.filename)
+
+box1 = Gtk::VBox::new(FALSE, 5)
+box1_h = Gtk::HBox::new(FALSE, 5)
+window.add(box1)
+box1.show
+box1.add(box1_h)
+box1_h.show
+
+tree = nil
+$text = Gtk::Entry.new()
+box1_h.pack_start($text, TRUE, TRUE, 0)
+$text.show
+button = Gtk::Button::new("Find")
+button.signal_connect("clicked") do
+  text = $text.get_text
+  xmltree.deselect
+  context = XPath::DOM::Context.new(xmltree)
+  begin
+    tree.set_selection_mode(Gtk::SELECTION_MULTIPLE)
+#    proc = XPath.compile(Uconv.euctou8(text))
+    proc = XPath.compile(text)
+    result = proc.call(context)
+    result.each do |node|
+      node.selectNode
+    end
+  rescue
+    ## XPath Error
+    print "\a#{$!}: #{text}\n"
+  ensure
+    tree.set_selection_mode(Gtk::SELECTION_SINGLE)
+  end
+  1
+end
+box1_h.pack_start(button, FALSE, FALSE, 0)
+button.show
+
+scroll = Gtk::ScrolledWindow.new
+scroll.show
+scroll.set_usize(600,400)
+box1.add(scroll)
+
+
+tree = Gtk::Tree::new()
+##tree.set_selection_mode(Gtk::SELECTION_MULTIPLE)
+scroll.add_with_viewport(tree) ## gtk+-1.2
+##scroll.add(tree) ## gtk+-1.0
+tree.show
+
+## construct Gtk tree
+xmltree.newTreeItem(tree)
+print "Tree construction end\n"
+
+box2 = Gtk::VBox::new(FALSE, 10)
+box2.border_width(10)
+box1.pack_start(box2, FALSE, TRUE, 0)
+box2.show
+
+button = Gtk::Button::new("Quit")
+button.signal_connect("clicked") do
+  exit
+end
+box2.pack_start(button, TRUE, TRUE, 0)
+button.show
+
+
+window.show
+GC.start
+Gtk::main()

data/samples/dom2/test1.xml

@@ -0,0 +1,16 @@
+<!-- NS test -->
+<aa:a xmlns:aa="aaa">
+<a:a xmlns:a="hogeaaa" xmlns:b="gogebbb" xmlns="hoge1">
+  <b a="aaaa&amp;&quot;&apos;&#13;
+	&#10;&#9;bbbb">
+    test&amp;&#10;&#9;test
+    <c xmlns="" c="cvccc" c:c="aaaa" xmlns:c="hogeeeee"/>
+  </b>
+  <b:b xmlns:b="hoge2" b:b="aaa"/>
+  <b:b b:b="aaa">
+    <c xmlns=""/>
+    <b:c b:b="hohoho" xmlns:b=""/>
+    test
+  </b:b>
+</a:a>
+</aa:a>

data/samples/dom2/test2.xml

@@ -0,0 +1,7 @@
+<?hoge     aaa?>
+<!-- saddas -->
+<?hoge?>
+<a xmlns:paa="aaaaa" xmlns:pa='aaaaa' xmlns:pb='aaaaa' xmlns="aaaaa">
+<?hoge?> <!-- saddas -->
+  <pa:b><!--&#169;-->&amp;<![CDATA[&amp;hoge]]></pa:b>
+</a>

data/samples/dtd/ext1.dtd

@@ -0,0 +1,4 @@
+<!ELEMENT test (#PCDATA)>
+<!ATTLIST test qqqq CDATA "QQQQ">
+<!ENTITY % ext2 SYSTEM "ext2.dtd">
+%ext2;

data/samples/dtd/ext2.dtd

@@ -0,0 +1 @@
+<!ENTITY aaa "AAA">

data/samples/dtd/extdtd.rb

@@ -0,0 +1,34 @@
+#! /usr/local/bin/ruby
+
+require 'xml/parser'
+
+class ExtDTDParser < XML::Parser
+  def startElement(name, attr)
+    p ["startElement", name, attr]
+  end
+
+  def endElement(name)
+    p ["endElement", name]
+  end
+
+  def character(data)
+    p ["character", data]
+  end
+
+  def externalEntityRef(context, base, systemId, publicId)
+    p ["externalEntityRef", context, base, systemId, publicId]
+    extp = ExtDTDParser.new(self, context)
+    extp.parse(open(systemId).read)
+    extp.done ## required
+  end
+end
+
+p = ExtDTDParser.new(nil, '!')
+if p.respond_to?(:setParamEntityParsing)
+  p.setParamEntityParsing(XML::Parser::PARAM_ENTITY_PARSING_UNLESS_STANDALONE)
+end
+begin
+  p.parse($<.read)
+rescue XML::Parser::Error
+  print "#{$!} in l.#{p.line}\n"
+end

data/samples/dtd/extdtd.xml

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!DOCTYPE test SYSTEM "ext1.dtd">
+<test>
+&aaa;
+</test>

data/samples/expat-1.2/CVS/Entries

@@ -0,0 +1,8 @@
+/ext.ent/1.1.1.1/Wed Mar 12 05:51:33 2003//
+/exttest.rb/1.2/Wed Mar 12 06:38:35 2003//
+/exttesti.rb/1.2/Wed Mar 12 06:38:35 2003//
+/hoge.dtd/1.1.1.1/Wed Mar 12 05:51:33 2003//
+/idtest.xml/1.1.1.1/Wed Mar 12 05:51:33 2003//
+/xmlextparser.rb/1.2/Wed Mar 12 06:38:36 2003//
+/idtest.rb/1.3/Wed Feb 18 02:36:52 2004//
+D

data/samples/expat-1.2/CVS/Repository

@@ -0,0 +1 @@
+/Users/yoshidam/.cvs/xmlparser/samples/expat-1.2

data/samples/expat-1.2/CVS/Root

@@ -0,0 +1 @@
+/Users/yoshidam/.cvs

data/samples/expat-1.2/ext.ent

@@ -0,0 +1,2 @@
+<?xml encoding="EUC-JP"?>
+������

data/samples/expat-1.2/exttest.rb

@@ -0,0 +1,82 @@
+#! /usr/local/bin/ruby
+
+require 'xmlextparser'
+
+
+class TestParser < XML::ExtParser
+  def externalParsedEntityDecl(entname, base, sysid, pubid)
+    p ["externalParsedEntityDecl", entname, base, sysid, pubid]
+  end
+
+  def internalParsedEntityDecl(entname, text)
+    p ["internalParsedEntityDecl", entname, text]
+  end
+
+  def escapeAttrVal(str)
+    ret = ""
+    str.scan(/./um) do |c|
+      code = c.unpack("U")[0]
+      if code == 9 || code == 10 || code == 13
+        ret << sprintf("&#x%X;", code)
+      elsif c == "&"
+        ret << "&amp;"
+      elsif c == "\""
+        ret << "&quot;"
+      elsif c == "<"
+        ret << "&lt;"
+      else
+        ret << c
+      end
+    end
+    ret
+  end
+
+  def escapeText(str)
+    ret = ""
+    str.scan(/./um) do |c|
+      code = c.unpack("U")[0]
+      if code == 13
+        ret << sprintf("&#x%X;", code)
+      elsif c == "&"
+        ret << "&amp;"
+      elsif c == "<"
+        ret << "&lt;"
+      elsif c == ">"
+        ret << "&gt;"
+      else
+        ret << c
+      end
+    end
+    ret
+  end
+
+  def startElement(name, attrs)
+    print "<" + name
+    attrs.each do |n, v|
+      print " " + n + "='" + escapeAttrVal(v) + "'"
+    end
+    print  ">"
+  end
+
+  def endElement(name)
+    print "</" + name + ">"
+  end
+
+  def character(text)
+    print escapeText(text)
+  end
+end
+
+p = TestParser.new
+
+pos = ARGV[0].rindex("/")
+if pos
+  p.setBase(ARGV[0][0, pos + 1])
+else
+  p.setBase("")
+end
+begin
+  p.parse($<.read)
+rescue XML::Parser::Error
+  p([$!, p.line])
+end