xamplr 1.2.0

data/lib/xamplr/templates/element_simple.template

@@ -0,0 +1,276 @@
+
+  class #{@element.class_name}
+|
+|if @element.persisted then
+|
+    include Xampl::XamplPersistedObject
+
+    @@default_persister_format = nil
+
+    def default_persister_format
+      @@default_persister_format
+    end
+    def #{@element.class_name}.default_persister_format
+      @@default_persister_format
+    end
+    def #{@element.class_name}.set_default_persister_format(format)
+      @@default_persister_format = format
+    end
+
+    def #{@element.class_name}.find_by_query
+      things = Xampl.find_xampl do | q |
+         q.add_condition('class', :equals, self.name)
+         yield(q)
+       end
+    end
+
+|
+|else
+|
+    include Xampl::XamplObject
+|
+|end
+|
+    include Xampl::XamplWithSimpleContent
+
+    @@tag = "#{@element.name}"
+    @@ns = "#{@element.namespace}"
+    @@ns_tag = "{#{@element.namespace}}#{@element.name}"
+    @@module_name = "#{@package_name}"
+    @@safe_name = "#{@package_name}_#{@element.attribute_name}"
+    @@attributes = [
+|
+|@element.attribute_child.each{ | attribute |
+|  if attribute.namespace then
+|
+                     [ :@#{attribute.name}, "#{attribute.name}", "#{attribute.namespace}" ],
+|
+|  else
+|
+                     [ :@#{attribute.name}, "#{attribute.name}" ],
+|
+|  end
+|}
+|
+                   ]
+|
+|@element.child_element_child.each{ | child_element |
+|  element_class_name = @lookup_element[child_element.name].class_name
+|  element_package = @lookup_element[child_element.name].package
+|
+    include #{element_package}::#{element_class_name}AsChild
+|
+|}
+|
+|if @element.persisted then
+|
+
+    def #{@element.class_name}.lookup(pid)
+      Xampl.lookup(#{@element.class_name}, pid)
+    end
+
+    def #{@element.class_name}.[](pid)
+      Xampl.lookup(#{@element.class_name}, pid)
+    end
+|
+|end
+|
+|@element.attribute_child.each{ | attribute |
+|  if attribute.name == @element.indexed_by_attr and @element.persisted then
+|
+
+    def #{attribute.name}
+      @#{attribute.name}
+    end
+
+    def #{attribute.name}=(v)
+      accessed
+			# This is kind of optimistic, I think you are in trouble if you do this
+      Xampl.auto_uncache(self) if @#{attribute.name}
+      @#{attribute.name} = v
+      changed
+      Xampl.auto_cache(self) if v
+    end
+|
+|  else
+|
+
+    def #{attribute.name}
+      accessed
+      @#{attribute.name}
+    end
+
+    def #{attribute.name}=(v)
+      accessed
+      changed
+      @#{attribute.name} = v
+    end
+|
+|  end
+|}
+|
+|  if @element.indexed_by_attr then
+|
+
+    def initialize(index=nil)
+      @#{@element.indexed_by_attr} = index if index
+      super()
+|
+| else
+|
+
+    def initialize
+      super
+|
+|end
+|
+|if 0 < @element.attribute_child.size then
+|
+
+|
+|end
+|
+|@element.attribute_child.each{ | attribute |
+|
+      @#{attribute.name} = nil if not defined? @#{attribute.name}
+|
+|}
+|
+
+      init_xampl_object
+|
+|@element.child_element_child.each{ | child_element |
+|  element_attribute_name = @lookup_element[child_element.name].attribute_name
+|
+      init_#{child_element.element_attribute_name}_as_child
+|
+|}
+|
+
+      yield(self) if block_given?
+      init_hook
+
+      changed
+    end
+
+    def clear_non_persistent_index_attributes
+|
+|@element.attribute_child.each{ | attribute |
+|  unless attribute.name == @element.indexed_by_attr and @element.persisted then
+|
+      @#{attribute.name} = nil
+|
+|  end
+|}
+|
+    end
+
+    def append_to(other)
+      other.add_#{@element.attribute_name}(self)
+    end
+
+|
+|if @element.persisted then
+|
+    def #{@element.class_name}.persisted?
+      return :#{@element.indexed_by_attr}
+    end
+
+    def persisted?
+      return :#{@element.indexed_by_attr}
+    end
+
+|
+|else
+|
+    def #{@element.class_name}.persisted?
+      return nil
+    end
+
+    def persisted?
+      return nil
+    end
+
+|
+|end
+|
+    def #{@element.class_name}.tag
+      @@tag
+    end
+
+    def #{@element.class_name}.ns
+      @@ns
+    end
+
+    def #{@element.class_name}.ns_tag
+      @@ns_tag
+    end
+
+    def #{@element.class_name}.safe_name
+      @@safe_name
+    end
+
+    def #{@element.class_name}.module_name
+      @@module_name
+    end
+
+    def tag
+      @@tag
+    end
+
+    def ns
+      @@ns
+    end
+
+    def ns_tag
+      @@ns_tag
+    end
+
+    def safe_name
+      @@safe_name
+    end
+
+    def module_name
+      @@module_name
+    end
+
+    def attributes
+      @@attributes
+    end
+|
+|if @element.indexed_by_attr
+|
+
+    def indexed_by
+      :#{@element.indexed_by_attr}
+    end
+
+    def get_the_index
+      @#{@element.indexed_by_attr}
+    end
+
+    def set_the_index(index)
+      @#{@element.indexed_by_attr} = index
+    end
+|
+|end
+|
+
+    def substitute_in_visit(visitor)
+      return visitor.substitute_in_visit_#{@element.attribute_name}(self) || self
+    end
+
+    def before_visit(visitor)
+      visitor.before_visit_#{@element.attribute_name}(self)
+    end
+
+    def visit(visitor)
+      visitor.visit_#{@element.attribute_name}(self)
+    end
+
+    def after_visit(visitor)
+      visitor.after_visit_#{@element.attribute_name}(self)
+    end
+
+    Xampl::FromXML::register(#{@element.class_name}::tag, #{@element.class_name}::ns_tag, #{@element.class_name})
+  end

data/lib/xamplr/templates/package.template

@@ -0,0 +1,26 @@
+module #{package_name}
+
+  require "xamplr"
+	include Xampl
+
+|
+| @required_packages.each_key{ | required_package_name |
+|
+  require "#{required_package_name}"
+|
+| }
+|
+
+|
+| if @options then
+|   @options.resolve_child.each{ | r |
+|     if r.namespace and (0 < r.namespace.length) and r.preferred_prefix and (0 < r.preferred_prefix.length) then
+|
+  XamplObject.ns_preferred_prefix("#{r.namespace}", "#{r.preferred_prefix}")
+|
+|     end
+|   }
+| end
+|
+#{place}
+end

data/lib/xamplr/test-support/Makefile

@@ -0,0 +1,47 @@
+
+ut:
+	@rm -rf tmp tmp1 tmp2 ut.results
+	@echo "test.rb" >> ut.results
+	@ruby -w test.rb | tee -a ut.results
+	@echo "test-rollback.rb" >> ut.results
+	@ruby -w test-rollback.rb | tee -a ut.results
+	@echo "test-deep-change.rb" >> ut.results
+	@ruby -w test-deep-change.rb | tee -a ut.results
+	@echo "test-cache.rb" >> ut.results
+	@ruby -w test-cache.rb | tee -a ut.results
+	@echo "test-elements.rb" >> ut.results
+	@ruby test-elements.rb | tee -a ut.results
+	@echo "test-indexed-array.rb" >> ut.results
+	@ruby -w test-indexed-array.rb | tee -a ut.results
+	@echo "test-misc.rb" >> ut.results
+	@ruby -w test-misc.rb | tee -a ut.results
+	@echo "test-names.rb" >> ut.results
+	@ruby -w test-names.rb | tee -a ut.results
+	@echo "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
+	@grep errors ut.results
+
+profile:
+	#ruby -r rbprof uche3.rb  > junk 2> results.profile
+	ruby -r rbprof uche.rb  > junk 2> results.profile
+
+wc:
+	@echo "screwing around -------------------------------"
+	@wc bench.rb play.rb
+	@echo "unit tests ------------------------------------"
+	@wc test.rb
+	@echo "example ---------------------------------------"
+	@wc example.rb
+	@echo "xampl itself ----------------------------------"
+	@wc from-xml.rb mixins.rb persistence.rb to-xml.rb xampl-object.rb xampl.rb
+	@echo "xampl-pp extra---------------------------------"
+	@wc xampl-pp/chew.rb xampl-pp/chewMultibyte.rb xampl-pp/chewRexml.rb xampl-pp/chewRexmlPP.rb xampl-pp/dump.rb
+	@echo "stuff------------------------------------------"
+	@wc xampl-pp/parse-wf.rb xampl-pp/parse.rb xampl-pp/parseR.rb
+	@echo "xampl-pp --------------------------------------"
+	@wc xampl-pp/saxdemo.rb xampl-pp/saxish.rb xampl-pp/saxishHandler.rb xampl-pp/xampl-pp-dtd.rb xampl-pp/xampl-pp-wf.rb xampl-pp/xampl-pp.rb
+	@echo "alternate--------------------------------------"
+	@wc xampl-pp/xpp.rb xampl-pp/xppDeluxe.rb xampl-pp/xppIter.rb
+
+wc0:
+	@wc bench.rb play.rb test.rb example.rb from-xml.rb mixins.rb persistence.rb to-xml.rb xampl-object.rb xampl.rb xampl-pp/chew.rb xampl-pp/chewMultibyte.rb xampl-pp/chewRexml.rb xampl-pp/chewRexmlPP.rb xampl-pp/dump.rb xampl-pp/parse-wf.rb xampl-pp/parse.rb xampl-pp/parseR.rb xampl-pp/saxdemo.rb xampl-pp/saxish.rb xampl-pp/saxishHandler.rb xampl-pp/xampl-pp-dtd.rb xampl-pp/xampl-pp-wf.rb xampl-pp/xampl-pp.rb xampl-pp/xpp.rb xampl-pp/xppDeluxe.rb xampl-pp/xppIter.rb
+

data/lib/xamplr/test-support/bench-cache.rb

@@ -0,0 +1,80 @@
+#!/usr/bin/env ruby
+
+require "xamplr"
+include Xampl
+
+require "tmp/XamplExample"
+include XamplExample
+
+require "benchmark"
+include Benchmark
+
+#require 'persister/fsdb'
+require 'wee-cache/cache'
+
+class LRUCache < Cache::StorageCache
+  def initialize(capacity=20)
+    super(Cache::Strategy::LRU.new(capacity))
+  end
+end
+
+class LRU2Cache < Cache::StorageCache
+  def initialize(capacity=20)
+    super(Cache::Strategy::LRU2.new(capacity))
+  end
+end
+
+class LFUCache < Cache::StorageCache
+  def initialize(capacity=20)
+    super(Cache::Strategy::LFU.new(capacity))
+  end
+end
+
+
+module Bench
+
+  def Bench.go
+    count = 1000
+    capacity = 500
+
+    bm(15) do | x |
+      x.report("XamplCache") {
+        cache = XamplCache.new(capacity)
+
+        count.times { | i |
+          cache[i] = i
+        }
+      }
+      x.report("XamplCacheLFU") {
+        cache = XamplCacheLFU.new(capacity)
+
+        count.times { | i |
+          cache[i] = i
+        }
+      }
+      x.report("LRU") {
+        cache = LRUCache.new(capacity)
+
+        count.times { | i |
+          cache[i] = i
+        }
+      }
+      x.report("LRU2") {
+        cache = LRU2Cache.new(capacity)
+
+        count.times { | i |
+          cache[i] = i
+        }
+      }
+      x.report("LFU") {
+        cache = LFUCache.new(capacity)
+
+        count.times { | i |
+          cache[i] = i
+        }
+      }
+    end
+  end
+end
+
+Bench.go

data/lib/xamplr/test-support/bench-script.rb

@@ -0,0 +1,21 @@
+module BenchScript
+
+  def BenchScript.build
+    return Thing.new{ | bt |
+      bt.new_thing("thing") { | t |
+        t.new_stuff.kind = "stuff1"
+        t.new_description{ | d |
+          d.kind = "desc1"
+          d << "hello "
+          d.new_emph.content = "there"
+          d << "! How "
+          d.new_emph.content = "are"
+          d << " you?"
+        }
+      }
+    }
+  end
+end
+
+
+