y_support 2.0.3 → 2.0.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: a6e8e25158487612ee9fd0d9b88dd3cbaa588767
-  data.tar.gz: 8e4a78cde0deb07dda57cd9ff93f5f64c4a991be
+  metadata.gz: 1e5d5e63041346d0129e1ddbd75122c7e878cf92
+  data.tar.gz: b7b2e14abfcac7f070cb3b4a0a264c2086f73bd1
 SHA512:
-  metadata.gz: e9c8826eab83bf22364655f6559c5c11114162bd35dee5d01e268f971216d35e4131d5f50100faf01f7644a952a95dcd6d00edd8acb688cd671ec354e3d3d487
-  data.tar.gz: 0901936832de50bd38831a31deb565af1eaf8f545dec53de62ba54c8a672dfdd0e37602ed796eb6a1cfc871069c001c3bd545ee7e9f6de875c0350f99c0ee767
+  metadata.gz: 771724a6d0d9c63655ef996443d1861f3c0cb59d94516393f3d7689669c860f6889fa4bf0cdb1673dda77fdfb6bb2498483cdce8b39e97db55ca8727c827c4e1
+  data.tar.gz: 0f4502be79ac39d5415ee965dab65419b58cb5b6dad5d76f646bc1037ba9ae01a65e9c0ad615d9bf584683e70ceb0c7ee21ad939d34842b0b436ad977759eb22

data/lib/y_support/conscience.rb

@@ -0,0 +1,132 @@
+# -*- coding: utf-8 -*-
+require 'y_support'
+require 'active_support/core_ext/array/extract_options'
+
+# FIXME: Now, here, in order for the token game to work properly with
+# guarding system, several things have to be done. Firstly,
+# Place#set_marking( marking, blame ) will have to be implemented,
+# and in Place#add, blame argument will have to be added
+# Now with that blame, the transition will have to explain what it is
+# trying to do. So actually it should be a block
+#
+# It's gonna be a mixin, Conscience, or something like that, and it will
+# imbue the receiving class with the ability to try something.
+#
+# Transition.try "to fire!" do
+#   if assignment_action? then
+#     note has: "assignment action"
+#     note "Δt", is: Δt
+#     note "domain marking" is: domain_marking
+#     act = note "Action" do Array action( Δt ) end
+#     codomain.each_with_index do |place, i|
+#       try "set the marking of place #{place} to the #{i}-th element of the action vector (#{act[i]})" do
+#         place.marking = act[i]
+#       end
+#     end
+#   else
+#     etc. etc. etc.
+# end
+#
+# Should produce error messages like this:
+# When trying to fire! the transition #{self}, having assignment action, with Δt being #{Δt}, action has
+# been computed to #{Array action(Δt)}, when trying to set the marking of plac #{place} to the #{i}-th
+# element of the action vector (#{act[i]}), GuardError was encountered, with the message: ..."
+#
+# Yes, this is a managed code miniframework that I need here.
+#
+module Conscience
+  class Try
+    PUSH_ORDERED = -> ary, e {
+      named = ary.extract_options!
+      ary << e << named
+    }
+    PUSH_NAMED = -> ary, k, v {
+      named = ary.extract_options!
+      ary << named.update( k => v )
+    }
+    DECORATE = -> str, prefix: '', postfix: '' {
+      str.to_s.tap { |ς| return ς.empty? ? '' : prefix + ς + postfix }
+    }
+    TRANSITIVE = Hash.new do |ꜧ, key| "#{key}ing %s" end
+      .update( is: "being %s",
+               has: "having %s" )
+    STATE = Hash.new do |ꜧ, key| "#{key} %s" end
+      .update( is: "%s",
+               has: "has %s" )
+
+    attr_reader :_object_, :_text_, :_block_, :_facts_
+
+    def initialize( object: nil, text: nil, &block )
+      @_object_, @_text_, @_block_ = object, text, block
+      @_facts_ = Hash.new do |ꜧ, key| ꜧ[key] = [ {} ] end
+    end
+
+    def note *subjects, **statements, &block
+      return *Array( subjects ).each do |s|
+        PUSH_ORDERED.( _facts_[s], s )
+      end if statements.empty?
+      subjects << _object_ if subjects.empty?
+      Array( subjects ).each do |subj|
+        statements.each do |verb, object|
+          PUSH_NAMED.( _facts_[subj], verb, object )
+        end
+      end
+      return statements.first[1]
+    end
+
+    def call *args
+      begin
+        instance_exec *args, &_block_
+      rescue StandardError => err
+        txt1 = "When trying #{_text_}"
+        thing, statements = _describe_
+        txt2 = DECORATE.( thing, prefix: ' ' )
+        txt3 = DECORATE.( statements.map { |verb, object|
+                            STATE[verb] % object
+                          }.join( ', ' ),
+                          prefix: ' (', postfix: ')' )
+        txt4 = DECORATE.( _circumstances_, prefix: ', ' )
+        txt5 = DECORATE.( "#{err.class} occurred: #{err}", prefix: ', ' )
+        raise err, txt1 + txt2 + txt3 + txt4 + txt5
+      end
+    end
+
+    def method_missing sym, *args
+      _object_.send sym, *args
+    end
+
+    private
+
+    def _describe_ obj=_object_
+      facts = _facts_[obj].dup
+      statements = facts.extract_options!
+      fs = facts.join ', '
+      if statements.empty? then
+        return fs, statements
+      else
+        return facts.empty? ? obj.to_s : fs, statements
+      end
+    end
+
+    def _circumstances_
+      _facts_.reject { |subj, _| subj == _object_ }.map { |subj, _|
+        thing, statements = _describe_( subj )
+        thing + DECORATE.( statements.map { |v, o|
+                             TRANSITIVE[v] % o
+                           }.join( ', ' ),
+                           prefix: ' ' )
+      }.join( ', ' )
+    end
+  end
+
+  # Try method taxes two textual arguments and one block. The first (optional)
+  # textual argument describes what is the receiver of #try. The second argument
+  # describes in plain speech what activity is #try attempting. The block that
+  # follows then contains the code, which performs that activity. In the block,
+  # #note method is available, that builds up the context for the error message,
+  # if any.
+  # 
+  def try object=self, to_do_something, &block
+    Try.new( object: object, text: to_do_something, &block ).call
+  end
+end

data/lib/y_support/name_magic.rb

@@ -42,29 +42,32 @@ module NameMagic
       # Attach the decorators etc.
       target.extend ::NameMagic::ClassMethods
       target.extend ::NameMagic::NamespaceMethods
-      # Attach namespace methods to also to the namespace, if given.
+      # Attach namespace methods also to the namespace, if given.
       begin
-        target.namespace.extend ::NameMagic::NamespaceMethods unless
-          target.namespace == target
+        if target.namespace == target then
+          target.define_singleton_method :namespace do target end
+        else
+          target.namespace.extend ::NameMagic::NamespaceMethods
+        end
       rescue NoMethodError
       end
     else # it is a Module; we'll infect it with this #included method
-      included_of_the_target = target.method( :included )
-      included_of_self = self.method( :included )
-      pre_included_of_the_target = begin
-                                     target.method( :pre_included )
-                                   rescue NameError
-                                   end
-      if pre_included_of_the_target then # target has #pre_included hook
+      target_included = target.method( :included )
+      this_included = self.method( :included )
+      target_pre_included = begin
+                              target.method( :pre_included )
+                            rescue NameError
+                            end
+      if target_pre_included then # target has #pre_included hook
         target.define_singleton_method :included do |ç|
-          pre_included_of_the_target.( ç )
-          included_of_self.call( ç )
-          included_of_the_target.call( ç )
+          target_pre_included.( ç )
+          this_included.( ç )
+          target_included.( ç )
         end
       else # target has no #pre_included hook
         target.define_singleton_method :included do |ç|
-          included_of_self.( ç )
-          included_of_the_target.( ç )
+          this_included.( ç )
+          target_included.( ç )
         end
       end
     end

data/lib/y_support/version.rb

@@ -1,3 +1,3 @@
 module YSupport
-  VERSION = "2.0.3"
+  VERSION = "2.0.5"
 end

data/test/conscience_test.rb

@@ -0,0 +1,75 @@
+#! /usr/bin/ruby
+
+require 'minitest/spec'
+require 'minitest/autorun'
+# require 'y_support/conscience'     # tested component itself
+require './../lib/y_support/conscience'
+
+include Conscience
+
+describe Try do
+  before do
+    @try = Try.new object: "Dummy", text: "to fire" do
+      note is: "dummy"
+      note has: "no care in the world"
+      n = note "the number", is: 42
+      raise TypeError, 'foo'
+    end
+  end
+
+  it "should have basic functionality" do
+    assert_equal "to fire", @try._text_
+    assert_equal "Dummy", @try._object_
+    assert_equal 0, @try._facts_.size # haven't tried anything yet
+    @try._facts_["something"]
+    assert_equal 1, @try._facts_.size
+    @try.note is: 'dummy'
+    @try.note has: 'no care in the world'
+    assert_equal 2, @try._facts_.size
+    assert_equal ["something", "Dummy"], @try._facts_.keys
+    assert_equal( [ { is: "dummy", has: "no care in the world" } ],
+                  @try._facts_["Dummy"] )
+    assert_equal " hello!", Try::DECORATE.( :hello, prefix: ' ', postfix: '!' )
+    assert_equal( ['Dummy', {is: 'dummy', has: 'no care in the world'}],
+                  @try.send( :_describe_, "Dummy" ) )
+  end
+
+  describe 'case 1' do
+    it "should work" do
+      begin
+        @try.call
+      rescue TypeError => err
+        expected_msg = "When trying to fire Dummy (dummy, has no care in " +
+          "the world), the number being 42, TypeError occurred: foo"
+        assert_equal expected_msg, err.message
+      else
+        flunk "Expected TypeError error not raised!"
+      end
+    end
+  end
+
+  describe 'case 2' do
+    it "should work" do
+      begin
+        try "to call constant Nonexistant" do Nonexistant end
+      rescue NameError => err
+        expected_msg = 'When trying to call constant Nonexistant, ' +
+          'NameError occurred: uninitialized constant Nonexistant'
+        assert_equal( expected_msg, err.message )
+      else
+        flunk "Expected NameError error not raised!"
+      end
+    end
+  end
+
+  describe 'case 3' do
+    it "should work" do
+      o = Object.new
+      class << o
+        def to_s; "THIS OBJECT" end
+        def hello!; "hello hello" end
+      end
+      o.try "to call a missing method" do hello! end
+    end
+  end
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: y_support
 version: !ruby/object:Gem::Version
-  version: 2.0.3
+  version: 2.0.5
 platform: ruby
 authors:
 - boris
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-05-23 00:00:00.000000000 Z
+date: 2013-06-03 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: activesupport
@@ -53,6 +53,7 @@ files:
 - lib/y_support.rb
 - lib/y_support/abstract_algebra.rb
 - lib/y_support/all.rb
+- lib/y_support/conscience.rb
 - lib/y_support/core_ext.rb
 - lib/y_support/core_ext/array.rb
 - lib/y_support/core_ext/array/misc.rb
@@ -94,6 +95,7 @@ files:
 - lib/y_support/unicode.rb
 - lib/y_support/version.rb
 - test/abstract_algebra_test.rb
+- test/conscience_test.rb
 - test/inert_recorder_test.rb
 - test/kde_test.rb
 - test/local_object_test.rb
@@ -131,6 +133,7 @@ summary: LocalObject, RespondTo, InertRecorder, NullObject, NameMagic, core exte
   typing etc.
 test_files:
 - test/abstract_algebra_test.rb
+- test/conscience_test.rb
 - test/inert_recorder_test.rb
 - test/kde_test.rb
 - test/local_object_test.rb