fuby 0.0.1

data/lib/fuby/method_added_as.rb

@@ -0,0 +1 @@
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/method_added_as_binary_operator.rb

@@ -0,0 +1,16 @@
+module Fuby
+  refine ::Module do
+
+    def method_added_as_binary_operator *names
+      names.each do |name|
+        prepend! do
+          define_method name do |*sig|
+            return method name if sig.empty?
+            return super *sig
+          end
+        end
+      end
+    end
+
+  end
+end

data/lib/fuby/method_added_as_filter.rb

@@ -0,0 +1,19 @@
+require 'fuby/prepend'
+require 'fuby/to_pred'
+
+module Fuby
+  refine ::Module do
+
+    def method_added_as_filter *names
+      names.each do |name|
+        prepend! do
+          define_method name do |match = nil, &pred|
+            return method name if match.nil? && pred.nil?
+            return super &(pred || match.to_pred)
+          end
+        end
+      end
+    end
+
+  end
+end

data/lib/fuby/new.rb

@@ -0,0 +1,16 @@
+module Fuby
+  refine ::Float.singleton_class do
+
+    def new
+      0.0
+    end
+
+  end
+  refine ::Integer.singleton_class do
+
+    def new
+      0
+    end
+
+  end
+end

data/lib/fuby/not.rb

@@ -0,0 +1,25 @@
+using Fuby
+
+module Fuby
+  refine ::Proc do
+
+    def not
+      proc { |*sig, &blk| ! call *sig, &blk }
+    end
+
+  end
+  refine ::TrueClass do
+
+    def not
+      false
+    end
+
+  end
+  refine ::FalseClass do
+
+    def not
+      true
+    end
+
+  end
+end

data/lib/fuby/opposite.rb

@@ -0,0 +1,29 @@
+using Fuby
+
+module Fuby
+
+  refine ::Symbol do
+
+    attr_reader :opposite
+
+    def opposite= sym
+      raise ::ArgumentError, "`opposite` of a Symbol must be a Symbol, found #{ sym.class }: #{ sym }" unless ::Symbol === sym
+      raise ::ArgumentError, "`opposite` of :#{ self } already :#{ opposite }, found: #{ sym }" unless @opposite.nil? || @opposite == sym
+      return if @opposite == sym
+      @opposite = sym and sym.opposite = self
+    end
+
+  end
+
+  :up          .opposite = :down
+  :top         .opposite = :bottom
+  :left        .opposite = :right
+  :first       .opposite = :last
+  :top_left    .opposite = :bottom_right
+  :bottom_left .opposite = :top_right
+  :asc         .opposite = :desc
+  :ascending   .opposite = :descending
+  :to          .opposite = :from
+  :next        .opposite = :previous
+
+end

data/lib/fuby/or.rb

@@ -0,0 +1,9 @@
+module Fuby
+  refine ::Hash do
+
+    def | that
+      dup.merge(that) { |key, src, dst| src }
+    end
+
+  end
+end

data/lib/fuby/otherwise.rb

@@ -0,0 +1,18 @@
+using Fuby
+
+module Fuby
+  refine ::Object do
+
+    def otherwise that = nil
+      self
+    end
+
+  end
+  refine ::NilClass do
+
+    def otherwise that = nil
+      block_given? ? yield : that
+    end
+
+  end
+end

data/lib/fuby/part_of.rb

@@ -0,0 +1,16 @@
+require_relative 'method_added_as_binary_operator'
+require_relative 'eql_componentwise'
+
+using Fuby
+
+module Fuby
+  module ::Enumerable # can't refine Module
+
+    def part_of? that
+      count <= that.count and eql_componentwise? that
+    end
+
+    method_added_as_binary_operator :part_of?
+
+  end
+end

data/lib/fuby/plus.rb

@@ -0,0 +1,10 @@
+module Fuby
+  refine ::Regexp do
+
+    def + that
+      that = that.source if Regexp === that
+      self.class.new source + that.source, options
+    end
+
+  end
+end

data/lib/fuby/pop.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Array do
+
+    def pop i = 1
+      return super i % length unless empty?
+    end
+
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/pop_if.rb

@@ -0,0 +1,15 @@
+require_relative 'method_added_as_filter'
+
+using Fuby
+
+module Fuby
+  refine ::Array do
+
+    def pop_if &blk
+      pop if yield first
+    end
+
+    method_added_as_filter :pop_if
+
+  end
+end

data/lib/fuby/pop_options.rb

@@ -0,0 +1,15 @@
+module Fuby
+  refine ::Array do
+
+    def pop_options *defaults
+      defaults.each_with_object (Hash === last ? pop : {}) do |dft, opt|
+        opt.merge!(dft) { |key, val| val }
+      end
+    end
+
+    def push_options *defaults
+      pop_options(*defaults).tap { |opt| push opt }
+    end
+
+  end
+end

data/lib/fuby/pop_unless.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Array do
+
+    def pop_unless &blk
+      pop unless yield first
+    end
+
+    method_added_as_filter :pop_unless
+  
+  end
+end

data/lib/fuby/pop_until.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Array do
+
+    def pop_until &blk
+      pop count - (rindex &blk)
+    end
+
+    method_added_as_filter :pop_until
+
+  end
+end

data/lib/fuby/pop_while.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Array do
+
+    def pop_while &blk
+      pop_until &(blk.not)
+    end
+
+    method_added_as_filter :pop_while
+
+  end
+end

data/lib/fuby/prefix_of.rb

@@ -0,0 +1,14 @@
+require_relative 'part_of'
+
+module Fuby
+  refine ::Array do
+
+    alias_method :prefix_of?, :part_of?
+    alias_method :matches_prefix_of?, :matches_part_of?
+
+    method_added_as_binary_operator :prefix_of?, :matches_prefix_of?
+
+  end
+end
+
+Dir.glob "*_prefix_of.rb", &method(:require)

data/lib/fuby/prefixes.rb

@@ -0,0 +1,11 @@
+using Fuby
+
+module Fuby
+  refine ::Array do
+
+    def prefixes
+      length.downto(1).map &(method :take)
+    end
+
+  end
+end

data/lib/fuby/prepend.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Module do
+
+    def prepend! *includes, &body
+      prepend *includes unless includes.empty?
+      prepend ::Module.new(&body) if block_given?
+      self
+    end
+
+  end
+end

data/lib/fuby/private.rb

@@ -0,0 +1,11 @@
+using Fuby
+
+module Fuby
+  refine ::Method do
+
+    def private? inherited = true
+      owner.private_instance_methods(inherited).include? name
+    end
+
+  end
+end

data/lib/fuby/protected.rb

@@ -0,0 +1,11 @@
+using Fuby
+
+module Fuby
+  refine ::Method do
+
+    def protected? inherited = true
+      owner.protected_instance_methods(inherited).include? name
+    end
+
+  end
+end

data/lib/fuby/public.rb

@@ -0,0 +1,11 @@
+using Fuby
+
+module Fuby
+  refine ::Method do
+
+    def public? inherited = true
+      owner.public_instance_methods(inherited).include? name
+    end
+
+  end
+end

data/lib/fuby/push.rb

@@ -0,0 +1 @@
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/push_options.rb

@@ -0,0 +1,9 @@
+module Fuby
+  refine ::Array do
+
+    def push_options *defaults
+      pop_options(*defaults).tap { |opt| push opt }
+    end
+
+  end
+end

data/lib/fuby/random.rb

@@ -0,0 +1,31 @@
+using Fuby
+
+require 'securerandom'
+
+module Fuby
+  refine ::Range do
+
+    def random
+      min + ::SecureRandom.random_number(max - min)
+    end
+
+  end
+  refine ::String.singleton_class do
+
+    def random n = 64
+      ::SecureRandom.random_bytes(64).codepoints.each_with_object("") { |n, s| s << n % 26 + 97 }
+    end
+
+  end
+  refine ::Symbol.singleton_class do
+
+    def random n = nil
+      ::String.random(n).to_sym
+    end
+
+    def __random__ n = 64
+      :"__%s__" % ::String.random(n)
+    end
+
+  end
+end

data/lib/fuby/self_and_descendants.rb

@@ -0,0 +1,15 @@
+require_relative 'descendants'
+
+using Fuby
+
+module Fuby
+  refine ::Module do
+
+    def self_and_descendants type = ::Module
+      them = descendants type
+      them << self if type === self
+      them
+    end
+
+  end
+end

data/lib/fuby/shift.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Array do
+
+    def shift i = 1
+      return super i % length unless empty?
+    end
+
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)

data/lib/fuby/shift_if.rb

@@ -0,0 +1,12 @@
+require_relative 'method_added_as_filter'
+
+module Fuby
+  refine ::Array do
+
+    def shift_if
+      shift if yield first
+    end
+
+    method_added_as_filter :shift_if
+  end
+end

data/lib/fuby/shift_options.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Array do
+
+    def shift_options *defaults
+      defaults.each_with_object Hash === first ? shift : {} do |default, opt|
+        opt.merge!(default) { |key, preexisting| preexisting }
+      end
+    end
+
+  end
+end