tagen 1.1.7 → 2.0.0

data/lib/tagen/core/class.rb

@@ -0,0 +1 @@
+require "active_support/core_ext/class"

data/lib/tagen/core/enumerable.rb

@@ -1,20 +1,17 @@
-=begin
-
-== enumerate it
-
-* collect{k,v}  Array#map!
-* each_cons(n),{}=>nil each_slice
-
-== retrive value
-* [slice]
-* first/last(),(n)   Array#first!
-* find{} find_index(v),{} find_all Array#find! Array#find_all!
-* grep(obj),{=>v} 
-
-* Array#delete(v) delete_at(i) clear()
-
-=end
 module Enumerable
-
-
+  # Returns an array of every element in enum for each pattern === element
+  #
+  # @example
+  #
+  #  a = %w[aa ab bb cc]
+  #  a.grep_values(/a./, "bb")   -> ["aa", "ab", "bb"]
+  #
+  # @return [Array]
+  def grep_values(*patterns, &blk)
+    patterns.each.with_object([]) {|pat,m|
+      m.push *grep(pat, &blk)
+    }
+  end
 end
+
+require "active_support/core_ext/enumerable"

data/lib/tagen/core/enumerator.rb

@@ -1,11 +1,18 @@
 class Enumerator
-	# combine with_index and with_object
-	# @see with_index, with_object
+	# Combine with_index and with_object.
 	#
 	# @example
-	#   (1..7).each.with_iobject([]){|(*args), idx, memo|}
-	#   (1..7).each.with_iobject(2, []){|(*args), idx, memo|} # offset is 2
-	#
+  #
+	#   %w[a b].each.with_iobject([]){|v, i, memo|
+  #     memo << [v, i]
+  #   }
+  #   -> [a, 0], [b, 1]
+  #
+	#   %w[a b].each.with_iobject(2, []){|v, i, memo|
+  #     memo << [v, i]
+  #   }
+  #   -> [a, 2], [b, 3]
+  #
 	# @overload with_iobject(*args)
 	#   @param [Fixnum,Object] *args pass Fixnum as offset, otherwise as memo_obj
 	#   @return Enumerator
@@ -14,16 +21,19 @@ class Enumerator
 	#   @yieldparam [Object] (*args)
 	#   @yieldparam [Fixnum] idx index
 	#   @yieldparam [Object] memo_obj 
-	def with_iobject *args, &blk
+  #
+	# @see with_index
+  # @see with_object
+	def with_iobject(*args, &blk)
 		return self.to_enum(:with_iobject, *args) unless blk
 
-		offset = args.find!{|v| Fixnum===v} || 0
-		raise ArgumentError "must provide memo_obj" if args.empty?
-		memo = args[0]
+    (offset,), (memo,) = args.partition{|v| Fixnum === v}
+    index = offset || 0
+		raise ArgumentError, "must provide memo object" unless memo
 
-		i = offset-1
-		self.with_object memo do |args, m|
-			blk.call args,i+=1,m
+		with_object(memo) do |args2, m|
+			blk.call args2, index, m
+      index += 1
 		end
 	end
 end

data/lib/tagen/core/exception.rb

@@ -1,16 +1,18 @@
-# +exit code+ for shell programming. 
+# +exit_code+ for shell programming. 
 #
 # @example
 #
 #   MyError = Class.new(Exception)
 #   MyError.exit_code = 1
 #
-#   class MyError2 < Exception; @@eixt_code=1 end
+#   class MyError2 < Exception 
+#     @@eixt_code=1 
+#   end
 #
 #   begin
 #     ...
 #   rescue MyError => e
-#     p e.exit_code #=> 1
+#     p e.exit_code    -> 1
 #  end
 class Exception
   class << self

data/lib/tagen/core/file.rb

@@ -0,0 +1 @@
+require "tagen/core/io"

data/lib/tagen/core/hash.rb

@@ -1,39 +1,4 @@
-class Hash  
-	alias :original_delete :delete
-
-	# support delete more than one keys
-	#
-	#   original: delete(key)
-	#   current:  delete(*keys)
-	#
-	# return [Hash]
-	def delete *keys, &blk
-		values = keys.each.with_object [] do |k,m|
-			m << original_delete(k, &blk)
-		end
-		keys.length==1 ? values[0] : values
-	end
-
-  # confict with awesome_print which extend Array#grep
-  #
-  # grep pat at hash's keys, and return a new hash.
-  # @see Array#grep
-  #
-  # @example
-  #
-  #  foo = {a: 1, b: 2}
-  #  foo.grep(:a) #=> {a: 1}
-  #
-  # @return [Hash]
-  #def grep(pat_s)
-  #  pats = Array===pat_s ? pat_s : [pat_s]
-#
-#    filtered_keys = pats.each.with_object([]) { |pat, memo|
-#      memo.push *self.keys.grep(pat)
-#    }
-#    filtered_keys.each.with_object({}) { |k,memo|
-#      memo[k] = self[k]
-#    }
-#  end
-
-end # class Hash
+require "active_support/core_ext/hash/keys"
+require "active_support/core_ext/hash/slice"
+require "active_support/core_ext/hash/deep_dup"
+require "active_support/core_ext/hash/deep_merge"

data/lib/tagen/core/integer.rb

@@ -0,0 +1,2 @@
+require "active_support/core_ext/integer/multiple"
+require "active_support/core_ext/integer/inflections"

data/lib/tagen/core/io.rb

@@ -1,29 +1,62 @@
-=begin
-Additional Method list
-----------------------
+require "tagen/core/array/extract_options"
 
-* `#fd` _alias from fileno_
-
-=end
 class IO 
+  class << self
+    # Extends IO#write with :mkdir option
+    #
+    # @overload write(name, string, [offset], [open_args])
+    #   @param [Hash] open_args 
+    #   @option open_args [Boolean] :mkdir auto create missing directory in path
+    def write_with_tagen(name, string, *args)
+      (offset,), o = args.extract_options
+      mkdir_p(File.dirname(name)) if o[:mkdir]
+
+      write_without_tagen(name, string, offset, o)
+    end
+
+    alias write_without_tagen write
+    alias write write_with_tagen
+
+    # A convient method to append a file.
+    #
+    # @overload append(name, string, [offset], [open_args])
+    #   @param [Hash] open_args 
+    #   @option open_args [Boolean] :mkdir auto create missing directory in path
+    #  
+    # @example
+    #
+    #  File.append("/tmp/a", "hello world")
+    #
+    # @see write
+    def append(name, string, *args)
+      (offset,), o = args.extract_options
+      o[:mode] = "a"
+
+      write(name, string, offset, o)
+    end
+
+  private
+
+    # @param [Hash] o options
+    # @option o [Fixnum] :mode (0775)
+    def mkdir_p(path, o={})
+      return if File.exists?(path)
+
+      o[:mode] ||= 0775
+
+      stack = []
+      until path == stack.last
+        break if File.exists?(path)
+        stack << path
+        path = File.dirname(path)
+      end
+
+      stack.reverse.each do |p|
+        Dir.mkdir(p)
+        File.chmod(o[:mode], p)
+      end
+    end
+  end
 
-	# a convient function to write text.
-	#
-	#   use open(path, "w"){|f| f.write(text)}
-	#
-	# @param [String] path
-	# @param [String] text
-	# @return [String]
-	def self.write(path, text) open(path, "w"){|f| f.write(text)} end
-
-	# a convient function to append text.
-	#
-	#   use open(path, "a"){|f| f.write(text)}
-	#
-	# @param [String] path
-	# @param [String] text
-	# @return [String]
-	def self.append(path, text) open(path, "a"){|f| f.write(text)} end
-
-	alias fd fileno
-end # class IO
+  alias fd fileno
+end

data/lib/tagen/core/kernel.rb

@@ -1,64 +1,5 @@
-module Kernel 
-private
-
-	# like `cmd`, but with option support.
-	#
-	# @overload sh(cmd, o={})
-	#   @param [String] cmd a shell command
-	#   @param [Symbol, Hash] o support {Array#extract_extend_options}
-	#   @option o [Boolean] :verbose print cmd if verbose
-	#   @return [String] result
-	def sh(cmd, *args)
-		o = args.extract_extend_options!
-		puts cmd if o[:verbose]
-		`#{cmd}`
-	end
-
-	alias original_system system
-
-	# like Builtin system, but add option support
-	#
-	# @overload system(cmd, o={})
-	#   @param [String] cmd
-	#   @param [Symbol, Hash] o support {Array#extract_extend_options}
-	#   @option o [Boolean] :verbose  print cmd if verbose
-	#   @return [Boolean,nil] true false nil
-	def system(*cmds)
-		o = cmds.extract_extend_options!
-		cmd = cmds.join(" ")
-		puts cmd if o[:verbose]
-		original_system cmd
-	end
-
-	# convert block to method.
-	#
-	#   you can call a block with arguments
-	#
-	# @example USAGE
-	#   instance_eval(&blk)
-	#   blk2method(&blk).call *args
-	#
-	def blk2method(&blk)
-		self.class.class_eval {
-			define_method(:__blk2method, &blk)
-    }
-		method(:__blk2method)
-	end
-
-	# detect Platform information.
-	#
-	#   RUBY_PLATFORM is "i686-linux" "i386-migw32"
-	#
-	# @return [Boolean]
-	def linux?
-    RUBY_PLATFORM =~ /linux/ 
-  end  
-
-	# detect PLatform information.
-	#
-	# @return [Boolean]
-	# @see {#linux?}
-	def win32?
-    RUBY_PLATFORM =~ /mingw32|mswin/ 
-  end 
-end # module Kernel
+require "tagen/core/kernel/shell"
+require "tagen/core/kernel/deprecate"
+require "tagen/core/kernel/platform"
+require "active_support/core_ext/kernel/reporting" 
+require "active_support/core_ext/kernel/agnostics"

data/lib/tagen/core/kernel/deprecate.rb

@@ -0,0 +1,5 @@
+module Kernel
+  def deprecate(msg)
+    puts "Deprecate: #{msg}"
+  end
+end

data/lib/tagen/core/kernel/platform.rb

@@ -0,0 +1,46 @@
+require "rbconfig"
+
+module Kernel
+private
+  # Return true when ruby is running in Linux Operation System.
+  def linux?
+    RbConfig::CONFIG["host_os"] =~ /linux|cygwin/
+  end
+
+  # Return true when ruby is running in Mac OS X.
+  def mac?
+    RbConfig::CONFIG["host_os"] =~ /mac|darwin/
+  end
+
+  # Return true when ruby is running in BSD Operation System.
+  def bsd?
+    RbConfig::CONFIG["host_os"] =~ /bsd/
+  end
+
+  # Return true when ruby is running in Windows Operation System.
+  def windows?
+    RbConfig::CONFIG["host_os"] =~ /mswin|mingw/
+  end
+
+  # Return true when ruby is running in Solaris Windows Operation System.
+  def solaris?
+    RbConfig::CONFIG["host_os"] =~ /solaris|sunos/
+  end
+
+  # Return true when ruby is running in symbian.
+  #
+  # TODO: who knows what symbian returns?
+  def symbian?
+    RbConfig::CONFIG["host_os"] =~ /symbian/
+  end
+
+  # Return true when ruby is running in Posix-compablity Operation System.
+  def posix?
+    linux? or mac? or bsd? or solaris? or begin 
+      fork do end
+      true
+    rescue NotImplementedError, NoMethodError
+      false
+    end
+  end
+end

data/lib/tagen/core/kernel/shell.rb

@@ -0,0 +1,45 @@
+module Kernel
+private
+
+	# run `cmd` with :show_cmd option.
+	#
+	# @overload sh(cmd, o={})
+	#   @param [String] cmd a shell command
+	#   @param [Hash] o 
+	#   @option o [Boolean] :show_cmd print cmd if true
+	#   @return [String] result
+  #
+  # @see Kernel#`
+	def sh(cmd, *args)
+    o = args.last.instance_of?(Hash) ? args.pop : {}
+		puts cmd if o[:show_cmd]
+		`#{cmd}`
+	end
+
+	# Extends the default Kernel#system with :show_cmd option.
+	#
+	# @overload system([env,] command...[, options])
+	#   @option options [Boolean] :show_cmd print cmd if true
+  #
+  # @see Kernel#system
+	def system_with_tagen(*args)
+    o = args.last.instance_of?(Hash) ? args.pop : {}
+    if Hash === args[0] then
+      env, *cmds = args
+    else
+      cmds = args
+    end
+
+    if o[:show_cmd]
+      puts cmds.join(" ") 
+      o.delete(:show_cmd)
+    end
+
+    system_without_tagen *args, o
+	end
+
+  alias system_without_tagen system
+  alias system system_with_tagen
+end
+
+$sudo = Process.pid != 0 && system("which sudo &>/dev/null") ? "sudo" : ""

data/lib/tagen/core/module.rb

@@ -1,11 +1,9 @@
-class Module 
-	# return hash instead of names
-	# @see constants
-	# 
-	# @return [Hash] {key: value}
-	def consts
-		constants.each.with_object ({}) do |k,m|
-			m[k] = const_get(k)
-		end
-	end
-end #class Module
+require "active_support/core_ext/module/aliasing"
+require "active_support/core_ext/module/introspection"
+require "active_support/core_ext/module/anonymous"
+require "active_support/core_ext/module/reachable"
+require "active_support/core_ext/module/attribute_accessors"
+require "active_support/core_ext/module/attr_internal"
+require "active_support/core_ext/module/delegation"
+require "active_support/core_ext/module/remove_method"
+require "active_support/core_ext/module/qualified_const"

data/lib/tagen/core/numeric.rb

@@ -1,10 +1,12 @@
 class Numeric 
-	# equivalent to a.fdiv(b).ceil. +1
+	# equivalent to `a.fdiv(b).ceil`. +1
 	#
 	# @param [Numeric] num
 	# @return [Numeric]
-	def div2 num
+	def div2(num)
 		d, m = divmod(num)
 		d + (m==0 ? 0 : 1)
 	end
 end
+
+require "active_support/core_ext/numeric/bytes"