striuct 0.3.5.1 → 0.4.0

data/lib/striuct/classmethods/predicate.rb

@@ -0,0 +1,128 @@
+class Striuct; module ClassMethods
+
+  # @group Basic Predicate
+
+  # @param [Symbol, String, #to_sym] name
+  def has_autonym?(name)
+    name = name.to_sym
+  rescue NoMethodError
+    false
+  else
+    @autonyms.include? name
+  end
+  
+  alias_method :autonym?, :has_autonym?
+ 
+  # @param [Symbol, String, #to_sym] als
+  def has_alias?(als)
+    als = als.to_sym
+  rescue NoMethodError
+    false
+  else
+    @aliases.has_key? als
+  end
+  
+  alias_method :alias?, :has_alias?
+  alias_method :aliased?, :has_alias? # obsolute
+
+  # @param [Symbol, String, #to_sym] name
+  def has_member?(name)
+    autonym_for_member name
+  rescue Exception
+    false
+  else
+    true
+  end
+  
+  alias_method :member?, :has_member?
+
+  # @param [Integer, #to_int] index
+  def has_index?(index)
+    @autonyms.fetch index
+  rescue Exception
+    false
+  else
+    true
+  end
+
+  alias_method :index?, :has_index?
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def has_key?(key)
+    has_member?(key) || has_index?(key)
+  end
+
+  alias_method :key?, :has_key?
+
+  # @param [Symbol, String, #to_sym] autonym
+  def with_aliases?(autonym)
+    autonym = autonym.to_sym
+  rescue NoMethodError
+    false
+  else
+    @aliases.has_value? autonym
+  end
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def with_default?(key)
+    autonym = autonym_for_key key
+  rescue Exception
+    false
+  else
+    _attributes_for(autonym).with_default?
+  end
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def with_condition?(key)
+    autonym = autonym_for_key key
+  rescue Exception
+    false
+  else
+    _attributes_for(autonym).with_condition?
+  end
+
+  alias_method :restrict?, :with_condition?  
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def with_inference?(key)
+    autonym = autonym_for_key key
+  rescue Exception
+    false
+  else
+    _attributes_for(autonym).with_inference?
+  end
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def with_safety_getter?(key)
+    autonym = autonym_for_key key
+  rescue Exception
+    false
+  else
+    _attributes_for(autonym).with_safety_getter?
+  end
+  
+  alias_method :with_safety_reader?, :with_safety_getter?
+  
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def with_safety_setter?(key)
+    autonym = autonym_for_key key
+  rescue Exception
+    false
+  else
+    _attributes_for(autonym).with_safety_setter?
+  end
+
+  alias_method :with_safety_writer?, :with_safety_setter?
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def with_adjuster?(key)
+    autonym = autonym_for_key key
+  rescue Exception
+    false
+  else
+    _attributes_for(autonym).with_adjuster?
+  end
+
+  # @endgroup
+
+end; end

data/lib/striuct/classmethods/{requiremnets.rb → requirements.rb}

@@ -1,14 +1,17 @@
+require 'optionalargument'
+
+require_relative 'attributes'
 require_relative 'inner'
-require_relative 'named'
+require_relative 'names'
+require_relative 'predicate'
 require_relative 'copy'
 require_relative 'fix'
 require_relative 'length'
 require_relative 'to_struct'
 require_relative 'constructor'
 require_relative 'enum'
-require_relative 'hashy'
 require_relative 'default'
 require_relative 'adjustment'
 require_relative 'macro'
-require_relative 'prevent_conflicts'
+require_relative 'conflict_management'
 require_relative 'validation'

data/lib/striuct/classmethods/validation.rb

@@ -2,51 +2,13 @@ class Striuct; module ClassMethods
 
   # @group Validation
   
-  # @param [Symbol, String] name
-  # inference checker is waiting yet
-  def inference?(name)
-    autonym = autonym_for_name name
-
-    _attributes_for(autonym).inference?
-  end
-
-  # @param [Symbol, String] name
-  def has_condition?(name)
-    autonym = autonym_for_name name
-
-    _attributes_for(autonym).has_condition?
-  end
-  
-  alias_method :restrict?, :has_condition?
-  alias_method :has_validator?, :has_condition? # obsolute
-
-  # @param [Symbol, String] name
-  def condition_for(name)
-    return nil unless has_condition? name
-    autonym = autonym_for_name name
-
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def condition_for(key)
+    autonym = autonym_for_key key
+    raise KeyError unless with_condition? autonym
+    
     _attributes_for(autonym).condition
   end
-  
-  alias_method :validator_for, :condition_for # obsolute
-
-  # @param [Symbol, String] name
-  def safety_getter?(name)
-    autonym = autonym_for_name name
-
-    _attributes_for(autonym).validate_with_getter?
-  end
-  
-  alias_method :safety_reader?, :safety_getter?
-  
-  # @param [Symbol, String] name
-  def safety_setter?(name)
-    autonym = autonym_for_name name
-
-    _attributes_for(autonym).validate_with_setter?
-  end
-
-  alias_method :safety_writer?, :safety_setter?
 
   # @endgroup
 

data/lib/striuct/instancemethods/README.md

@@ -1,5 +1,5 @@
-For developer
-==============
+Note
+=====
 
-* This dir's tree is diveded under roles/features.
-  Not under CONSTANT names.
+This dir's tree is diveded under roles/features.  
+Not under CONSTANT names.

data/lib/striuct/instancemethods/assign.rb

@@ -1,32 +1,30 @@
-require_relative 'subscript'
-
 class Striuct; module InstanceMethods 
 
-  # @group Assign
-  
-  alias_method :assign, :[]=
+  # @group Assign / Unassign
   
-  # @param [Symbol, String] name
-  def assign?(name)
-    autonym = autonym_for_name name
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def assign?(key)
+    autonym = autonym_for_key key
     
     @db.has_key? autonym
   end
   
-  # @param [Symbol, String, Fixnum] key
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  # @return value / nil - value assigned under the key
   def unassign(key)
     raise "can't modify frozen #{self.class}" if frozen?
+    
     autonym = autonym_for_key key
+    raise "can't modify locked member #{autonym}" if locked? autonym
 
     @db.delete autonym
   end
   
-  alias_method :clear_at, :unassign # obsolute
-  alias_method :reset_at, :unassign
+  alias_method :delete_at, :unassign
 
-  # all members aren't assigned
+  # true if all members are not yet assigned
   def empty?
-    _autonyms.none?{|autonym|assign? autonym}
+    _autonyms.none?{|autonym|@db.has_key? autonym}
   end
 
   # @endgroup

data/lib/striuct/instancemethods/cast.rb

@@ -12,15 +12,12 @@ class Striuct; module InstanceMethods
     self.class.to_struct_class.new(*values)
   end
   
+  # @param [Boolean] include_no_assign
   # @return [Hash]
-  def to_h(reject_no_assign=false)
-    return @db.dup if reject_no_assign
+  def to_h(include_no_assign=true)
+    return @db.dup unless include_no_assign
 
-    {}.tap {|h|
-      each_pair do |autonym, val|
-        h[autonym] = val
-      end
-    }
+    Hash[each_pair.to_a]
   end
   
   # @return [Array]
@@ -32,4 +29,4 @@ class Striuct; module InstanceMethods
 
   # @endgroup
 
-end; end
+end; end

data/lib/striuct/instancemethods/compare.rb

@@ -4,13 +4,14 @@ class Striuct; module InstanceMethods
   
   # @return [Boolean]
   def ==(other)
-    __compare_all__? other, :==
+    other.instance_of?(self.class) && 
+      each_pair.all?{|autonym, val|other._get(autonym) == val}
   end
 
   alias_method :===, :==
   
   def eql?(other)
-    __compare_all__? other, :eql?
+    other.instance_of?(self.class) && other._db.eql?(@db)
   end
 
   # @return [Integer]
@@ -18,11 +19,10 @@ class Striuct; module InstanceMethods
     @db.hash
   end
 
-  private  
+  protected
 
-  # @param [Symbol] method
-  def __compare_all__?(other, method)
-    other.instance_of?(self.class) && each_pair.all?{|k, v|v.__send__ method, other[k]}
+  def _db
+    @db
   end
 
   # @endgroup

data/lib/striuct/instancemethods/default.rb

@@ -1,14 +1,36 @@
 class Striuct; module InstanceMethods 
 
   # @group Default Value
-  
-  # @param [Symbol, String] name
-  def default?(name)
-    autonym = autonym_for_name name
+ 
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def default?(key)
+    autonym = autonym_for_key key
 
-    default_for(autonym) == self[autonym]
+    default_value_for(autonym) == fetch_by_autonym(autonym)
+  end
+
+  private
+
+  # @param [Symbol] target_autonyms - MUST already converted to native autonym
+  # @return [self]
+  def _set_defaults(*target_autonyms)
+    target_autonyms.each do |autonym|
+      if with_default? autonym
+        default = default_value_for autonym
+        _set autonym, (
+          if default_type_for(autonym) == :lazy
+            args = [self, autonym][0, default.arity]
+            default.call(*args)
+          else
+            default
+          end
+        )
+      end
+    end
+    
+    self
   end
 
   # @endgroup
 
-end; end
+end; end

data/lib/striuct/instancemethods/delegate_class_methods.rb

@@ -1,33 +1,33 @@
-require 'forwardable'
-
 class Striuct; module InstanceMethods
-  
-  extend Forwardable
-  
-  # Forwardable has public/protected class_macro
-  private_class_method(*Forwardable.instance_methods)
 
   # @group Delegate Class Methods
   
   def_delegators :'self.class',
-    :_autonyms, :_nameable_for,
-    :autonym_for, :autonym_for_name, :autonym_for_key,
-    :aliases_for,
-    :validator_for, :condition_for,
-    :adjuster_for, :flavor_for,
-    :members, :keys, :names, :autonyms, :all_members, :aliases,
-    :has_member?, :member?, :has_key?, :key?,
+    :_autonyms,
+    :autonym_for_alias,
+    :autonym_for_member,
+    :autonym_for_index,
+    :autonym_for_key,
+    :autonyms, :members, :all_members, :aliases,
     :has_autonym?, :autonym?,
     :has_alias?, :alias?, :aliased?,
-    :has_aliases?,
+    :has_member?, :member?,
+    :has_index?, :index?,
+    :has_key?, :key?,
+    :with_aliases?,
+    :aliases_for_autonym,
     :length, :size,
-    :restrict?, :has_validator?, :has_condition?,
-    :safety_getter?, :safety_reader?, :safety_setter?, :safty_writer?,
-    :inference?,
-    :has_default?, :default_value_for, :default_for, :default_type_for,
-    :has_adjuster?, :has_flavor?
+    :with_condition?, :restrict?,
+    :condition_for,
+    :with_safety_getter?, :with_safety_reader?,
+    :with_safety_setter?, :with_safety_writer?,
+    :with_inference?,
+    :with_default?,
+    :default_value_for, :default_type_for,
+    :with_adjuster?,
+    :adjuster_for
 
-  private :_autonyms, :_nameable_for
+  private :_autonyms
 
   # @endgroup
   

data/lib/striuct/instancemethods/enum.rb

@@ -13,9 +13,7 @@ class Striuct; module InstanceMethods
     self
   end
 
-  alias_method :each_name, :each_autonym
   alias_method :each_member, :each_autonym
-  alias_method :each_key, :each_autonym
 
   # @yield [value]
   # @yieldparam [Object] value - sequential under defined
@@ -25,7 +23,7 @@ class Striuct; module InstanceMethods
   def each_value
     return to_enum(__callee__) unless block_given?
   
-    each_autonym{|autonym|yield self[autonym]}
+    each_autonym{|autonym|yield _get(autonym)}
   end
   
   alias_method :each, :each_value
@@ -40,7 +38,7 @@ class Striuct; module InstanceMethods
   def each_pair
     return to_enum(__callee__) unless block_given?
 
-    each_autonym{|autonym|yield autonym, self[autonym]}
+    each_autonym{|autonym|yield autonym, _get(autonym)}
   end
 
   # @yield [index] 
@@ -66,9 +64,7 @@ class Striuct; module InstanceMethods
     self
   end
 
-  alias_method :each_name_with_index, :each_autonym_with_index
   alias_method :each_member_with_index, :each_autonym_with_index
-  alias_method :each_key_with_index, :each_autonym_with_index
 
   # @yield [value, index]
   # @yieldparam [Integer] index
@@ -78,7 +74,6 @@ class Striuct; module InstanceMethods
     return to_enum(__callee__) unless block_given?
 
     each_value.with_index{|value, index|yield value, index}
-    self
   end
   
   alias_method :each_with_index, :each_value_with_index
@@ -96,9 +91,8 @@ class Striuct; module InstanceMethods
       yield autonym, value, index
       index += 1
     end
-    self
   end
 
   # @endgroup
 
-end; end
+end; end

data/lib/striuct/instancemethods/getter.rb

@@ -0,0 +1,47 @@
+class Striuct; module InstanceMethods
+
+  # @group Getter
+
+  # @param [Symbol, String, #to_sym] autonym
+  def fetch_by_autonym(autonym)
+    autonym = autonym.to_sym
+    raise NameError unless autonym? autonym
+
+    _get autonym
+  end
+
+  # @param [Symbol, String, #to_sym] member
+  def fetch_by_member(member)
+    _get autonym_for_member(member)
+  end
+
+  # @param [Integer, #to_int] index
+  def fetch_by_index(index)
+    _get autonym_for_index(index)
+  end
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def fetch_by_key(key)
+    _get autonym_for_key(key)
+  end
+
+  alias_method :[], :fetch_by_key
+  alias_method :fetch, :fetch_by_key
+  
+  protected
+
+  # @param [Symbol] autonym - MUST already converted to native autonym
+  def _get(autonym)
+    value = @db[autonym]
+  
+    if with_safety_getter?(autonym) and !accept?(autonym, value)
+      raise ::Validation::InvalidReadingError,
+            "#{value.inspect} is deficient for #{autonym} in #{self.class}"
+    end
+
+    value
+  end
+
+  # @endgroup
+
+end; end

data/lib/striuct/instancemethods/hashy.rb

@@ -1,10 +1,6 @@
-require_relative 'subscript'
-
 class Striuct; module InstanceMethods
 
   # @group Like Ruby's Hash
-  
-  alias_method :fetch, :[]
 
   def has_value?(value)
     @db.has_value? value
@@ -81,7 +77,7 @@ class Striuct; module InstanceMethods
   # @param [Symbol, String] name
   # @return [Array] e.g [autonym, value]
   def assoc(name)
-    autonym = autonym_for_name name
+    autonym = autonym_for_member name
 
     [autonym, self[name]]
   end
@@ -119,4 +115,4 @@ class Striuct; module InstanceMethods
 
   # @endgroup
 
-end; end
+end; end

data/lib/striuct/instancemethods/keyvalidatable.rb

@@ -1,10 +1,5 @@
-require 'keyvalidatable'
-
 class Striuct; module InstanceMethods
 
-  extend Forwardable
-  include KeyValidatable
-
   KeyValidatable.instance_methods.each do |feature|
     if specific_feature = feature.to_s.sub!('members'){'autonyms'}
       def_delegator :self, feature, specific_feature.to_sym

data/lib/striuct/instancemethods/lock.rb

@@ -1,62 +1,54 @@
 class Striuct; module InstanceMethods
 
-  # @group Lock
+  # @group Lock / Unlock
   
-  # @overload lock(key)
-  #   lock a setter for key 
-  #   @param [Symbol, String, Fixnum] key
-  # @overload lock(true)
-  #   lock setters for all members
-  #   @param [true] true
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
   # @return [self]
-  def lock(key=true)
+  def lock(key)
+    raise "can't modify frozen #{self.class}" if frozen?
+    autonym = autonym_for_key key
+
+    @locks[autonym] = true
+    self
+  end
+  
+  # @return [self]
+  def lock_all
     raise "can't modify frozen #{self.class}" if frozen?
     
-    if key.equal? true
-      _autonyms.each do |autonym|
-        @locks[autonym] = true
-      end
-    else
-      autonym = autonym_for_key key
+    each_autonym do |autonym|
       @locks[autonym] = true
     end
-
-    self
   end
 
-  # @overload lock?(key)
-  #   predicate locking a setter for key 
-  #   @param [Symbol, String, Fixnum] key
-  # @overload lock?(true)
-  #   predicate locking for all members
-  #   @param [true] true
-  def lock?(key=true)
-    if key.equal? true
-      _autonyms.all?{|autonym|@locks[autonym]}
-    else
-      autonym = autonym_for_key key
-      @locks[autonym] || false
-    end
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  def locked?(key)
+    autonym = autonym_for_key key
+    
+    @locks.has_key? autonym
   end
   
-  private
+  def all_locked?
+    _autonyms.all?{|autonym|@locks.has_key? autonym}
+  end
   
-  # @overload unlock(key)
-  #   unlock a setter for key 
-  #   @param [Symbol, String, Fixnum] key
-  # @overload unlock(true)
-  #   unlock setters for all members
-  #   @param [true] true
-  def unlock(key=true)
+  private
+
+  # @param [Symbol, String, #to_sym, Integer, #to_int] key - name / index
+  # @return [self]
+  def unlock(key)
     raise "can't modify frozen #{self.class}" if frozen?
+    autonym = autonym_for_key key
     
-    if key.equal? true
-      @locks.clear
-    else
-      autonym = autonym_for_key key
-      @locks.delete autonym
-    end
+    @locks.delete autonym
+    self
+  end
+  
+  # @return [self]
+  def unlock_all
+    raise "can't modify frozen #{self.class}" if frozen?
 
+    @locks.clear
     self
   end