obfusk 0.1.2 → 0.1.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 4c4bd6bb10352b9c18b779e647b5acfd1c3877db
-  data.tar.gz: c6f6309c765f5c519e155286323bbbb9d82590ff
+  metadata.gz: 0f4396e13f93674f41f52a609ececa143d3e23d7
+  data.tar.gz: f4ecb55606714316e9cc945a275bf03a764ba2e2
 SHA512:
-  metadata.gz: a4dbae8abf373e372b28bbba4b913e2afcc6045c0f4a2480dc8164fabcdbeaee09685530075828bf2b35de45ba62145c7f7b5f2d0769d5141edbd2cbf4b611e4
-  data.tar.gz: d404720017b40471a4c8abf19ccf6e2ee5261fbe1f43d3763e88992d027b5af3148911a0f6a92ec171917c293087aa33276e16d4ad66bcef68bb53dd55e1152f
+  metadata.gz: 167666500dd24a71c3191c0f9f5564c532e89833426beb37a6d27d2d20b78e1a0d942c88b41a172ebfc896d5cb9d3288f666adeee8b6ab02491ae885b80d22c0
+  data.tar.gz: 295e1599275dfef6e1b9e32957e58584ff5b27a28b8a0054824acbf74c8dd373f682710fd3d8cbfa45d2d1a24e10ee295726c57826fda1310249ab16e9173ce5

data/README.md

@@ -5,7 +5,7 @@
     Date        : 2014-06-18
 
     Copyright   : Copyright (C) 2014  Felix C. Stegerman
-    Version     : v0.1.2
+    Version     : v0.1.3
 
 []: }}}1
 
@@ -16,6 +16,7 @@
   obfusk.rb - functional programming library for ruby
 
 ## Examples
+
 []: {{{1
 
 ```ruby
@@ -37,6 +38,10 @@ x.match Bar: -> (_) { "it's a bar!" },
 # => "it's a bar!"
 ```
 
+[]: }}}1
+
+[]: {{{1
+
 ```ruby
 require 'obfusk/atom'
 
@@ -46,6 +51,32 @@ x._ # => 42
 x._ # => 53
 ```
 
+[]: }}}1
+
+[]: {{{1
+
+```ruby
+require 'obfusk/data'
+
+Obfusk.merge([1,2,3], 1 => 99)
+# => [1,99,3]
+
+x = { x: { y: 0 }, z: [1,2,3] }
+
+Obfusk.get_in x, :x, :y
+# => 0
+
+Obfusk.modify_in(x, :x, :y) { |v| v + 1 }
+# => { x: { y: 1 }, z: [1,2,3] }
+
+Obfusk.set_in(x, :z, 1, 99)
+# => { x: { y: 0 }, z: [1,99,3] }
+```
+
+[]: }}}1
+
+[]: {{{1
+
 ```ruby
 require 'obfusk/lazy'
 
@@ -60,6 +91,10 @@ z._ # => 42 (.new and .value not run until now)
 Obfusk.eager(lazy_or_not) # => value
 ```
 
+[]: }}}1
+
+[]: {{{1
+
 ```ruby
 require 'obfusk/list'
 
@@ -75,6 +110,10 @@ fibs.map { |x| x*x } .take(10).to_a
 # => [0, 1, 1, 4, 9, 25, 64, 169, 441, 1156]
 ```
 
+[]: }}}1
+
+[]: {{{1
+
 ```ruby
 require 'obfusk/monad'
 
@@ -94,6 +133,10 @@ g = -> y { '...' }
 Foo.new('...').pipeline f, g
 ```
 
+[]: }}}1
+
+[]: {{{1
+
 ```ruby
 require 'obfusk/monads'
 ms = Obfusk::Monads
@@ -108,14 +151,15 @@ ms.Left "oops"
 ms.Right 37
 ```
 
-...
-
 []: }}}1
 
+...
+
 ## Specs & Docs
 
 ```bash
 $ rake spec
+$ rake coverage
 $ rake docs
 ```
 

data/Rakefile

@@ -13,6 +13,11 @@ task 'spec:less' do
   sh 'rspec -cfd --tty | less -R'
 end
 
+desc 'Run specs w/ coverage'
+task :coverage do
+  ENV['COVERAGE'] = 'yes'; Rake::Task['spec'].execute
+end
+
 desc 'Check for warnings'
 task :warn do
   sh 'ruby -w -I lib -r obfusk -e ""'   # TODO
@@ -41,7 +46,7 @@ end
 
 desc 'Cleanup'
 task :clean do
-  sh 'rm -rf .yardoc/ doc/ *.gem'
+  sh 'rm -rf .yardoc/ coverage/ doc/ *.gem'
 end
 
 desc 'Build SNAPSHOT gem'

data/lib/obfusk.rb

@@ -1,5 +1,6 @@
 require 'obfusk/adt'
 require 'obfusk/atom'
+require 'obfusk/data'
 require 'obfusk/lazy'
 require 'obfusk/list'
 require 'obfusk/monad'

data/lib/obfusk/data.rb

@@ -0,0 +1,85 @@
+# --                                                            ; {{{1
+#
+# File        : obfusk/data.rb
+# Maintainer  : Felix C. Stegerman <flx@obfusk.net>
+# Date        : 2014-06-18
+#
+# Copyright   : Copyright (C) 2014  Felix C. Stegerman
+# Licence     : LGPLv3+
+#
+# --                                                            ; }}}1
+
+nil
+
+class Array
+  # merge array; see Obfusk.merge
+  def __obfusk_merge__(h = {})
+    dup.__obfusk_merge__! h
+  end
+
+  # merge! array; see Obfusk.merge
+  def __obfusk_merge__!(h = {})
+    h.each_pair { |k,v| self[k] = v }; self
+  end
+end
+
+module Obfusk
+  # -- data structures --
+
+  # merge anything that responds to `.__obfusk_merge__` or `.merge`
+  def self.merge(x, h = {})
+    x.respond_to?(:__obfusk_merge__) ? x.__obfusk_merge__(h) : x.merge(h)
+  end
+
+  # merge anything that responds to `.__obfusk_merge__!` or `.merge!`
+  def self.merge!(x, h = {})
+    x.respond_to?(:__obfusk_merge__!) ? x.__obfusk_merge__!(h) : x.merge!(h)
+  end
+
+  # -- nested data structures --
+
+  # get nested key in nested datastructure
+  def self.get_in(o, *ks, &b)
+    ks.each { |k| o = o.fetch(k) { return b ? b[] : nil } }; o
+  end
+
+  # swap value for nested key in nested datastructure; autovivifies
+  # missing keys as hashes
+  # @return a new datastructure
+  def self.modify_in(o, k, *ks, &b)
+    ks_ = [k] + ks; os = nested_objects o, *ks_; o_ = b[os.pop]
+    ks_.reverse.each { |k| o_ = merge(os.pop, k => o_) }; o_
+  end
+
+  # swap value for nested key in nested datastructure; autovivifies
+  # missing keys as hashes
+  # @return modified datastructure
+  def self.modify_in!(o, k, *ks, &b)
+    ks_ = [k] + ks; os = nested_objects o, *ks_; o_ = b[os.pop]
+    ks_.reverse.each { |k| o_ = merge!(os.pop, k => o_) }; o_
+  end
+
+  # get stack of objects for nested key in nested datastructure;
+  # autovivifies missing keys as hashes
+  def self.nested_objects(o, *ks)
+    [o] + ks.map { |k| o = o.fetch(k) { {} } }
+  end
+
+  # set value for nested key in nested datastructure
+  # @return a new datastructure
+  def self.set_in(o, *ks, v)
+    modify_in(o, *ks) { |_| v }
+  end
+
+  # set value for nested key in nested datastructure
+  # @return modified datastructure
+  def self.set_in!(o, *ks, v)
+    modify_in!(o, *ks) { |_| v }
+  end
+
+  # -- ... --
+
+  # ...
+end
+
+# vim: set tw=70 sw=2 sts=2 et fdm=marker :

data/lib/obfusk/lazy.rb

@@ -2,13 +2,15 @@
 #
 # File        : obfusk/lazy.rb
 # Maintainer  : Felix C. Stegerman <flx@obfusk.net>
-# Date        : 2014-06-17
+# Date        : 2014-06-18
 #
 # Copyright   : Copyright (C) 2014  Felix C. Stegerman
 # Licence     : LGPLv3+
 #
 # --                                                            ; }}}1
 
+nil
+
 module Obfusk
   # lazy evaluation (thunk)
   def self.lazy(x = nil, &b)

data/lib/obfusk/version.rb

@@ -1,4 +1,4 @@
 module Obfusk
-  VERSION = '0.1.2'
+  VERSION = '0.1.3'
   DATE    = '2014-06-18'
 end

data/obfusk.gemspec

@@ -22,6 +22,7 @@ Gem::Specification.new do |s|
 
   s.add_development_dependency 'rake'
   s.add_development_dependency 'rspec'
+  s.add_development_dependency 'simplecov', '~> 0.7.1'
   s.add_development_dependency 'yard'
 
   s.required_ruby_version = '>= 1.9.1'

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: obfusk
 version: !ruby/object:Gem::Version
-  version: 0.1.2
+  version: 0.1.3
 platform: ruby
 authors:
 - Felix C. Stegerman
@@ -38,6 +38,20 @@ dependencies:
     - - ">="
       - !ruby/object:Gem::Version
         version: '0'
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.7.1
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.7.1
 - !ruby/object:Gem::Dependency
   name: yard
   requirement: !ruby/object:Gem::Requirement
@@ -66,6 +80,7 @@ files:
 - lib/obfusk.rb
 - lib/obfusk/adt.rb
 - lib/obfusk/atom.rb
+- lib/obfusk/data.rb
 - lib/obfusk/lazy.rb
 - lib/obfusk/list.rb
 - lib/obfusk/monad.rb