pairtree 0.0.0

data/.document

@@ -0,0 +1,5 @@
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/Gemfile

@@ -0,0 +1,13 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "shoulda", ">= 0"
+  gem "bundler", "~> 1.0.0"
+  gem "jeweler", "~> 1.5.1"
+  gem "rcov", ">= 0"
+end

data/LICENSE.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2010 Chris Beer
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,19 @@
+= pairtree
+
+Ruby Pairtre implementation
+
+== Contributing to pairtree
+ 
+* Check out the latest master to make sure the feature hasn't been implemented or the bug hasn't been fixed yet
+* Check out the issue tracker to make sure someone already hasn't requested it and/or contributed it
+* Fork the project
+* Start a feature/bugfix branch
+* Commit and push until you are happy with your contribution
+* Make sure to add tests for it. This is important so I don't break it in a future version unintentionally.
+* Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
+
+== Copyright
+
+Copyright (c) 2010 Chris Beer. See LICENSE.txt for
+further details.
+

data/Rakefile

@@ -0,0 +1,52 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "pairtree"
+  gem.homepage = "http://github.com/cbeer/pairtree"
+  gem.license = "MIT"
+  gem.summary = %Q{Ruby Pairtree implementation}
+  gem.email = "chris@cbeer.info"
+  gem.authors = ["Chris Beer"]
+  # Include your dependencies below. Runtime dependencies are required when using your gem,
+  # and development dependencies are only needed for development (ie running rake tasks, tests, etc)
+  #  gem.add_runtime_dependency 'jabber4r', '> 0.1'
+  #  gem.add_development_dependency 'rspec', '> 1.2.3'
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+require 'rcov/rcovtask'
+Rcov::RcovTask.new do |test|
+  test.libs << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "pairtree #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.0

data/lib/pairtree.rb

@@ -0,0 +1,7 @@
+require 'pairtree/identifier'
+require 'pairtree/path'
+require 'pairtree/obj'
+require 'pairtree/root'
+require 'pairtree/client'
+module Pairtree
+end

data/lib/pairtree/client.rb

@@ -0,0 +1,18 @@
+module Pairtree
+  class Client 
+    attr_reader :root
+    attr_reader :prefix
+    def initialize path, args = {}
+      args[:root] ||= {}
+
+      @prefix = open(File.join(path, 'pairtree_prefix')).read.strip if File.exists? File.join(path, 'pairtree_prefix')
+      args[:root][:prefix] ||= @prefix
+
+      @version = nil
+
+      args[:root][:version] ||= @version
+
+      @root = Pairtree::Root.new File.join(path, 'pairtree_root'), args[:root]
+    end
+  end
+end

data/lib/pairtree/identifier.rb

@@ -0,0 +1,21 @@
+module Pairtree
+  class Identifier
+    ENCODE_REGEX = Regexp.compile("[\"*+,<=>?\\\\^|]|[^\x21-\x7e]", nil, 'u')
+    DECODE_REGEX = Regexp.compile("\\^(..)", nil, 'u')
+    def self.encode id
+      id.gsub(ENCODE_REGEX) { |c| char2hex(c) }.tr('/:.', '=+,')
+    end
+
+    def self.decode id
+      id.tr('=+,', '/:.').gsub(DECODE_REGEX) { |h| hex2char(h) } 
+    end
+
+    def self.char2hex c
+      c.unpack('H*')[0].scan(/../).map { |x| "^#{x}"}
+    end
+
+    def self.hex2char h
+       '' << h.delete('^').hex
+    end
+  end
+end

data/lib/pairtree/obj.rb

@@ -0,0 +1,5 @@
+module Pairtree  
+  class Obj < ::Dir
+
+  end
+end

data/lib/pairtree/path.rb

@@ -0,0 +1,11 @@
+module Pairtree
+  class Path
+    def self.id_to_path id
+      File.join(Pairtree::Identifier.encode(id).scan(/..?/))
+    end
+
+    def self.path_to_id ppath
+      Pairtree::Identifier.decode(ppath.split(File::SEPARATOR).join)
+    end
+  end
+end

data/lib/pairtree/root.rb

@@ -0,0 +1,57 @@
+require 'find'
+require 'fileutils'
+module Pairtree
+  class Root
+    SHORTY_LENGTH = 2
+
+    attr_reader :root
+    def initialize root, args = {}
+      @root = root
+      
+      @shorty_length = args.delete(:shorty_length) || SHORTY_LENGTH
+      @prefix = args.delete(:prefix) || ''
+
+      @options = args
+    end
+
+    def list          
+      objects = []
+      return [] unless pairtree_root? @root
+
+      Dir.chdir(@root) do
+      Find.find(*Dir.entries('.').reject { |x| x =~ /^\./ }) do |path|
+        if File.directory? path
+          Find.prune if File.basename(path).length > @shorty_length
+	  objects << path if Dir.entries(path).any? { |f| f.length > @shorty_length or File.file? File.join(path, f) }
+	  next
+      end
+	end
+      end
+
+      objects.map { |x| @prefix + Pairtree::Path.path_to_id(x) }
+    end
+
+    def mk id
+      id.sub! @prefix, ''
+      path = File.join(@root, Pairtree::Path.id_to_path(id))
+      FileUtils.mkdir_p path
+      Pairtree::Obj.new path
+    end
+
+    def get id
+      id.sub! @prefix, ''
+      path = File.join(@root, Pairtree::Path.id_to_path(id))
+      Pairtree::Obj.new path if File.directory? path
+    end
+
+    private
+
+    def pairtree_root
+      Dir.new @root
+    end
+
+    def pairtree_root? path = @root
+      File.directory? path
+    end
+  end
+end

data/test/helper.rb

@@ -0,0 +1,18 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'pairtree'
+
+class Test::Unit::TestCase
+end

data/test/test_pairtree.rb

@@ -0,0 +1,91 @@
+require 'helper'
+
+class TestPairtree < Test::Unit::TestCase
+  def roundtrip s
+    en = Pairtree::Identifier.encode s
+    de = Pairtree::Identifier.decode en
+    assert_equal(s,de)
+  end
+  def test_a
+    assert_equal(Pairtree::Identifier.encode('a'), 'a')
+    assert_equal(Pairtree::Path.id_to_path('a'), 'a')
+    self.roundtrip('a')
+  end
+
+  def test_ab
+    assert_equal(Pairtree::Identifier.encode('ab'), 'ab')
+    assert_equal(Pairtree::Path.id_to_path('ab'), 'ab')
+    self.roundtrip('ab')
+  end
+
+  def test_abc
+    assert_equal(Pairtree::Identifier.encode('abc'), 'abc')
+    assert_equal(Pairtree::Path.id_to_path('abc'), 'ab/c')
+    self.roundtrip('abc')
+  end
+
+  def test_abcd
+    assert_equal(Pairtree::Identifier.encode('abcd'), 'abcd')
+    assert_equal(Pairtree::Path.id_to_path('abcd'), 'ab/cd')
+    self.roundtrip('abcd')
+  end
+
+  def test_space
+    assert_equal(Pairtree::Identifier.encode('hello world'), 'hello^20world')
+    assert_equal(Pairtree::Path.id_to_path('hello world'), 'he/ll/o^/20/wo/rl/d')
+    self.roundtrip('hello world')
+  end
+
+  def test_slash
+    assert_equal(Pairtree::Identifier.encode('/'), '=')
+    self.roundtrip('/')
+  end
+
+  def test_urn
+    assert_equal(Pairtree::Identifier.encode('http://n2t.info/urn:nbn:se:kb:repos-1'), 'http+==n2t,info=urn+nbn+se+kb+repos-1')
+    self.roundtrip('http://n2t.info/urn:nbn:se:kb:repos-1')
+  end
+
+  def test_wtf
+    assert_equal(Pairtree::Identifier.encode('what-the-*@?#!^!?'), "what-the-^2a@^3f#!^5e!^3f")
+    self.roundtrip('what-the-*@?#!^!?')
+  end
+
+  def test_weird
+     assert_equal(Pairtree::Identifier.encode('\\"*+,<=>?^|'), "^5c^22^2a^2b^2c^3c^3d^3e^3f^5e^7c")
+     assert_equal(Pairtree::Path.id_to_path('\\"*+,<=>?^|'), "^5/c^/22/^2/a^/2b/^2/c^/3c/^3/d^/3e/^3/f^/5e/^7/c")
+  end
+
+  def test_hardcore_unicode
+    self.roundtrip("   1. Euro Symbol: €.
+   2. Greek: Μπορώ να φάω σπασμένα γυαλιά χωρίς να πάθω τίποτα.
+   3. Íslenska / Icelandic: Ég get etið gler án þess að meiða mig.
+   4. Polish: Mogę jeść szkło, i mi nie szkodzi.
+   5. Romanian: Pot să mănânc sticlă și ea nu mă rănește.
+   6. Ukrainian: Я можу їсти шкло, й воно мені не пошкодить.
+   7. Armenian: Կրնամ ապակի ուտել և ինծի անհանգիստ չըներ։
+   8. Georgian: მინას ვჭამ და არა მტკივა.
+   9. Hindi: मैं काँच खा सकता हूँ, मुझे उस से कोई पीडा नहीं होती.
+  10. Hebrew(2): אני יכול לאכול זכוכית וזה לא מזיק לי.
+  11. Yiddish(2): איך קען עסן גלאָז און עס טוט מיר נישט װײ.
+  12. Arabic(2): أنا قادر على أكل الزجاج و هذا لا يؤلمني.
+  13. Japanese: 私はガラスを食べられます。それは私を傷つけません。
+  14. Thai: ฉันกินกระจกได้ แต่มันไม่ทำให้ฉันเจ็บ ")
+  end
+
+  def test_french
+    self.roundtrip 'Années de Pèlerinage'
+    self.roundtrip "Années de Pèlerinage (Years of Pilgrimage) (S.160, S.161,\n\
+ S.163) is a set of three suites by Franz Liszt for solo piano. Liszt's\n\
+ complete musical style is evident in this masterwork, which ranges from\n\
+ virtuosic fireworks to sincerely moving emotional statements. His musical\n\
+ maturity can be seen evolving through his experience and travel. The\n\
+ third volume is especially notable as an example of his later style: it\n\
+ was composed well after the first two volumes and often displays less\n\
+ showy virtuosity and more harmonic experimentation."
+  end            
+  
+
+
+
+end

metadata

@@ -0,0 +1,141 @@
+--- !ruby/object:Gem::Specification 
+name: pairtree
+version: !ruby/object:Gem::Version 
+  hash: 31
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 0
+  version: 0.0.0
+platform: ruby
+authors: 
+- Chris Beer
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-23 00:00:00 -05:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  type: :development
+  prerelease: false
+  name: shoulda
+  version_requirements: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  requirement: *id001
+- !ruby/object:Gem::Dependency 
+  type: :development
+  prerelease: false
+  name: bundler
+  version_requirements: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 23
+        segments: 
+        - 1
+        - 0
+        - 0
+        version: 1.0.0
+  requirement: *id002
+- !ruby/object:Gem::Dependency 
+  type: :development
+  prerelease: false
+  name: jeweler
+  version_requirements: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 1
+        segments: 
+        - 1
+        - 5
+        - 1
+        version: 1.5.1
+  requirement: *id003
+- !ruby/object:Gem::Dependency 
+  type: :development
+  prerelease: false
+  name: rcov
+  version_requirements: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  requirement: *id004
+description: 
+email: chris@cbeer.info
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE.txt
+- README.rdoc
+files: 
+- .document
+- Gemfile
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- VERSION
+- lib/pairtree.rb
+- lib/pairtree/client.rb
+- lib/pairtree/identifier.rb
+- lib/pairtree/obj.rb
+- lib/pairtree/path.rb
+- lib/pairtree/root.rb
+- test/helper.rb
+- test/test_pairtree.rb
+has_rdoc: true
+homepage: http://github.com/cbeer/pairtree
+licenses: 
+- MIT
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Ruby Pairtree implementation
+test_files: 
+- test/helper.rb
+- test/test_pairtree.rb