rgen 0.3.0 → 0.4.0

data/redist/xmlscan/samples/xmlbench/parser/chibixml.rb

@@ -0,0 +1,22 @@
+#
+# samples/xmlbench/parser/chibixml.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: chibixml.rb,v 1.1 2002/12/26 17:32:46 katsu Exp $
+#
+
+require 'chibiparse'
+
+
+class BenchChibiXML < XMLBench
+
+  def name
+    'chibixml-20010306'
+  end
+
+  def parse(src)
+    ChibiXML.parse src
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/nqxml.rb

@@ -0,0 +1,29 @@
+#
+# samples/xmlbench/parser/nqxml.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: nqxml.rb,v 1.1 2002/12/26 17:32:46 katsu Exp $
+#
+
+require 'nqxml/streamingparser'
+require 'nqxml/treeparser'
+
+
+class BenchNQXMLStream < XMLBench
+
+  def name
+    'NQXML::StreamingParser'
+  end
+
+  def parse(src)
+    parser = NQXML::StreamingParser.new(src)
+    parser.instance_eval {
+      @tokenizer.instance_eval {
+        @internalEntities.default = ''
+      }
+    }
+    parser.each { }
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/rexml.rb

@@ -0,0 +1,62 @@
+#
+# samples/xmlbench/parser/rexml.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: rexml.rb,v 1.2 2003/03/16 02:38:02 katsu Exp $
+#
+
+require 'rexml/document'
+require 'rexml/streamlistener'
+require 'rexml/pullparser'
+
+
+class BenchREXMLStream < XMLBench
+
+  class REXMLListener
+    include REXML::StreamListener
+  end
+
+  def name
+    'REXML::Document.parse_stream'
+  end
+
+  def parse(src)
+    s = REXML::SourceFactory.create_from(src)
+    REXML::Document.parse_stream s, REXMLListener.new
+  end
+
+end
+
+
+class BenchREXMLTree < XMLBench
+
+  class REXMLListener
+    include REXML::StreamListener
+  end
+
+  def name
+    'REXML::Document.new'
+  end
+
+  def parse(src)
+    REXML::Document.new src
+  end
+
+end
+
+
+class BenchREXMLPull < XMLBench
+
+  def name
+    'REXML::PullParser'
+  end
+
+  def parse(src)
+    parser = REXML::PullParser.new(src)
+    until parser.empty?
+      parser.next
+    end
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/xmlparser.rb

@@ -0,0 +1,22 @@
+#
+# samples/xmlbench/parser/xmlparser.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: xmlparser.rb,v 1.1 2002/12/26 17:32:46 katsu Exp $
+#
+
+require 'xmlparser'
+
+
+class BenchXMLParser < XMLBench
+
+  def name
+    'XMLParser'
+  end
+
+  def parse(src)
+    XMLParser.new.parse src
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/xmlscan-0.0.10.rb

@@ -0,0 +1,62 @@
+#
+# samples/xmlbench/parser/xmlscan-0.0.10.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: xmlscan-0.0.10.rb,v 1.1 2002/12/26 17:32:46 katsu Exp $
+#
+
+require 'xmlscan'
+
+
+class BenchXMLScan0010 < XMLBench
+
+  class Scanner < XMLScanner
+    def entityref_literal(ref)  ''  end
+  end
+
+  def name
+    'xmlscan-0.0.10 XMLScanner'
+  end
+
+  def parse(src)
+    Scanner.new.parse src
+  end
+
+end
+
+
+
+class BenchXMLScan0010Parser < XMLBench
+
+  class Scanner < WellFormedXMLScanner
+    def entityref_literal(ref)  ''  end
+  end
+
+  def name
+    'xmlscan-0.0.10 WellFormed'
+  end
+
+  def parse(src)
+    Scanner.new.parse src
+  end
+
+end
+
+
+
+class BenchXMLScan0010ParserNamespace < XMLBench
+
+  class Scanner < XMLScannerWithNamespace
+    def entityref_literal(ref)  ''  end
+  end
+
+  def name
+    'xmlscan-0.0.10 Namespace'
+  end
+
+  def parse(src)
+    Scanner.new.parse src
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/xmlscan-chibixml.rb

@@ -0,0 +1,22 @@
+#
+# samples/xmlbench/parser/xmlscan-chibixml.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: xmlscan-chibixml.rb,v 1.1 2002/12/26 17:32:46 katsu Exp $
+#
+
+require 'samples/chibixml'
+
+
+class BenchXMLScanChibiXML < XMLBench
+
+  def name
+    'XMLScan::ChibiXML'
+  end
+
+  def parse(src)
+    XMLScan::ChibiXML.parse src
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/xmlscan-rexml.rb

@@ -0,0 +1,22 @@
+#
+# samples/xmlbench/parser/xmlscan-rexml.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: xmlscan-rexml.rb,v 1.1 2002/12/26 17:32:46 katsu Exp $
+#
+
+require 'samples/rexml'
+
+
+class BenchXMLScanREXML < XMLBench
+
+  def name
+    'XMLScan::REXML'
+  end
+
+  def parse(src)
+    XMLScan::REXML.parse src
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/parser/xmlscan.rb

@@ -0,0 +1,99 @@
+#
+# samples/xmlbench/parser/xmlscan.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: xmlscan.rb,v 1.2 2003/01/18 07:05:19 katsu Exp $
+#
+
+require 'xmlscan/scanner'
+require 'xmlscan/parser'
+require 'xmlscan/namespace'
+require 'xmlscan/xmlchar'
+
+
+class BenchXMLScan < XMLBench
+
+  class Visitor
+    include XMLScan::Visitor
+  end
+
+  def name
+    'XMLScan::XMLScanner'
+  end
+
+  def parse(src)
+    XMLScan::XMLScanner.new(Visitor.new).parse src
+  end
+
+end
+
+
+
+class BenchXMLScanParser < XMLBench
+
+  class Visitor
+    include XMLScan::Visitor
+    def on_stag(*)            @attrs = {}                end
+    def on_attribute(name)    @attrs[name] = @attr = ''  end
+    def on_attr_value(str)    @attr << str               end
+    def on_attr_charref(str)  @attr << [str].pack('U')   end
+  end
+
+  def name
+    'XMLScan::XMLParser'
+  end
+
+  def parse(src)
+    XMLScan::XMLParser.new(Visitor.new).parse src
+  end
+
+end
+
+
+
+class BenchXMLScanParserNamespace < XMLBench
+
+  class Visitor
+    include XMLScan::NSVisitor
+    def on_stag_ns(*)              @attrs = {}                end
+    def on_attribute_ns(name,p,l)  @attrs[name] = @attr = ''  end
+    def on_attr_value(str)         @attr << str               end
+    def on_attr_charref(str)       @attr << [str].pack('U')   end
+  end
+
+  def name
+    'XMLScan::XMLNamespace'
+  end
+
+  def parse(src)
+    XMLScan::XMLParserNS.new(Visitor.new).parse src
+  end
+
+end
+
+
+
+class BenchXMLScanParserStrict < XMLBench
+
+  class Visitor
+    include XMLScan::Visitor
+    def on_stag(*)            @attrs = {}                end
+    def on_attribute(name)    @attrs[name] = @attr = ''  end
+    def on_attr_value(str)    @attr << str               end
+    def on_attr_charref(str)  @attr << [str].pack('U')   end
+  end
+
+  def name
+    'XMLScan::XMLParser (strict)'
+  end
+
+  def weight
+    10
+  end
+
+  def parse(src)
+    XMLScan::XMLParser.new(Visitor.new, :strict_char).parse src
+  end
+
+end

data/redist/xmlscan/samples/xmlbench/xmlbench-lib.rb

@@ -0,0 +1,116 @@
+#
+# samples/xmlbench/xmlbench-lib.rb
+#
+#   Copyright (C) UENO Katsuhiro 2002
+#
+# $Id: xmlbench-lib.rb,v 1.3 2002/12/29 17:18:57 katsu Exp $
+#
+
+class XMLBench
+
+  def name
+    self.class.name
+  end
+
+  def weight
+    0
+  end
+
+  def parse(src)
+    raise NotImplementedError, "abstract method"
+  end
+
+end
+
+
+
+class XMLBench
+
+  ParserDir = File.expand_path(File.dirname(__FILE__)) + '/parser'
+  @@parsers = []
+  @@parser_classes = []
+  @@weight_limit = 0
+
+  class << self
+
+    def weight_limit=(n)
+      @@weight_limit = n
+    end
+
+    private
+
+    def load(name)
+      @@parsers.push name
+      filename = "#{XMLBench::ParserDir}/#{name}.rb"
+      ret = nil
+      if File.file? filename then
+        loaded = true
+        begin
+          Kernel.load "#{XMLBench::ParserDir}/#{name}.rb"
+        rescue Exception
+        loaded = false
+        end
+        if loaded then
+          klasses = []
+          ObjectSpace.each_object(Class) { |klass|
+            if not equal? klass and klass.ancestors.include? self then
+              klasses.push klass
+            end
+          }
+          ret = klasses - @@parser_classes
+          @@parser_classes = klasses
+          ret.sort! { |a,b| a.name <=> b.name }
+        end
+      end
+      ret
+    end
+
+    public
+
+    def setup(*args)
+      ret = []
+      args.each { |name|
+        next if @@parsers.include? name
+        STDERR.print "checking for #{name} ..." if $VERBOSE
+        klasses = load(name)
+        unless klasses then
+          STDERR.print " no" if $VERBOSE
+        else
+          parsers = []
+          klasses.each { |klass|
+            begin
+              obj = klass.new
+            rescue Exception
+              obj = nil
+            end
+            parsers.push obj if obj
+          }
+          if $VERBOSE then
+            if parsers.size < klasses.size then
+              STDERR.print " ok (#{klasses.size - parsers.size} failed)"
+            else
+              STDERR.print " ok"
+            end
+          end
+          parsers.reject! { |i| i.weight > @@weight_limit }
+          ret.concat parsers
+        end
+        STDERR.print "\n" if $VERBOSE
+      }
+      ret
+    end
+
+    def setup_all
+      files = Dir.entries(XMLBench::ParserDir)
+      files.reject! { |i| /\.rb\z/ !~ i }
+      files.collect! { |i| i[0..-4] }
+      xmlscan = files.select { |i| /\Axmlscan/ =~ i }
+      files = files.reject { |i| /\Axmlscan/ =~ i }
+      xmlscan.sort!
+      files.sort!
+      setup(*xmlscan.concat(files))
+    end
+
+  end
+
+end