ox 1.5.4 → 1.5.5

data/test/gen_sample.rb

@@ -1,22 +0,0 @@
-
-require 'ox'
-
-doc = Ox::Document.new(:version => '1.0')
-
-top = Ox::Element.new('top')
-top[:name] = 'sample'
-doc << top
-
-mid = Ox::Element.new('middle')
-mid[:name] = 'second'
-top << mid
-
-bot = Ox::Element.new('bottom')
-bot[:name] = 'third'
-mid << bot
-
-xml = Ox.dump(doc)
-puts xml
-
-doc2 = Ox.parse(xml)
-puts "Same? #{doc == doc2}"

data/test/obj_sample.rb

@@ -1,19 +0,0 @@
-
-require 'ox'
-
-class Sample
-  attr_accessor :a, :b, :c
-  
-  def initialize(a, b, c)
-    @a = a
-    @b = b
-    @c = c
-  end
-end # File
-
-# Create Object
-obj = Sample.new(1, "bee", ['x', :y, 7.0])
-# Now dump the Object to an XML String.
-xml = Ox.dump(obj)
-# Convert the object back into a Sample Object.
-obj2 = Ox.parse_obj(xml)

data/test/ox/change.rb

@@ -1,16 +0,0 @@
-
-module Test
-  module Ox
-    class Change
-      attr_accessor :time
-      attr_accessor :user
-      attr_accessor :comment
-      
-      def initialize(comment=nil, time=nil, user=nil)
-        @user = user || ENV['USER'] 
-        @time = time || Time.now
-        @comment = comment
-      end
-    end # Change
-  end # Ox
-end # Test

data/test/ox/dir.rb

@@ -1,21 +0,0 @@
-
-require 'etc'
-
-module Test
-  module Ox
-
-    class Dir < File
-      attr_accessor :files
-
-      def initialize(filename)
-        super
-        @files = []
-      end
-      
-      def <<(f)
-        @files << f
-      end
-
-    end # Dir
-  end # Ox
-end # Test

data/test/ox/doc.rb

@@ -1,39 +0,0 @@
-
-require 'test/ox/hasprops'
-require 'test/ox/group'
-require 'test/ox/layer'
-require 'test/ox/line'
-require 'test/ox/shape'
-require 'test/ox/oval'
-require 'test/ox/rect'
-require 'test/ox/text'
-require 'test/ox/change'
-
-module Test
-  module Ox
-    class Doc
-      include HasProps
-      
-      attr_accessor :title
-      attr_accessor :create_time
-      attr_accessor :user
-      # Hash of layers in the document indexed by layer name.
-      attr_reader :layers
-      attr_reader :change_history
-
-      def initialize(title)
-        @title = title
-        @user = ENV['USER']
-        @create_time = Time.now
-        @layers = { }
-        @change_history = []
-      end
-      
-      def add_change(comment, time=nil, user=nil)
-        @change_history << Change.new(comment, time, user)
-      end
-
-    end # Doc
-  end # Ox
-end # Test
-

data/test/ox/file.rb

@@ -1,33 +0,0 @@
-
-require 'etc'
-
-module Test
-  module Ox
-
-    class File
-      attr_accessor :name, :ctime, :mtime, :size, :owner, :group, :permissions
-
-      def initialize(filename)
-        @name = ::File.basename(filename)
-        stat = ::File.stat(filename)
-        @ctime = stat.ctime
-        @mtime = stat.mtime
-        @size = stat.size
-        @owner = Etc.getpwuid(stat.uid).name
-        @group = Etc.getgrgid(stat.gid).name
-        @permissions = {
-          :user => [(0 != (stat.mode & 0x0100)) ? 'r' : '-',
-                    (0 != (stat.mode & 0x0080)) ? 'w' : '-',
-                    (0 != (stat.mode & 0x0040)) ? 'x' : '-'].join(''),
-          :group => [(0 != (stat.mode & 0x0020)) ? 'r' : '-',
-                     (0 != (stat.mode & 0x0010)) ? 'w' : '-',
-                     (0 != (stat.mode & 0x0008)) ? 'x' : '-'].join(''),
-          :other => [(0 != (stat.mode & 0x0004)) ? 'r' : '-',
-                     (0 != (stat.mode & 0x0002)) ? 'w' : '-',
-                     (0 != (stat.mode & 0x0001)) ? 'x' : '-'].join('')
-        }
-      end
-
-    end # File
-  end # Ox
-end # Test

data/test/ox/group.rb

@@ -1,18 +0,0 @@
-
-module Test
-  module Ox
-    class Group
-      attr_reader :members
-      
-      def initialize()
-        @members = []
-      end
-      
-      def <<(member)
-        @members << member
-      end
-
-    end # Group
-  end # Ox
-end # Test
-    

data/test/ox/hasprops.rb

@@ -1,18 +0,0 @@
-
-module Test
-  module Ox
-    module HasProps
-
-      def add_prop(key, value)
-        @props = { } unless self.instance_variable_defined?(:@props)
-        @props[key] = value
-      end
-
-      def props
-        @props = { } unless self.instance_variable_defined?(:@props)
-        @props
-      end
-      
-    end # HashProps
-  end # Ox
-end # Test

data/test/ox/layer.rb

@@ -1,14 +0,0 @@
-
-module Test
-  module Ox
-    class Layer < Group
-      attr_accessor :name
-
-      def initialize(name)
-        super()
-        @name = name
-      end
-
-    end # Layer
-  end # Ox
-end # Test

data/test/ox/line.rb

@@ -1,22 +0,0 @@
-module Test
-  module Ox
-
-    class Line
-      include HasProps
-
-      attr_accessor :x, :y, :dx, :dy
-      attr_accessor :color
-      attr_accessor :thick
-      
-      def initialize(x, y, dx, dy, thick, color)
-        @x = x
-        @y = y
-        @dx = dx
-        @dy = dy
-        @thick = thick
-        @color = color
-      end
-
-    end # Line
-  end # Ox
-end # Test

data/test/ox/oval.rb

@@ -1,12 +0,0 @@
-module Test
-  module Ox
-
-    class Oval < Shape
-
-      def initialize(left, top, wide, high, color=nil)
-        super
-      end
-
-    end # Oval
-  end # Ox
-end # Test

data/test/ox/rect.rb

@@ -1,12 +0,0 @@
-
-module Test
-  module Ox
-    class Rect < Shape
-
-      def initialize(left, top, wide, high, color=nil)
-        super
-      end
-
-    end # Rect
-  end # Ox
-end # Test

data/test/ox/shape.rb

@@ -1,37 +0,0 @@
-
-module Test
-  module Ox
-    class Shape
-      include HasProps
-
-      attr_accessor :bounds
-      attr_accessor :color
-      attr_accessor :border, :border_color
-
-      def initialize(left, top, wide, high, color=nil)
-        @bounds = [[left, top], [left + wide, top + high]]
-        @color = color
-        @border = 1
-        @border_color = :black
-      end
-      
-      def left
-        @bounds[0][0]
-      end
-      
-      def top
-        @bounds[0][1]
-      end
-      
-      def width
-        @bounds[1][0] - @bounds[0][0]
-      end
-      
-      def height
-        @bounds[1][1] - @bounds[0][1]
-      end
-      
-    end # Shape
-  end # Ox
-end # Test
-

data/test/ox/text.rb

@@ -1,23 +0,0 @@
-
-module Test
-  module Ox
-
-    class Text < Shape
-      attr_accessor :text
-      attr_accessor :font
-      attr_accessor :font_size
-      attr_accessor :just
-      attr_accessor :text_color
-
-      def initialize(text, left, top, wide, high, color=nil)
-        super(left, top, wide, high, color)
-        @text = text
-        @font = 'helvetica'
-        @font_size = 14
-        @just = 'left'
-        @text_color = 'black'
-      end
-
-    end # Text
-  end # Ox
-end # Test

data/test/parse_cmp.rb

@@ -1,261 +0,0 @@
-#!/usr/bin/env ruby -wW1
-
-$: << '../lib'
-$: << '../ext'
-
-require 'optparse'
-require 'stringio'
-require 'ox'
-
-$verbose = 0
-$iter = 100
-
-opts = OptionParser.new
-opts.on("-v", "increase verbosity")                            { $verbose += 1 }
-opts.on("-i", "--iterations [Int]", Integer, "iterations")     { |i| $iter = i }
-opts.on("-h", "--help", "Show this display")                   { puts opts; Process.exit!(0) }
-files = opts.parse(ARGV)
-
-### XML conversion to Hash using in memory Ox parsing ###
-
-def node_to_dict(element)
-  dict = Hash.new
-  key = nil
-  element.nodes.each do |n|
-    raise "A dict can only contain elements." unless n.is_a?(::Ox::Element)
-    if key.nil?
-      raise "Expected a key, not a #{n.name}." unless 'key' == n.name
-      key = first_text(n)
-    else
-      dict[key] = node_to_value(n)
-      key = nil
-    end
-  end
-  dict
-end
-
-def node_to_array(element)
-  a = Array.new
-  element.nodes.each do |n|
-    a.push(node_to_value(n))
-  end
-  a
-end
-
-def node_to_value(node)
-  raise "A dict can only contain elements." unless node.is_a?(::Ox::Element)
-  case node.name
-  when 'key'
-    raise "Expected a value, not a key."
-  when 'string'
-    value = first_text(node)
-  when 'dict'
-    value = node_to_dict(node)
-  when 'array'
-    value = node_to_array(node)
-  when 'integer'
-    value = first_text(node).to_i
-  when 'real'
-    value = first_text(node).to_f
-  when 'true'
-    value = true
-  when 'false'
-    value = false
-  else
-    raise "#{node.name} is not a know element type."
-  end
-  value
-end
-
-def first_text(node)
-  node.nodes.each do |n|
-    return n if n.is_a?(String)
-  end
-  nil
-end
-
-def parse_gen(xml)
-  doc = Ox.parse(xml)
-  plist = doc.root
-  dict = nil
-  plist.nodes.each do |n|
-    if n.is_a?(::Ox::Element)
-      dict = node_to_dict(n)
-      break
-    end
-  end
-  dict
-end
-
-### XML conversion to Hash using Ox SAX parser ###
-
-class Handler
-  def initialize()
-    @key = nil
-    @type = nil
-    @plist = nil
-    @stack = []
-  end
-
-  def text(value)
-    last = @stack.last
-    if last.is_a?(Hash) and @key.nil?
-      raise "Expected a key, not #{@type} with a value of #{value}." unless :key == @type
-      @key = value
-    else
-      append(value)
-    end
-  end
-
-  def start_element(name)
-    if :dict == name
-      dict = Hash.new
-      append(dict)
-      @stack.push(dict)
-    elsif :array == name
-      a = Array.new
-      append(a)
-      @stack.push(a)
-    elsif :true == name
-      append(true)
-    elsif :false == name
-      append(false)
-    else
-      @type = name
-    end
-  end
-
-  def end_element(name)
-    @stack.pop if :dict == name or :array == name
-  end
-  
-  def plist
-    @plist
-  end
-
-  def append(value)
-    unless value.is_a?(Array) or value.is_a?(Hash)
-      case @type
-      when :string
-        # ignore
-      when :key
-        # ignore
-      when :integer
-        value = value.to_i
-      when :real
-        value = value.to_f
-      end
-    end
-    last = @stack.last
-    if last.is_a?(Hash)
-      raise "Expected a key, not with a value of #{value}." if @key.nil?
-      last[@key] = value
-      @key = nil
-    elsif last.is_a?(Array)
-      last.push(value)
-    elsif last.nil?
-      @plist = value
-    end
-  end
-
-end
-
-def parse_sax(xml)
-  io = StringIO.new(xml)
-  start = Time.now
-  handler = Handler.new()
-  Ox.sax_parse(handler, io)
-  handler.plist
-end
-
-### XML conversion to Hash using Ox Object parsing with gsub! replacements ###
-
-def convert_parse_obj(xml)
-  xml = plist_to_obj_xml(xml)
-  ::Ox.load(xml, :mode => :object)
-end
-
-### XML conversion to Hash using Ox Object parsing after gsub! replacements ###
-
-def parse_obj(xml)
-  ::Ox.load(xml, :mode => :object)
-end
-
-def plist_to_obj_xml(xml)
-  xml = xml.gsub(%{<plist version="1.0">
-}, '')
-  xml.gsub!(%{
-</plist>}, '')
-  { '<dict>' => '<h>',
-    '</dict>' => '</h>',
-    '<dict/>' => '<h/>',
-    '<array>' => '<a>',
-    '</array>' => '</a>',
-    '<array/>' => '<a/>',
-    '<string>' => '<s>',
-    '</string>' => '</s>',
-    '<string/>' => '<s/>',
-    '<key>' => '<s>',
-    '</key>' => '</s>',
-    '<integer>' => '<i>',
-    '</integer>' => '</i>',
-    '<integer/>' => '<i/>',
-    '<real>' => '<f>',
-    '</real>' => '</f>',
-    '<real/>' => '<f/>',
-    '<true/>' => '<y/>',
-    '<false/>' => '<n/>',
-  }.each do |pat,rep|
-    xml.gsub!(pat, rep)
-  end
-  xml
-end
-
-files.each do |filename|
-  xml = File.read(filename)
-
-  if 0 < $verbose
-    d1 = parse_gen(xml)
-    d2 = parse_sax(xml)
-    d3 = convert_parse_obj(xml)
-    puts "--- It is #{d1 == d2 and d2 == d3} that all parsers yield the same Hash. ---"
-  end
-
-  start = Time.now
-  $iter.times do
-    parse_gen(xml)
-  end
-  gen_time = Time.now - start
-  
-  start = Time.now
-  $iter.times do
-    parse_sax(xml)
-  end
-  sax_time = Time.now - start
-
-  start = Time.now
-  $iter.times do
-    convert_parse_obj(xml)
-  end
-  conv_obj_time = Time.now - start
-
-  xml = plist_to_obj_xml(xml)
-  start = Time.now
-  $iter.times do
-    parse_obj(xml)
-  end
-  obj_time = Time.now - start
-
-  puts "In memory parsing and conversion took #{gen_time} for #{$iter} iterations."
-  puts "SAX parsing and conversion took #{sax_time} for #{$iter} iterations."
-  puts "XML gsub Object parsing and conversion took #{conv_obj_time} for #{$iter} iterations."
-  puts "Object parsing and conversion took #{obj_time} for #{$iter} iterations."
-end
-
-# Results for a run:
-#
-# > parse_cmp.rb Sample.graffle -i 1000
-# In memory parsing and conversion took 4.135701 for 1000 iterations.
-# SAX parsing and conversion took 3.731695 for 1000 iterations.
-# XML gsub Object parsing and conversion took 3.292397 for 1000 iterations.
-# Object parsing and conversion took 0.808877 for 1000 iterations.