mug 0.5.6 → 0.6.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 50b01316cc71f852a0b9486ea5b1109af29c8ca3
-  data.tar.gz: 92aec72f54e066f73de67d743a29218029f1c872
+  metadata.gz: '099f5dcdef17223ed727bdb9bbada095e03e50b1'
+  data.tar.gz: 6fc2e5c009d42588a4f67dc58a70296f901a85da
 SHA512:
-  metadata.gz: 19fd297cf043985f9abd55bf7863dfa859744ee1acc7941673c2796b523e92e27c67e3fd563212c36f70913dc927a37a4b91765cb861f51e82627ed73cfe797a
-  data.tar.gz: d60fc6a2152527708ff79a297f1feb2e84a1842d0eeef0ac580d6a8ac67040506f4cbcd27c9f93df90dd6654ae4c8bd0436a094f41b07e9a57b602fa374c339b
+  metadata.gz: 9ba248b6dd8eb1e107c0b4deeeef20cbc7d0084ef6395b5ddc8cc9a80e17b47f6d27da3b075aedb80b67a1505a26e8051da5c66f40b63d852e74d1882b037e25
+  data.tar.gz: 31d95dead76d1da9a6bbeec45ecef85260d45f6d651396e2adb4ade8a5a78ff404a77587c6077bbfab5c024152f98a05ed2477e911cf259a650930211bd7a81b

data/lib/mug.rb

@@ -13,6 +13,7 @@ require_relative 'mug/fragile-method-chain'
 require_relative 'mug/hash/map'
 require_relative 'mug/hash/merge'
 require_relative 'mug/hash/operations'
+require_relative 'mug/hash/when'
 require_relative 'mug/iterator/for'
 require_relative 'mug/iterator/method'
 require_relative 'mug/loop-with'

data/lib/mug/hash.rb

@@ -1,3 +1,4 @@
 require_relative 'hash/map'
 require_relative 'hash/merge'
 require_relative 'hash/operations'
+require_relative 'hash/when'

data/lib/mug/hash/operations.rb

@@ -52,3 +52,19 @@ class Hash
   end
 end
 
+=begin
+Copyright (c) 2017, Matthew Kerwin <matthew@kerwin.net.au>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+=end
+

data/lib/mug/hash/when.rb

@@ -0,0 +1,46 @@
+
+class Hash
+
+  #
+  # Use a Hash like a case statement.
+  #
+  #   case key
+  #   when /foo/ then "FOO"
+  #   when /bar/ then "BAR"
+  #   else "DEFAULT"
+  #   end
+  #
+  # becomes:
+  #
+  #   h = {
+  #     /foo/ => "FOO",
+  #     /bar/ => "BAR",
+  #   }
+  #   h.default = "DEFAULT"
+  #   h[key]
+  #
+  def when o
+    each_pair do |k, v|
+      return v if k === o
+    end
+    default o
+  end
+
+end
+
+=begin
+Copyright (c) 2017, Matthew Kerwin <matthew@kerwin.net.au>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+=end
+

data/test/test-hashwhen.rb

@@ -0,0 +1,27 @@
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/hash/when'
+class Test_hashwhen < Test::Unit::TestCase
+  def test_hashwhen
+    h = {
+      /foo/ => "FOO",
+      /bar/ => "BAR",
+    }
+    h.default = "DEFAULT"
+
+    assert_equal( 'FOO', h.when("xfoob") )
+    assert_equal( 'BAR', h.when("barbar") )
+    assert_equal( 'DEFAULT', h.when("qux") )
+  end
+  def test_hashwhen_proc
+    h = Hash.new {|h,k| k.to_s.upcase }
+    h[/foo/] = 'FOO'
+    h[/bar/] = 'BAR'
+
+    assert_equal( 'FOO', h.when("xfoob") )
+    assert_equal( 'BAR', h.when("barbar") )
+    assert_equal( 'QUX', h.when("qux") )
+  end
+end
+

data/test/test-loop-with.rb

@@ -107,8 +107,8 @@ class Test_loop_with < Test::Unit::TestCase
     assert( y.equal?(o), "should return `obj`" )
 
     c = []
-    loop_with_object(c).with_index do |a, i|
-      a << i
+    loop_with_object(c).with_index do |d, i|
+      d << i
       break if i >= 2
     end
     assert_equal( [0,1,2], c )

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mug
 version: !ruby/object:Gem::Version
-  version: 0.5.6
+  version: 0.6.0
 platform: ruby
 authors:
 - Matthew Kerwin
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-01-10 00:00:00.000000000 Z
+date: 2017-03-08 00:00:00.000000000 Z
 dependencies: []
 description: |
   == MUG: Matty's Ultimate Gem
@@ -39,6 +39,7 @@ files:
 - lib/mug/hash/map.rb
 - lib/mug/hash/merge.rb
 - lib/mug/hash/operations.rb
+- lib/mug/hash/when.rb
 - lib/mug/hashmap.rb
 - lib/mug/hashop.rb
 - lib/mug/iterator.rb
@@ -72,6 +73,7 @@ files:
 - test/test-hashmap.rb
 - test/test-hashmerge.rb
 - test/test-hashop.rb
+- test/test-hashwhen.rb
 - test/test-iterator-for.rb
 - test/test-iterator-method.rb
 - test/test-loop-with.rb
@@ -105,7 +107,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.6.2
+rubygems_version: 2.6.8
 signing_key: 
 specification_version: 4
 summary: 'MUG: Matty''s Ultimate Gem'
@@ -127,6 +129,7 @@ test_files:
 - test/test-clamp.rb
 - test/test-iterator-for.rb
 - test/test-bittest.rb
+- test/test-hashwhen.rb
 - test/test-negativity.rb
 - test/test-matchdata_hash.rb
 - test/test-self.rb