wbzyl-datamapper-tutorial 0.0.8 → 0.0.9

data/README.markdown

@@ -2,16 +2,18 @@
 
 1. [pastie](http://www.dzone.com/links/datamapper_sinatra_tutorial.html),
    [pastie2](http://blog.zerosum.org/2008/7/2/clone-pastie-with-sinatra-datamapper-redux).
-2. [ apps written in sinatra, uses datamapper](http://github.com/zapnap/mogo/)
+2. [apps written in sinatra, uses datamapper](http://github.com/zapnap/mogo/)
 3. [A simple Twitter application template, built in Ruby with 
    Sinatra and DataMapper](http://github.com/zapnap/retweet/)
-   
 
-## Gotowce ze świata ActiveRecord
+## Data persistence   
 
-1. Wczytywanie dużych zbiorów danych testowych:
-   gem faker.
+1. [using plain-text files for data persistence](/doc/using-plain-text-files-for-data-persistence.pdf)
+1. [ohm](http://ohm.keyvalue.org/) — Object-hash mapping library for 
+   [Redis](http://code.google.com/p/redis/). Datamapper adapter for Redis:
+   [DataMapper loves Redis](http://whoahbot.com/2009/05/27/redis-and-datamapper.html)
+   \([source, example](http://github.com/whoahbot/dm-redis-adapter/)\).
 
-   Wczytujemy:    10_000 rekordów: czas?
-               1_000_000         : czas?
+## Todo
 
+1. redis.spec for Fedora?

data/Rakefile

@@ -13,13 +13,13 @@ Moje notatki do Datamappera.
     EOF
     s.summary      = "Prosta aplikacja Sinatry."
     
-    s.files        = %w[TODO Rakefile config.ru VERSION.yml] + FileList["lib/**/*"]
+    s.files        = %w[LICENSE TODO Rakefile config.ru VERSION.yml] + FileList["lib/**/*"]
   
     s.add_dependency 'rack' 
     s.add_dependency 'sinatra'
     s.add_dependency 'rdiscount'
-    s.add_dependency 'sinatra-rdiscount'
-    s.add_dependency 'codehighlighter-middleware'
+    s.add_dependency 'wbzyl-sinatra-rdiscount'
+    s.add_dependency 'wbzyl-codehighlighter-middleware'
     s.add_dependency 'coderay'
   
     s.rubyforge_project = 'datamapper-tutorial'
@@ -31,8 +31,8 @@ rescue LoadError
   puts "  sudo gem install technicalpickles-jeweler -s http://gems.github.com"
 end
 
-Rake::TestTask.new(:test) do |t|
-  t.libs << 'lib' << 'test'
-  t.pattern = 'test/**/*_test.rb'
-  t.verbose = false
-end
+#Rake::TestTask.new(:test) do |t|
+#  t.libs << 'lib' << 'test'
+#  t.pattern = 'test/**/*_test.rb'
+#  t.verbose = false
+#end

data/VERSION.yml

@@ -0,0 +1,4 @@
+--- 
+:minor: 0
+:patch: 9
+:major: 0

data/config.ru

@@ -3,11 +3,6 @@
 $LOAD_PATH.unshift("#{File.dirname(__FILE__)}/lib")
 require 'config'
 
-#FileUtils.mkdir_p 'log' unless File.exists?('log')
-#log = File.new("log/sinatra.log", "a")
-#STDOUT.reopen(log)
-#STDERR.reopen(log)
-
 # require 'rack/cache'
 # use Rack::Cache
 run WB_DatamapperTutorial

data/lib/config.ru

@@ -0,0 +1,12 @@
+require 'datamapper-tutorial'
+
+gem 'wbzyl-rack-codehighlighter'
+require 'rack/codehighlighter'
+
+gem 'ultraviolet'
+require 'uv'
+
+use Rack::ShowExceptions
+use Rack::Lint
+use Rack::Codehighlighter, :ultraviolet, :element => '//pre/code', :markdown => true
+run WB::DatamapperTutorial.new

data/lib/datamapper-tutorial.rb

@@ -2,16 +2,25 @@
 
 # Zobacz przykład: http://gist.github.com/38605
 
-gem 'rdiscount'
-gem 'sinatra'
-gem 'wbzyl-sinatra-rdiscount'
+#gem 'rdiscount'
+#gem 'sinatra'
+
+#gem 'wbzyl-sinatra-rdiscount'
+#gem 'emk-sinatra-url-for'
+#gem 'wbzyl-sinatra-static-assets'
 
 require 'rdiscount'
 require 'sinatra/base'
 require 'sinatra/rdiscount'
 
+require 'sinatra/url_for'
+require 'sinatra/static_assets'
+
 module WB
   class DatamapperTutorial < Sinatra::Base
+    helpers Sinatra::UrlForHelper
+    helpers Sinatra::StaticAssets
+    
     # disable overriding public and views dirs
     set :app_file, __FILE__
     set :static, true  
@@ -33,7 +42,14 @@ module WB
     
     # helper methods
     
-    attr_accessor :title
+    def page_title
+      @title || ""
+    end
+
+    # def title=(name)... does not work, bug?
+    def title(name)
+      @title = " | #{name}"
+    end
     
     get '/' do
       rdiscount :main
@@ -53,4 +69,3 @@ module WB
     use Rack::Lint
   end
 end
-

data/lib/public/doc/plain-text-files/contacts.yaml

@@ -0,0 +1,11 @@
+--- 
+- !ruby/object:Contact 
+  email: joe@somewhere.abc
+  extras: 
+    :instrument: Cello
+  home: 
+    :street1: 123 Main Street
+    :city: Somewhere
+  name: Joe Smith
+  work: 
+    :phone: (000) 123-4567

data/lib/public/doc/plain-text-files/contacts_g.rb

@@ -0,0 +1,105 @@
+require 'gdbm'
+require 'fileutils'
+
+class ContactList
+
+  attr_reader :contact_cache
+
+  def initialize(dir)
+    @dir = dir
+    @contact_cache = []
+  end
+  
+  def [](name)
+    contact = @contact_cache.find {|c| c.name == name }
+    return contact if contact
+    contact = Contact.new(name)
+    Dir.chdir(@dir) do
+      if File.directory?(contact.dirname)
+        populate_contact(contact)
+        @contact_cache << contact
+      else
+        contact = nil
+      end
+    end
+    contact
+  end
+  
+  def populate_contact(contact)
+    Dir.chdir(contact.dirname) do
+      contact.open
+    end
+  end
+  
+  def <<(contact)
+    Dir.chdir(@dir) do
+      Dir.mkdir(contact.dirname) unless File.exists?(contact.dirname)
+      populate_contact(contact)
+    end
+    @contact_cache << contact
+  end
+  
+  def delete(name)
+    contact = self[name]
+    return false unless contact
+    contact.close
+    Dir.chdir(@dir) do
+      FileUtils.rm_rf(contact.dirname)
+    end
+    contact_cache.delete_if {|c| c.name == name }
+    true
+  end
+  
+  def directory_names
+    Dir["#{@dir}/*"]
+  end
+  
+  def size
+    directory_names.size
+  end
+  
+  def empty?
+    directory_names.empty?
+  end
+  
+end
+
+
+class Contact
+
+  COMPONENTS = ["home", "extras", "work"]
+
+  attr_accessor :name, *COMPONENTS
+
+  attr_reader :dirname
+
+  def initialize(name)
+    @name = name
+    @dirname = @name.gsub(" ", "_")
+  end
+
+  def components
+    COMPONENTS.map {|comp_name| self.send(comp_name) }
+  end
+  
+  def open
+    COMPONENTS.each do |component|
+      self.send(component + "=", GDBM.new(component))
+    end
+  end
+  
+  def close
+    components.each do |component|
+      component.close unless component.closed?
+    end
+  end
+
+  def email
+    extras["email"]
+  end
+  
+  def email=(e)
+    extras["email"] = e
+  end
+ 
+end

data/lib/public/doc/plain-text-files/contacts_g_test.rb

@@ -0,0 +1,51 @@
+require 'test/unit'
+require 'contacts_g'
+
+Dir.mkdir("gdbm_contacts") unless File.exist?("gdbm_contacts")
+
+class GDBMTest < Test::Unit::TestCase
+  
+  def setup
+    @list = ContactList.new("gdbm_contacts")
+    @contact = Contact.new("Joe Smith")
+    
+    @list << @contact
+    
+    @contact.home["street1"] = "123 Main Street"
+    @contact.home["city"] = "Somewhere"
+    @contact.work["phone"] = "(000) 123-4567"
+    @contact.extras["instrument"] = "Cello"
+    @contact.email = "joe@somewhere.abc"
+  end
+  
+  def teardown
+    @list.delete("Joe Smith") if @list["Joe Smith"]
+  end
+
+  def test_retrieving_a_contact_from_list
+    contact = @list["Joe Smith"]
+    assert_equal("Joe Smith", contact.name)
+  end
+  
+  def test_delete_a_contact_from_list
+    assert(!@list.empty?)
+    @list.delete("Joe Smith")
+    assert(@list.empty?)
+    assert(@list.contact_cache.empty?)
+  end
+  
+  def test_home
+    contact = @list["Joe Smith"]
+    assert_equal("123 Main Street", contact.home["street1"])
+  end
+  
+  def test_email
+    contact = @list["Joe Smith"]
+    assert_equal("joe@somewhere.abc", contact.email)
+  end
+  
+  def test_non_existent_contact_is_nil
+    assert_equal(nil, @list["Some Person"])
+  end
+  
+end

data/lib/public/doc/plain-text-files/contacts_y.rb

@@ -0,0 +1,57 @@
+require "yaml"
+
+class ContactList
+ attr_accessor :contacts          
+                                  
+ def initialize(file)
+   @file = file
+   @contacts = []
+ end                      
+                          
+ def <<(contact)
+   @contacts << contact
+ end                      
+                          
+ def delete(name)
+   @contacts.delete_if {|c| c.name == name }
+ end
+ 
+ def empty?
+   @contacts.empty?
+ end
+ 
+ def size
+   @contacts.size
+ end
+ 
+ def [](name)
+   @contacts.find {|c| c.name == name }
+ end
+ 
+ def save
+   File.open(@file, "w") do |fh|
+     fh.puts(@contacts.to_yaml)
+   end
+ end
+
+ def self.load(file)
+   list = new(file)
+   list.contacts = YAML.load(File.read(file))
+   list
+ end
+ 
+end
+
+
+class Contact
+  attr_reader :name, :email, :home, :work, :extras
+  attr_writer :name, :email
+  
+  def initialize(name)
+    @name = name
+    @home = {}
+    @work = {}
+    @extras = {}
+  end
+  
+end

data/lib/public/doc/plain-text-files/contacts_y_test.rb

@@ -0,0 +1,39 @@
+require "test/unit"
+require "contacts_y"
+
+class TestContacts < Test::Unit::TestCase
+  
+  def setup
+    @filename = "contacts.yaml"
+    @list = ContactList.new(@filename)
+    @contact = Contact.new("Joe Smith")
+    
+    @contact.email = "joe@somewhere.abc"
+    @contact.home[:street1] = "123 Main Street"
+    @contact.home[:city] = "Somewhere"
+    @contact.work[:phone] = "(000) 123-4567"
+    @contact.extras[:instrument] = "Cello"
+    
+    @list << @contact
+  end
+
+  def test_retrieve_contact_from_list
+    contact = @list["Joe Smith"]
+    assert_equal("Joe Smith", contact.name)
+  end
+
+  def test_delete_contact_from_list
+    assert(!@list.empty?)
+    @list.delete(@contact.name)
+    assert(@list.empty?)
+  end
+  
+  def test_save_and_load_list
+    @list.save
+    relist = ContactList.load(@filename)
+    assert_equal(1, relist.size)
+    contact = relist["Joe Smith"]
+    assert_equal("Joe Smith", contact.name)
+  end
+  
+end

data/lib/public/doc/plain-text-files/gdbm-example.rb

@@ -0,0 +1,22 @@
+require 'gdbm'
+
+movies = GDBM.new("movies.db")
+
+movies.update(
+              { "Vertigo" => "Alfred Hitchcock",
+                "In a Lonely Place" => "Nicholas Ray",
+                "Johnny Guitar" => "Nicholas Ray",
+                "Touch of Evil" => "Orson Welles",
+                "Psycho" => "Alfred Hitchcock",
+              })
+
+movies.close
+
+__END__
+
+# irb session
+
+require "gdbm"
+
+movies = GDBM.new("movies.db")
+movies.values.uniq