RXAAL 0.0.1

data/lib/rgb_color.rb

@@ -0,0 +1,20 @@
+require "generic_color"
+module RXaal
+  class RGBColor < GenericColor
+    attr_accessor_of_class Integer, :r, :g, :b
+    def initialize(_r, _g, _b)
+      super
+      @r = _r
+      @g = _g
+      @b = _b
+    end
+    
+    def xaal_serialize(parent)
+      elem = Element.new "color"
+      elem.attributes['r'] = r
+      elem.attributes['g'] = g
+      elem.attributes["b"] = b
+      parent.elements << elem
+    end
+  end 
+end

data/lib/rxaal.rb

@@ -0,0 +1,28 @@
+module RXaal
+  require "core_ext/module"
+  require "core_ext/string"
+  require "core_ext/object"
+  require "core_ext/class"
+  autoload :XaalNS, "xaalns"
+  autoload :Anchor, "enum/anchor"
+  autoload :ColorName, "enum/color_name"
+  autoload :OffsetMode, "enum/offset_mode"
+  autoload :StrokeType, "enum/stroke_type"
+  autoload :TextAlignment, "enum/text_alignment"
+  smrt_autoload :Angle, :Arc, :Arrow, :Attribute
+  smrt_autoload :BoundArray
+  smrt_autoload :Center, :CircleSegment, :Circle, :Coordinate 
+  smrt_autoload :Ellipse, :Enum
+  smrt_autoload :Font
+  smrt_autoload :GenericColor, :GraphicPrim
+  smrt_autoload :Line 
+  smrt_autoload :Metadata, :MetadataMod
+  smrt_autoload :NamedColor, :NodePrim, :NSContainer
+  smrt_autoload :Offset, :Operation
+  smrt_autoload :Par, :Point, :Polygon, :Polyline
+  smrt_autoload :RXaalError, :RXaalObject, :Radius, :Rectangle, :RGBColor
+  smrt_autoload :Seq, :Serializable, :Shape, :ShowHide, :Square, :Stroke, :StyleContainer, 
+                  :StyleMod, :Style
+  smrt_autoload :Text, :TopLevelElem, :Triangle
+  smrt_autoload :XaalDoc, :XaalElement
+end

data/lib/seq.rb

@@ -0,0 +1,31 @@
+module RXaal
+  class Seq < TopLevelElem
+    attr_reader :pars
+    #narrative does not do type checking currently
+    attr_accessor :narrative
+    
+    def initialize(doc)
+      super(doc)
+      @pars = BoundArray.new(Par)
+    end
+    
+   
+    
+    def xaal_serialize(parent)
+      e = Element.new "seq"
+      parent.elements << e
+      
+      if @narrative != nil
+        n = Element.new "narrative"
+        n.text=(@narrative)
+        e.elements << n
+      end
+      
+      pars.each { |p|
+        p.xaal_serialize(e)
+      }
+      
+      superclass_serialize(e)
+    end
+  end
+end

data/lib/serializable.rb

@@ -0,0 +1,11 @@
+require "rexml/element"
+module RXaal
+  module Serializable
+    include REXML
+    # serializes the current element in the REXML tree with parent as its
+    # parent element
+    def xaal_serialize(parent)
+      raise NotImplementedError, "must be overrriden"
+    end
+  end
+end

data/lib/shape.rb

@@ -0,0 +1,5 @@
+module RXaal
+  class Shape < XaalElement
+    
+  end
+end

data/lib/show_hide.rb

@@ -0,0 +1,27 @@
+
+module RXaal
+  class ShowHide < BoundArray
+    include Serializable
+
+    
+    attr_reader :show
+    attr_accessor_of_class String, :type
+    
+    def initialize(show)
+      super(XaalElement)
+      @show = show
+    end
+    
+    def xaal_serialize(parent)
+      e_name = @show ? "show" : "hide"
+      e = Element.new e_name
+      parent.elements << e
+      e.attributes["type"] = @type
+      each { |obj|
+        t_obj = Element.new "object_ref"
+        t_obj.attributes["id"] = obj.id
+        e.elements << t_obj
+      }
+    end
+  end
+end

data/lib/square.rb

@@ -0,0 +1,35 @@
+require 'rectangle'
+module RXaal
+  class Square < Rectangle
+    
+    def initialize
+      super
+    end
+    
+    def coordinate
+      return self.coor1
+    end
+    
+    def coordinate=(new_value)
+      self.coor1=(new_value)
+    end
+    
+    private 
+    
+    def coor1
+      return super
+    end
+    
+    def coor1=(n)
+      return super(n)
+    end
+    
+    def coor2
+      return nil
+    end
+    
+    def coor2=(n)
+      return nil
+    end
+  end
+end

data/lib/stroke.rb

@@ -0,0 +1,27 @@
+module RXaal
+  class Stroke < XaalElement
+    include Serializable
+    
+    attr_accessor_of_class String, :type
+    attr_accessor_of_class Integer, :width
+    
+    def initialize(doc, id = nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+    end
+    
+    def xaal_serialize(parent)
+      if (@type != nil || @width != nil)
+        e = REXML::Element.new "stroke"
+        parent.elements << e
+        
+        if @type != nil
+          e.attributes["type"] = @type
+        end
+        if @width != nil
+          e.attributes["width"] = @width
+        end
+        
+      end
+    end
+  end
+end

data/lib/style.rb

@@ -0,0 +1,91 @@
+module RXaal
+  class Style < XaalElement
+    include StyleMod, Serializable
+    attr_accessor_of_class Style, :uses
+    style_attr_accessor_of_bool :forward_arrow, :backwards_arrow
+    attr_accessor :color, :fill_color
+    style_attr_accessor_of_class Font, :font
+    style_attr_accessor_of_class Stroke, :stroke
+    
+    def initialize (doc, id = nil, uses_style = nil)      
+      super(doc, id)
+      @uses = uses_style
+    end
+    
+    def font_size
+      if font != nil
+        return font.size
+      end
+      return nil
+    end
+    
+    def font_size=(_size)
+      if @font == nil
+        @font.new(@doc)
+      end
+      
+      @font.size = _size
+    end
+    
+    def font_family
+      if font != nil
+        return font.family
+      end
+      return nil
+    end
+    
+    def font_family=(_fam)
+      if @font == nil
+        @font.new(@doc)
+      end
+      
+      @font.family = _fam
+    end
+    
+    def stroke_type
+      if stroke != nil
+        return stroke.type
+      end
+      return nil
+    end
+    
+    def stroke_type=(_type)
+      if @stroke == nil
+        @stroke.new(@doc)
+      end
+      
+      @stroke.type = _type
+    end
+    
+    def stroke_width
+       if stroke != nil
+        return stroke.width
+      end
+      return nil
+    end
+    
+    def stroke_width=(_width)
+      if @stroke == nil
+        @stroke.new(@doc)
+      end
+      
+      @stroke.width = _width
+    end
+    
+    # TODO: this doesn't really do anything with uses yet
+    def xaal_serialize(parent)
+      style = REXML::Element.new "style"
+      parent.elements << style
+      
+      [:color, :fill_color, :font, :stroke].each { |c|
+        t = self.send(c)
+        if t != nil
+          t.xaal_serialize(style)  
+        end
+        
+      }
+      
+      superclass_serialize(style)
+    end
+  end
+end

data/lib/style_container.rb

@@ -0,0 +1,5 @@
+class StyleContainer < Array
+  
+  
+   
+end

data/lib/style_mod.rb

@@ -0,0 +1,63 @@
+module RXaal
+  module StyleMod
+    def self.included(base)
+      base.extend(ClassMethods)
+    end
+    
+    module ClassMethods
+      def style_attr_accessor(*symbols)
+        symbols.each { |s|
+          
+          style_get(s)
+          
+          define_method("#{s}=") do |val|
+            instance_variable_set("@#{s}", val)
+          end
+        }
+      end
+      
+      def style_attr_accessor_of_class(klass, *symbols)
+        symbols.each { |s|
+          style_get(s)
+          
+          define_method("#{s}=") do |val|
+            if val.class == klass
+              instance_variable_set("@#{s}", val)
+            end
+          end
+        }
+        
+        
+      end
+      def style_attr_accessor_of_bool( *symbols)
+        symbols.each { |s|
+          style_get(s)
+          
+          define_method("#{s}=") do |val|
+            if val.class == TrueClass || val.class == FalseClass
+              instance_variable_set("@#{s}", val)
+            end
+          end
+        }
+        
+        
+      end
+      
+      def style_get(s)
+        define_method(s) do
+          symb = instance_variable_get("@#{s}")
+          if symb != nil
+            symb
+          else
+            if self.uses != nil
+              self.uses.send(s)
+            else
+              nil
+            end
+          end
+        end
+      end
+      
+    end
+  end
+end

data/lib/text.rb

@@ -0,0 +1,34 @@
+module RXaal
+  class Text < NodePrim
+    attr_accessor_of_class Contents, :contents
+    attr_accessor_of_class String, :alignment
+    attr_accessor_of_class Integer
+    attr_accessor_of_boolean :boxed
+    
+    def initialize
+      super
+    end
+  
+  
+  def xaal_serialize(parent)
+    text = Element.new "text"
+    parent.elements << text
+    
+    if @alignment != nil
+      e_align = Element.new "alignment"
+      e_align.text = alignment
+      text << e_align
+    end
+   
+    if @boxed != nil
+      e_boxed = Element.new "boxed"
+      e_boxed.text = boxed.to_s
+    end
+    
+    contents.xaal_serialize(text)
+    
+    superclass_serialize(text)
+  end
+  
+  end
+end

data/lib/top_level_elem.rb

@@ -0,0 +1,12 @@
+module RXaal
+  class TopLevelElem < XaalElement
+    
+    def initialize(doc, id = nil, elem_ns = nil)
+      super(doc, id, elem_ns)
+    end
+    
+    def superclass_serialize(e)
+      super(e)
+    end
+  end
+end

data/lib/triangle.rb

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

data/lib/xaal_doc.rb

@@ -0,0 +1,93 @@
+#This file is part of Foobar.
+#
+#Foobar is free software: you can redistribute it and/or modify
+#it under the terms of the GNU General Public License as published by
+#the Free Software Foundation, either version 3 of the License, or
+#(at your option) any later version.
+#
+#  Foobar is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#  
+#  You should have received a copy of the GNU General Public License
+#  along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
+#
+
+
+require 'rexml/document'
+require 'rexml/xmldecl'
+
+module RXaal
+  class XaalDoc
+    include Serializable
+    XAAL_NS_URI = "http://www.cs.hut.fi/Research/SVG/XAAL"
+    XSI_URI = "http://www.w3.org/2001/XMLSchema-instance"
+    XAAL_VERSION = "0.1"
+    attr_reader :xaal_version
+    attr_reader :namespaces
+    attr_reader :defs, :global_styles, :metadata
+    attr_reader :general_options
+    attr_reader :initials, :seqs
+    
+    attr_reader :custom_top_level_elems
+    
+    
+    def initialize
+      @namespaces = NSContainer.new
+      @namespaces.add_ns(XAAL_NS_URI)
+      @namespaces.add_ns(XSI_URI, "xsi")
+      @top_level_elems = Array.new
+      @metadata = Metadata.new(self)
+      #self.styles = StyleContainer.new
+      @initials = Array.new
+      @seqs = Array.new
+      @custom_top_level_elems = BoundArray.new(TopLevelElem)
+    end
+    
+    def add_option (name, value)
+      self.general_options[name] = value
+    end
+    
+    
+    
+    def xaal_serialize(parent=nil)
+      
+      doc = REXML::Document.new 
+      doc << REXML::XMLDecl.default
+      root = REXML::Element.new "xaal"
+      doc.add(root)
+      
+      self.namespaces.each { |ns|
+        pref = ns.prefix
+        url = ns.url
+        if (pref == "")
+          #its the default
+          root.add_namespace(url)
+        else
+          #its not
+          root.add_namespace(pref, url)
+        end
+      }
+      root.add_attribute('version', XAAL_VERSION)
+      root.add_attribute(@namespaces.uri_to_ns[XSI_URI].prefix << ":schemaLocation", "http://www.cs.hut.fi/Research/SVG/XAAL xaal.xsd")
+      
+      self.metadata.xaal_serialize(root)
+      init = REXML::Element.new "initial"
+      root.elements << init
+      
+      initials.each { |i|
+        i.xaal_serialize(init)
+      }
+      anim = REXML::Element.new "animation"
+      root.elements << anim
+      seqs.each { |s|
+        s.xaal_serialize(anim)  
+      }
+      output_str = String.new
+      doc.write(output_str, 3)
+      
+      return output_str
+    end
+  end
+end