noid 0.4.0 → 0.5.0

data/lib/noid/base.rb

@@ -1,154 +0,0 @@
-require 'backports'
-
-module Noid
-  module Base
-    XDIGIT = ['0','1','2','3','4','5','6','7','8','9','b','c','d','f','g','h','j','k','l','n','p','q','r','s','t','v','w','x','z']
-    MAX_COUNTERS = 293
-
-    def initialize args = {}
-      @max = nil
-      @min = nil
-      @config = { :identifier => {} }.merge args
-      super() if respond_to?('super')
-      setup_mask args
-    end  
-
-
-    def mint
-      str = @prefix
-      n = @s
-      @s += 1
-
-      case @type
-        when 's'
-        when 'z'
-        when 'r'
-          raise Exception if @counters.size == 0
-          i = @rand.rand(@counters.size)
-          n = @counters[i][:value]
-          @counters[i][:value] += 1
-          @counters.delete_at(i) if @counters[i][:value] == @counters[i][:max]
-      end
-      str += n2xdig(n)
-
-      str += checkdigit(str) if @check
-
-      identifier.new str
-    end
-
-    def valid? id
-      prefix = id[0..@prefix.length-1]
-      ch = id[@prefix.length..-1].split('')
-      check = ch.pop if @check
-      return false unless prefix == @prefix
-
-      return false unless @characters.length == ch.length
-      @characters.each_with_index do |c, i|
-        return false unless XDIGIT.include? ch[i] 
-        return false if c == 'd' and ch[i] =~ /[^\d]/
-      end
-
-      return false unless check.nil? or check == checkdigit(id[0..-2])
-
-      true
-    end
-
-    protected
-    def identifier
-      @config[:identifier][:class] || String  
-    end
-
-    def checkdigit str
-      i = 1
-      XDIGIT[str.split('').map { |x|  XDIGIT.index(x).to_i }.inject { |sum, n| i+=1; sum += (n * i) } % XDIGIT.length]
-    end
-
-    def min
-      return @min if @min
-      @min = 0
-    end
-
-    def max
-      return @max if @max
-      return @max = nil if @type == 'z'
-      @max = @characters.inject(1) do |sum, n|
-        i = case n
-            when 'e'
-              XDIGIT.length
-            when 'd'
-              10
-            else 
-              1
-        end
-        sum *= i 
-      end  
-    end
-
-    def n2xdig n
-      xdig = @characters.reverse.map do |c|
-        div = case c
-          when 'e' then XDIGIT.length
-          when 'd' then 10  
-          end
-          next if div.nil?
-
-          value = n % div
-          n = n / div
-          XDIGIT[value]
-      end.compact.join ''
-
-      if @type == 'z'
-        while n > 0
-          c = @characters.last
-          div = case c
-            when 'e' then XDIGIT.length
-            when 'd' then 10  
-            end
-            next if div.nil?
-
-            value = n % div
-            n = n / div
-            xdig += XDIGIT[value]
-        end
-      end
-      
-      raise Exception if n > 0
-
-      xdig.reverse
-    end
-
-    def setup_mask args
-      @template = args[:template]
-      @prefix, @mask = @template.split('.')
-
-      @prefix = "#{args[:namespace]}/#{@prefix}" if args[:namespace]
-
-      @type, @characters = @mask.split '', 2
-      @characters = @characters.split ''
-      @check = @characters.pop and true if @characters.last == 'k'
-      @s = args[:s] || 0
-      case @type
-        when 's'
-        when 'z'
-        when 'r'
-          @rand = Random.new(args[:seed]) if args[:seed]
-          @rand ||= Random.new
-          @seed = @rand.seed
-
-          if args[:s]
-            args[:s].times { @rand.rand }
-          end
-
-          percounter = max / (args[:max_counters] || MAX_COUNTERS) + 1
-          t = 0
-          @counters = args[:counters]
-          @counters ||= Array.new(max/percounter) do |i| 
-            { :value => case i
-              when 0 then 0
-              else t += percounter 
-              end, :max => t + percounter }
-          end
-      end
-    end
-  end
-end

data/lib/noid/identifier.rb

@@ -1,24 +0,0 @@
-module Noid::Identifier
-  class Base
-    def initialize id
-      @id = id
-      @metadata = {}
-    end
-
-    def id
-      @id
-    end
-
-    def [] key
-      @metadata[key]
-    end
-
-    def []= key, value
-      @metadata[key] = value
-    end
-
-    def push hash
-      @metadata.merge! hash
-    end
-  end
-end

data/lib/noid/identifier/anvl.rb

@@ -1,32 +0,0 @@
-module Noid::Identifier
-  class Anvl < Base
-    def initialize id
-      @id = id
-      @metadata = ::ANVL::Document.new
-    end
-
-    def []= key, value
-      super
-      save
-    end
-
-    def push hash
-      @metadata << hash
-      save
-    end
-
-    private
-    def file
-      @id
-    end
-
-    def save
-      File.open(file, 'w') do |f|
-        f.write @metadata.to_s
-      end
-
-    end
-
-
-  end
-end

data/lib/noid/identifier/singleton.rb

@@ -1,14 +0,0 @@
-module Noid::Identifier
-  class Singleton < Base
-    @@identifiers = {}
-    @@identifiers = {}
-    def self.new id
-      @@identifiers[id] ||= super(id)
-      @@identifiers[id]
-    end
-
-    def self.identifiers
-      @@identifiers
-    end
-  end
-end  

data/lib/noid/persistence.rb

@@ -1,4 +0,0 @@
-module Noid
-  module Persistence
-  end
-end

data/lib/noid/persistence/base.rb

@@ -1,11 +0,0 @@
-module Noid::Persistence
-  class Base
-    include Noid::Base
-
-    def mint
-      a = super
-      save
-      return a
-    end
-  end
-end

data/lib/noid/persistence/json.rb

@@ -1,38 +0,0 @@
-require 'json'
-module Noid::Persistence
-  class JSON < Base
-    FILENAME = 'NOID.js'
-    def initialize args = {}
-      @file = args[:filename] || FILENAME
-      @json = args[:json] || File.read(@file) rescue nil
-      data = load_json if @json
-      data ||= {}
-      super data.merge(args)
-      save
-    end
-
-    protected
-    def load_json
-      data = ::JSON.parse(@json) rescue nil
-      data ||= {}
-      data = data.inject({}){|memo,(k,v)| memo[k.to_sym] = v; memo} unless data.empty?
-      data[:counters] = data[:counters].map { |x| x.inject({}){|memo,(k,v)| memo[k.to_sym] = v; memo} } if data[:counters]
-      data[:identifier] = { :class => Kernel.const_get(data[:identifier]['class']) } if data[:identifier]
-      data
-    end
-
-    def save
-      str = self.to_json
-      File.open(@file, 'w') do |f|
-        f.write(str)
-      end unless @file == '/dev/null'
-
-      str
-    end
-
-    def to_json
-      str = { :template => @template, :identifier => { :class => identifier.name }, :s => @s, :counters => @counters, :seed => @seed }.to_json
-    end
-
-  end
-end

data/test/helper.rb

@@ -1,18 +0,0 @@
-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 'noid'
-
-class Test::Unit::TestCase
-end

data/test/test_binding.rb

@@ -1,42 +0,0 @@
-require 'helper'
-require 'anvl'
-require 'tmpdir'
-
-class TestNoidBinding < Test::Unit::TestCase
-  context "Noid" do
-    should "accept identifier_class for NOID bindings" do
-      Dir.mktmpdir do |d|
-        Dir.chdir d
-        n = Noid::Minter.new :template => 'r.rek', :identifier => { :class => Noid::Identifier::Base }
-        id = n.mint
-        assert_equal(Noid::Identifier::Base, id.class)
-        id['abc'] = 123
-        assert_equal(123, id['abc'])
-      end
-    end
-
-    should "use singleton instance to persist  NOID bindings" do
-      Dir.mktmpdir do |d|
-        Dir.chdir d
-        n = Noid::Minter.new :template => 'r.rek', :identifier => { :class => Noid::Identifier::Singleton }
-        id = n.mint
-        id['abc'] = 123
-        assert_equal(123, id['abc'])
-
-        id2 = Noid::Identifier::Singleton.new id.id
-        assert_equal(123, id2['abc'])
-      end
-    end
-
-    should "user anvl instance to persist NOID binding info" do
-      Dir.mktmpdir do |d|
-        Dir.chdir d
-        n = Noid::Minter.new :template => 'r.rek', :identifier => { :class => Noid::Identifier::Anvl }
-        id = n.mint
-        id['abc'] = "123"
-        assert_equal(Noid::Identifier::Anvl, id.class)
-        assert_equal("123", id['abc'])
-      end  
-    end
-  end
-end

data/test/test_noid.rb

@@ -1,134 +0,0 @@
-require 'helper'
-
-class TestNoid < Test::Unit::TestCase
-  context "Noid" do
-    should "generate checkdigits correctly" do
-      n = Noid::Minter.new :template => 's.zd'
-      assert_equal('q', n.send(:checkdigit, '13030/xf93gt2'))
-    end
-
-    should "generate max sequence for type 'r'" do
-      n = Noid::Minter.new :template => 's.rd'
-      assert_equal(0, n.send(:min))
-      assert_equal(10, n.send(:max))
-
-      n = Noid::Minter.new :template => 's.rdd'
-      assert_equal(0, n.send(:min))
-      assert_equal(100, n.send(:max))
-    end
-
-    should "generate quasi-random counters for type 'r'" do
-      n = Noid::Minter.new :template => 's.rd'
-      assert_equal((0..9).map { |x| {:value => x, :max => (x + 1)} }, n.instance_variable_get('@counters'))
-
-      n = Noid::Minter.new :template => 's.rdde'
-      s = n.instance_variable_get('@counters')
-      assert_contains(s, {:value => 2890, :max => 2900})
-    end
-
-    should "generate random sequence for type 'r'" do
-      n = Noid::Minter.new :template => 's.rd' 
-      a = 10.times.map { |i| n.mint }
-
-      10.times do |i|
-        assert_contains(a, "s#{i}")
-      end
-
-    end
-
-    should "generate numeric sequence for type 's'" do
-      n = Noid::Minter.new :template => 's.sd'
-      10.times do |i|
-        assert_equal("s#{i}", n.mint)
-      end
-    end
-
-    should "generate extended sequence for type 's'" do
-      n = Noid::Minter.new :template => 's.se'
-      10.times do |i|
-        assert_equal("s#{i}", n.mint)
-      end
-        assert_equal("sb", n.mint)
-      10.times { n.mint }  
-        assert_equal("sq", n.mint)
-
-    end
-
-    should "raise an exception when overflowing sequence" do
-      n = Noid::Minter.new :template => 's.sd'
-      10.times do |i|
-        assert_equal("s#{i}", n.mint)
-      end
-
-      assert_raise Exception do
-        n.mint
-      end
-    end
-
-    should "generate sequence for type 's' with checkdigit" do
-      n = Noid::Minter.new :template => 's.sdk'
-      assert_equal('s0s', n.mint)
-      assert_equal('s1v', n.mint)
-      assert_equal('s2x', n.mint)
-    end
-
-    should "generate sequence for type 'z' with checkdigit" do
-      n = Noid::Minter.new :template => 'z.zdk'
-      assert_equal('z0z', n.mint)
-      assert_equal('z11', n.mint)
-      assert_equal('z23', n.mint)
-    end
-    should "generate sequence for type 'z', adding new digits as needed" do
-      n = Noid::Minter.new :template => 'z.zdk'
-      assert_equal('z0z', n.mint)
-      assert_equal('z11', n.mint)
-      assert_equal('z23', n.mint)
-      10.times { n.mint }
-      assert_equal('z13b', n.mint)
-    end
-
-    should "generate sequence for type 'z', adding new xdigits as needed" do
-      n = Noid::Minter.new :template => 'z.zdek'
-      assert_equal('z00z', n.mint)
-      assert_equal('z012', n.mint)
-      assert_equal('z025', n.mint)
-      10.times { 
-        assert_match(/^z[0-9]/, n.mint) 
-      }
-      assert_equal('z0f9', n.mint)
-      100.times { 
-        assert_match(/^z[0-9]/, n.mint) 
-      }
-      assert_equal('z3xz', n.mint)
-      1000.times { 
-        assert_match(/^z[0-9]/, n.mint) 
-      }
-      assert_equal('z38fs', n.mint)
-    end
-
-    should "validate 'r' digit sequences" do
-      n = Noid::Minter.new :template => 'r.rd'
-
-      assert_equal(true, n.valid?('r1')   )
-      assert_equal(true, n.valid?('r9')  )
-      assert_equal(false, n.valid?('r11')  )
-      assert_equal(false, n.valid?('ro'))
-      assert_equal(false, n.valid?('rb'))
-    end
-
-    should "validate 'r' xdigit sequences" do
-      n = Noid::Minter.new :template => 'r.re'
-
-      assert_equal(true, n.valid?('r1')   )
-      assert_equal(true, n.valid?('r9')  )
-      assert_equal(false, n.valid?('ro'))
-      assert_equal(true, n.valid?('rb'))
-    end
-    should "validate 'r' xdigit + checkdigit sequences" do
-      n = Noid::Minter.new :template => 'r.rek'
-
-      assert_equal(true, n.valid?('r2w')   )
-      assert_equal(false, n.valid?('r2b')  )
-    end
-  end
-end