RXAAL 0.0.1

data/lib/generic_color.rb

@@ -0,0 +1,7 @@
+module RXaal
+  class GenericColor
+    include Serializable
+    
+    
+  end
+end

data/lib/graphic_prim.rb

@@ -0,0 +1,25 @@
+require "rexml/element"
+require 'xaal_element'
+
+module RXaal
+  class GraphicPrim < XaalElement
+    
+    attr_accessor_of_boolean :hidden
+    
+    attr_accessor_of_class Float, :opacity
+    attr_accessor_of_class Style, :style
+    
+    def initialize(doc, id = nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+    end
+    
+    def superclass_serialize(element)
+      super(element)
+      element.attributes["hidden"] = hidden.to_s
+      element.attributes["opacity"] = opacity
+      style.xaal_serialize(element)
+      
+      
+    end
+  end
+end

data/lib/line.rb

@@ -0,0 +1,9 @@
+
+module RXaal
+  class Line < GraphicPrim
+    
+    def initialize
+      super
+    end
+  end
+end

data/lib/metadata.rb

@@ -0,0 +1,78 @@
+require "rexml/element"
+module RXaal
+  class Metadata < TopLevelElem
+    include MetadataMod
+    @@DEFAULT_LANG = "en-us"
+    
+    def initialize(doc)
+      super(doc)
+      @@DEFAULT_LANG.freeze
+      @titles = Hash.new
+      @subjects = Hash.new
+      @keywords = Hash.new
+      @descs = Hash.new
+      @serialize = false
+    end
+    
+    serialize_accessor_of_class String, :auth_fname, :auth_lname, :auth_affil, :auth_email, 
+            :app_name, :app_version
+    
+    # we check if its actually a uri
+    attr_reader :app_homepage
+      
+    def app_homepage=(uri)
+        if uri =~ /(^$)|(^(http|https):\/\/[a-z0-9]+([\-\.]{1}[a-z0-9]+)*\.[a-z]{2,5}(([0-9]{1,5})?\/.*)?$)/ix
+          @app_homepage = uri
+          @serialize = true
+        end
+    end
+  
+    def add_title(subject)
+      add_title(title, @@DEFAULT_LANG)
+    end
+    
+    def add_title(title, lang)
+      @titles[lang] = title
+      @serialize = true
+    end
+    
+    def add_subject(subject)
+      add_subject(subject, @@DEFAULT_LANG)
+    end
+    
+    def add_subject(title, lang)
+      @subjects[lang] = subject
+      @serialize = true
+    end
+    
+   def add_keyword(keyword)
+      add_keyword(keyword, @@DEFAULT_LANG)
+    end
+    
+    def add_keyword(title, lang)
+      @keywords[lang] = keyword
+      @serialize = true
+    end
+    
+    def add_desc(desc)
+      add_desc(desc, @@DEFAULT_LANG)
+    end
+    
+    def add_desc(title, lang)
+      @descs[lang] = desc
+      @serialize = true
+    end
+    
+    def xaal_serialize(parent)
+      if (serialize?)
+        metadata = Element.new "metadata"
+        parent.add metadata
+      end
+    end
+    
+    private
+    def serialize?
+      return @serialize
+    end
+  end
+end

data/lib/metadata_mod.rb

@@ -0,0 +1,34 @@
+module RXaal
+  module MetadataMod
+    def self.included(base)
+        base.extend(ClassMethods)
+     end
+     module ClassMethods
+       def serialize_accessor(sym)
+        define_method(sym) do
+          instance_variable_get("@#{sym}")
+        end
+        
+        define_method("#{sym}=") do |v|
+          instance_variable_set("@#{sym}", v)
+          instance_variable_set("@serialize", true)
+        end
+      end
+      
+      def serialize_accessor_of_class(klass, *syms)
+        syms.each { |sym|
+          define_method(sym) do
+            instance_variable_get("@#{sym}")
+          end
+          
+        define_method("#{sym}=") do |v|
+          if v.class == klass
+            instance_variable_set("@#{sym}", v)
+            instance_variable_set("@serialize", true)
+          end
+        end
+        }
+      end
+     end
+  end
+end

data/lib/named_color.rb

@@ -0,0 +1,16 @@
+require "generic_color"
+module RXaal
+  class NamedColor < GenericColor
+    attr_accessor_of_class String, :name
+    def initialize(_name)
+      super()
+      @name = _name
+    end
+    #must be style object
+    def xaal_serialize(parent)
+      elem = Element.new "color"
+      elem.attributes["name"] = @name
+      parent.elements << elem
+    end
+  end
+end

data/lib/node_prim.rb

@@ -0,0 +1,15 @@
+require 'graphic_prim'
+class NodePrim < GraphicPrim
+  attr_reader :coordinates
+  def initialize(doc, id = nil, elem_ns=nil)
+    super(doc, id, elem_ns)
+    @coordinates = BoundArray.new(Coordinate)
+  end
+  
+  def superclass_serialize(element)
+    super(element)
+    coordinates.each {|c|
+      c.xaal_serialize(element)
+    }
+  end
+end

data/lib/ns_container.rb

@@ -0,0 +1,30 @@
+require "xaalns"
+module RXaal
+  class NSContainer
+    include Enumerable
+    
+    attr_reader :namespaces, :name_to_ns, :uri_to_ns
+    
+    def initialize
+      @namespaces = Array.new
+      @name_to_ns = Hash.new
+      @uri_to_ns = Hash.new
+    end
+    
+    def add_ns (uri, prefix="")
+      ns = XaalNS.new(uri, prefix)
+      if @uri_to_ns[uri] != nil
+        namespaces = @namespaces.collect { |i| i != @uri_to_ns[uri]}
+        @namespaces = namespaces
+      end
+      @namespaces.push(ns)
+      @uri_to_ns[uri] = ns
+      @name_to_ns[prefix] = ns
+      return ns
+    end
+    
+    def each
+      self.namespaces.each {|n| yield n}
+    end
+  end
+end

data/lib/offset.rb

@@ -0,0 +1,63 @@
+require "enum/offset_mode"
+require "enum/anchor"
+require "r_xaal_error"
+require "xaal_element"
+
+module RXaal
+  class Offset < XaalElement
+    attr_accessor_of_class Integer, :x, :y
+    attr_reader :no_base_object
+    attr_reader :base_object, :node, :base_location, :baseline_of
+   
+    def initialize
+      super
+      @mode = Enum::OffsetMode::CENTER
+      @anchor = Enum::Anchor::C
+      @no_base_object = true
+    end
+    
+    def no_base_object=(n)
+      @no_base_object = true
+      
+    end
+    
+    def base_object=(n)
+     
+    end
+    
+    def node=(n)
+      reset_base false
+      @node = n
+    end
+    
+    def base_location=(n)
+      if (n.class != RXaal::Coordinate)
+        raise RXaalError("'n' was not of the type RXaal::Coordinate")
+      end
+      reset_base
+      @base_location = n
+    end
+    
+    def baseline_of=(n)
+      if n.class != RXaal::Text
+        raise RXaalError("'n' was not of the type RXaal::Text")
+      end
+      reset_base
+      @baseline_of = n
+    end
+    
+    
+    private
+    
+    def reset_base(include_base_obj = true)
+      if (include_base_obj)
+        @base_object = nil
+       end
+      @base_location = nil
+      @baseline_of = nil
+      @node = nil
+    end
+    
+  
+  end
+end

data/lib/operation.rb

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

data/lib/par.rb

@@ -0,0 +1,25 @@
+module RXaal
+  class Par < XaalElement
+    attr_reader :show, :hide
+    #attr_accessor_of_class :change_style
+    
+    def initialize(doc)
+      super(doc)
+      @show = ShowHide.new(true)
+      @hide = ShowHide.new(false)
+    end
+    
+    def xaal_serialize(parent)
+      e = Element.new "par"
+      parent << e
+      [:show, :hide].each {|sh|
+        temp = self.send(sh)
+        if temp.length > 0
+          temp.xaal_serialize(e)
+        end
+      }
+      
+      superclass_serialize(e)
+    end
+  end
+end

data/lib/par_container.rb

@@ -0,0 +1,2 @@
+class ParContainer
+end

data/lib/point.rb

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

data/lib/polygon.rb

@@ -0,0 +1,22 @@
+require "polyline"
+
+module RXaal
+  class Polygon < Polyline
+    
+    def initialize
+      super
+      self.closed=true
+    end
+    
+    def closed
+      super
+    end
+    
+    private
+   
+    
+    def closed=(new_value)
+      super
+    end
+  end
+end

data/lib/polyline.rb

@@ -0,0 +1,29 @@
+require 'node_prim'
+module RXaal
+  class Polyline < NodePrim
+    attr_accessor_of_class Integer, :depth
+    attr_accessor_of_boolean :closed
+    
+    def initialize(doc, id = nil, elem_ns=nil)
+      super(doc, id, elem_ns)
+    end
+    
+    def xaal_serialize(parent)
+      polyline = Element.new "polyline"
+      parent.elements << polyline
+      superclass_serialize(polyline)
+      
+      if @depth != nil
+        depth_e = Element.new "depth"
+        depth_e.text = depth
+        polyline << depth_e
+      end
+      
+      if @closed != nil
+        closed_e = Element.new "closed"
+        closed_e.text = closed
+        polyline.elements << closed_e
+      end
+    end
+  end
+end

data/lib/privtest.rb

@@ -0,0 +1,24 @@
+require "rxaal"
+include RXaal
+doc = XaalDoc.new
+
+inits = doc.initials
+
+pl = Polyline.new(doc)
+doc.initials << pl
+
+pl.coordinates << Coordinate.new(doc, 0, 0) << Coordinate.new(doc, 50, 50)
+pl.style = Style.new(doc)
+
+pl.style.color = NamedColor.new(Enum::ColorName::RED)
+pl.hidden = true
+seq1 = Seq.new(doc)
+doc.seqs << seq1
+par1 = Par.new(doc)
+seq1.pars << par1
+par1.show << pl
+par1.show.type = "selected"
+
+str = doc.xaal_serialize
+
+puts str

data/lib/r_xaal_error.rb

@@ -0,0 +1,2 @@
+class RXaalError < StandardError
+end

data/lib/r_xaal_object.rb

@@ -0,0 +1,5 @@
+require 'rexml/element'
+module RXaal
+  class RXaalObject
+  end
+end

data/lib/radius.rb

@@ -0,0 +1,5 @@
+module RXaal
+  class Radius < Center
+    attr_accessor_of_class Integer, :length
+  end
+end

data/lib/rectangle.rb

@@ -0,0 +1,10 @@
+module RXaal
+  class Rectangle < GraphicPrim
+    attr_accessor_of_class Integer, :round_x, :round_y, :depth
+    attr_accessor_of_class Coordinate, :coor1, :coor2 
+    
+    def initialize
+      super
+    end
+  end
+end