fuby 0.0.1

data/lib/fuby/to_regexp.rb

@@ -0,0 +1,38 @@
+module Fuby
+  refine ::Regexp do
+
+    def to_regexp
+      dup
+    end
+
+    alias_method :to_re, :to_regexp
+
+  end
+  refine ::Array do
+
+    def to_regexp
+      ::Regexp.new map { |term| term.to_regexp.source }.join '|'
+    end
+
+    alias_method :to_re, :to_regexp
+
+  end
+  refine ::String do
+
+    def to_regexp
+      ::Regexp.new "(_|\\b|[^A-z])#{ ::Regexp.escape self }(_|\\b|[^A-z])"
+    end
+
+    alias_method :to_re, :to_regexp
+
+  end
+  refine ::Symbol do
+
+    def to_regexp
+      to_s.to_re
+    end
+
+    alias_method :to_re, :to_regexp
+
+  end
+end

data/lib/fuby/to_snake_case.rb

@@ -0,0 +1,28 @@
+require_relative 'to_components'
+
+using Fuby
+
+module Fuby
+  refine ::String do
+
+    def to_snake_case
+      to_components.join('_').downcase
+    end
+
+    def to_SNAKE_CASE
+      to_components.join('_').upcase
+    end
+
+  end
+  refine ::Symbol do
+
+    def to_snake_case
+      @to_snake_case ||= to_s.to_snake_case.to_sym
+    end
+
+    def to_SNAKE_CASE
+      @to_SNAKE_CASE ||= to_s.to_SNAKE_CASE.to_sym
+    end
+
+  end
+end

data/lib/fuby/to_tok.rb

@@ -0,0 +1,27 @@
+
+module Fuby
+  module ::Enumerable # can't refine Module
+
+    def to_tok
+      ::Proc.new &method(:[])
+    end
+
+  end
+  refine ::Hash do
+
+    def to_tok
+      invert.to_proc
+    end
+
+  end
+  refine ::Regexp do
+    
+    def to_tok
+      proc do |str|
+        match = str.match self
+        match.names[ match.captures.index &:just? ].to_sym
+      end
+    end
+
+  end
+end

data/lib/fuby/tok.rb

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

data/lib/fuby/tok_arity.rb

@@ -0,0 +1,18 @@
+module Fuby
+  refine ::Proc do
+
+    def tok_arity
+      arity.tok_arity
+    end
+
+  end
+  refine ::Integer do
+
+    TOK_ARITY = [ :nullary, :unary, :binary, :ternary, :quaternary ].freeze
+
+    def tok_arity
+      TOK_ARITY[ self ]
+    end
+
+  end
+end

data/lib/fuby/tok_direction.rb

@@ -0,0 +1,16 @@
+require_relative 'define_tok'
+
+module Fuby
+  refine ::String do
+
+    define_tok :tok_direction, up:         /^u/i,
+                               down:       /^d/i,
+                               left:       /^l/i,
+                               right:      /^r/i,
+                               ascending:  /^ascending/i,
+                               asc:        /^asc/i,
+                               descending: /^descending/i,
+                               desc:       /^desc/i
+
+  end
+end

data/lib/fuby/tok_parity.rb

@@ -0,0 +1,11 @@
+module Fuby
+  refine ::Integer do
+
+    TOK_PARITY = [ :even, :odd ].freeze
+
+    def tok_parity
+      TOK_PARITY[ self % 2 ]
+    end
+
+  end
+end

data/lib/fuby/tok_side.rb

@@ -0,0 +1,11 @@
+require_relative 'define_tok'
+
+module Fuby
+  refine ::String do
+
+    define_tok :tok_side, top:    /^t/i,
+                          left:   /^l/i,
+                          right:  /^r/i,
+                          bottom: /^b/i
+  end
+end

data/lib/fuby/try.rb

@@ -0,0 +1,73 @@
+module Fuby
+  refine ::Object do
+
+    def try *sig, &blk
+      if sig.empty?
+        if block_given?
+          result = yield Try::Many.new self
+          return result.__unwrap__ if Try::Base === result
+          return result
+        end
+        return Try::Once.new self
+      else
+        return send *sig, &blk if respond_to? sig.first 
+        return nil
+      end
+    end
+
+    def try? *sig, &blk
+      if sig.empty?
+        if block_given?
+          result = yield Try::Many.new self, self
+          return result.__unwrap__ if Try::Base === result
+          return result
+        end
+        return Try::Once.new self, self
+      else
+        return send *sig, &blk if respond_to? sig.first 
+        return self
+      end
+    end
+
+  end
+  module Try
+
+    class Base < BasicObject
+
+      def initialize object, maybe = nil
+        @object = object
+        @maybe  = maybe
+        @class  = (class << self; self end).superclass
+      end
+
+      def method_missing key, *sig, &blk
+        return __wrap__ @object.send key, *sig, &blk if @object.respond_to? key
+        return __wrap__ nil
+      end
+
+      def __unwrap__
+        @object.nil? ? @maybe : @object
+      end
+
+      def __wrap__ result
+        @class.new result, @maybe
+      end
+
+    end
+
+    class Once < Base
+
+      def __wrap__ result
+        super.__unwrap__
+      end
+
+    end
+
+    class Many < Base
+    end
+
+  end
+end
+
+Dir.glob "#{ __FILE__.chomp ".rb" }_*.rb", &method(:require)
+

data/lib/fuby/try_each.rb

@@ -0,0 +1,25 @@
+require_relative 'try'
+
+using Fuby
+
+module Fuby
+  refine ::Object do
+
+    def try_each *sig, &blk
+      return Try::Each.new self if sig.empty? && !blk
+      return each { |arg| arg.try *sig, &blk }
+    end
+
+  end
+  module Try
+
+    class Each < Base
+
+      def method_missing *sig, &blk
+        @object.each { |arg| arg.try *sig, &blk }
+      end
+
+    end
+
+  end
+end

data/lib/fuby/try_eval.rb

@@ -0,0 +1,19 @@
+require 'fuby/try'
+
+module Fuby
+  refine ::Object do
+
+    def try_eval &blk
+      result = (Try::Many.new self).instance_eval &blk
+      return result.__unwrap__ if Try::Base === result
+      return result
+    end
+
+    def try_eval? &blk
+      result = (Try::Many.new self, self).instance_eval &blk
+      return result.__unwrap__ if Try::Base === result
+      return result
+    end
+
+  end
+end

data/lib/fuby/try_exec.rb

@@ -0,0 +1,15 @@
+require_relative 'try_eval'
+
+module Fuby
+  refine ::Object do
+
+    def try_exec &blk
+      try_eval &blk
+    end
+
+    def try_exec? &blk
+      try_eval? &blk
+    end
+
+  end
+end

data/lib/fuby/unabbreviation.rb

@@ -0,0 +1,17 @@
+require 'fuby/abbreviation'
+
+module Fuby
+  refine ::Symbol do
+
+    attr_reader :unabbreviation
+    alias_method :unabbr, :unabbreviation
+
+    def unabbreviation= sym
+      raise ArgumentError, "`unabbreviation` of a Symbol must be a Symbol, found #{ sym.class }: #{ sym }" unless Symbol === sym
+      raise ArgumentError, "`unabbreviation` of :#{ self } already :#{ unabbreviation }, found #{ sym }" unless @unabbreviation.nil? || @unabbreviation == sym
+      return if @unabbreviation == sym
+      @unabbreviation = sym and sym.abbreviation = self
+    end
+
+  end
+end

data/lib/fuby/unshift.rb

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

data/lib/fuby/unshift_options.rb

@@ -0,0 +1,11 @@
+require_relative 'shift_options'
+
+module Fuby
+  refine ::Array do
+
+    def unshift_options *defaults
+      shift_options(*defaults).tap { |opt| push opt }
+    end
+
+  end
+end

data/lib/fuby/uuid.rb

@@ -0,0 +1,28 @@
+require_relative 'format'
+
+require 'securerandom'
+
+module Fuby
+  refine ::String.singleton_class do
+
+    def uuid
+      ::SecureRandom.uuid.gsub '-', '_'
+    end
+
+  end
+  refine ::Symbol.singleton_class do
+
+    def uuid
+      ::String.uuid.to_sym
+    end
+
+    def __uuid
+      :"__%s" % ::String.uuid
+    end
+
+    def __uuid__
+      :"__%s__" % ::String.uuid
+    end
+
+  end
+end

data/test/fuby/abbreviation.rb

@@ -0,0 +1,25 @@
+require 'fuby/abbreviation'
+
+using Fuby
+
+describe Symbol do
+  describe "abbreviation" do
+    it "gets the abbreviation for the receiver" do
+
+      :ascending.abbreviation = :asc
+      :ascending.abbreviation.must_equal :asc
+
+      :desc.unabbreviation = :descending
+      :descending.abbreviation.must_equal :desc
+
+    end
+  end
+  describe "abbreviation=" do
+    it "results in an error if the abbreviation is set twice" do
+
+      :ascending.abbreviation = :asc
+      -> { :ascending.abbreviation = :a }.must_raise ArgumentError
+
+    end
+  end
+end

data/test/fuby/alias_method.rb

@@ -0,0 +1,29 @@
+require 'fuby/alias_method'
+
+using Fuby
+
+describe Module do
+  describe "alias_method! existing_method_name" do
+    it "creates and returns a new symbol that aliases the existing_method_name" do
+
+      class A
+
+        def foo
+          5
+        end
+
+        eval %{
+
+          def foo
+            #{ alias_method! :foo } * 10
+          end
+
+        }
+
+      end
+
+      A.new.foo.must_equal 50
+
+    end
+  end
+end

data/test/fuby/all.rb

@@ -0,0 +1,15 @@
+require 'fuby/all'
+
+using Fuby
+
+describe Enumerable do
+  describe "all?" do
+    it "the behaviour of `all?` is modified in order to allow object (as well as Proc) arguments" do
+
+      [1, 2, 3].all?.must_be_instance_of Method
+      [1, 2, 3].all?.call(String).must_equal false
+      [1, 2, 3].all?(Integer).must_equal true
+
+    end
+  end
+end