require "tagen/core"

=begin rdoc
Pa(Path) is similary to Pathname, but more powerful.
it combines fileutils, tmpdir, find, tempfile, File, Dir, Pathname

all class methods support Pa as parameter.

Examples:
---------
	pa = Pa('/home/a.vim')
	pa.dir  	#=> '/home'
	pa.base 	#=> 'a.vim'
	pa.name 	#=> 'a'
	pa.ext  	#=> 'vim'
	pa.fext		#=> '.vim'

Filename parts:
---------
	/home/guten.ogg
	  base: guten.ogg
	  dir: /home
	  ext: ogg
	  name: guten

Additional method list
---------------------
* Pa.absolute _alias from `File.absolute_path`_
* Pa.expand _aliss from `File.expand_path`_

=== create, modify path
Example1:
	pa = Pa('/home/foo')
	pa.join('a.txt') #=> new Pa('/home/foo/a.txt')

Example2:
	pa1 = Pa('/home/foo/a.txt')
	pa2 = Pa('/home/bar/b.txt')
	pa1+'~' #=> new Pa('/home/foo/a.txt~')
	Pa.join(pa1.dir, pa2.base) #=> '/home/foo/b.txt'

Example3:
	pa1 = Pa('/home/foo/a.txt')
	pa2 = Pa('/home/bar')
	pa2.join(pa1.base)  #=> new Pa('/home/bar/a.txt')
		
**Attributes**

  name     abbr    description

  path      p      
  absolute  a      absolute path
  dir       d      dirname of a path
  base      b      basename of a path
	fname     fn     alias of base
  name      n      filename of a path
  ext       e      extname of a path,  return "" or "ogg"  
  fext      fe     return "" or ".ogg"

== 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_reader :path

	# @param [String,#path] path
	def initialize path
		@path = path.respond_to?(:path) ? path.path : path
		initialize_variables
	end

	def ok
		initialize_variables
	end

	chainable = Module.new do
		def initialize_variables; end
	end
	include chainable

	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">'
	#
	# @return [String]
	def inspect
		ret="#<" + self.class.to_s + " "
		ret += "@path=\"#{path}\", @absolute=\"#{absolute}\""
		ret += " >"
		ret
	end

	# return '/home/foo'
	#
	# @return [String] path
	def to_s
		@path
	end

	# missing method goes to Pa.class-method 
	def method_missing(name, *args, &blk)
		ret = self.class.__send__(name, path, *args, &blk)

		case ret	

		# e.g. readlink ..
		when String
			Pa(ret)

		# e.g. directory? 
		else
			ret
		end

	end


end

class Pa
module ClassMethods
	UNDEFS = [:open, :fstat]

	# missing method goes to File class method
	def method_missing name, *args, &blk
		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 ClassMethods
  extend ClassMethods::Path
  extend ClassMethods::Dir
  extend ClassMethods::State
  extend ClassMethods::Cmd

  include Path
  include State
end

module Kernel
private
	# a very convient function.
	# 
	# @example
	#   Pa('/home').exists? 
	def Pa(path)
		return path if Pa===path
		Pa.new path
	end
end