striuct 0.6.1 → 0.7.0

data/example/README.rb

@@ -1,50 +0,0 @@
-require_relative '../lib/striuct'
-
-class Person < Striuct
-  member :fullname, AND(String, /\A.+\z/)     # Flexible Validation
-  alias_member :name, :fullname               # Use other name
-end
-
-class User < Person                           # Inheritable
-  member :id, Integer,                        # Looks typed validation
-              default_proc: ->{User.next_id}  # With default value
-
-  @id = 0
-  def self.next_id
-    @id += 1
-  end
-end
-
-john = User.new 'john'
-p john[:name]      #=> 'john' 
-#~ p john.name = ''  #=> error
-p john.id          #=> 1
-ken = User[name: 'ken']                       # Construct from hash
-p ken.id           #=> 2
-
-class Foo < Striuct
-  member :foo
-  member :bar, Numeric
-  member :with_adjuster, Integer,
-                         &->v{Integer v}
-end
-
-foo = Foo.new
-p foo.foo           #=> nil
-p foo.assigned?(:foo) #=> false
-foo.foo = nil
-p foo.assigned?(:foo) #=> true
-foo.lock(:foo)
-#~ foo.foo = nil       #=> error
-foo.bar = 1.2
-#~ foo.bar = 1          #=> error
-
-foo.with_adjuster = '5'
-p foo.with_adjuster
-
-class UseMustOption < Striuct
-  member :foo, Integer, must: true
-end
-
-#~ p UseMustOption.new #=> InvalidOperationError
-p UseMustOption.new(1)

data/example/example1.rb

@@ -1,195 +0,0 @@
-#/usr/bin/ruby -w
-
-require_relative '../lib/striuct'
-
-def debug(message)
-  puts "line: #{caller.first.slice(/:(\w+)/, 1)}"
-  puts message.inspect, '-' * 80
-end
-
-
-# 1. Struct+ "Secure"
-
-# macro "member" provides to use condtions
-class User < Striuct.new
-  member :id,   Integer
-  member :age,  (20..140)
-  member :name, OR(/\A\w+\z/, /\A\w+ \w+\z/)
-end
-
-user = User.new 128381, 20
-debug user
-
-user.age = 30
-user[2] = 'taro yamada'
-debug user
-
-# fail (Exception  Striuct::ConditionError)
-begin
-  user[:id] = 10.0
-rescue
-  debug $!
-end
-
-begin
-  user.age = 19
-rescue
-  debug $!
-end
-
-begin
-  user[2] = 'typo! name'
-rescue
-  debug $!
-end
-
-# more detail checker do you need, use functional object
-module Game
-  class Character
-  end
-
-  class DB < Striuct.new
-    member :monsters,   ->list{(list - characters).empty?}
-    member :characters, GENERICS(Character)
-  end
-  
-  monster = Character.new
-  db = DB.new
-  
-  begin
-    db.characters = [1, 2]
-  rescue
-    debug $!
-  end
-  
-  db.characters = [monster, Character.new]
-  debug db
-  
-  begin
-    db.monsters = [Character.new]
-  rescue
-    debug $!
-  end
-  
-  db.monsters = [monster]
-  debug db
-end
-
-# Standard Struct not check member name. 
-NoGuard = Struct.new :__send__, :'?  !'
-noguard = NoGuard.new false
-debug noguard.__send__
-debug noguard.methods.include?(:'?  !') # lost!!
-
-# Striuct provides safety levels for naming.
-class SafetyNaming < Striuct.new
-  begin
-    member :__send__
-  rescue
-    debug $!
-  end
-  
-  begin
-    member :'?  !'
-  rescue
-    debug $!
-  end
-  
-  # tempolary set lower
-  conflict_management :struct do
-    member :__send__, :'?  !'
-  end
-  
-end
-
-# 2. Struct+ "Handy"
-
-# to through block called "flavor"
-# below case for type cast
-class User2 < Striuct.new
-  member :age, OR(/\A\d+\z/, Numeric) do |arg|
-    Integer arg
-  end
-  
-  member :name, ->v{v.respond_to? :to_s} do |v|
-    v.to_s.to_sym
-  end
-end
-
-user2 = User2.new
-user2.age = 9
-debug user2
-
-user2.age = 10.1
-debug user2
-
-user2.age = '10'
-debug user2
-
-user2.name = 10
-debug user2
-user2.name = Class
-debug user2
-
-# Default value
-
-class User3 < Striuct.new
-  member  :lank, Fixnum
-  default :lank, 3
-  member  :name
-end
-
-user3 = User3.new
-user3
-debug user3
-
-# Standard Struct always define "nil is default". ...realy?
-debug user3.assigned?(:name)
-user3.name = nil
-debug user3.assigned?(:name)
-
-# Alias
-
-class User3
-  alias_member :position, :lank
-end
-
-debug user3.lank.equal?(user3.position)
-debug user3[:lank].equal?(user3[:position])
-user3[:position] = 4
-debug user3.lank
-
-# New Constructors
-
-# Subclass.define reject floating object
-# * except if no finished assign each members
-# * return object is frozen
-user3 = User3.define do |r|
-  r.lank = 10
-  r.name = 'foo'
-end
-
-debug user3
-
-# Subclass.load_pairs easy make from Hash and like Hash
-user3 = User3[lank:10, name: 'foo']
-
-debug user3
-
-# 3. Keeping Struct's good interface
-
-Sth1 = Striuct.new do
-  def my_special_method
-  end
-end
-
-debug Sth1.new.respond_to?(:my_special_method)
-
-# to_struct
-MyC = Striuct.new :a, :b
-a =  MyC.to_struct_class
-p a
-
-p MyC.new.to_struct
-myc = Striuct.new :a, :b
-p myc.new.to_struct

data/example/example2.rb

@@ -1,20 +0,0 @@
-#!/usr/local/bin/ruby -w
-
-require_relative '../lib/striuct'
-
-User = Striuct.define do  # other way "class User < Striuct.new"
-  member :firstname, /\w+/ # look like case syntax in Ruby
-  member :lank, AND(Fixnum, 1..10) # easy build multiple validation
-  default :lank, 3        # set a normal default value
-  member :registered, Time # look like type variable
-  default :registered, &->{Time.now} # evaluate with construction          
-  p members #=> [firstname, lank, registered]
-end
-
-class MyUser < User
-  p members #=> [firstname, lank, registered]
-  member :foo # no validation, just an accessor
-  p members #=> [firstname, lank, registered, :foo]
-end
-
-user = MyUser.new

data/example/see_trace.rb

@@ -1,32 +0,0 @@
-#/usr/bin/ruby -w
-
-require_relative '../lib/striuct'
-
-class User < Striuct.new
-  member :id,   Integer
-  member :age,  (20..140)
-end
-
-user = User.new
-
-begin
-  user[:id] = 10.0
-rescue
-  puts $!.backtrace
-end
-
-puts '-' * 80
-
-$stdout.flush
-
-begin
-  user.age = 19
-rescue
-  puts $!.backtrace
-end
-
-puts '-' * 80
-
-$stdout.flush
-
-user.age = 19

data/striuct.gemspec

@@ -1,45 +0,0 @@
-# coding: us-ascii
-
-lib_name = 'striuct'.freeze
-
-Gem::Specification.new do |gem|
-  # specific
-
-  gem.description   = %q{Struct++ library.
-
----
-
-  Validatable, Inheritable, Member Aliasing,
-  Conflict Management, Default Value, Divide nil with unassign,
-  Lock setter of each member, Hash flendly API, ... And more Struct++ features :)}
-
-  gem.summary       = gem.description.dup
-  gem.homepage      = "https://github.com/kachick/#{lib_name}"
-  gem.license       = 'MIT'
-  gem.name          = lib_name.dup
-  gem.version       = '0.6.1'
-
-  gem.required_ruby_version = '>= 2.2'
-
-  gem.add_runtime_dependency 'validation', '~> 0.1'
-  gem.add_runtime_dependency 'optionalargument', '~> 0.3'
-  gem.add_runtime_dependency 'keyvalidatable'
-
-  gem.add_development_dependency 'test-unit', '>= 3.2.6', '< 4'
-  gem.add_development_dependency 'yard', '>= 0.9.11', '< 2.0'
-  gem.add_development_dependency 'rake', '>= 10', '< 20'
-  gem.add_development_dependency 'bundler', '>= 1.10', '< 2'
-
-  if RUBY_ENGINE == 'rbx'
-    gem.add_dependency 'rubysl', '~> 2.2'
-  end
-
-  # common
-
-  gem.authors       = ['Kenichi Kamiya']
-  gem.email         = ['kachick1+ruby@gmail.com']
-  gem.files         = `git ls-files`.split($\)
-  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
-  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
-  gem.require_paths = ['lib']
-end

data/test/helper.rb

@@ -1,3 +0,0 @@
-require 'test/unit'
-
-require_relative '../lib/striuct'

data/test/test_sglc-constructor.rb

@@ -1,36 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Constructor < Test::Unit::TestCase
-
-  def test_new
-    cls = Striuct.new
-    assert_not_instance_of Striuct, cls
-    assert_instance_of Class, cls
-    assert_kind_of Striuct, cls.new
-    
-    cls2 = Striuct.new :name, :age
-    
-    assert_equal cls2.members, [:name, :age]
-    
-    cls3 = Striuct.new :foo do
-      member :var
-    end
-    
-    assert_equal cls3.members, [:foo, :var]
-  end
-
-  def test_define
-    assert_raises RuntimeError do
-      Striuct.define do
-      end
-    end
-    
-    klass = Striuct.define do
-      member :foo
-    end
-
-    assert_equal true, klass.closed?
-  end
-
-end
-

data/test/test_subc-c-add_members.rb

@@ -1,13 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Macro < Test::Unit::TestCase
-  
-  def test_add_members
-    klass = Striuct.new :foo do
-      add_members :aaa, 'bbb', :ccc
-    end
-    
-    assert_equal [:foo, :aaa, :bbb, :ccc], klass.members
-  end
-
-end  

data/test/test_subc-c-close_member.rb

@@ -1,36 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Close < Test::Unit::TestCase
-
-  Sth = Striuct.new do
-    member :foo
-  end
-
-  def test_class_close
-    sth = Sth.new
-
-    assert_equal true, sth.member?(:foo)
-
-    Sth.class_eval do
-      member :bar
-    end
-
-    assert_equal true, sth.member?(:bar)
-    assert_equal [:foo, :bar], sth.members
-    
-    assert_equal false, Sth.closed?
-    
-    Sth.__send__ :close
-    
-    assert_equal true, Sth.closed?
-   
-    assert_raises RuntimeError do
-      Sth.class_eval do
-        member :var2
-      end
-    end
-   
-    assert_equal false, sth.member?(:var2)
-  end
-
-end

data/test/test_subc-c-constructor.rb

@@ -1,92 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Constructor < Test::Unit::TestCase
-
-  User = Striuct.define do
-    member :name, AND(String, NOT(''))
-    member :age, Integer
-  end.freeze
-  
-  [:for_values, :new].each do |callee|
-    define_method :"test_subclass_#{callee}" do
-      user = User.public_send callee
-      assert_instance_of User, user
-      assert_not_kind_of Class, user
-      assert_equal [:name, :age], user.members
-      assert_equal [nil, nil], user.values
-      
-      assert_raises Validation::InvalidWritingError do
-        User.public_send callee, :SYMBOL
-      end
-      
-      assert_raises Validation::InvalidWritingError do
-        User.public_send callee, ''
-      end
-      
-      user = User.public_send callee, '.'
-      assert_instance_of User, user
-      assert_not_kind_of Class, user
-      assert_equal ['.', nil], user.values
-      
-      assert_raises Validation::InvalidWritingError do
-        User.public_send callee, '.', 1.0
-      end
-      
-      user = User.public_send callee, '.', 1
-      assert_equal ['.', 1], user.values
-    end
-  end
-  
-  def test_define
-    user = User.define{|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    
-    assert_raises RuntimeError do
-      user.age = 1
-    end
-    
-    user = User.define{|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    assert_same true, user.all_locked?
-    assert_same false, user.frozen?
-    
-    assert_raises RuntimeError do
-      User.define{|r|r.age = 1}
-    end
-    
-    user = User.define(lock: true){|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    assert_same true, user.all_locked?
-    user = User.define(lock: false){|r|r.age = 1; r.name = 'a'}
-    assert_same false, user.all_locked?
-    assert_equal true, user.strict?
-    
-    assert_raises Validation::InvalidWritingError do
-      User.define{|r|r.age = 1; r.name = 'a'; r.name.clear}
-    end
-    
-    user = User.define(strict: false){|r|r.age = 1; r.name = 'a'; r.name.clear}
-    assert_equal '', user.name
-    assert_equal false, user.strict?
-  end
-  
-  Sth = Striuct.new :foo, :bar, :hoge
-  SampleStruct = Struct.new :foo, :bar, :hoge
-  
-  def test_for_pairs_from_hash
-    sth = Sth[hoge: 7, foo: 8]
-   
-    assert_equal [8, nil, 7], sth.values
-
-    sth = Sth['hoge' => 7, 'foo' => 8]
-   
-    assert_equal [8, nil, 7], sth.values
-  end
-
-  def test_for_pairs_from_struct
-    sth = Sth[SampleStruct.new 8, nil, 7]
-   
-    assert_equal [8, nil, 7], sth.values
-  end
-
-end