red_bikini 0.0.1

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+coverage
+InstalledFiles
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+
+# YARD artifacts
+.yardoc
+_yardoc
+doc/

data/.rspec

@@ -0,0 +1,2 @@
+--require ./lib/red_bikini
+--require ./spec/person

data/.travis.yml

@@ -0,0 +1,6 @@
+language: ruby
+rvm:
+  - 1.9.3
+  - 2.0.0
+  - rbx-19mode
+  - jruby-19mode

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in red_bikini.gemspec
+gemspec

data/Gemfile.lock

@@ -0,0 +1,27 @@
+PATH
+  remote: .
+  specs:
+    red_bikini (0.0.1)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    diff-lcs (1.2.4)
+    rake (10.1.0)
+    rspec (2.14.1)
+      rspec-core (~> 2.14.0)
+      rspec-expectations (~> 2.14.0)
+      rspec-mocks (~> 2.14.0)
+    rspec-core (2.14.4)
+    rspec-expectations (2.14.1)
+      diff-lcs (>= 1.1.3, < 2.0)
+    rspec-mocks (2.14.3)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler (~> 1.3)
+  rake
+  red_bikini!
+  rspec (~> 2.14)

data/LICENSE

@@ -0,0 +1,20 @@
+The MIT License (MIT)
+
+Copyright (c) 2013 Titov Andrey
+
+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.md

@@ -0,0 +1,105 @@
+[![Build Status](https://travis-ci.org/idrozd/red_bikini.png?branch=master)](https://travis-ci.org/idrozd/red_bikini)
+
+# What is this?
+Something you come up with when you know a little ruby and words `public_exec` stuck in your head for a couple days:
+`instance_exec` on wrapper around receiver to conceal private methods, with aliased setters
+
+### cat spec/show_off_spec.rb
+```ruby
+describe RedBikini do
+
+  before{RedBikini.add_to_wardrobe! Person}
+
+  example 'punchline', contrived: true do
+    time = '17:00'
+
+    expect("Tom, Gia and 'Happy' Mike are heading to the cinema at 17:00").to eq(
+      Person.such_that do
+        name_is 'Mike'
+        friends_are %w[Tom Gia]
+        set_nickname 'Happy'
+      end.confide('the cinema') do |where|
+        "#{friends * ', '} and '#{nickname}' #{name} are heading to #{where} at #{time}"
+      end
+    )
+
+  end
+
+  describe 'access' do
+    let(:josephine){ Person.new(1,'Josephine')}
+    specify do
+      expect{josephine.tell{credit_card_number}}
+      .to raise_error NoMethodError # private
+    end
+    specify do
+      expect{josephine.expose{girly_secrets}}
+      .to raise_error NoMethodError # protected
+    end
+  end
+
+  describe 'Kernel#which' do
+    example :even_more_contrived do
+      [Person.new(nil, 'George'),
+       Person.new(nil, 'Kevin' ),
+       Person.new(nil, 'Steven'),
+       Person.new(22)].
+
+      find_all(&which{name and name =~ /ev/}).
+
+      map(&:name).
+      should eq %w[Kevin Steven]
+    end
+  end
+
+end
+
+```
+### cat spec/person.rb
+```ruby
+  Person = Struct.new(:id, :name, :friends, :nickname) do
+    OWN_CONST = 'Person const'
+    def === other
+      other.respond_to? :id and id == other.id
+    end
+    private
+    def credit_card_number
+      'meh'
+    end
+    protected
+    def girly_secrets
+      'nah'
+    end
+  end
+
+```
+
+### Red Bikini?
+Red for ruby, bikini for informal communication
+Think of objects in bikini
+
+### Why?
+It just would not let me go
+
+### So...
+You probably shouldn't use this for serious things, but I wouldn't discourage you from it of course.
+Some kind of DSL sounds as a candidate topic.
+
+Check out other specs for gotchas.
+I would note that inside it uses instance exec applied to a wrapper around
+reciever, so it wouldn`t bind calling context methods (which is good), 
+but binds locals and constants.
+- Also, or/equal (`||=`) won't work directly without specifiyng explicit receiver of course (`self.attr ||=` will work)
+- Also, `self` wouldn't work with `case` operator - I don't want to hack reciever class `.===` just for that.
+Although, you may use `_self` for this (original object).
+
+
+- [spec/closure_binding_spec.rb](spec/closure_binding_spec.rb)
+
+- [spec/typing_spec.rb](spec/typing_spec.rb)
+
+- [spec/operators_spec.rb](spec/operators_spec.rb)
+
+- [spec/aliases_spec.rb](spec/aliases_spec.rb)
+
+- [spec/collisions_spec.rb](spec/collisions_spec.rb)
+

data/README.md.erb

@@ -0,0 +1,37 @@
+[![Build Status](https://travis-ci.org/idrozd/red_bikini.png?branch=master)](https://travis-ci.org/idrozd/red_bikini)
+
+# What is this?
+Something you come up with when you know a little ruby and words `public_exec` stuck in your head for a couple days:
+`instance_exec` on wrapper around receiver to conceal private methods, with aliased setters
+
+### <%= c = "cat spec/show_off_spec.rb" %>
+```ruby
+<%= `#{c}` %>
+```
+### <%= c = "cat spec/person.rb" %>
+```ruby
+<%= `#{c}`%>
+```
+
+### Red Bikini?
+Red for ruby, bikini for informal communication
+Think of objects in bikini
+
+### Why?
+It just would not let me go
+
+### So...
+You probably shouldn't use this for serious things, but I wouldn't discourage you from it of course.
+Some kind of DSL sounds as a candidate topic.
+
+Check out other specs for gotchas.
+I would note that inside it uses instance exec applied to a wrapper around
+reciever, so it wouldn`t bind calling context methods (which is good), 
+but binds locals and constants.
+- Also, or/equal (`||=`) won't work directly without specifiyng explicit receiver of course (`self.attr ||=` will work)
+- Also, `self` wouldn't work with `case` operator - I don't want to hack reciever class `.===` just for that.
+Although, you may use `_self` for this (original object).
+
+<% %w[closure_binding typing operators aliases collisions].each do |spec| %>
+- <%= spec = "spec/#{spec}_spec.rb";"[#{spec}](#{spec})"%>
+<% end %>

data/Rakefile

@@ -0,0 +1,7 @@
+require "bundler/gem_tasks"
+
+require 'rspec/core/rake_task'
+
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec

data/lib/red_bikini/bikini.rb

@@ -0,0 +1,42 @@
+require 'forwardable'
+class RedBikini::Bikini
+  extend ::Forwardable
+
+
+  def initialize object
+    @__in_bikini__ = object
+  end
+
+  def === other
+    @__in_bikini__ === other
+  end
+
+  def _self
+    @__in_bikini__
+  end
+
+  def object_method method
+    original(method) or setter_imitated_by(method)
+  end
+  def original method
+    @__in_bikini__.respond_to?(method, true) and method
+  end
+
+  def respond_to_missing? method, *args
+    @__in_bikini__.respond_to?(object_method(method), *args)
+  end
+  def method_missing method, *args
+    @__in_bikini__.public_send(object_method(method), *args)
+  end
+
+
+  def setter_imitated_by method
+    [/set_(?<attr>\w+)/,/(?<attr>\w+)(_are|_is)/].find do |setter_matcher|
+      String(method).match(setter_matcher){|match| return match['attr'] + ?= }
+    end
+  end
+
+  def_delegators :@__in_bikini__, :is_a?, :kind_of?, :instance_of?, :class
+
+
+end

data/lib/red_bikini/version.rb

@@ -0,0 +1,3 @@
+module RedBikini
+  VERSION = "0.0.1"
+end

data/lib/red_bikini.rb

@@ -0,0 +1,41 @@
+module RedBikini
+  require_relative 'red_bikini/bikini'
+
+  def self.add_to_wardrobe! klass=Object
+    klass.send :include, InstanceMethods
+    klass.send :extend,  ClassMethods
+  end
+
+  ExecuteInWrappedContext = ->(receiver, args, block) do
+    Bikini.new(receiver).instance_exec *args, &block
+  end
+
+  module InstanceMethods
+    def in_public *args, &block
+      tap{self.expose *args, &block}
+    end
+    alias in_bikini in_public
+    def expose *args, &block
+      ExecuteInWrappedContext.call self, args, block
+    end
+    alias tell expose
+    alias confide expose
+  end
+
+
+  module ClassMethods
+    def such_that *args, &description
+      new(*args).in_public &description
+    end
+  end
+
+
+  ::Kernel.module_exec do
+    def which &block
+      proc{|receiver|receiver.expose &block}
+    end
+  end
+
+end
+
+

data/red_bikini.gemspec

@@ -0,0 +1,24 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'red_bikini/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "red_bikini"
+  spec.version       = RedBikini::VERSION
+  spec.authors       = ["Andrey Titov"]
+  spec.email         = ["terracote@gmail.com"]
+  spec.description   = %q{think of public_exec:}
+  spec.summary       = %q{ instance_exec run on wrapped receiver, with respect to private methods and setter aliases}
+  spec.homepage      = "https://github.com/idrozd/red_bikini"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files`.split($/)
+  #spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency "rspec", "~> 2.14"
+end

data/script/git_hooks/pre-commit

@@ -0,0 +1,3 @@
+#!/bin/bash
+for t in *.erb; do o=$(basename $t .erb); erb $t > $o && git add $o || exit 1; done
+rspec

data/script/install_git_hooks

@@ -0,0 +1,3 @@
+#!/bin/bash
+scripts=`dirname $(readlink -nf $0)`
+ln -s $scripts/git_hooks/pre-commit $scripts/../.git/hooks -f

data/spec/aliases_spec.rb

@@ -0,0 +1,23 @@
+describe RedBikini, 'aliases' do
+  before {RedBikini.add_to_wardrobe! Person}
+
+  example do
+    patrick = Person.new(1,'Patrick')
+
+    [
+      patrick.expose{"I'm #{name}"},
+      patrick.tell{"I'm #{name}"},
+      patrick.confide{"I'm #{name}"},
+      "I'm Patrick"
+    ].uniq.should have(1).string
+  end
+
+
+  example '#in_public and #in_bikini are just tap expose' do
+    [
+      Person.new.in_public{nickname_is 'Dredd'},
+      Person.new.in_bikini{set_nickname 'Dredd'},
+      Person.new(nil,nil,nil,'Dredd')
+    ].uniq.should have(1).element
+  end
+end

data/spec/closure_binding_spec.rb

@@ -0,0 +1,18 @@
+describe RedBikini do
+
+  before{RedBikini.add_to_wardrobe! Person}
+
+
+  describe 'closure stuff' do
+    let(:joe){Person.new(1,'Joe')}
+    HOST_CONST = 'Joe is best'
+    example{name = 'Local Joe'; expect(joe.tell{name}).to eq 'Local Joe'}
+    context 'there is caller method with same name' do
+      let(:name){'Host Joe'}
+      specify{expect(joe.tell{name}).to eq 'Joe'}
+    end
+    specify{expect(joe.tell{HOST_CONST}).to eq 'Joe is best'}
+    specify{expect(joe.tell{OWN_CONST}).to eq 'Person const'}
+  end
+
+end

data/spec/collisions_spec.rb

@@ -0,0 +1,20 @@
+describe RedBikini, 'name collisions' do
+  example do
+    Battlecruiser = Class.new do
+      attr_accessor :captain_has_parrot, :the_course
+      def set_the_course where
+        "Course is set! Heading #{where}"
+      end
+    end
+
+    RedBikini.add_to_wardrobe! Battlecruiser
+
+    battlecruiser = Battlecruiser.such_that do
+      set_the_course 'nowhere'
+      captain_has_parrot_is true
+    end
+
+    battlecruiser.the_course.should be_nil
+    battlecruiser.captain_has_parrot.should eq true
+  end
+end

data/spec/operators_spec.rb

@@ -0,0 +1,13 @@
+describe RedBikini do
+
+  before{RedBikini.add_to_wardrobe! Person}
+
+
+  describe do
+    example{expect(Person.new(1,'Jack').in_public{name ||= 'George'}.name).to eq 'Jack'}
+    example{expect(Person.new(1,nil).in_public{name ||= 'George'}.name).to eq nil}
+    example{expect(Person.new(1,nil).in_public{self.name ||= 'George'}.name).to eq 'George'}
+    example{expect(Person.new(1,nil).in_public{name_is name || 'George'}.name).to eq 'George'}
+    # ... and so on. You`ve got the point
+  end
+end

data/spec/person.rb

@@ -0,0 +1,14 @@
+  Person = Struct.new(:id, :name, :friends, :nickname) do
+    OWN_CONST = 'Person const'
+    def === other
+      other.respond_to? :id and id == other.id
+    end
+    private
+    def credit_card_number
+      'meh'
+    end
+    protected
+    def girly_secrets
+      'nah'
+    end
+  end

data/spec/show_off_spec.rb

@@ -0,0 +1,46 @@
+describe RedBikini do
+
+  before{RedBikini.add_to_wardrobe! Person}
+
+  example 'punchline', contrived: true do
+    time = '17:00'
+
+    expect("Tom, Gia and 'Happy' Mike are heading to the cinema at 17:00").to eq(
+      Person.such_that do
+        name_is 'Mike'
+        friends_are %w[Tom Gia]
+        set_nickname 'Happy'
+      end.confide('the cinema') do |where|
+        "#{friends * ', '} and '#{nickname}' #{name} are heading to #{where} at #{time}"
+      end
+    )
+
+  end
+
+  describe 'access' do
+    let(:josephine){ Person.new(1,'Josephine')}
+    specify do
+      expect{josephine.tell{credit_card_number}}
+      .to raise_error NoMethodError # private
+    end
+    specify do
+      expect{josephine.expose{girly_secrets}}
+      .to raise_error NoMethodError # protected
+    end
+  end
+
+  describe 'Kernel#which' do
+    example :even_more_contrived do
+      [Person.new(nil, 'George'),
+       Person.new(nil, 'Kevin' ),
+       Person.new(nil, 'Steven'),
+       Person.new(22)].
+
+      find_all(&which{name and name =~ /ev/}).
+
+      map(&:name).
+      should eq %w[Kevin Steven]
+    end
+  end
+
+end

data/spec/spec_helper.rb

@@ -0,0 +1 @@
+require_relative '../lib/red_bikini'

data/spec/typing_spec.rb

@@ -0,0 +1,24 @@
+describe RedBikini do
+
+  before{RedBikini.add_to_wardrobe! Person}
+
+  describe 'hacked typing' do
+    let(:a_person){Person.new(1,'Joe')}
+    specify{expect(a_person.tell{self.is_a? Person}).to be_true}
+    specify{expect(a_person.tell{self.instance_of? Person}).to be_true}
+    specify{expect(a_person.tell{is_a? Person}).to be_true}
+    specify{expect(a_person.tell{instance_of? Person}).to be_true}
+    specify{expect(a_person.tell{self.class}).to eq Person}
+    specify{expect(a_person.tell{kind_of? Person}).to be_true}
+    specify{expect(a_person.tell{self}).to be_a Person}
+    specify :gotcha do
+      expect(a_person.tell{Person === self}).to be_false
+
+      expect(a_person.tell{Person === _self}).to be_true
+      expect(a_person.tell{Person === @__in_bikini__}).to be_true
+    end
+    specify{expect(a_person.tell{self === Person}).to be_false} # As expected
+    specify{expect(a_person.tell{self === Person.new(1)}).to be_true}
+    specify{RedBikini.add_to_wardrobe! Class; expect(Fixnum.tell{self === 1}).to be_true}
+  end
+end

metadata

@@ -0,0 +1,132 @@
+--- !ruby/object:Gem::Specification
+name: red_bikini
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Andrey Titov
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-08-11 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.14'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.14'
+description: ! 'think of public_exec:'
+email:
+- terracote@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- .travis.yml
+- Gemfile
+- Gemfile.lock
+- LICENSE
+- README.md
+- README.md.erb
+- Rakefile
+- lib/red_bikini.rb
+- lib/red_bikini/bikini.rb
+- lib/red_bikini/version.rb
+- red_bikini.gemspec
+- script/git_hooks/pre-commit
+- script/install_git_hooks
+- spec/aliases_spec.rb
+- spec/closure_binding_spec.rb
+- spec/collisions_spec.rb
+- spec/operators_spec.rb
+- spec/person.rb
+- spec/show_off_spec.rb
+- spec/spec_helper.rb
+- spec/typing_spec.rb
+homepage: https://github.com/idrozd/red_bikini
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -120012333
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -120012333
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.25
+signing_key: 
+specification_version: 3
+summary: instance_exec run on wrapped receiver, with respect to private methods and
+  setter aliases
+test_files:
+- spec/aliases_spec.rb
+- spec/closure_binding_spec.rb
+- spec/collisions_spec.rb
+- spec/operators_spec.rb
+- spec/person.rb
+- spec/show_off_spec.rb
+- spec/spec_helper.rb
+- spec/typing_spec.rb