xamplr 1.2.0

data/lib/xamplr/to-ruby.rb

@@ -0,0 +1,220 @@
+
+module Xampl
+
+  class RubyPrinter
+
+    $USE_A_PROC = false
+
+    def initialize(mentions=nil)
+      @obj_count = 0
+      @map = {}
+      @lookup_map={}
+      @mentions = mentions
+    end
+
+    def show_attributes(thing, name, depth)
+      return "" unless thing.attributes
+
+      out = ""
+      indent = "    " + ("  " * depth)
+
+      if thing.persist_required and (1 < depth)
+        accessor = thing.indexed_by
+        value = thing.get_the_index
+        if value then
+          out << indent << "#{name}.#{accessor} = #{value.inspect}\n"
+        end
+      else
+        thing.attributes.each do |attribute|
+          value = thing.instance_variable_get(attribute[0])
+
+          if value then
+            if value.kind_of?(XamplObject) then
+              vname = "root_#{@obj_count += 1}"
+              out << to_ruby_as_attr(value, depth, vname)
+              out << indent << "#{name}.instance_variable_set(:#{attribute[0]}, #{vname})\n"
+            else
+              out << indent << "#{name}.instance_variable_set(:#{attribute[0]}, #{value.inspect})\n"
+            end
+          end
+        end
+      end
+      return out
+    end
+
+    def show_children_tree(thing, name, depth)
+      out = ""
+      indent = "    " + ("  " * depth)
+
+      if thing.persist_required and (1 < depth) then
+        return out << indent << "#{name}.load_needed = true\n"
+      end
+
+      if (!thing.kind_of? XamplWithMixedContent) and
+              (!thing.kind_of? XamplWithoutContent) and
+              thing._content then
+        out << indent << "#{name} << #{thing._content.inspect}\n"
+      end
+      thing.children.each do |child|
+        if child.kind_of? XamplObject then
+          cname = "v_#{child.safe_name}_#{@obj_count += 1}"
+
+          cout = ""
+          cout << show_attributes(child, cname, 1 + depth)
+          cout << show_children_tree(child, cname, 1 + depth)
+
+          if 0 < cout.size then
+            out << indent << "#{name} << #{child.class.to_s}.new { | #{cname} |\n"
+            out << cout
+            out << indent << "}\n"
+          else
+            out << indent << "#{name} << #{child.class.to_s}.new\n"
+          end
+        else
+          out << indent << "#{name} << #{child.inspect}\n"
+        end
+      end
+      return out
+    end
+
+    def show_attributes_flat(thing, depth)
+      return "" unless thing.attributes
+
+      out = ""
+
+      if thing.persist_required and (1 < depth)
+        accessor = thing.indexed_by
+
+        value = thing.get_the_index
+        if value then
+          out << "      " << "xampl.#{accessor} = #{value.inspect}\n"
+        end
+      else
+        thing.attributes.each do |attribute|
+          value = thing.instance_variable_get(attribute[0])
+
+          if value then
+            out << "      " << "xampl.instance_variable_set(:#{attribute[0]}, #{value.inspect})\n"
+          end
+        end
+      end
+      return out
+    end
+
+    def show_children_flat(thing, name, depth)
+      out = ""
+
+      thing.children.each do |child|
+        if child.kind_of? XamplObject and (nil == @map[child]) then
+          cname = "v_#{child.safe_name}_#{@obj_count += 1}"
+
+          @map[child] = cname
+
+          cout = ""
+          cout << show_attributes_flat(child, 1 + depth)
+
+          if 0 < cout.size then
+            if child.persist_required then
+              out << "    " << "#{cname} = #{child.class.to_s}['#{child.get_the_index}']\n"
+              @mentions << child if @mentions
+            else
+              out << "    " << "#{cname} = #{child.class.to_s}.new { | xampl |\n"
+              out << cout
+              out << "    " << "}\n"
+            end
+          else
+            out << "    " << "#{cname} = #{child.class.to_s}.new\n"
+          end
+          out << show_children_flat(child, cname, 1 + depth) unless child.persist_required
+        end
+      end
+      return out
+    end
+
+    def show_children_stitch_start(thing, depth)
+      @lookup_map.merge!(@map)
+      return show_children_stitch(thing, depth)
+    end
+
+    def show_children_stitch(thing, depth)
+      out = ""
+
+      return out if thing.persist_required and (0 < depth)
+
+      name = @map[thing]
+      if name then
+        @map.delete(thing)
+      else
+        return out
+      end
+
+      if (!thing.kind_of? XamplWithMixedContent) and
+              (!thing.kind_of? XamplWithoutContent) and
+              thing._content then
+        out << "    " << "#{name} << #{thing._content.inspect}\n"
+      end
+      thing.children.each do |child|
+        if child.kind_of? XamplObject then
+          out << "    " << "#{name} << #{@lookup_map[child]}\n"
+        else
+          out << "    " << "#{name} << #{child.inspect}\n"
+        end
+      end
+      thing.children.each do |child|
+        if child.kind_of? XamplObject then
+          out << show_children_stitch(child, 1 + depth)
+        end
+      end
+      return out
+    end
+
+    def to_ruby(thing, depth=0, name="root")
+      thing.accessed
+
+      @obj_count = 0
+      @map = {}
+      @lookup_map={}
+
+      @map[thing] = name
+
+      if $USE_A_PROC then
+        return %Q{
+module XamplRubyDefinition
+  @@proc = Proc.new { | target |
+    #{name} = target ? target : #{thing.class.to_s}.new
+#{show_attributes(thing, name, depth)}
+        #{show_children_flat(thing, name, depth)}
+        #{show_children_stitch_start(thing, depth)}
+        #{name}
+  }
+end
+}
+      else
+        return %Q{
+module XamplRubyDefinition
+  def XamplRubyDefinition.build_it(target)
+    #{name} = target ? target : #{thing.class.to_s}.new
+#{show_attributes(thing, name, depth)}
+        #{show_children_flat(thing, name, depth)}
+        #{show_children_stitch_start(thing, depth)}
+        #{name}
+  end
+end
+}
+      end
+    end
+
+    def to_ruby_as_attr(thing, depth, name)
+      thing.accessed
+
+      @map[thing] = name
+
+      return %Q{
+      #{name} = #{thing.class.name}.new
+#{show_attributes(thing, name, depth)}
+      #{show_children_flat(thing, name, depth)}
+      #{show_children_stitch_start(thing, depth)}
+      }
+    end
+  end
+end

data/lib/xamplr/to-xml.rb

@@ -0,0 +1,158 @@
+
+module Xampl
+
+  class XMLPrinter
+    attr_accessor :ns_to_prefix, :start_body, :body, :out, :mixed, :persisting
+
+    def initialize(out, persisting=false)
+      @out = out
+      @persisting = persisting
+
+      @ns_to_prefix = {}
+      @start_body = ""
+      @body = ""
+      @attr_list = nil
+      @mixed = 0
+    end
+
+    def now_as_mixed
+      @mixed = @mixed + 1
+    end
+
+    def now_as_before
+      @mixed = @mixed - 1 if (0 < @mixed)
+    end
+
+    def register_ns(ns)
+      if (0 == ns.length) then
+        return ""
+      end
+
+      prefix = ns_to_prefix[ns]
+      if (nil == prefix) then
+        preferred = XamplObject.lookup_preferred_ns_prefix(ns)
+        prefix = "" << preferred << ":" if preferred
+        prefix = "ns" << ns_to_prefix.size.to_s << ":" unless prefix
+        ns_to_prefix[ns] = prefix
+      end
+      return prefix
+    end
+
+    def attr_esc(s)
+      if (s.kind_of? XamplObject)
+        return attr_esc(s.to_xml)
+      end
+
+      result = s.to_s.dup
+      #result = s.to_xml
+
+      result.gsub!("&", "&amp;")
+      result.gsub!("<", "&lt;")
+      result.gsub!(">", "&gt;")
+      result.gsub!("'", "&apos;")
+      result.gsub!("\"", "&quot;")
+
+      return result
+    end
+
+    def content_esc(s)
+      result = s.to_s.dup
+      #result = s.to_xml
+
+      return result if (s.kind_of? XamplObject)
+
+      result.gsub!("&", "&amp;")
+      result.gsub!("<", "&lt;")
+
+      return result
+    end
+
+    def attribute(xampl)
+      @attr_list = []
+      if (nil != xampl.attributes) then
+        xampl.attributes.each do |attr_spec|
+          prefix = (2 < attr_spec.length) ? register_ns(attr_spec[2]) : ""
+          value = xampl.instance_variable_get(attr_spec[0])
+          @attr_list << " " << prefix << attr_spec[1] << "='" << attr_esc(value) << "'" \
+                unless nil == value
+        end
+      end
+    end
+
+    def persist_attribute(xampl)
+      @attr_list = []
+      index = xampl.indexed_by[1..-1]
+      if (nil != index) then
+        value = xampl.get_the_index
+        @attr_list << " " << index << "='" << attr_esc(value) << "'" if value
+      end
+    end
+
+    def show_attributes
+      if (nil == @attr_list) then
+        return ""
+      else
+        result = @attr_list.join
+        if (0 == result.length) then
+          return ""
+        else
+          return result
+        end
+      end
+    end
+
+    def start_root_element(tag, ns, empty=false)
+      if (empty) then
+        @start_body << "<" << register_ns(ns) << tag << show_attributes
+        @body = "/>"
+      else
+        @start_body << "<" << register_ns(ns) << tag << show_attributes
+        @body = ">"
+      end
+    end
+
+    def start_element(tag, ns, empty=false)
+      if (empty) then
+        @body << "<" << register_ns(ns) << tag << show_attributes << "/>"
+      else
+        @body << "<" << register_ns(ns) << tag << show_attributes << ">"
+      end
+    end
+
+    def persisted_element(tag, ns)
+      @body << "<" << register_ns(ns) << tag << show_attributes << "/>"
+    end
+
+    def _content(text)
+      if nil != text then
+        if text.kind_of? XMLText then
+          @body << text.to_xml(self)
+        else
+          @body << content_esc(text)
+        end
+      end
+    end
+
+    alias content _content
+
+    def end_root_element(tag, ns, empty)
+      @body << "</" << register_ns(ns) << tag << ">" if (!empty)
+    end
+
+    def end_element(tag, ns, empty)
+      @body << "</" << register_ns(ns) << tag << ">" if (!empty)
+    end
+
+    def define_ns
+      result = ""
+      ns_to_prefix.each do |ns, prefix|
+        result = sprintf("%s xmlns:%s='%s'", result, prefix[0..-2], ns)
+      end
+      return result
+    end
+
+    def done
+      out << start_body << define_ns << body
+    end
+  end
+end

data/lib/xamplr/version.rb

@@ -0,0 +1,67 @@
+module Xampl
+  class Version
+    @@version_limit = 5
+
+    def initialize(repo_name, repo_root)
+      @invalid = true
+      throw :refuse_to_version unless repo_name
+
+      repo_name.gsub!(/^[\.\/]*/, '')
+      repo_name.gsub!(/\/.*/, '')
+      throw :refuse_to_version unless repo_name
+
+      @repo_root = repo_root
+      @repo_root << '/' unless '/'[-1] == @repo_root[-1]
+
+      @repo_path = "#{@repo_root}#{repo_name}"
+      @repo_name = repo_name
+
+      throw :refuse_to_version if @repo_path == @repo_root
+      throw :refuse_to_version unless File.directory?(@repo_path)
+
+      @invalid = false
+    end
+
+    def make(version_stream, description=nil)
+      throw :refuse_to_version if @invalid
+
+      existing_versions = Dir.glob("#{@repo_root}/#{@repo_name}_#{version_stream}*")
+
+      if 0 == existing_versions.size then
+        make_first_version(version_stream, existing_versions, description)
+      else
+        make_new_version(version_stream, existing_versions, description)
+      end
+    end
+
+    def make_first_version(version_stream, existing_versions, description)
+      cmd = "cd '#{@repo_root}'; rsync -a --delete '#{@repo_name}/'  '#{@repo_name}_#{version_stream}.0/'"
+      # puts "first version: #{cmd}"
+      system(cmd)
+    end
+
+    def make_new_version(version_stream, existing_versions, description)
+
+      existing_versions.reverse!
+      cmd = []
+      eliminate = []
+      existing_versions.each_with_index do | version, i |
+        pushed_name = "#{@repo_name}_#{version_stream}.#{i + 1}"
+        cmd << "mv '#{@repo_name}_#{version_stream}.#{i}' '#{pushed_name}'"
+        eliminate << pushed_name unless i < @@version_limit
+      end
+      cmd << "cd '#{@repo_root}'"
+      cmd = cmd.reverse
+      cmd << "rsync -a --delete --checksum --link-dest='../#{@repo_name}_#{version_stream}.1' '#{@repo_name}/'  '#{@repo_name}_#{version_stream}.0/'"
+      cmd << "touch '#{@repo_name}_#{version_stream}.0'"
+
+      eliminate.each do | name |
+        cmd << "rm -rf '#{name}'"
+      end
+
+      cmd = cmd.join("; ")
+      # puts "new version: #{cmd}"
+      system(cmd)
+    end
+  end
+end

data/lib/xamplr/visitor.rb

@@ -0,0 +1,140 @@
+module Xampl
+
+  class Visitor
+    attr_accessor :no_children, :no_siblings, :done
+
+    def initialize
+      reset
+    end
+
+    def reset
+      @no_children = false
+      @no_siblings = false
+      @done = false
+
+      @short_circuit = false
+
+      @visited = {}
+      @visiting = {}
+
+      @revisiting = false
+      @cycling = false
+    end
+
+    def cycle(xampl)
+      return false
+    end
+
+    def revisit(xampl)
+      return false
+    end
+
+    def short_circuit
+    end
+
+    def method_missing(symbol, *args)
+      return nil
+    end
+
+    def substitute_in_visit(xampl)
+      return xampl.substitute_in_visit(self)
+    end
+
+    def before_visit(xampl)
+      xampl.before_visit(self)
+    end
+
+    def after_visit(xampl)
+      xampl.after_visit(self)
+    end
+
+    def around_visit(xampl)
+      return false
+    end
+
+    def visit_string(string)
+    end
+
+    def start(xampl_in)
+      xampl = substitute_in_visit(xampl_in)
+
+      n = @visiting[xampl]
+      if n then
+        @visiting[xampl] = n + 1
+      else
+        @visiting[xampl] = 1
+      end
+
+      if 1 < @visiting[xampl] then
+        return self unless cycle(xampl)
+        @cycling = true
+        @revisiting = true
+      elsif @visited.has_key? xampl then
+        return self unless revisit(xampl)
+        @revisiting = true
+      end
+
+      @visited[xampl] = xampl
+
+      before_visit(xampl)
+      if @no_children then
+        @no_children = false
+        return self
+      end
+
+      xampl.visit(self) unless around_visit(xampl) or !xampl.respond_to? "visit"
+
+      return self if @done
+      return self if @no_siblings
+
+      if @no_children then
+        after_visit(xampl)
+        @no_children = false
+        return self
+      end
+
+      if @short_circuit then
+        short_circuit
+        @short_circuit = false
+      else
+        xampl.children.each do | child |
+          if child.kind_of?(XamplObject) then
+            start(child)
+          else
+            visit_string(child)
+          end
+
+          after_visit(xampl) if @done
+          return self if @done
+
+          if @no_siblings then
+            @no_siblings = false
+            after_visit(xampl)
+            return self
+          end
+        end if xampl.respond_to? "children"
+      end
+
+      after_visit(xampl)
+      return self
+
+    rescue  => e
+      puts "visit failed !!!!! #{ e }"
+      e.backtrace.each do | trace |
+        puts "  #{trace}"
+        break if /actionpack/ =~ trace
+      end
+
+    ensure
+      n = @visiting[xampl]
+      if 1 == n then
+        @visiting.delete(xampl)
+      else
+        @visiting[xampl] = n - 1
+      end
+      @revisiting = false
+      @cycling = false
+    end
+  end
+end
+