mame-xmlparser 0.6.81.1

data/samples/index_noenc.xml

@@ -0,0 +1,71 @@
+<!DOCTYPE document SYSTEM "document.dtd">
+
+<document>
+  <title>よしだむの秘密のページ</title>
+
+  <para>
+  よしだむの秘密のページにようこそ☆
+  </para>
+  <para>
+  このページは HTML4.0，CSS 1.0 に準拠した Web ブラウザで閲覧することを
+  お勧めします。
+  </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_sjis.xml

@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="shift_jis"?>
+<!DOCTYPE document SYSTEM "document.dtd">
+
+<document>
+  <title>�悵���ނ̔閧�̃y�[�W</title>
+
+  <para>
+  �悵���ނ̔閧�̃y�[�W�ɂ悤������
+  </para>
+  <para>
+  ���̃y�[�W�� HTML4.0�CCSS 1.0 �ɏ������� Web �u���E�U�ʼn{�����邱�Ƃ�
+  �����߂��܂��B
+  </para>
+
+  <index>
+    <link xml:link="simple" href="/">[bekkoame �z�[���y�[�W]</link>
+  </index>
+
+
+  <section>
+    <heading>�X�V���</heading>
+    <subsection>
+      <heading>1998/07/08</heading>
+      <list>
+        <item>XML2HTML �Ńy�[�W�𐶐�����悤�ɂ��܂���</item>
+        <item>Ruby �y�[�W�� XMLParser ���W���[���� Uconv ���W���[���̌��J
+        ���n�߂܂���</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 �Ȃ̂ł��B</para>
+    </subsection>
+
+    <subsection id="xml">
+      <heading><link xml:link="simple" href="XML.html">��XML</link></heading>
+      <para>XML ������Ă܂��B</para>
+      <list>
+        <item>
+          <link xml:link="simple" href="index.xml">���̃y�[�W�̃\�[�X 
+            (XML)</link>
+        </item>
+        <item>
+          <link xml:link="simple" href="document.dtd">���̃y�[�W�� DTD</link>
+        </item>
+        <item>
+          <link xml:link="simple" href="document.css">���̃y�[�W�̃X�^�C��
+          �V�[�g</link>
+        </item>
+      </list>
+    </subsection>
+  </section>
+
+  <section id="misc">
+    <heading>���̑��̃y�[�W</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_u8.xml

@@ -0,0 +1,72 @@
+<?xml version="1.0"?>
+<!DOCTYPE document SYSTEM "document.dtd">
+
+<document>
+  <title>よしだむの秘密のページ</title>
+
+  <para>
+  よしだむの秘密のページにようこそ☆
+  </para>
+  <para>
+  このページは HTML4.0，CSS 1.0 に準拠した Web ブラウザで閲覧することを
+  お勧めします。
+  </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/my-html.rb

@@ -0,0 +1,65 @@
+#! /usr/local/bin/ruby
+
+## Visitor test
+## 1998 by yoshidam
+##
+## This sample comes from Ken MacLeod's sample of XML-Grove-0.05
+## Copyright (C) 1998 Ken MacLeod
+
+require 'xml/dom/builder'
+require 'xml/dom/visitor'
+
+class MyHTML<XML::DOM::Visitor
+  def visit_Document(document, *rest)
+    document.children_accept_name(self, *rest)
+  end
+
+  def visit_Element(element, *rest)
+    raise "visit_Element called while using accept_name??\n"
+  end
+
+  def visit_EntityReference(eref, *rest)
+    print "&#{eref.nodeName};"
+  end
+
+  def visit_Text(text, *rest)
+    print text.nodeValue
+  end
+
+  def visit_name_DATE(element, *rest)
+    print Time.new.to_s.gsub!(/ /, "&nbsp;")
+  end
+
+  def visit_name_PERL(element, *rest)
+    print "I cannot execute Perl scripts!!\n"
+  end
+
+  def visit_name_RUBY(element, *rest)
+    script = ''
+    element.childNodes.each do |node|
+      script += node.nodeValue
+    end
+    begin
+      eval(script)
+    rescue
+      print "Ruby error: #{$!}"
+    end
+  end
+
+
+  def method_missing(mid, *rest)
+    if mid.id2name =~ /^visit_name_(.+)$/
+      name = $1
+      element = rest.shift
+      print "<#{name}>"
+      element.children_accept_name(self, *rest)
+      print "</#{name}>"
+    else
+      raise NameError.new("undefined method `#{mid.id2name}' " +
+                          "for #{self.inspect}")
+    end
+  end
+end
+
+doc = XML::DOM::Builder.new.parse($<.read)
+doc.accept_name(MyHTML.new, [])

data/samples/namespaces/CVS/Entries

@@ -0,0 +1,5 @@
+/namespace1.rb/1.1.1.4/Wed Mar 12 05:54:44 2003//
+/namespace1.xml/1.1.1.2/Wed Mar 12 05:57:26 2003//
+/namespace2.rb/1.1.1.4/Wed Mar 12 05:54:44 2003//
+/namespace2.xml/1.1.1.2/Wed Mar 12 05:57:26 2003//
+D

data/samples/namespaces/CVS/Repository

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

data/samples/namespaces/CVS/Root

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

data/samples/namespaces/namespace1.rb

@@ -0,0 +1,29 @@
+#! /usr/local/bin/ruby
+
+require 'xml/parser'
+
+def default; end
+
+p = XML::Parser.new(nil, ":")
+#def p.startNamespaceDecl() end
+#def p.endNamespaceDecl() end
+p.parse($<.read) do |type, name, data|
+  case (type)
+  when XML::Parser::START_ELEM
+    attr = ''
+    data.each do |key, value|
+      attr += " #{key}=\"#{value}\""
+    end
+    print "<#{name}#{attr}>"
+  when XML::Parser::END_ELEM
+    print "</#{name}>"
+  when XML::Parser::CDATA
+    print data
+#  when XML::Parser::START_NAMESPACE_DECL
+#    print "start NS: #{name}, #{data}\n"
+#  when XML::Parser::END_NAMESPACE_DECL
+#    print "start NS: #{name}\n"
+  else
+    print data
+  end
+end

data/samples/namespaces/namespace1.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+
+<test xmlns="http://www.yoshidam.net/ns/hoge/"
+      xmlns:ns2="http://www.yoshidam.net/ns/hoge2/"
+      attr="No default namespace"
+      ns2:attr="ns2 namespace">
+  <aa>Default name space</aa>
+  <aa xmlns="">No deafult namespace</aa>
+  <ns2:aa xmlns="">ns2 namespace</ns2:aa>
+</test>

data/samples/namespaces/namespace2.rb

@@ -0,0 +1,41 @@
+#! /usr/local/bin/ruby
+
+require 'xml/parser'
+
+module XML
+class Parser
+  def initialize(encoding = nil, nssep = nil)
+    @nstbl = {nil=>""}
+  end
+
+  def startElement(name, attr)
+    name =~ /^(([^;]*);)?(.+)$/
+    uri = $2
+    prefix = @nstbl[uri] || ""
+    name = $3
+    uri = uri || ""
+    print "(" + prefix + "[" + uri + "]:" + name + "\n"
+  end
+
+  def endElement(name)
+    name =~ /^(([^;]*);)?(.+)$/
+    uri = $2
+    prefix = @nstbl[uri] || ""
+    name = $3
+    uri = uri || ""
+    print ")" + prefix + "[" + uri + "]:" + name + "\n"
+  end
+
+  def startNamespaceDecl(prefix, uri)
+    prefix = "" if prefix.nil?
+    uri = uri || ""
+    @nstbl[uri] = prefix
+  end
+
+  def endNamespaceDecl(prefix)
+  end
+end
+end
+
+p = XML::Parser.new(nil, ";")
+p.parse($<.read)

data/samples/namespaces/namespace2.xml

@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+<!DOCTYPE test [
+<!ELEMENT test (aa)*>
+<!ATTLIST test xmlns CDATA #IMPLIED>
+<!ELEMENT aa (bb)*>
+<!ELEMENT bb (cc)*>
+<!ELEMENT cc EMPTY>
+]>
+
+<test xmlns="http://www.yoshidam.net/ns/hoge/">
+  <aa><bb><cc/></bb></aa>
+</test>

data/samples/nstest.rb

@@ -0,0 +1,21 @@
+#! /usr/local/bin/ruby
+
+require 'xml/parserns'
+
+p = XML::ParserNS.new()
+def p.startElement(n, a)
+  p(["start", resolveElementQName(n)])
+  a.each do | n, v|
+    p(['attr', resolveAttributeQName(n), v])
+  end
+end
+
+def p.endElement(n)
+  p(["end", resolveElementQName(n)])
+end
+
+p.parse($<.read)
+# do |t, n, d|
+#  p([t, n, d])
+#end
+

data/samples/saxtest.rb

@@ -0,0 +1,70 @@
+#! /usr/local/bin/ruby
+
+## SAX test
+## 1999 yoshidam
+
+require 'xml/saxdriver'
+
+class TestHandler < XML::SAX::HandlerBase
+  def getPos
+    [@locator.getSystemId, @locator.getLineNumber]
+  end
+
+  def getAttrs(attrs)
+    ret = []
+    for i in 0...attrs.getLength
+      ret .push([attrs.getName(i), attrs.getValue(i)])
+    end
+    ret
+  end
+
+  def startDocument
+    p ["startDocument", getPos]
+  end
+  def endDocument
+    p ["endDocument", getPos]
+  end
+  def startElement(name, attr)
+    p ["startElement", name, getAttrs(attr), getPos]
+  end
+  def endElement(name)
+    p ["endElement", name, getPos]
+  end
+  def characters(ch, start, length)
+    p ["characters", ch[start, length], getPos]
+  end
+  def processingInstruction(target, data)
+    p ["processingInstruction", target, data, getPos]
+  end
+  def notationDecl(name, pubid, sysid)
+    p ["notationDecl", name, pubid, sysid, getPos]
+  end
+  def unparsedEntityDecl(name, pubid, sysid, notation)
+    p ["unparsedEntityDecl", name, pubid, sysid, notation, getPos]
+  end
+
+  def resolveEntity(pubid, sysid)
+    p ["resolveEntity", pubid, sysid]
+  end
+
+  def setDocumentLocator(loc)
+    @locator = loc
+  end
+
+  def fatalError(e)
+    print "*** FATAL ERROR ***\n"
+    raise e
+  end
+end
+
+p = XML::SAX::Helpers::ParserFactory.makeParser("XML::Parser::SAXDriver")
+h = TestHandler.new
+p.setDocumentHandler(h)
+p.setDTDHandler(h)
+p.setEntityResolver(h)
+p.setErrorHandler(h)
+begin
+  p.parse(ARGV[0])
+rescue XML::SAX::SAXParseException
+  p(["ParseError", $!.getSystemId, $!.getLineNumber, $!.getMessage])
+end