mame-xmlparser 0.6.81.1

data/samples/expat-1.2/exttesti.rb

@@ -0,0 +1,81 @@
+#! /usr/local/bin/ruby
+
+require 'xmlextparser'
+
+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
+
+
+p = XML::ExtParser.new
+def p.externalParsedEntityDecl; end
+def p.internalParsedEntityDecl; end
+
+pos = ARGV[0].rindex("/")
+if pos
+  p.setBase(ARGV[0][0, pos + 1])
+else
+  p.setBase("")
+end
+begin
+  p.parse($<.read) do |event, name, data|
+    case event
+    when XML::Parser::EXTERNAL_PARSED_ENTITY_DECL
+      p(["externalParsedEntityDecl", name, data])
+
+    when XML::Parser::INTERNAL_PARSED_ENTITY_DECL
+      p(["internalParsedEntityDecl", name, data])
+
+
+    when XML::Parser::START_ELEM
+      print "<" + name
+      data.each do |n, v|
+        print " " + n + "='" + escapeAttrVal(v) + "'"
+      end
+      print  ">"
+
+    when XML::Parser::END_ELEM
+      print "</" + name + ">"
+
+    when XML::Parser::CDATA
+      print escapeText(data)
+
+    end
+  end
+rescue XML::Parser::Error
+  p([$!, p.line])
+end

data/samples/expat-1.2/hoge.dtd

@@ -0,0 +1,7 @@
+<!ELEMENT test (#PCDATA|aaaa)*>
+<!ATTLIST test hoge ID #IMPLIED
+          b    CDATA #REQUIRED
+          moke CDATA "MOKE">
+<!ELEMENT aaaa (#PCDATA)>
+<!ATTLIST aaaa a ID #IMPLIED
+               b CDATA #IMPLIED>

data/samples/expat-1.2/idattr.xml

@@ -0,0 +1,8 @@
+<!DOCTYPE test [
+<!ATTLIST test hage ID #IMPLIED>
+<!ATTLIST a hoge ID #IMPLIED>
+]>
+<test hage="id0001">
+  <a hoge="id0002">
+  </a>
+</test>

data/samples/expat-1.2/idtest.rb

@@ -0,0 +1,21 @@
+#! /usr/local/bin/ruby
+
+require 'xmlextparser'
+
+#if XML::Parser.expatVersion != "1.2"
+#  raise "This program work with expat-1.2"
+#end
+
+p = XML::ExtParser.new
+
+def p.startElement(name, attr)
+  idattr =  getIdAttribute
+  idvalue = idattr ? attr[idattr] : nil;
+  printf("%s: ID=(%s:%s)\n", name, idattr, idvalue)
+end
+
+begin
+  p.parse($<.read)
+rescue XML::Parser::Error
+  p([$!, p.line])
+end

data/samples/expat-1.2/idtest.xml

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="EUC-JP"?>
+<!DOCTYPE test  SYSTEM "hoge.dtd" [
+<!ENTITY qqqq "QQQQ">
+<!ENTITY rrrr SYSTEM "ext.ent">
+<!ENTITY ssss PUBLIC "-//Hoge//EN" "ext.ent">
+]>
+<test b="a1234&#x9;&#xA;&#xD;" hoge ="4567">
+<aaaa b="abcd" a="defg">
+  ����&#xD;����
+  bbbb&rrrr;
+</aaaa>
+</test>

data/samples/expat-1.2/xmlextparser.rb

@@ -0,0 +1,39 @@
+require 'xml/parser'
+
+module XML
+  class ExtParser < Parser
+
+    def readResource(base, systemId, publicId = nil)
+      systemId = base + systemId unless base.nil?
+      open(systemId).read
+    end
+
+    def parse(*args)
+      setParamEntityParsing(XML::Parser::PARAM_ENTITY_PARSING_UNLESS_STANDALONE)
+
+      if iterator?
+        super(*args) do |event, name, data|
+          if (event ==  XML::Parser::EXTERNAL_ENTITY_REF)
+            base, systemId, publicId = data
+            extp = self.class.new(self, name)
+            extp.parse(readResource(base, systemId)) do |event, name, data|
+              yield(event, name, data)
+            end
+            extp.done
+          else
+            yield(event, name, data)
+          end
+        end
+      else
+        super(*args)
+      end
+    end
+
+    def externalEntityRef(context, base, systemId, publicId)
+##      p ["externalEntityRef", context, base, systemId, publicId]
+      extp = self.class.new(self, context)
+      extp.parse(readResource(base, systemId))
+      extp.done
+    end
+  end
+end

data/samples/gtktree.rb

@@ -0,0 +1,146 @@
+#! /usr/local/bin/ruby
+
+## XML Tree viewer for Gtk
+## 1998 by yoshidam
+##
+## Required: ruby-gtk-0.11 (and gtk+-1.0jp)
+##           xmlparser-0.4.17
+##           uconv-0.2.1
+
+require 'gtk'
+require 'xml/dom/builder-ja'
+
+## Extend the Node class to manipulate the Gtk::Tree
+module XML
+module DOM
+class Node
+  ## append 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)
+      @tree.show
+      @treeitem.expand
+    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
+      str = "\"" + self.nodeValue + "\""
+    when CDATA_SECTION_NODE
+      str = "<![CDATA[" + self.nodeValue + "]]>"
+    when PROCESSING_INSTRUCTION_NODE
+      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 = self.nodeName
+      if (attr != '');
+        str += "  (" + attr + ")"
+      end
+    when COMMENT_NODE
+      str = "<!--" + self.nodeValue + "-->"
+    when DOCUMENT_TYPE_NODE
+      str = "#doctype: " + self.nodeName
+    else
+      str = self.nodeName
+    end
+    str.gsub!(/\n/, "\\\\n")
+    @treeitem = Gtk::TreeItem::new(str)
+    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
+end
+end
+end
+
+## Gtk resources
+#Gtk::RC::parse_string <<EOS
+#style "default"
+#{
+#  fontset = "-adobe-helvetica-medium-r-normal--*-140-*-*-*-*-*-*,\ 
+#             -*-fixed-medium-r-normal--14-*-*-*-*-*-jisx0208.1983-0,*"
+#}
+#widget_class "*" style "default"
+#EOS
+
+## create XML tree
+builder = XML::DOM::JapaneseBuilder.new(1)
+begin
+  xmltree = builder.parseStream($<)
+rescue XML::Parser::Error
+  line = builder.line
+  print "#{$0}: #{$!} (in line #{line})\n"
+  exit 1
+end
+print "Parsing end\n"
+
+## unify sequential Text nodes
+xmltree.documentElement.normalize
+xmltree.trim
+print "Normalization end\n"
+
+## 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)
+window.add(box1)
+box1.show
+
+scroll = Gtk::ScrolledWindow.new
+scroll.show
+scroll.set_usize(300,300)
+box1.add(scroll)
+
+
+tree = Gtk::Tree::new()
+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
+#  window.destroy
+  exit
+end
+box2.pack_start(button, TRUE, TRUE, 0)
+button.show
+
+
+window.show
+Gtk::main()

data/samples/idattrtest.rb

@@ -0,0 +1,28 @@
+#! /usr/local/bin/ruby
+
+## ID attribute for XPointer test implementation
+## 1998 by yoshidam
+
+require 'xml/dom/builder'
+
+## create test XML tree
+doc = XML::DOM::Builder.new.parse("
+<test>
+  <section name=\"section1\">
+  <p id='para1'>test</p>
+  <p id='para2'>test</p>
+  </section>
+  <section name=\"section2\">
+  </section>
+</test>
+")
+
+## setup ID attribute
+doc._setIDAttr('id')              ## for all element
+doc._setIDAttr('name', 'section') ## for section element
+
+## find ID attribute
+p doc.getNodesByXPointer("id(section1)")[0].makeXPointer(false)
+p doc.getNodesByXPointer("id(section1)")[0].makeXPointer(true)
+p doc.getNodesByXPointer("id(para1)")[0].makeXPointer(false)
+p doc.getNodesByXPointer("id(para1)")[0].makeXPointer(true)

data/samples/index_euc.xml

@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="euc-jp"?>
+<!DOCTYPE document SYSTEM "document.dtd">
+
+<document>
+  <title>�褷�������̩�Υڡ���</title>
+
+  <para>
+  �褷�������̩�Υڡ����ˤ褦������
+  </para>
+  <para>
+  ���Υڡ����� HTML4.0��CSS 1.0 �˽�򤷤� Web �֥饦���DZ������뤳�Ȥ�
+  �����ᤷ�ޤ���
+  </para>
+
+  <index>
+    <link xml:link="simple" href="/">[bekkoame �ۡ���ڡ���]</link>
+  </index>
+
+
+  <section>
+    <heading>��������</heading>
+    <subsection>
+      <heading>1998/07/08</heading>
+      <list>
+        <item>XML2HTML �ǥڡ�������������褦�ˤ��ޤ���</item>
+        <item>Ruby �ڡ����� XMLParser �⥸�塼��� Uconv �⥸�塼��θ���
+        ��Ϥ�ޤ���</item>
+      </list>
+    </subsection>
+  </section>
+
+
+  <section id="hobby">
+    <heading>��̣</heading>
+   <subsection id="ruby">
+      <heading><link xml:link="simple" href="Ruby.html">��Ruby</link></heading>
+      <para>�Ƕ�� Ruby �ʤΤǤ���</para>
+    </subsection>
+
+    <subsection id="xml">
+      <heading><link xml:link="simple" href="XML.html">��XML</link></heading>
+      <para>XML ���äƤޤ���</para>
+      <list>
+        <item>
+          <link xml:link="simple" href="index.xml">���Υڡ����Υ����� 
+            (XML)</link>
+        </item>
+        <item>
+          <link xml:link="simple" href="document.dtd">���Υڡ����� DTD</link>
+        </item>
+        <item>
+          <link xml:link="simple" href="document.css">���Υڡ����Υ�������
+          ������</link>
+        </item>
+      </list>
+    </subsection>
+  </section>
+
+  <section id="misc">
+    <heading>����¾�Υڡ���</heading>
+    <list>
+      <item><link xml:link="simple" href="http://www.cipuco.net/">
+	CIPUCO!!</link></item>
+    </list>
+  </section>
+
+  <rpara>
+      Copyright 1998 by
+	<link xml:link="simple" href="mailto:yoshidam@yoshidam.net">
+	  Yoshida Masato (yoshidam@yoshidam.net)</link>
+  </rpara>
+</document>

data/samples/index_jis.xml

@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="iso-2022-jp"?>
+<!DOCTYPE document SYSTEM "document.dtd">
+
+<document>
+  <title>$B$h$7$@$`$NHkL)$N%Z!<%8(B</title>
+
+  <para>
+  $B$h$7$@$`$NHkL)$N%Z!<%8$K$h$&$3$=!y(B
+  </para>
+  <para>
+  $B$3$N%Z!<%8$O(B HTML4.0$B!$(BCSS 1.0 $B$K=`5r$7$?(B Web $B%V%i%&%6$G1\Mw$9$k$3$H$r(B
+  $B$*4+$a$7$^$9!#(B
+  </para>
+
+  <index>
+    <link xml:link="simple" href="/">[bekkoame $B%[!<%`%Z!<%8(B]</link>
+  </index>
+
+
+  <section>
+    <heading>$B99?7>pJs(B</heading>
+    <subsection>
+      <heading>1998/07/08</heading>
+      <list>
+        <item>XML2HTML $B$G%Z!<%8$r@8@.$9$k$h$&$K$7$^$7$?(B</item>
+        <item>Ruby $B%Z!<%8$G(B XMLParser $B%b%8%e!<%k$H(B Uconv $B%b%8%e!<%k$N8x3+(B
+        $B$r;O$a$^$7$?(B</item>
+      </list>
+    </subsection>
+  </section>
+
+
+  <section id="hobby">
+    <heading>$B<qL#(B</heading>
+   <subsection id="ruby">
+      <heading><link xml:link="simple" href="Ruby.html">$B"v(BRuby</link></heading>
+      <para>$B:G6a$O(B Ruby $B$J$N$G$9!#(B</para>
+    </subsection>
+
+    <subsection id="xml">
+      <heading><link xml:link="simple" href="XML.html">$B"v(BXML</link></heading>
+      <para>XML $B$b$d$C$F$^$9!#(B</para>
+      <list>
+        <item>
+          <link xml:link="simple" href="index.xml">$B$3$N%Z!<%8$N%=!<%9(B 
+            (XML)</link>
+        </item>
+        <item>
+          <link xml:link="simple" href="document.dtd">$B$3$N%Z!<%8$N(B DTD</link>
+        </item>
+        <item>
+          <link xml:link="simple" href="document.css">$B$3$N%Z!<%8$N%9%?%$%k(B
+          $B%7!<%H(B</link>
+        </item>
+      </list>
+    </subsection>
+  </section>
+
+  <section id="misc">
+    <heading>$B$=$NB>$N%Z!<%8(B</heading>
+    <list>
+      <item><link xml:link="simple" href="http://www.cipuco.net/">
+	CIPUCO!!</link></item>
+    </list>
+  </section>
+
+  <rpara>
+      Copyright 1998 by
+	<link xml:link="simple" href="mailto:yoshidam@yoshidam.net">
+	  Yoshida Masato (yoshidam@yoshidam.net)</link>
+  </rpara>
+</document>