mobj 3.1.0 → 3.2.0

checksums.yaml

@@ -1,15 +1,15 @@
 ---
 !binary "U0hBMQ==":
   metadata.gz: !binary |-
-    NTBkYzM1ZjkzNzcwYTJkM2E5YTJhMjcxNGYzMjllODdmZGUwMTUwOA==
+    OTI0OTdjNzQ4Y2E5NTE4YzdlOGI5YTc4N2UwMDY4MzM0MWI2ZGJhMA==
   data.tar.gz: !binary |-
-    YjdjZmI4MTIwOTRkNDc3YmY3ODY3MmRjYWIzNzE5ODcwNDE0MDVjZQ==
+    ZTcwOWYzYTY0MGEyOGQ0NDM2YjY0YzA1NjI3Mjc1OWM5NTQzZTZjMQ==
 !binary "U0hBNTEy":
   metadata.gz: !binary |-
-    NDdkMzFmZjNmZWQ1YzBiODM3YjUxYTM0MjVmYjAwNzNjNDY2N2RhMTE4NmM5
-    MjJhNGJlM2EzNWI5MmQ0NWZiNjY4NmVhYjhlOGYwYzBkMmE4YzgzZTVlNjc1
-    NWUxYTk2ZGU1YTVhZWY2NTBlZGZmNmNhNTU5MDhkMmRiMGQ1M2Q=
+    NWQ0MjJlMjkwOTc4MmIyNzZmNmJkMGQwMWIxOTMyZmFlMGQwNDllYjIyOTNl
+    NGNiNjg2NmI0ODNmMTEwYWYwNjAyZGE1OWU1ZGE5N2EyZTQ0ZWFmYzcxZTRk
+    YTBmZWM2MGM1NDkzOGMwYWIzMGZkNTUxNzcwYzg5ZDlkZGI3YTM=
   data.tar.gz: !binary |-
-    NmU5NzgzODkxOGVkYmI5NDllMzJlMjdhZTUxZjBmNDhhMzNjYzg2M2E4OTNk
-    Nzc1OTkxNmQ2N2M2N2RjYTI4MmRiODUwNmYzNTBhNjk0YzhlZDI4ODFkYzU5
-    MDRkMjEwZjVlMzI2Y2Q2Mjg4YjY4ZGQwNjU2ZGEyODZiOTIyNTE=
+    ZjYwZjEyNDY3NzEwNDE1NWMwYmI5NWViZmFmNmQ3ZjRlZDdlZGVlNThlNGRh
+    NWNkZjNhYWEwMzQ0MGIzMjE2ZDMxMzk2ODVlMzYwMzcwMzI3ODYyNzVlMjY4
+    NThiNWYzOGU3ZTBmZDQ1MDJmOGExMGE5MzRmMTZkMzA1NjE2ZDE=

data/README.md

@@ -127,7 +127,7 @@ foo.compact.size == 1 ? foo.compact.first : foo.compact
 ... becomes ...
 
 ```ruby
-foo.sequester
+foo.sequester!
 ```
 
 Hash utils:

data/lib/ext/array.rb

@@ -1,14 +1,27 @@
 module Mobj
 
   class ::Array
+
     alias_method :includes?, :include?
     alias_method :contains?, :include?
 
-    def unempty?()
-      !empty?
+    alias_method :mt?, :empty?
+    def filled?() !mt? end
+    alias_method :notempty?, :filled?
+    alias_method :full?, :filled?
+    alias_method :unempty?, :filled?
+
+    def ny?(method, *args)
+      any? { |o| o.send(method, *args) }
     end
 
-    alias_method :notempty?, :unempty?
+    def no?(method, *args)
+      none? { |o| o.send(method, *args) }
+    end
+
+    def ll?(method, *args)
+      all? { |o| o.send(method, *args) }
+    end
 
     def msum(initial = 0.0, op = :+, &block)
       if block
@@ -31,7 +44,7 @@ module Mobj
       self
     end
 
-    def sequester(crush = true)
+    def sequester!(crush = true)
       if crush
         compact.size <= 1 ? compact.first : self
       else
@@ -39,6 +52,10 @@ module Mobj
       end
     end
 
+    def realize!
+      empty? ? nil : self
+    end
+
     def return_first(&block)
       returned = nil
       each { |item| break if (returned = block.call(item)) }
@@ -46,15 +63,16 @@ module Mobj
     end
 
     alias_method :earliest, :return_first
+    alias_method :first!, :return_first
 
     def msym() map(&:sym) end
 
     def apply(to)
       map do |m|
-        if m.is_a?(Symbol)
+        if m.m?
           to.send(m)
         else
-          m.to_s.walk(to)
+          m.s!.walk(to)
         end
       end
     end

data/lib/ext/basic_object.rb

@@ -8,32 +8,14 @@ module Mobj
       klass.superclass
     end
 
-    def null!(*)
-      self
-    end
-
-    def nil!(*)
-      self
-    end
+    def itself() self end
+    alias_method :self!, :itself
 
-    def itself()
+    def p!(method=:puts)
+      send(method, self)
       self
     end
 
-    def wrap(*args, &block)
-      instance_exec(*args, &block)
-    end
-
-    alias_method :alter, :wrap
-
-    def tru?(t=true, _=nil, &block)
-      block ? instance_exec(t, &block) : t
-    end
-
-    def fals?(*)
-      nil
-    end
-
   end
 
 

data/lib/ext/false.rb

@@ -19,6 +19,11 @@ module Mobj
     end
 
     def iff?(_=nil)
+      nil
+    end
+
+    def iffn?(value = nil, &block)
+      block ? instance_exec(value, &block) : value
     end
 
   end

data/lib/ext/hash.rb

@@ -4,6 +4,13 @@ module Mobj
 
   module HashEx
 
+    def filled?() !mt? end
+
+    alias_method :notempty?, :filled?
+    alias_method :noempty?, :filled?
+    alias_method :full?, :filled?
+    alias_method :unempty?, :filled?
+
     def apply!(obj)
       map do |key, value|
         obj.send(key, *value)
@@ -48,7 +55,7 @@ module Mobj
       value = if name[-1] == '=' && args.size == 1
         key = name[0...-1].sym
         key = key.to_s if key?(key.to_s)
-        self[key] = args.sequester
+        self[key] = args.sequester!
       elsif name[-1] == '?'
         key = name[0...-1].sym
         !!self[key, key.to_s]
@@ -56,13 +63,13 @@ module Mobj
         key = name[0...-1].sym
         val = self[key.sym] || self[key.to_s]
         if !val && (block || args.unempty?)
-          self[key] = val = (block ? block.call(*args) : args.sequester)
+          self[key] = val = (block ? block.call(*args) : args.sequester!)
         end
         super unless val
       else
         self[name.sym] || self[name.to_s]
       end
-      value ||= args.sequester unless args.empty?
+      value ||= args.sequester! unless args.empty?
 
       return block ? block[value] : value
     end
@@ -75,12 +82,14 @@ module Mobj
   class ::Hash
     include HashEx
 
+    alias_method :mt?, :empty?
+
     alias_method :mlookup, :[]
     alias_method :mdef, :default
     alias_method :mfetch, :fetch
 
     def [](*fkeys)
-      fkeys.map { |key| mlookup(key) || mfetch(key.sym) { mfetch(key.to_s) { mfetch(ki(key).sym) { mfetch(ki(key).to_s) { mdef(key) } } } } }.sequester
+      fkeys.map { |key| mlookup(key) || mfetch(key.sym) { mfetch(key.to_s) { mfetch(ki(key).sym) { mfetch(ki(key).to_s) { mdef(key) } } } } }.sequester!
     end
 
     def sym(recurse=false)

data/lib/ext/nil.rb

@@ -27,6 +27,11 @@ module Mobj
     end
 
     def iff?(_=nil)
+      self
+    end
+
+    def iffn?(value = nil, &block)
+      block ? instance_exec(value, &block) : value
     end
 
     def null?(*)

data/lib/ext/object.rb

@@ -1,14 +1,80 @@
 module Mobj
 
   class ::Object
-    alias_method :responds_to?, :respond_to?
+
+    def null!(*) self end
+    def nil!(*) self end
+
+    def wrap!(*args, &block)
+      block ? instance_exec(*args, &block) : args.sequester!
+    end
+
+    alias_method :alter!, :wrap!
+    alias_method :be!, :wrap!
+
+    alias_method :with!, :tap
+
+    def tru?(t=true, _=nil, &block) block ? instance_exec(t, &block) : t end
+    def fals?(*) nil end
+
+    def iff?(value = nil, &block) block ? instance_exec(value, &block) : value end
+    def iffn?(_=nil) nil end
+
+    def responds_to?(*any)
+      any.flatten.select { |method| respond_to?(method) }.realize!
+    end
+
+    def responds_to_all?(*all)
+      responds_to?(all) == all
+    end
+
+    def a?(*kls)
+      kls.when.mt?.be!([Array]).any? { |k| is_a? k }
+    end
+
+    def p?() a? Proc end
+    def m?() a? Symbol end
+    def s?() a? String end
+    def i?() a? Fixnum end
+    def f?() a? Float end
+    def n?() a? Fixnum, Float end
+
+    def h?() a? Hash end
+    def c?() a? Array, Hash end
+
+    def x?() a? NilClass, FalseClass end
+
+    def z0?() respond_to?(:zero?) ? zero? : f!.zero? end
+
+    def un?()
+      x? || (s? && s !~ /\S/) || (c? && mt?) || (n? && z0?)
+    end
+
+    def o?() !un? end
 
     def i!() to_s.scan(/[\d\.]+/).join.to_i end #xxx strip out junk?
     def f!() to_s.scan(/[\d\.]+/).join.to_f end
-    def z0?() respond_to?(:zero?) ? zero? : f!.zero? end
+    def s!() to_s end
     def zeno!() z0? ? 1.0 : self end
 
-    alias_method :n?, :nil?
+    def u!(*args)
+      if a?
+        each { |i| i.u!(*args) }
+      else
+        if responds_to_all? :assign_attributes, :save
+          args.select(&:h?).each do |arg|
+            assign_attributes(arg)
+          end
+          save(validate:false)
+        elsif responds_to? :update_attribute
+          args.select(&:h?).each do |arg|
+            arg.each do |k, v|
+              update_attribute(k, v)
+            end
+          end
+        end
+      end
+    end
 
     def rand?
       rand(1000000).odd?
@@ -68,8 +134,9 @@ module Mobj
     alias_method :ifnil, :try?
 
     def when
+      iam = self
       Forwarder.new do |name, *args, &block|
-        if methods.include?(name) && __send__(name, *args, &block)
+        if (iam.respond_to?(name) || iam.methods.include?(name)) && (got = iam.__send__(name, *args, &block))
           thn = Forwarder.new do |name, *args, &block|
             if name.sym == :then
               thn
@@ -80,7 +147,7 @@ module Mobj
             end
           end
         else
-          Forwarder.new do |name|
+          ret = Forwarder.new do |name, *args, &block|
             if name.sym == :then
               els = Forwarder.new do |name|
                 if name.sym == :else
@@ -90,7 +157,7 @@ module Mobj
                 end
               end
             else
-              self
+              iam
             end
           end
         end
@@ -99,10 +166,6 @@ module Mobj
 
     alias_method :if?, :when
 
-    def iff?(value = nil, &block)
-      block ? instance_exec(value, &block) : value
-    end
-
   end
 
 end

data/lib/ext/string.rb

@@ -30,6 +30,8 @@ module Mobj
 
   class ::String
 
+    alias_method :mt?, :empty?
+
     def cfmt
       colors = ANSI.colors.keys.join
       opts   = ANSI.options.keys.join

data/lib/mobj.rb

@@ -9,6 +9,8 @@ module Mobj
     attr_accessor :root, :handler
     def initialize(root = nil, &handler) @root, @handler = root, handler end
     def method_missing(name, *args, &block) handler.call(name, *args, &block) end
+    def to_ary() [root, handler] end
+    def inspect() { class:self.class, root:root, handler:handler}.inspect end
   end
 
   class Token
@@ -16,15 +18,15 @@ module Mobj
       @type, @path, @options = type.to_sym, nil, {}
       tokens = []
       args.each do |arg|
-        if arg.is_a? Hash
+        if arg.h?
           @options.merge!(arg)
-        elsif arg.is_a? String
+        elsif arg.s?
           tokens << arg.sym
         else
           tokens << arg
         end
       end
-      @path = tokens.sequester
+      @path = tokens.sequester!
     end
 
     def to_s() "#{@type.to_s.upcase}(#@path#{ " => #@options" unless @options.empty?})" end
@@ -33,18 +35,18 @@ module Mobj
       obj.__mobj__reparent
       if path == :* || obj.nil?
         obj
-      elsif obj.is_a?(Array)
+      elsif obj.a?
         if path[0] == '*' && obj.respond_to?(path[1..-1].sym)
           obj.__send__(path[1..-1].sym)
         else
           obj.map { |o| extract(o, path) }
         end
-      elsif path.is_a?(Array)
+      elsif path.a?
         path.map { |pth| obj[pth.sym] }
       elsif path[0] == '*' && obj.respond_to?(path[1..-1].sym)
         obj.__send__(path[1..-1].sym)
       elsif obj.respond_to?(:[]) && (obj.is_a?(Hash) || path.to_s =~ /[0-9.-]+/)
-        if obj.is_a?(Hash)
+        if obj.h?
           obj[path.sym]
         else
           obj[path.to_s.to_i] if path.to_s =~ /^\d+$/
@@ -75,7 +77,7 @@ module Mobj
           else
             named = m.to_h.invert
             name = if named.empty?
-              m.captures.empty? ? key : m.captures.sequester
+              m.captures.empty? ? key : m.captures.sequester!
             else
               named.find { |k, v| !k.nil? }.attempt(key).last
             end
@@ -87,7 +89,7 @@ module Mobj
     end
 
     def walk(obj, root = obj)
-      obj, root = Circle.wrap(obj), Circle.wrap(root)
+      obj, root = Circle.wrap!(obj), Circle.wrap!(root)
       val = case @type
               when :literal
                 @path.to_s
@@ -135,16 +137,16 @@ module Mobj
   end
 
   class Circle
-    def self.wrap(wrapped)
+    def self.wrap!(wrapped)
       return wrapped if wrapped.is_a?(CircleHash) || wrapped.is_a?(CircleRay)
 
       if wrapped.is_a?(Array)
         circle = CircleRay.new
-        wrapped.each_with_index { |item, i| circle[i] = wrap(item) }
+        wrapped.each_with_index { |item, i| circle[i] = wrap!(item) }
         circle
       elsif wrapped.is_a?(Hash)
         circle = CircleHash.new
-        wrapped.each_pair { |key, val| circle[key] = wrap(val) }
+        wrapped.each_pair { |key, val| circle[key] = wrap!(val) }
         circle
       else
         wrapped
@@ -190,7 +192,7 @@ module Mobj
     end
 
     alias_method :lookup, :[]
-    def [](*keys) keys.map { |key| self.lookup(key) }.sequester end
+    def [](*keys) keys.map { |key| self.lookup(key) }.sequester! end
   end
 
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mobj
 version: !ruby/object:Gem::Version
-  version: 3.1.0
+  version: 3.2.0
 platform: ruby
 authors:
 - Mason Glaves
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-07-24 00:00:00.000000000 Z
+date: 2013-07-25 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec