xamplr 1.2.0 → 1.3.15

data/lib/xamplr/yuml-out.rb

@@ -0,0 +1,129 @@
+require 'fileutils'
+require 'set'
+
+module XamplGenerator
+
+  class YUMLOut
+
+    def initialize(elements_map)
+      @elements_map = elements_map
+    end
+
+    def generate_class_nodes(element, include_mixins)
+      return if ignore_package(element.package)
+
+      class_name = "#{ element.package }::#{ element.class_name }"
+      mixin_name = "#{ element.package }::#{ element.class_name }"
+
+      @class_by_nstag[element.nstag] = element
+      @class_names_by_nstag[element.nstag] = class_name
+
+      if element.persisted then
+        write_entity_node(class_name, element.kind)
+      else
+        write_internal_node(class_name, element.kind)
+      end
+
+      if include_mixins then
+        write_mixin_node(class_name)
+      end
+    end
+
+    def generate_edges(element, include_mixins)
+      return if ignore_package(element.package)
+
+      element_name = @class_names_by_nstag[ element.nstag ]
+
+      element.child_element_child.each do | celement |
+        next if ignore_package(celement.package)
+
+        celement_name = @class_names_by_nstag[ celement.name ]
+        referenced_element = @class_by_nstag[ celement.name ]
+
+        if referenced_element.persisted then
+          write_entity_ref_edge(element_name, celement_name)
+        else
+          write_internal_ref_edge(element_name, celement_name)
+        end
+        if include_mixins then
+          write_mixin_ref_edge(element_name, celement_name)
+        end
+      end
+    end
+
+    def ignore_package(package)
+      return true if @excluded_packages.member?(package)
+      return false if @included_packages.nil?
+      return true unless @included_packages.member?(package)
+      return false
+    end
+
+    def write_yuml(base_filename, excluded_packages=[ ], included_packages=nil, include_mixins=false)
+      filename = "#{ base_filename }.yuml"
+
+      @excluded_packages = Set.new(excluded_packages)
+      @included_packages = included_packages ? Set.new(included_packages) : nil
+
+      @class_names_by_nstag = {} # NOTE -- this is used by yuml!!
+      @class_by_nstag = {} # NOTE -- this is used by yuml!!
+
+      @initialise_output = true
+
+      File.open(filename, "w") do | out |
+        @out = out
+
+        @elements_map.each_value do |elements|
+          elements.element_child.each do |element|
+            generate_class_nodes(element, include_mixins)
+          end
+        end
+
+        @elements_map.each_value do |elements|
+          elements.element_child.each do |element|
+            generate_edges(element, include_mixins)
+          end
+        end
+      end
+
+      return nil
+    end
+
+    def new_statement
+      if @initialise_output then
+        @initialise_output = false
+      else
+        @out << ",\n"
+      end
+    end
+
+    def write_entity_node(class_name, kind)
+      new_statement
+      @out << "[#{ class_name }{bg:red}]"
+    end
+
+    def write_internal_node(class_name, kind)
+      new_statement
+      @out << "[#{ class_name }{bg:blue}]"
+    end
+
+    def write_mixin_node(class_name)
+      new_statement
+      @out << "[#{ class_name }Mixin]"
+    end
+
+    def write_entity_ref_edge(class_node, external_node)
+      new_statement
+      @out << "[#{ class_node }]->[#{ external_node }]"
+    end
+
+    def write_internal_ref_edge(class_node, internal_node)
+      new_statement
+      @out << "[#{ class_node }]->[#{ internal_node }]"
+    end
+
+    def write_mixin_ref_edge(class_node, mixin_node)
+      new_statement
+      @out << "[#{ mixin_node }Mixin]^[#{ class_node }]"
+    end
+  end
+end

data/lib/xamplr-generator.rb

@@ -1,4 +1,3 @@
-#!/usr/bin/env ruby
 
 module Xampl
 

data/lib/xamplr.rb

@@ -1,11 +1,11 @@
-#!/usr/bin/env ruby
 
 module Xampl
 
-  require "yaml"
-  require "logger"
+  require 'rubygems'
+  require 'yaml'
+  require 'logger'
 
-  require "xamplr-pp"
+  require 'xamplr-pp'
 
   @@logger = Logger.new(STDOUT)
   @@logger.level = Logger::WARN
@@ -14,23 +14,23 @@ module Xampl
     return @@logger
   end
 
-  require "xamplr/xampl-module"
-  require "xamplr/xampl-object-internals"
-  require "xamplr/xampl-object"
-  require "xamplr/xampl-persisted-object"
+  require 'xamplr/xampl-module'
+  require 'xamplr/xampl-object-internals'
+  require 'xamplr/xampl-object'
+  require 'xamplr/xampl-persisted-object'
 
-  require "xamplr/exceptions"
-  require "xamplr/xml-text"
-  require "xamplr/notifications"
-  require "xamplr/mixins"
+  require 'xamplr/exceptions'
+  require 'xamplr/xml-text'
+  require 'xamplr/notifications'
+  require 'xamplr/mixins'
 
-  require "xamplr/from-xml"
-  require "xamplr/to-xml"
-  require "xamplr/to-ruby"
+  require 'xamplr/from-xml'
+  require 'xamplr/to-xml'
+  require 'xamplr/to-ruby'
 
-  require "xamplr/visitor"
-  require "xamplr/persist-to-xml"
-  require "xamplr/visitors"
+  require 'xamplr/visitor'
+  require 'xamplr/persist-to-xml'
+  require 'xamplr/visitors'
 
 end
 

data/regression/tc-indexes-crossing-pid-boundaries/Makefile

@@ -0,0 +1,14 @@
+
+fb:
+	ruby fail-badly.rb
+
+b:
+	ruby fail.rb
+
+s:
+	rm -rf repo
+	ruby setup.rb
+
+g:
+	/Users/hutch/xamplr/xamplr/bin/xampl-gen
+

data/regression/tc-indexes-crossing-pid-boundaries/bad-idea.rb

@@ -0,0 +1,40 @@
+require 'xampl_generated_code/XamplAdHoc.rb'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+
+class Widget
+
+  def Widget.indexed_attributes
+    %w{ value gadget-value }
+  end
+
+  Xampl::TokyoCabinetPersister.add_lexical_indexs(Widget.indexed_attributes)
+
+  def describe_yourself
+    description = {
+            'value' => self.value
+    }
+
+    secondary_descriptions = []
+
+    self.gadget.each do | gadget |
+      secondary_descriptions << {
+              'gadget-value' => gadget.value
+      }
+
+
+    end
+
+    puts "\n\n\n\n#{ __FILE__ }:#{ __LINE__ } WIDGET(#{ self.pid })"
+#    puts pp_xml
+    puts "#{ __FILE__ }:#{ __LINE__ }     description: #{ description.inspect }"
+    secondary_descriptions.each do | secondary |
+      puts "#{ __FILE__ }:#{ __LINE__ }       secondary: #{ secondary.inspect }"
+    end
+    puts "\n\n\n"
+
+    return description, secondary_descriptions
+  end
+
+end
+

data/regression/tc-indexes-crossing-pid-boundaries/fail-badly.rb

@@ -0,0 +1,17 @@
+require 'xampl_generated_code/XamplAdHoc.rb'
+require 'fucking-bad-idea.rb'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+
+puts "#{ __method__} #{ __LINE__ }"
+Xampl.transaction("bad-idea") do
+puts "#{ __method__} #{ __LINE__ }"
+  car = Widget['the-car']
+puts "#{ __method__} #{ __LINE__ }"
+#  engine = Gadget['the-engine']
+puts "#{ __method__} #{ __LINE__ }"
+  car.value = 'ex-pinto'
+puts "#{ __method__} #{ __LINE__ }"
+end
+puts "#{ __method__} #{ __LINE__ }"
+

data/regression/tc-indexes-crossing-pid-boundaries/fail.rb

@@ -0,0 +1,11 @@
+require 'xampl_generated_code/XamplAdHoc.rb'
+require 'bad-idea.rb'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+
+Xampl.transaction("bad-idea") do
+  car = Widget['the-car']
+#  engine = Gadget['the-engine']
+  car.value = 'ex-pinto'
+end
+

data/regression/tc-indexes-crossing-pid-boundaries/fucking-bad-idea.rb

@@ -0,0 +1,44 @@
+require 'xampl_generated_code/XamplAdHoc.rb'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+
+class Widget
+
+  def Widget.indexed_attributes
+    %w{ value gadget-value }
+  end
+
+  Xampl::TokyoCabinetPersister.add_lexical_indexs(Widget.indexed_attributes)
+
+  def describe_yourself
+    description = {
+            'value' => self.value
+    }
+
+    secondary_descriptions = []
+
+puts "#{ __method__} #{ __LINE__ }"
+    self.gadget.each do | gadget |
+puts "#{ __method__} #{ __LINE__ }"
+      secondary_descriptions << {
+              'gadget-value' => gadget.value
+      }
+puts "#{ __method__} #{ __LINE__ }"
+      gadget.extra = 'fucking stupid change'
+puts "#{ __method__} #{ __LINE__ }"
+    end
+puts "#{ __method__} #{ __LINE__ }"
+
+    puts "\n\n\n\n#{ __FILE__ }:#{ __LINE__ } WIDGET(#{ self.pid })"
+#    puts pp_xml
+    puts "#{ __FILE__ }:#{ __LINE__ }     description: #{ description.inspect }"
+    secondary_descriptions.each do | secondary |
+      puts "#{ __FILE__ }:#{ __LINE__ }       secondary: #{ secondary.inspect }"
+    end
+    puts "\n\n\n"
+
+    return description, secondary_descriptions
+  end
+
+end
+

data/regression/tc-indexes-crossing-pid-boundaries/setup.rb

@@ -0,0 +1,15 @@
+require 'xampl_generated_code/XamplAdHoc.rb'
+require 'bad-idea.rb'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+
+Xampl.transaction("bad-idea") do
+  car = Widget.new('the-car')
+  car.value = "pinto"
+
+  engine = car.new_gadget('the-engine')
+  engine.value = 'guzzler'
+
+  gas_tank = car.new_gadget('the-gas-tank')
+  gas_tank.value = 'the burner'
+end

data/regression/tc-indexes-crossing-pid-boundaries/xml/bad-idea.xml

@@ -0,0 +1,4 @@
+
+<widget pid='' value=''>
+  <gadget pid='' value='' extra=''/>
+</widget>

data/regression/tightly-nested-mutual-mentions/Makefile

@@ -0,0 +1,14 @@
+
+nope:
+
+build:
+	rm -rf repo
+	ruby build.rb
+
+snap:
+	tar czf repo.tgz repo
+
+load:
+	tar zxf repo.tgz
+	time ruby load.rb
+

data/regression/tightly-nested-mutual-mentions/build.rb

@@ -0,0 +1,31 @@
+
+require 'setup'
+
+module TestingStuff
+
+# <stuff pid='' xmlns="http://xampl.com/stuff">
+#         <parent pid=''>
+#           <child pid=''>
+#             <parent pid=''/>
+#           </child>
+#         </parent>
+# </stuff>
+
+    Xampl.transaction("stuff") do
+
+
+      parent = Parent.new('parent1')
+      parent.info = "one"
+      child = Child.new('child1')
+      child.info = "two"
+
+      parent << child
+      child << parent
+
+      puts "parent ---------------------------------------"
+      puts parent.pp_xml
+      puts "child ----------------------------------------"
+      puts child.pp_xml
+    end
+
+end

data/regression/tightly-nested-mutual-mentions/load.rb

@@ -0,0 +1,21 @@
+
+require 'setup'
+
+module TestingStuff
+
+# <stuff pid='' xmlns="http://xampl.com/stuff">
+#         <parent pid=''>
+#           <child pid=''>
+#             <parent pid=''/>
+#           </child>
+#         </parent>
+# </stuff>
+
+    Xampl.transaction("stuff") do
+      parent = Parent['parent1']
+      puts "parent has info: #{ parent.info }"
+      child = parent.child.first
+      puts "child has info: #{ child.info }"
+    end
+
+end

data/regression/tightly-nested-mutual-mentions/setup.rb

@@ -0,0 +1,8 @@
+
+require 'xampl_generated_code/TestingStuff'
+
+#Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_kind(:filesystem)
+#Xampl.set_default_persister_format(:ruby_format)
+Xampl.set_default_persister_format(:xml_format)
+

data/regression/tightly-nested-mutual-mentions/xampl-gen.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby -w -I..
+
+if $0 == __FILE__ then
+
+  class File
+    def File.sjoin(*args)
+      File.join(args.select{ | o | o })
+    end
+  end
+
+  require 'xamplr-generator'
+
+  include XamplGenerator
+  include Xampl
+
+  Xampl.transaction("setup", :in_memory) do
+    directory = File.sjoin(".", "xampl_generated_code")
+
+    options = Xampl.make(Options) do |options|
+      options.new_index_attribute("pid").persisted = true
+      options.new_index_attribute("id")
+
+      options.resolve("http://xampl.com/stuff", "TestingStuff", "s")
+    end
+
+    filenames = Dir.glob("./xml/**/*.xml")
+
+    generator = Generator.new
+    generator.go(:options => options,
+                 :filenames => filenames,
+                 :directory => directory)
+
+    #puts generator.print_elements("./generated-elements.xml")
+    exit!
+  end
+end

data/regression/tightly-nested-mutual-mentions/xml/stuff.xml

@@ -0,0 +1,7 @@
+<stuff pid='' xmlns="http://xampl.com/stuff">
+        <parent pid='' info=''>
+          <child pid='' info=''>
+            <parent pid=''/>
+          </child>
+        </parent>
+</stuff>