tagen 0.2.1 → 0.2.3

data/README.md

@@ -32,7 +32,42 @@ use extra extension
 	require "pathname"
 	require "tagen/pathname"
 
-add #path method to Pathname, see API doc.
+or
+
+	require "tagen/pathname" # auto require "pathname"
+
+this will add #path method to Pathname, see API doc.
+
+An Introduction to Pa 
+---------------------
+
+	require "tagen/core"
+	pa = Pa('/home/foo')
+	pa.exists? #=> false
+	pa.dir #=> '/home'
+	pa.base #=> 'foo'
+	pa.join('a.ogg') #=> '/home/a.ogg'
+	pa.join(a.ogg).exists? #=> true.
+
+	Pa.exists?('/home/foo') # alternate way
+
+which rspec
+
+	Pa('/home/foo').should be_exists
+
+more see API doc
+
+An Introduction to PyFormat
+---------------------------
+
+	require "tagen/core"
+	"I like %{fruit} and %{sport}".format('apple', 'football') 
+	"I like %{fruit} and %{sport}".format(apple: 'apple', footbal: 'football') 
+
+	"it costs %{howmatch:.2f} dollars".format(1.123) #=> "it costs 1.12 dollars"
+	
+more see API doc
+
 
 Documentation
 -------------

data/Rakefile

@@ -6,11 +6,18 @@ task :release do
 	sh "rm *.gem"
 end
 
-desc "testing the library"
+desc "autotest with watchr"
 task :test do
 	sh "watchr tagen.watchr"
 end
 
+namespace :test do
+	desc "testing the whole library"
+	task :all do
+		sh "rspec --color spec"
+	end
+end
+
 def sh cmd
 	puts cmd
 	system cmd

data/TODO

@@ -0,0 +1 @@
+* Pa support home path. e.g. '~/.vimrc'

data/lib/tagen/audioinfo.rb

@@ -1,3 +1,4 @@
+require "audioinfo"
 =begin
 * **gem**: ruby-audioinfo
 =end

data/lib/tagen/cairo.rb

@@ -1,3 +1,5 @@
+require "cairo"
+
 # gdk_pixbuf2 for 
 # 	Context#set_source
 # 		set_source_pixbuf

data/lib/tagen/core.rb

@@ -19,6 +19,8 @@ require "pd"
 	core/object
 	core/module
 
+	core/enumerable
+	core/enumerator
 	core/numeric
 	core/string
 	core/array

data/lib/tagen/core/array.rb

@@ -38,4 +38,62 @@ class Array
 		end
 		indexs.length==1 ? values[0] : values
 	end
+
+
+	# first n values, not works at Range, Range don't have #replace method
+	# @note modify IN PLACE
+	#
+	# @example
+	#   a = %w(1 2 3)
+	#   a.first!(2)  #=> [1, 2]
+	#   a            #=> [3]
+	#   @return Array
+	def first! n=1
+		i = 0 
+		j = i + n
+		k = -1
+
+		ret = self[i...j]
+		self.replace self[j..k]
+		ret
+	end
+
+	# last n values
+	# @see first!
+	def last! n=1
+		i = -1 
+		j = -1 - n + 1
+		k = 0
+
+		ret = self[j..i]
+		self.replace self[k...j]
+		ret
+	end
+
+
+
+	# same as find, but delete the finded value 
+	def find! &blk
+		idx = self.find_index(&blk)
+		if idx
+			self.delete_at(idx)
+		else
+			nil
+		end
+	end
+
+	# same as find_all, but delete all finded values
+	def find_all! &blk
+		ret, rest = [], []
+		self.each do |k|
+			if blk.call(k)
+				ret << k
+			else
+				rest << k
+			end
+		end
+		self.replace rest
+		ret
+	end
+
 end # class Array

data/lib/tagen/core/enumerable.rb

@@ -0,0 +1,20 @@
+=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
+
+
+end

data/lib/tagen/core/enumerator.rb

@@ -0,0 +1,29 @@
+class Enumerator
+	# combine with_index and with_object
+	# @see with_index, with_object
+	#
+	# @example
+	#   (1..7).each.with_iobject([]){|(*args), idx, memo|}
+	#   (1..7).each.with_iobject(2, []){|(*args), idx, memo|} # offset is 2
+	#
+	# @overload with_iobject(*args)
+	#   @param [Fixnum,Object] *args pass Fixnum as offset, otherwise as memo_obj
+	#   @return Enumerator
+	#
+	# @overload with_iobject(*args)
+	#   @yieldparam [Object] (*args)
+	#   @yieldparam [Fixnum] idx index
+	#   @yieldparam [Object] memo_obj 
+	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]
+
+		i = offset-1
+		self.with_object memo do |args, m|
+			blk.call args,i+=1,m
+		end
+	end
+end

data/lib/tagen/core/module.rb

@@ -2,20 +2,21 @@ class Module
 
 	alias :original_append_features :append_features
 
-	# after include module, convert methods in  ClassMethods to class methods.
+	# after include module, convert methods in ClassMethods to class methods. a very clean design.
 	# @see ruby-core Module#append_features
 	#
 	# @example
 	#   module Guten
 	#   	module ClassMethods
-	#   		def foo; end     # after include Guten, method 'foo' becomes a class method.
+	#   		def foo; end      # this is class method.
 	#   	end
+	#
+	#    def bar; end # this is instance method. 
 	#	  end
 	#  
 	#   class Tag
-	#   	include Guten
+	#   	include Guten  # will auto Tag.extend(Guten::Classmethods)
 	#	  end
-	#	  Tag.foo
 	#
 	def append_features base
 		original_append_features base

data/lib/tagen/core/pa.rb

@@ -1,4 +1,4 @@
-=begin
+=begin rdoc
 Pa(Path) is similary to Pathname, but more powerful.
 it combines fileutils, tmpdir, find, tempfile, File, Dir, Pathname
 
@@ -53,58 +53,37 @@ Example3:
   name      n      filename of a path
   ext       e      extname of a path,  return "" or "ogg"  
   fext      fe     return "" or ".ogg"
-=end
 
+== used with rspec
+
+	File.exists?(path).should be_true
+	Pa(path).should be_exists
+
+=end
 class Pa 
 	Error = Class.new Exception
 	EUnkonwType = Class.new Error
 
-	attr_accessor :path
-	attr_reader :absolute, :dir, :base, :name, :ext, :fext
-	alias p path
-	alias a absolute
-	alias d dir
-	alias	b base
-	alias n name
-	alias e ext
-	alias fe fext
-
-	# @param [String,Pa,Pathname] path
-	# @api also used by replace
+	attr_reader :path
+
+	# @param [String,#path] path
 	def initialize path
-		@path = case path.class.to_s
-			when "Pathname"
-				path.to_s
-			when "Pa"
-				path.path
-			when "String"
-				path
-			else
-				raise ArgumentError, path.inspect
-			end
-		@absolute = Pa.absolute(@path) 
-		@dir = Pa.dirname(@path)
-		@base = Pa.basename(@path) 
-		@name, @ext = Pa.basename(@path, ext: true)
-		@fext = @ext.empty? ? "" : "."+@ext
+		@path = path.respond_to?(:path) ? path.path : path
+		initialize_variables
 	end
 
-	# @param [String,Pa,Pathname]
-	# @return [Pa] the same Pa object
-	def replace path
-		initialize path
+	chainable = Module.new do
+		def initialize_variables; end
 	end
+	include chainable
 
-	# add string to path
-	# 
-	# @example 
-	#  pa = Pa('/home/foo/a.txt')
-	#  pa+'~' #=> new Pa('/home/foo/a.txt~')
-	#
-	# @param [String] str
-	# @return [Pa]
-	def + str
-		Pa(@path+str)
+	alias p path
+
+	# @param [String,#path]
+	# @return [Pa] the same Pa object
+	def replace path
+		@path = path.respond_to?(:path) ? path.path : path
+		initialize_variables
 	end
 
 	# return '#<Pa @path="foo", @absolute="/home/foo">'
@@ -112,7 +91,7 @@ class Pa
 	# @return [String]
 	def inspect
 		ret="#<" + self.class.to_s + " "
-		ret += "@path=\"#{@path}\", @absolute=\"#{@absolute}\""
+		ret += "@path=\"#{path}\", @absolute=\"#{absolute}\""
 		ret += " >"
 		ret
 	end
@@ -124,53 +103,52 @@ class Pa
 		@path
 	end
 
-	# join path
-	#
-	# param [String] *names
-	# return [Pa]
-	def join(*names)
-		Pa(Pa.join(@path, *names))
-	end
+	# missing method goes to Pa.class-method 
+	def method_missing(name, *args, &blk)
+		ret = self.class.__send__(name, path, *args, &blk)
 
-	# get parent path
-	# 
-	# return [Pa] 
-	def parent
-		Pa(Pa.join(@path, '..'))
-	end
+		case ret	
 
+		# e.g. readlink ..
+		when String
+			Pa(ret)
+
+		# e.g. directory? 
+		else
+			ret
+		end
 
-	# missing method goes to Pa.class-method 
-	# return@ [Pa,..] return Pa for some methods.
-	def method_missing(name, *args, &blk)
-		ret = self.class.__send__(name, *args, @path, &blk)
-		[ :readlink ]
-			.include?(name) ? Pa(ret) : ret
 	end
-end
 
 
-require_relative "pa/path"
-require_relative "pa/cmd"
-require_relative "pa/dir"
-require_relative "pa/state"
+end
+
 class Pa
-class << self
+module ClassMethods
+	UNDEFS = [:open, :fstat]
 
 	# missing method goes to File class method
 	def method_missing name, *args, &blk
-		return if args.size>1
+		raise NoMethodError, name.inspect if UNDEFS.include?(name)
+		return if args.size>1 
 		File.__send__ name, get(args[0]), &blk
 	end
-
 end
 end
 
+require_relative "pa/path"
+require_relative "pa/cmd"
+require_relative "pa/dir"
+require_relative "pa/state"
 class Pa
-	extend Path
-	extend Directory
-	extend State
-	extend Cmd
+  extend ClassMethods
+  extend ClassMethods::Path
+  extend ClassMethods::Dir
+  extend ClassMethods::State
+  extend ClassMethods::Cmd
+
+  include Path
+  include State
 end
 
 module Kernel

data/lib/tagen/core/pa/cmd.rb

@@ -9,7 +9,7 @@ rm family
   rmdir path #  it's clear: remove a directory
 =end
 class Pa
-module Cmd
+module ClassMethods::Cmd
 
 	# chroot
 	# @see {Dir.chroot}
@@ -39,14 +39,12 @@ module Cmd
 	def _touch(paths, o)
 		o[:mode] ||= 0644
 		paths.map!{|v|get(v)}
-		paths.each {|p|
-			if exists?(p) 
-				o[:force] ? next : raise(Errno::EEXIST, "File exist -- #{p}")
+		paths.each {|path|
+			if File.exists?(path) 
+				o[:force] ? next : raise(Errno::EEXIST, "File exist -- #{path}")
 			end
 
-			if o[:mkdir]
-				mkdir(dirname(p))
-			end
+			mkdir(File.dirname(p)) if o[:mkdir]
 
 			if win32?
 				# win32 BUG. must f.write("") then file can be deleted.
@@ -137,9 +135,9 @@ module Cmd
 		collision = 0
 		path = "#{o[:dir]}/#{o[:prefix]}#{$$}-#{(Time.time*100_000).to_i.to_s(36)}"
 		orgi_path = path.dup
-		while exists?(path)
-		path = orgi_path+ collision.to_s
-		collision +=1
+		while File.exists?(path)
+			path = orgi_path+ collision.to_s
+			collision +=1
 		end
 		path << o[:suffix]
 
@@ -153,7 +151,7 @@ module Cmd
 	# @return [nil]
 	def rm(*paths) 
 		glob(*paths) { |pa|
-			next if not pa.exists?
+			next if not File.exists?(pa.p)
 			File.delete(pa.p)
 		}
 	end
@@ -164,7 +162,7 @@ module Cmd
 	# @return [nil]
 	def rmdir *paths
 		glob(*paths) { |pa|
-			raise Errno::ENOTDIR, "-- #{pa}" if not pa.directory?
+			raise Errno::ENOTDIR, "-- #{pa}" if not File.directory?(pa.p)
 			_rmdir(pa)
 		}
 	end
@@ -175,8 +173,8 @@ module Cmd
 	# @return [nil]
 	def rm_r(*paths)
 		glob(*paths){ |pa|
-			next if not pa.exists?
-			pa.directory?  ? _rmdir(pa) : File.delete(pa.p)
+			next if not File.exists?(pa.p)
+			File.directory?(pa.p)  ? _rmdir(pa) : File.delete(pa.p)
 		}
 	end
 
@@ -201,11 +199,11 @@ module Cmd
 	# I'm recusive 
 	# param@ [Pa] path
 	def _rmdir(pa, o={})
-		return if not pa.exists?
+		return if not File.exists?(pa.p)
 		pa.each {|pa1|
-			pa1.directory? ? _rmdir(pa1, o) : File.delete(pa1.p)
+			File.directory?(pa1.p) ? _rmdir(pa1, o) : File.delete(pa1.p)
 		}
-		pa.directory? ? Dir.rmdir(pa.p) : File.delete(pa.p)
+		File.directory?(pa.p) ? Dir.rmdir(pa.p) : File.delete(pa.p)
 	end
 	private :_rmdir
 
@@ -233,25 +231,26 @@ module Cmd
 	#   @option o [Boolean] :verbose puts cmd when execute
 	#   @option o [Boolean] :folsymlink follow symlink
 	#   @option o [Boolean] :overwrite overwrite dest file if dest is a file
+	#   @option o [Boolean] :special special copy, when cp a directory, only mkdir, not cp the directory's content, usefull in Pa.each_r
 	#   @return [nil]
 	# @overload cp(src_s, dest, o)
 	#   @yield [src,dest,o]
 	#   @return [nil]
 	def cp(src_s, dest, o={}, &blk)
-		srcs = glob(*Array.wrap(src_s))
-		dest = Pa(dest)
+		srcs = glob(*Array.wrap(src_s)).map{|v| v.path}
+		dest = Pa.get(dest)
 
-		if o[:mkdir] and (not dest.exists?)
-			mkdir dest
+		if o[:mkdir] and (not File.exists?(dest))
+			Pa.mkdir dest
 		end
 
 		# cp file1 file2 .. dir
-		if srcs.size>1 and (not dest.directory?)
+		if srcs.size>1 and (not File.directory?(dest))
 			raise Errno::ENOTDIR, "dest not a directory when cp more than one src -- #{dest}"  
 		end
 
 		srcs.each do |src|
-			dest1 = dest.directory? ? dest.join(src.b) : dest
+			dest1 = File.directory?(dest) ? File.join(dest, File.basename(src)) : dest
 
 			if blk
 				blk.call src, dest1, o, proc{_copy(src, dest1, o)}
@@ -265,41 +264,49 @@ module Cmd
 
 	# I'm recursive 
 	#
-	# @param [Pa] src
-	# @param [Pa] dest
+	# @param [String] src
+	# @param [String] dest
 	def _copy(src, dest, o={})  
-		raise Errno::EEXIST, "dest exists -- #{dest}" if dest.exists? and (not o[:overwrite])
+		raise Errno::EEXIST, "dest exists -- #{dest}" if File.exists?(dest) and (not o[:overwrite])
+
+
+		case type=File.ftype(src)
 
-		case type=src.type
 		when "file", "socket"
 			puts "cp #{src} #{dest}" if o[:verbose]
-			File.copy_stream(src.p, dest.p)
+			File.copy_stream(src, dest)
+
 		when "directory"
 			begin
-				mkdir dest
+				Pa.mkdir dest
 				puts "mkdir #{dest}" if o[:verbose]
 			rescue Errno::EEXIST
 			end
+
+			return if o[:special]
+
 			each(src) { |pa|
-				_copy(pa, dest.join(pa.b), o)
+				_copy(pa.p, File.join(dest, File.basename(pa.p)), o)
 			}
-		when "symlink"
+
+		when "link" # symbol link
 			if o[:folsymlink] 
-				_copy(src.readlink, dest) 
+				_copy(Pa.readlink(src), dest) 
 			else
-				symln(src.readlink, dest, force: true)	
+				Pa.symln(Pa.readlink(src), dest, force: true)	
 				puts "symlink #{src} #{dest}" if o[:verbose]
 			end
+
 		when "unknow"
 			raise EUnKnownType, "Can't handle unknow type(#{:type}) -- #{src}"
 		end
 
 		# chmod chown utime
-		src_stat = o[:folsymlink] ? stat(src) : lstat(src)
+		src_stat = o[:folsymlink] ? File.stat(src) : File.lstat(src)
 		begin
-			chmod(src_stat.mode, dest)
-			chown(src_stat.uid, src_stat.gid, dest)
-			utime(src_stat.atime, src_stat.mtime, dest)
+			File.chmod(src_stat.mode, dest)
+			#File.chown(src_stat.uid, src_stat.gid, dest)
+			File.utime(src_stat.atime, src_stat.mtime, dest)
 		rescue Errno::ENOENT
 		end
 	end # _copy
@@ -314,20 +321,20 @@ module Cmd
 	# @option o [Boolean] :overwrite
 	# @return [nil]
 	def mv(src_s, dest, o={}, &blk)
-		srcs = glob(*Array.wrap(src_s))
-		dest = Pa(dest)
+		srcs = glob(*Array.wrap(src_s)).map{|v| get(v)}
+		dest = get(dest)
 
-		if o[:mkdir] and (not dest.exists?)
+		if o[:mkdir] and (not File.exists?(dest))
 			mkdir dest
 		end
 
 		# mv file1 file2 .. dir
-		if srcs.size>1 and (not dest.directory?)
+		if srcs.size>1 and (not File.directory?(dest))
 			raise Errno::ENOTDIR, "dest not a directory when mv more than one src -- #{dest}"  
 		end
 
 		srcs.each do |src|
-			dest1 = dest.directory? ? dest.join(src.b) : dest
+			dest1 = File.directory?(dest) ? File.join(dest, File.basename(src)) : dest
 
 			if blk
 				blk.call src, dest1, o, proc{_move(src, dest1, o)}
@@ -342,27 +349,27 @@ module Cmd
 	#
 	# _move "file", "dir/file"
 	#
-	# @param [Pa] src
-	# @param [Pa] dest
+	# @param [String] src
+	# @param [String] dest
 	def _move(src, dest, o)
-		raise Errno::EEXIST, "dest exists -- #{dest}" if dest.exists? and (not o[:overwrite])
+		raise Errno::EEXIST, "dest exists -- #{dest}" if File.exists?(dest) and (not o[:overwrite])
 
 		# overwrite. mv "dir", "dira" and 'dira' exists and is a directory. 
-		if dest.exists? and dest.directory? 
+		if File.exists?(dest) and File.directory?(dest)
 				ls(src) { |pa|
-					dest1 = dest.join(pa.b)
-					_move pa, dest1, o
+					dest1 = File.join(dest, File.basename(pa.p))
+					_move pa.p, dest1, o
 				}
-				rm_r src
+				Pa.rm_r src
 
 		else
 			begin
-				rm_r dest if o[:overwrite] and dest.exists?
+				Pa.rm_r dest if o[:overwrite] and File.exists?(dest)
 				puts "rename #{src} #{dest}" if o[:verbose]
-				File.rename(src.p, dest.p)
+				File.rename(src, dest)
 			rescue Errno::EXDEV # cross-device
 				_copy(src, dest, o)
-				rm_r src
+				Pa.rm_r src
 			end
 
 		end