rgen 0.5.4 → 0.6.0

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

@@ -1,22 +0,0 @@
-#
-# 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

@@ -1,29 +0,0 @@
-#
-# 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

@@ -1,62 +0,0 @@
-#
-# 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

@@ -1,22 +0,0 @@
-#
-# 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

@@ -1,62 +0,0 @@
-#
-# 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

@@ -1,22 +0,0 @@
-#
-# 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

@@ -1,22 +0,0 @@
-#
-# 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

@@ -1,99 +0,0 @@
-#
-# 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

@@ -1,116 +0,0 @@
-#
-# 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