xamplr 1.2.0

data/examples/read-testing/settings.rb

@@ -0,0 +1,2 @@
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_format(:xml_format)

data/examples/read-testing/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/performance", "Perf", "p")
+    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/examples/read-testing/xml/text.xml

@@ -0,0 +1,8 @@
+<root pid=''
+      xmlns="http://xampl.com/performance">
+    <text pid=''
+          size=''
+          stuff=''>
+        actual text
+    </text>
+</root>

data/examples/tokyo-cabinet-experimental/expt-query.rb

@@ -0,0 +1,42 @@
+require 'rubygems'
+
+$LOAD_PATH.unshift("xampl_generated_code")
+
+require 'TokyoCabinetExperimental'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_format(:xml_format)
+
+module TokyoCabinetExperimental
+
+  start = Time.now
+  found = Xampl.transaction("setup") do
+    Xampl.query do | q |
+      q.add_condition('age', :numle, '50')
+      q.order_by('age', :numasc)
+    end
+  end
+  query_done = Time.now
+
+  total = 0
+  found.each do | person_meta |
+    total += person_meta['age'].to_i
+  end
+
+  meta_done = Time.now
+
+  total1 = 0
+  found.each do | person_meta |
+    total1 += person_meta['xampl'].age.to_i
+  end
+
+  done = Time.now
+
+  found.each do | person_meta |
+    puts "name: #{ person_meta['name']}"
+  end
+  puts "found: #{ found.size }"
+  puts "Total age: #{ total }, #{ total1 }"
+  puts "done: #{ done - start }:: #{ query_done - start } + #{ meta_done - query_done } + #{ done - meta_done }"
+
+end

data/examples/tokyo-cabinet-experimental/expt-query2.rb

@@ -0,0 +1,42 @@
+require 'rubygems'
+
+$LOAD_PATH.unshift("xampl_generated_code")
+
+require 'TokyoCabinetExperimental'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_format(:xml_format)
+
+module TokyoCabinetExperimental
+
+  start = Time.now
+  found = Xampl.transaction("setup") do
+    @@persister.query do | q |
+      q.add_condition('age', :numle, '50')
+      q.order_by('name', :strasc)
+    end
+  end
+  query_done = Time.now
+
+  total = 0
+  found.each do | person_meta |
+    total += person_meta['age'].to_i
+  end
+
+  meta_done = Time.now
+
+  total1 = 0
+  found.each do | person_meta |
+    total1 += person_meta['xampl'].age.to_i
+  end
+
+  done = Time.now
+
+  found.each do | person_meta |
+    puts "name: #{ person_meta['name']}"
+  end
+  puts "found: #{ found.size }"
+  puts "Total age: #{ total }, #{ total1 }"
+  puts "done: #{ done - start }:: #{ query_done - start } + #{ meta_done - query_done } + #{ done - meta_done }"
+
+end

data/examples/tokyo-cabinet-experimental/expt-query3.rb

@@ -0,0 +1,41 @@
+require 'rubygems'
+
+$LOAD_PATH.unshift("xampl_generated_code")
+
+require 'TokyoCabinetExperimental'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_format(:xml_format)
+
+module TokyoCabinetExperimental
+
+  start = Time.now
+  found = Xampl.transaction("setup") do
+    @@persister.query do | q |
+      q.add_condition('age', :numle, '50')
+    end
+  end
+  query_done = Time.now
+
+  total = 0
+  found.each do | person_meta |
+    total += person_meta['age'].to_i
+  end
+
+  meta_done = Time.now
+
+  total1 = 0
+  found.each do | person_meta |
+    total1 += person_meta['xampl'].age.to_i
+  end
+
+  done = Time.now
+
+  found.each do | person_meta |
+    puts "name: #{ person_meta['name']}"
+  end
+  puts "found: #{ found.size }"
+  puts "Total age: #{ total }, #{ total1 }"
+  puts "done: #{ done - start }:: #{ query_done - start } + #{ meta_done - query_done } + #{ done - meta_done }"
+
+end

data/examples/tokyo-cabinet-experimental/expt-reader.rb

@@ -0,0 +1,32 @@
+require 'rubygems'
+
+$LOAD_PATH.unshift("xampl_generated_code")
+
+require 'TokyoCabinetExperimental'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_format(:xml_format)
+
+module TokyoCabinetExperimental
+
+  start = Time.now
+  people = nil
+
+  Xampl.transaction("setup") do
+    people = People['people']
+  end
+
+  loop_start = Time.now
+
+  total = 0
+  people.person.each do | person |
+    age = person.age.to_i
+    total += age
+  end
+
+  done = Time.now
+
+  puts "Total age: #{ total }"
+  puts "done: #{ done - start }:: #{ loop_start - start} + #{ done - loop_start}"
+
+end

data/examples/tokyo-cabinet-experimental/expt.rb

@@ -0,0 +1,61 @@
+require 'rubygems'
+
+$LOAD_PATH.unshift("xampl_generated_code")
+
+require 'TokyoCabinetExperimental'
+
+Xampl.set_default_persister_kind(:tokyo_cabinet)
+Xampl.set_default_persister_format(:xml_format)
+
+module TokyoCabinetExperimental
+
+  class Person
+    def describe_yourself
+      {
+              'name' => self.name,
+              'age' => self.age
+      }
+    end
+  end
+
+  people = nil
+  n = 1000
+
+  start = Time.now
+  Xampl.transaction("setup") do
+    people = People.new('people')
+    jack = people.ensure_person('jack')
+    jack.age = '0'
+    jack.name = 'jack'
+    jill = people.ensure_person('jill')
+    jill.age = '0'
+    jill.name = 'jill'
+
+    (1..n).each do | i |
+      person = people.ensure_person("person-#{i}")
+      person.age = i.to_s
+      person.name = "person-#{ i }"
+    end
+  end
+
+  start_search = Time.now
+
+  found = Xampl.transaction("setup") do
+    puts ">>>>>> #{@@persister.class.name}"
+    @@persister.query do | q |
+      puts ">>>> #{ q.class.name }"
+      q.add_condition('age', :numle, '50')
+      q.order_by('age', :numasc)
+    end
+  end
+
+  # found.each do | person |
+  #   puts "person(#{person[:pk]}):: age: #{person['age']}"
+  # end
+
+  done = Time.now
+  puts "done: #{ done - start }:: construct in: #{ start_search - start}, search in: #{ done - start_search} (#{ found.size } results)"
+  puts "added: #{ n }, found: #{ found.size }"
+
+  # puts people.pp_xml
+end

data/examples/tokyo-cabinet-experimental/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/tcx", "TokyoCabinetExperimental", "tcx")
+    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/examples/tokyo-cabinet-experimental/xml/tcx.xml

@@ -0,0 +1,6 @@
+<people pid=''
+        xmlns="http://xampl.com/tcx">
+    <person pid=''
+            name=''
+            age=''/>
+</people>

data/lib/xampl-generator.rb

@@ -0,0 +1,3 @@
+
+require "xamplr-generator"
+

data/lib/xampl.rb

@@ -0,0 +1,3 @@
+
+require "xamplr"
+

data/lib/xamplr-generator.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+module Xampl
+
+  require "xamplr"
+  require "xamplr/xampl-generator"
+
+end
+
+

data/lib/xamplr.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+
+module Xampl
+
+  require "yaml"
+  require "logger"
+
+  require "xamplr-pp"
+
+  @@logger = Logger.new(STDOUT)
+  @@logger.level = Logger::WARN
+
+  def Xampl.log
+    return @@logger
+  end
+
+  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/from-xml"
+  require "xamplr/to-xml"
+  require "xamplr/to-ruby"
+
+  require "xamplr/visitor"
+  require "xamplr/persist-to-xml"
+  require "xamplr/visitors"
+
+end
+
+

data/lib/xamplr/README-POSSIBLE-PROBLEMS

@@ -0,0 +1,5 @@
+
+I modified from-xml around 180-190 in a couple of places, marked with TODO comments
+
+Why this cropped up now I DO NOT KNOW and this makes me nervous.
+

data/lib/xamplr/TODO

@@ -0,0 +1 @@
+-- escaped content is being repeatedly escaped (confirm, just a suspiscion from a long time ago)

data/lib/xamplr/exceptions.rb

@@ -0,0 +1,97 @@
+
+module Xampl
+
+  class XamplIsInvalid < Exception
+    attr_reader :msg, :xampl
+
+    def initialize(xampl)
+      @xampl = xampl
+      @msg = "Invalid Xampl:: #{xampl}"
+    end
+
+    def message
+      @msg
+    end
+  end
+
+  class AlreadyKnownToPersister < Exception
+    attr_reader :msg, :xampl
+
+    def initialize(xampl, persister)
+      @xampl = xampl
+      @msg = "#{xampl} #{xampl.get_the_index} is already known by a persister: #{xampl.persister.name}, so cannot use persister #{persister.name}"
+    end
+
+    def message
+      @msg
+    end
+  end
+
+  class XamplException < Exception
+    attr_reader :name, :msg
+
+    def initialize(name, message=nil)
+      @name = name
+      @msg = message ? message : ""
+    end
+
+    def message
+      "XamplException #{@name} #{@msg}"
+    end
+  end
+
+  class NoActivePersister < Exception
+    def message
+      "No Persister is active"
+    end
+  end
+
+  class BlockedChange < Exception
+    attr_reader :xampl
+
+    def initialize(xampl=nil)
+      @xampl = xampl
+    end
+
+    def message
+      "attempt to change #{@xampl}, pid: #{@xampl.get_the_index}, oid: #{@xampl.object_id} when changes are blocked"
+    end
+  end
+
+  class UnmanagedChange < Exception
+    attr_reader :xampl
+
+    def initialize(xampl=nil)
+      @xampl = xampl
+    end
+
+    def message
+      "attempt to change #{@xampl}, pid: #{@xampl.get_the_index}, oid: #{@xampl.object_id} outside of its persister's management"
+    end
+  end
+
+  class IncompatiblePersisterRequest < Exception
+    attr_reader :msg
+
+    def initialize(persister, feature_name, requested_feature_value, actual_feature_value)
+      @msg = "persister #{persister.name}:: requested feature: #{feature_name} #{requested_feature_value}, actual: #{actual_feature_value}"
+    end
+
+    def message
+      @msg
+    end
+  end
+
+  class MixedPersisters < Exception
+    attr_reader :msg
+
+    def initialize(active, local)
+      @msg = "mixed persisters:: active #{active.name}, local: #{local.name}"
+    end
+
+    def message
+      @msg
+    end
+  end
+
+end