RXAAL 0.0.1

data/RXAAL.gemspec

@@ -0,0 +1,15 @@
+spec = Gem::Specification.new do |s|
+  s.name = 'RXAAL'
+  s.version = '0.0.1'
+  s.summary = "A library for creating eXtensible Algorithm Animation Language (XAAL) files."
+  s.description = %{A library for creating eXtensible Algorithm Animation Language (XAAL) files.}
+  s.files = Dir['lib/**/*.rb'] + Dir['test/**/*.rb']
+  s.require_path = 'lib'
+  s.has_rdoc = true
+  s.add_dependency("darkfish-rdoc")
+  s.extra_rdoc_files = Dir['[A-Z]*']
+  s.rdoc_options << '--title' <<  'RXAAL' << 'darkfish'
+  s.author = "Eric Schultz"
+  s.email = "wwahammy@gmail.com"
+  s.rubyforge_project = 'RXAAL'
+end

data/Rakefile

@@ -0,0 +1,60 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+
+
+desc 'Default: run unit tests.'
+task :default => :test
+
+desc 'buildGenMod: build the general module'
+task :buildGenMod do
+  classes = Hash.new
+  rbfiles = File.join(".", "*.rb")
+  Dir.glob(rbfiles).each { |filename|
+  puts filename
+    File.open(filename, 'r') { |io|
+      io.readlines.each {|line|
+      puts line
+        if (line =~ /\s*class\s+([A-Z]\w*)/)
+          classes[$1.to_sym] = filename.sub(/\.rb/, "").sub(/\.\//, "");
+        end
+      }
+    }
+  }
+ 
+ classes.each { |key, val|
+  puts key.inspect + " = " + val
+ }
+end
+
+desc 'Test.'
+Rake::TestTask.new(:test) do |t|
+  t.pattern = 'test/*_test.rb'
+  t.verbose = true
+end
+
+
+spec = Gem::Specification.load("./rxaal.gemspec")
+desc 'Gem.'
+Rake::GemPackageTask.new(spec) do |pkg| 
+  pkg.need_tar = true 
+end 
+
+BASE_RDOC_OPTIONS = [
+  '--line-numbers',
+  '--main', 'README',
+  '--title', 'Rake -- Ruby Make',
+]
+
+desc 'RDoc'
+Rake::RDocTask.new("rdoc") do |rdoc|
+  rdoc.rdoc_dir = 'html'
+  rdoc.title    = "Rake -- Ruby Make"
+  rdoc.options = BASE_RDOC_OPTIONS.dup
+    
+  rdoc.rdoc_files.include('README', 'COPYING')
+  rdoc.rdoc_files.include('lib/**/*.rb', 'doc/**/*.rdoc')
+  rdoc.rdoc_files.exclude(/\bcontrib\b/)
+end
+

data/lib/angle.rb

@@ -0,0 +1,9 @@
+module RXaal
+  class Angle < GraphicPrim
+    attr_accessor_of_class Integer, :total, :start
+    
+    def initialize(doc, id = nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+    end
+  end
+end

data/lib/arc.rb

@@ -0,0 +1,13 @@
+require 'graphic_prim'
+require 'coordinate'
+require 'angle'
+module RXaal
+  class Arc < GraphicPrim
+    attr_accessor_of_class Coordinate, :center, :radius
+    attr_accessor_of_class Angle, :angle
+    attr_accessor_of_class Integer, :depth
+    def initialize(doc, id = nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+    end
+  end
+end

data/lib/arrow.rb

@@ -0,0 +1,23 @@
+module RXaal
+  class Arrow < XaalElement
+    
+    attr_accessor_of_boolean :forward, :backward
+    def initialize(doc, id = nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+    end
+    
+    def xaal_serialize(parent)
+      if forward != nil || backward != nil
+        e = REXML::Element.new "arrow"
+        parent.elements << e
+        
+        if forward != nil
+          e.attributes["forward"] = forward
+        end
+        if backward != nil
+          e.attributes["backward"] = backward
+        end
+      end
+    end
+  end
+end

data/lib/attribute.rb

@@ -0,0 +1,13 @@
+module RXaal
+  class Attribute
+    attr_accessor_of_class String, :name
+    attr_accessor_of_class XaalNS, :ns
+    attr_accessor_of_class Integer, :value
+    
+    def initialize(_name, _ns, _value = nil)
+      self.name = _name
+      self.ns = _ns
+      @value = _value
+    end
+  end
+end

data/lib/bound_array.rb

@@ -0,0 +1,56 @@
+=begin
+    An array whose elements must be of the bound_class.
+=end
+require 'forwardable'
+module RXaal
+
+  class BoundArray 
+    extend Forwardable
+    attr_reader :bound_class
+    def_delegators :@inner_array, :&, :*
+    def_delegators :@inner_array, :delete, :delete_at, :delete_if
+    def_delegators :@inner_array, :each, :each_index
+    def_delegators :@inner_array, :fetch, :first, :include?, :index, :join, :length, :map, :pop
+    def_delegators :@inner_array, :reverse, :reverse!, :reverse_each, :rindex, :select, :shift, :slice!
+    def_delegators :@inner_array, :[], :sort, :sort!, :to_a, :uniq, :uniq!, :values_at
+    
+    def initialize(klass)
+      @bound_class = klass
+      @inner_array = Array.new
+    end
+    
+    def <<(obj)
+      type_confirmation(obj) {
+        return @inner_array << obj
+      }
+    end
+    
+    def []=(index, obj)
+      type_confirmation(obj) {
+        return @inner_array[index] = obj
+      }
+    end
+    
+    def +(other_array)
+      if (other_array.class == BoundArray && other_array.bound_class == @bound_class)
+         new_array = BoundArray.new(@bound_class)
+         [@inner_array,other_array.to_a].each {|a|
+          a.each {|real|
+            new_array << real
+          }
+         }
+         return new_array
+      end
+      return self
+    end
+    
+    private
+    
+    def type_confirmation (obj, &block)
+      
+      if obj.class.hierarchy.include?(@bound_class)
+        return block.call
+      end
+    end
+  end
+end

data/lib/center.rb

@@ -0,0 +1,7 @@
+module RXaal
+  class Center < Coordinate
+    def initialize(xpos, ypos)
+      super(xpos,ypos)
+    end
+  end
+end

data/lib/circle.rb

@@ -0,0 +1,11 @@
+require 'graphic_prim'
+module RXaal
+  class Circle < GraphicPrim
+  
+    attr_accessor_of_class Coordinate, :center, :radius
+    attr_accessor_of_class Integer, :depth
+    def initialize
+      super
+    end
+  end
+end

data/lib/circle_segment.rb

@@ -0,0 +1,9 @@
+require 'graphic_prim'
+module RXaal
+  class CircleSegment < GraphicPrim
+    
+    def initialize
+      super
+    end
+  end
+end

data/lib/contents.rb

@@ -0,0 +1,7 @@
+require 'serializable'
+module RXaal
+  class Contents
+    include Serializable
+    attr_accessor_of_class String, :text, :lang 
+  end
+end

data/lib/coordinate.rb

@@ -0,0 +1,20 @@
+module RXaal
+  class Coordinate < XaalElement
+    attr_accessor :xpos, :ypos
+    def initialize(doc, xpos, ypos, id= nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+      @xpos= xpos
+      @ypos= ypos
+    end
+    
+    def xaal_serialize(parent)
+      elem = Element.new "coordinate"
+      elem.attributes["x"] = @xpos.to_s
+      elem.attributes["y"] = @ypos.to_s
+      elem.attributes["id"] = self.id
+      parent.elements << elem
+      
+      superclass_serialize(elem)
+    end
+  end
+end

data/lib/core_ext/class.rb

@@ -0,0 +1,17 @@
+class Class
+   def cattr_reader(*cvs)
+       cvs.each do |cv|
+         class_eval %Q[
+          def self.#{cv}; @@#{cv} end
+       ]
+       end
+   end
+   
+   def hierarchy
+      (superclass ? superclass.hierarchy : []) << self
+   end
+
+  def name_minus_mod
+    return name.split("::").last
+  end
+end

data/lib/core_ext/module.rb

@@ -0,0 +1,23 @@
+class Module
+  def attr_accessor_bool(name, &block)
+     define_method(name) do  
+       instance_variable_get("@#{name}")
+     end        
+
+     define_method("#{name}=") do |val|
+      if block.call(val)
+        instance_variable_set("@#{name}",val)
+      end
+     end
+ end
+ def attr_accessor_of_boolean(*accessor)
+   accessor.each {|a|
+    attr_accessor_bool(a) {|o| o.class == TrueClass || o.class == FalseClass}
+   }
+ end
+ def attr_accessor_of_class (klass, *accessor)
+   accessor.each {|a|
+    attr_accessor_bool(a) {|o| o.class == klass}
+   }
+ end
+end

data/lib/core_ext/object.rb

@@ -0,0 +1,7 @@
+class Object
+  def smrt_autoload(*syms)
+    syms.each {|sym|
+      autoload(sym, sym.to_s.underscore + ".rb")
+    }
+  end
+end

data/lib/core_ext/string.rb

@@ -0,0 +1,11 @@
+##from ruby
+
+class String
+   def underscore
+      self.gsub(/::/, '/').
+        gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+        gsub(/([a-z\d])([A-Z])/,'\1_\2').
+        tr("-", "_").
+        downcase
+    end
+end

data/lib/ellipse.rb

@@ -0,0 +1,8 @@
+require 'node_prim'
+module RXaal
+  class Ellipse < NodePrim
+    def initialize
+      super
+    end
+  end
+end

data/lib/enum.rb

@@ -0,0 +1,8 @@
+module RXaal
+  module Enum
+    autoload :Anchor, "enum/anchor"
+    autoload :ColorName, "enum/color_name"
+    autoload :OffsetMode, "enum/offset_mode"
+    autoload :StrokeType, "enum/stroke_type"
+  end
+end

data/lib/enum/anchor.rb

@@ -0,0 +1,16 @@
+module RXaal
+  module Enum
+
+    class Anchor
+      NW = 'NW'
+      N = 'N'
+      NE = 'NE'
+      E = 'E'
+      SE = 'SE'
+      S = 'S'
+      SW = 'SW'
+      W = 'W'
+      C = 'C'
+    end
+  end
+end

data/lib/enum/color_name.rb

@@ -0,0 +1,24 @@
+module RXaal
+  module Enum
+
+    class ColorName
+      MAROON = "maroon"
+      RED = "red"
+      ORANGE = "orange"
+      YELLOW = "yellow"
+      OLIVE = "olive"
+      PURPLE = "purple"
+      FUCHSIA = "fuchsia"
+      WHITE = "white"
+      LIME = "lime"
+      GREEN = "green"
+      NAVY = "navy"
+      AQUA = "aqua"
+      TEAL = "teal"
+      BLACK = "black"
+      SILVER = "silver"
+      GRAY = "gray"
+      BLUE = "blue"
+    end
+  end
+end

data/lib/enum/offset_mode.rb

@@ -0,0 +1,9 @@
+module RXaal
+  module Enum
+    class OffsetMode
+      CENTER = "center"
+      START = "start"
+      END_MODE = "end"
+    end
+  end
+end

data/lib/enum/stroke_type.rb

@@ -0,0 +1,9 @@
+module RXaal
+  module Enum
+    class StrokeType
+      SOLID = "solid"
+      DOTTED = "dotted"
+      DASHED = "dashed"
+    end
+  end
+end

data/lib/enum/text_alignment.rb

@@ -0,0 +1,9 @@
+module RXaal
+  module Enum
+    class TextAlignment
+      LEFT = "left"
+      RIGHT = "right"
+      CENTERED = "centered"
+    end
+  end
+end

data/lib/font.rb

@@ -0,0 +1,25 @@
+module RXaal
+  class Font < XaalElement
+    attr_accessor_of_class Integer, :size
+    attr_accessor_of_class String, :family
+    
+    def initialize (doc, id = nil)
+      super(doc, id, elem_ns)
+    end
+    
+    def xaal_serialize(parent)
+      if size != nil || family!= nil
+        font = Element.new "font"
+        if @size != nil
+          font.attributes["size"] = @size
+        end
+        if @family != nil
+          font.attributes["family"] = @family
+        end
+        font.attributes["id"] = @id
+        parent.elements << font
+      end
+    end
+  
+  end
+end