RubyExt 0.1.0 → 0.1.1

data/lib/RubyExt/kernel.rb

@@ -0,0 +1,61 @@
+module Kernel
+	def raise_without_self *args
+		error, message, the_self = nil
+		if args.size == 1
+			error = RuntimeError
+			message = args[0]
+			the_self = self
+		elsif args.size == 2
+			message, the_self = args
+			error = RuntimeError
+		elsif args.size == 3
+			error, message, the_self = args
+		else
+			raise RuntimeError, "Invalid arguments!", caller
+		end
+		
+		the_self = the_self.is_a?(Array) ? the_self : [the_self]
+		
+		list = []
+		the_self.each do |s|
+			klass = (s.class == Class or s.class == Module) ?	s : s.class
+			klass.ancestors.each do |a|
+				next if a == Object or a == Module
+				name = a.name
+				path = nil
+				if RubyExt::Resource.class_exist?(name)		            
+					path = RubyExt::Resource.class_to_virtual_file(name)
+					path.sub!(".rb", "")
+				else
+					path = name.gsub("::", "/")
+				end
+				list << /#{path}/
+			end
+		end
+		
+		stack = caller
+		stack = stack.delete_if do |line|
+			list.any?{|re| line =~ re} and line !~ /\/spec\// # Do not exclude Spec stacktrace.
+		end
+		raise error, message, stack		
+	end
+	
+	def respond_to sym, *args
+		return nil if not respond_to? sym
+		send sym, *args
+	end
+	
+	#	def _ &b
+	#		raise "Block isn't provided!" unless b
+	#		return b 
+	#	end
+	
+	def singleton_class(&block)
+		if block_given?
+		(class << self; self; end).class_eval(&block)
+		self
+		else
+		(class << self; self; end)
+		end
+	end		
+end

data/lib/RubyExt/module.rb

@@ -0,0 +1,102 @@
+class Module
+  def namespace
+    if @module_namespace_defined
+      @module_namespace
+    else
+      @module_namespace_defined = true
+      @module_namespace = Module.namespace_for name
+    end
+  end
+  
+  def each_namespace &block
+    current = namespace
+    while current do
+      block.call current
+      current = current.namespace
+    end
+  end
+  
+  def each_ancestor include_standard = false, &block
+    if include_standard
+      ancestors.each{|a| block.call a unless a == self}
+    else
+      exclude = [self, Object, Kernel]
+      ancestors.each do |a|
+        block.call a unless exclude.include? a
+      end
+    end
+  end
+  
+  def self_ancestors_and_namespaces &b
+    b.call self
+    each_ancestor &b
+    each_namespace &b
+  end
+  
+  def self.namespace_for class_name
+    list = class_name.split("::")
+    if list.size > 1
+      list.pop
+      return eval list.join("::"), TOPLEVEL_BINDING, __FILE__, __LINE__			
+    else
+      return nil
+    end
+  end
+  
+  def wrap_method( sym, prefix = "old_", &blk )
+    old_method = "#{prefix}_#{sym}".to_sym
+    alias_method old_method, sym
+    define_method(sym) do |*args|
+      instance_exec(old_method, *args, &blk)
+    end
+  end
+  
+  def is?(base)
+    ancestors.include?(base)
+  end
+  
+  def resource_exist? resource_name		
+    self_ancestors_and_namespaces do |klass|
+      return true if RubyExt::Resource.resource_exist? klass, resource_name					
+    end
+    return false		
+  end
+  
+  def [] resource_name
+    self_ancestors_and_namespaces do |klass|
+      if RubyExt::Resource.resource_exist? klass, resource_name
+        return RubyExt::Resource.resource_get(klass, resource_name)
+      end	
+    end
+    raise RubyExt::Resource::NotExist, "Resource '#{resource_name}' for Class '#{self.name}' doesn't exist!", caller
+  end
+  
+  def []= resource_name, value
+    RubyExt::Resource.resource_set self.name, resource_name, value
+  end
+  
+  def inherited_instance_methods
+  	im = Set.new
+  	ancestors.each do |a| 
+  		next if a == self
+  		im.merge a.instance_methods
+  	end
+  	return im.to_a
+  end
+  
+  def inherit *modules
+    modules.each do |amodule|
+      include amodule
+      
+      processed = []
+      amodule.ancestors.each do |a|			
+        if a.const_defined? :ClassMethods				
+          class_methods = a.const_get :ClassMethods
+          next if processed.include? class_methods
+          processed << class_methods
+          extend class_methods
+        end
+      end
+    end
+  end      
+end

data/lib/RubyExt/nil_class.rb

@@ -0,0 +1,5 @@
+class NilClass
+#	def copy
+#		nil
+#	end
+end

data/lib/RubyExt/object.rb

@@ -0,0 +1,7 @@
+class Object
+  def self; self end  	
+  	
+#  def copy
+#  	Marshal.load(Marshal.dump self) # Stub
+#  end
+end

data/lib/RubyExt/observable.rb

@@ -0,0 +1,25 @@
+module RubyExt
+	module Observable								
+		def add_observer observer
+			@observable_observers ||= []
+			@observable_observers << observer unless @observable_observers.include? observer			
+		end
+		
+		def notify_observers method, *args
+			method.should! :be_a, Symbol
+			@observable_observers.each{|observer| observer.respond_to method, *args} if @observable_observers			
+		end
+		
+		def delete_observer observer
+			@observable_observers.delete observer if @observable_observers
+		end
+		
+		def delete_observers			
+			@observable_observers.clear if @observable_observers
+		end
+		
+		def observers_count
+			@observable_observers ? @observable_observers.size : 0
+		end
+	end
+end

data/lib/RubyExt/require.rb

@@ -0,0 +1,56 @@
+require 'RubyExt/require_base'
+
+# Ruby Classes extensions
+%w{
+symbol string array false_class true_class nil_class
+}.each{|n| require "RubyExt/#{n}"}
+
+Path = RubyExt::Path
+Log = RubyExt::Log
+Observable = RubyExt::Observable
+OpenConstructor = RubyExt::OpenConstructor
+Cache = RubyExt::Cache
+
+# Facets
+require 'facets/elementor'
+require 'facets/blankslate'
+# Dictionary, Crypt, BiCrypt, Duration, LRUCache, LinkedList, Timer, Memoizer,
+# Recorder, attr_validator
+# "TreeTop" - cool Ruby Parser DSL.
+
+# ResourceProcessing
+require 'yaml'
+module RubyExt
+	Resource.register_resource_extension(
+	".yaml",
+	lambda{|data, klass, name| YAML.load(data)}, 
+	lambda{|data, klass, name| YAML.dump(data)}
+	)
+	
+	Resource.register_resource_extension(
+	".rb",
+	lambda{|data, klass, name|
+		script = ClassLoader.wrap_inside_namespace(klass, data)
+		eval script, TOPLEVEL_BINDING, "#{klass.name}/#{name}"
+	}, 
+	lambda{|data, klass, name| raise "Writing '.rb' Resource isn't supported!"}
+	)	
+end
+
+# Cache
+Cache.cached_with_params :class, Module, :resource_exist?, :[]
+
+# Others
+require 'fileutils'
+# Undef
+#[
+#:select, :autoload, :autoload?, :chomp, :chomp!, :chop, :chop!, :fail, :format, :gsub,
+#:gsub!, :iterator?, :open, :print, :printf, :puts, :putc, :readline, :readlines, :scan,
+#:split, :sub, :sub!, :test, :trap, :warn
+#].each do |m|
+#	Kernel.send :undef_method, m
+#end
+
+# select
+
+require 'RubyExt/debug'

data/lib/RubyExt/require_base.rb

@@ -0,0 +1,35 @@
+require 'monitor'
+require 'singleton'
+require 'set'
+
+class NotDefined; end
+
+# Core Classes, can't be excluded.
+%w{
+kernel module object class file
+}.each{|n| require "RubyExt/#{n}"}
+
+require 'RubyExt/assert'
+require 'RubyExt/observable'
+
+require 'RubyExt/resource'
+require 'RubyExt/Resource/file_system_provider'
+
+# Need this complex loading for correct work of 'raise_without_self''
+module RubyExt
+	#	libraries_in_working_dir = Dir.glob("*/**/lib").select{|f| File.directory? f}.collect{|f| File.expand_path f}
+	#	specs_in_working_dir = Dir.glob("*/**/spec").select{|f| File.directory? f}.collect{|f| File.expand_path f}
+	directories = lambda do 
+		$LOAD_PATH.select{|f| ![/site_ruby/, /vendor_ruby/, /bin$/].any?{|re| f =~ re}}\
+		.collect{|f| File.expand_path f}
+		#		$LOAD_PATH.select{|dir| dir =~ /gems.+lib/}
+		#		$LOAD_PATH.select{|dir| dir =~ /gems.+spec/} + 
+		#		[Dir.getwd] + 
+		#		libraries_in_working_dir
+		#		specs_in_working_dir
+	end
+	Resource.add_resource_provider FileSystemProvider.new(directories)
+	
+	script = Resource.class_get "RubyExt::ClassLoader"
+	eval script, TOPLEVEL_BINDING, Resource.class_to_virtual_file("RubyExt::ClassLoader")  
+end

data/lib/RubyExt/resource.rb

@@ -0,0 +1,198 @@
+module RubyExt
+	module Resource		
+		@monitor = Monitor.new		
+		@providers = []		
+		@resource_extensions = {}
+		
+		class NotExist < RuntimeError
+			
+		end
+		
+		class << self
+			include Observable
+			
+			def add_resource_provider provider
+				@providers.unshift provider
+			end
+			
+			def providers
+				raise "There's no any Resource Provider!" if @providers.empty?
+				@providers
+			end
+			
+			def register_resource_extension extension, load, save
+				@monitor.synchronize do
+					@resource_extensions[extension] = load, save
+				end
+			end
+			
+			def unregister_resource_extension extension
+				@monitor.synchronize do
+					@resource_extensions.delete extension
+				end
+			end												
+			
+			# Returns from first Provider that contains this Class.
+			def class_get class_name
+				@monitor.synchronize do
+					providers.each do |p|
+						begin
+							return p.class_get(class_name) 
+						rescue NotExist;
+						end
+					end
+					raise "Class '#{class_name}' doesn't exist!"
+				end
+			end
+			
+			# Search for first Provider that contains Class Namespace and creates Class in it, then exits.
+			def class_set class_name, data, *args
+				@monitor.synchronize do					
+					namespace = Module.namespace_for class_name
+					namespace = namespace ? namespace.to_s : nil
+					found = true
+					providers.each do |p|
+						next unless !namespace or p.class_exist?(namespace)
+						p.class_set class_name, data, *args
+						break
+					end
+					raise "Namespace '#{namespace}' doesn't exist!" unless found
+				end
+			end
+			
+			def class_exist? class_name
+				@monitor.synchronize do
+					providers.any?{|p| p.class_exist? class_name}
+				end
+			end
+			
+			# Deletes in each Providers.
+			def class_delete class_name
+				@monitor.synchronize do
+					providers.each{|p| p.class_delete class_name}
+				end
+			end
+			
+#			def class_namespace_exist? namespace_name
+#				@monitor.synchronize do
+#					providers.any?{|p| p.class_namespace_exist? namespace_name}
+#				end
+#			end
+			
+			# Search each Provider that contains this Class and returns first found Resource.
+			def resource_get klass, resource_name				
+				@monitor.synchronize do					
+					providers.each do |p|
+						next unless p.class_exist?(klass.name)
+						begin
+							data = p.resource_get(klass.name, resource_name)
+							
+							if data
+								extension = File.extname(resource_name)
+								if @resource_extensions.include? extension
+									load, save = @resource_extensions[extension]
+									data = load.call data, klass, resource_name
+								end
+							end
+							
+							return data
+						rescue NotExist;
+						end
+					end
+					raise "Resource '#{resource_name}' for Class '#{klass.name}' doesn't exist!"
+				end
+			end
+			
+			# Deletes Resource in all Providers.
+			def resource_delete klass, resource_name
+				@monitor.synchronize do
+					providers.each do |p|
+						next unless p.class_exist?(klass.name)
+						p.resource_delete klass.name, resource_name		
+					end
+				end
+			end
+			
+			# Set Resource in fist Provider that contains this Class.
+			def resource_set klass, resource_name, data
+				@monitor.synchronize do
+					extension = File.extname(resource_name)
+					if @resource_extensions.include? extension
+						load, save = @resource_extensions[extension]
+						data = save.call data, klass, resource_name
+					end
+					
+					found = false
+					providers.each do |p|
+						next unless p.class_exist?(klass.name)
+						p.resource_set klass.name, resource_name, data
+						found = true
+						break
+					end
+					
+					raise "Class '#{klass.name}' doesn't exist!" unless found
+				end
+			end
+			
+			# Check also for Class existence.
+			def resource_exist? klass, resource_name
+				@monitor.synchronize do
+					providers.any? do |p|
+						next unless p.class_exist?(klass.name)
+						p.resource_exist? klass.name, resource_name
+					end
+				end
+			end						
+			
+			def start_watching interval = 2
+				stop_watching
+				@watch_thread = Thread.new do
+					providers.each{|p| p.reset_changed_files}
+					while true
+						sleep interval
+						begin
+							providers.each do |p| 
+								p.check_for_changed_files.each do |type, klass, res|			
+									notify_observers :update_resource, type, klass, res
+								end
+							end
+						rescue Exception => e
+							warn e
+						end
+					end
+				end
+			end
+			
+			def stop_watching
+				if @watch_thread
+					@watch_thread.kill
+					@watch_thread = nil
+				end
+			end
+			
+			def class_to_virtual_file class_name
+				@monitor.synchronize do				
+					providers.each do |p|
+						begin
+							return p.class_to_virtual_file class_name 
+						rescue NotExist;
+						end
+					end
+					raise "Class '#{class_name}' doesn't exist!"					
+				end
+			end
+			
+#			def class_to_virtual_path class_name
+#				@monitor.synchronize do
+#					providers.each do |p|
+#						begin
+#							return p.class_to_virtual_path class_name 
+#						rescue NotExist;
+#						end
+#					end
+#					raise "Class '#{class_name}' doesn't exist!"
+#				end
+#			end
+		end 
+	end
+end

data/lib/RubyExt/string.rb

@@ -0,0 +1,21 @@
+class String
+	def to_reader
+		self.to_sym
+	end
+	
+	def to_writer
+		"#{self}=".to_sym
+	end
+	
+	def to_iv
+		"@#{self}"
+	end
+	
+	def substitute binding
+		binding.should! :be_a, Binding
+		return gsub(/\#\{.+?\}/) do |term|
+			identifier = term.slice(2 .. term.size-2)
+			binding.eval identifier
+		end
+	end
+end

data/lib/RubyExt/symbol.rb

@@ -0,0 +1,21 @@
+class Symbol
+  def <=> other
+    self.to_s <=> other.to_s
+  end
+  
+  def to_reader
+    self
+  end
+  
+  def to_writer
+		"#{self}=".to_sym
+	end
+ 
+ 	def to_iv
+		"@#{self}"
+	end
+
+  def + other
+    (self.to_s + other.to_s).to_sym
+  end
+end

data/lib/RubyExt/true_class.rb

@@ -0,0 +1,5 @@
+class TrueClass
+	def copy
+		true
+	end
+end

data/rakefile

@@ -0,0 +1,49 @@
+require 'rake'
+require 'spec/rake/spectask'
+
+Dir.chdir File.dirname(__FILE__)	
+
+task :default => :spec
+
+Spec::Rake::SpecTask.new('spec') do |t|
+	t.spec_files = FileList["spec/**/*_spec.rb"]
+	t.libs = ["lib", "spec"]
+end
+
+require 'rake/clean'
+require 'rake/gempackagetask'
+require 'fileutils'
+
+spec = Gem::Specification.new do |s|
+	s.name = "RubyExt"
+	s.version = "0.1.1"
+	s.summary = "A set of Ruby language extensions, mainly for ActivePoint Project"
+	s.description = "A set of Ruby language extensions, mainly for ActivePoint Project"
+	s.author = "Alexey Petrushin"
+	#	s.email = ""
+	s.homepage = "http://www.bos-tec.com"
+	s.rubyforge_project = "RubyExt"
+	
+	s.platform = Gem::Platform::RUBY
+	s.has_rdoc = true
+	s.extra_rdoc_files = ["README"]
+	
+	s.files = (%w{rakefile README} + Dir.glob("{lib,spec}/**/*"))\
+	.select{|f| f !~ /^\./}
+	#	s.executables = ['restclient']
+	#	s.add_dependency("BlueCloth", ">= 0.0.4")
+	
+	s.require_path = "lib"
+end
+
+Rake::GemPackageTask.new(spec) do |p|
+	package_dir = "#{File.expand_path File.dirname(__FILE__)}/../build"
+	FileUtils.mkdir package_dir unless File.exist? package_dir	
+	p.need_tar = true if RUBY_PLATFORM !~ /mswin/
+	p.need_zip = true
+	p.package_dir = package_dir
+end
+
+CLEAN.include [ 'pkg', '*.gem']
+
+task :release => [:gem, :clean]

data/spec/RubyExt/ForClassLoader/ClassA.rb

@@ -0,0 +1,4 @@
+class ClassA
+	
+end
+# Do not delete this comment on last line! It's the Test!

data/spec/RubyExt/ForClassLoader/LoadCount.rb

@@ -0,0 +1 @@
+class LoadCount; end

data/spec/RubyExt/ForClassLoader/ModuleA/ClassB.rb

@@ -0,0 +1,3 @@
+class ClassB
+end
+# Do not delete this comment on last line! It's the Test!

data/spec/RubyExt/ForClassLoader/ModuleA/ClassInsideAnonymousClass.rb

@@ -0,0 +1,3 @@
+class ClassInsideAnonymousClass
+	
+end

data/spec/RubyExt/ForClassLoader/ModuleA/InfinityLoop.rb

@@ -0,0 +1,3 @@
+class InvalidInfinityLoopName
+	
+end

data/spec/RubyExt/ForClassLoader/ModuleA/ModuleB/ClassC.rb

@@ -0,0 +1,3 @@
+class ClassC
+	ClassB
+end

data/spec/RubyExt/ForClassLoader/ModuleA/SameName/SomeClass.rb

@@ -0,0 +1,2 @@
+class SomeClass
+end

data/spec/RubyExt/ForClassLoader/ModuleA/SameName.rb

@@ -0,0 +1,2 @@
+class SameName
+end

data/spec/RubyExt/ForClassLoader/Scope/ScopeA1.rb

@@ -0,0 +1,3 @@
+class ScopeA1
+	
+end

data/spec/RubyExt/ForClassLoader/Scope/ScopeB1.rb

@@ -0,0 +1,5 @@
+class ScopeB1
+	class InnerClass; end
+
+	InnerClass::ScopeA1
+end

data/spec/RubyExt/ForKernel/Raise2.rb

@@ -0,0 +1,5 @@
+class Raise2
+	def test o
+		o.test2
+	end
+end

data/spec/RubyExt/ForKernel/RaiseWithoutSelf.rb

@@ -0,0 +1,9 @@
+class RaiseWithoutSelf
+	def test
+		raise_without_self "Error"
+	end
+	
+	def test2
+		raise_without_self "Error", [RaiseWithoutSelf, Raise2]
+	end
+end

data/spec/RubyExt/ForLocalization/NS/A.rb

@@ -0,0 +1,3 @@
+class A
+
+end

data/spec/RubyExt/ForLocalization/NS/A.ru.localization.yaml

@@ -0,0 +1,2 @@
+---
+"Class Hierarchy English": "Class Hierarchy Russian"