extract_curves 0.0.1-i586-linux

data/ruby_ext/CVS/Entries

@@ -0,0 +1 @@
+D/pav////

data/ruby_ext/CVS/Repository

@@ -0,0 +1 @@
+extract-curves/ruby_ext

data/ruby_ext/CVS/Root

@@ -0,0 +1 @@
+:ext:pavpen@rubyforge.org:/var/cvs/extract-curves

data/ruby_ext/pav/CVS/Entries

@@ -0,0 +1,14 @@
+/Makefile/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/Makefile.mingw32/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/cstr.c/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/cstr.h/1.1.1.1/Tue Nov 15 17:32:08 2005//
+/extconf.rb/1.1.1.1/Tue Nov 15 17:32:08 2005//
+/pav.c/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/pgtk.c/1.1.1.1/Tue Nov 15 17:32:08 2005//
+/pgtk.h/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/pix.c/1.1.1.1/Tue Nov 15 17:32:08 2005//
+/pix.h/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/rbconfig.rb/1.1.1.1/Tue Nov 15 17:32:09 2005//
+/t.rb/1.1.1.1/Tue Nov 15 17:32:08 2005//
+/t1.rb/1.1.1.1/Tue Nov 15 17:32:09 2005//
+D

data/ruby_ext/pav/CVS/Repository

@@ -0,0 +1 @@
+extract-curves/ruby_ext/pav

data/ruby_ext/pav/CVS/Root

@@ -0,0 +1 @@
+:ext:pavpen@rubyforge.org:/var/cvs/extract-curves

data/ruby_ext/pav/extconf.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+
+# To cross-compile for Win32 on Linux:
+# 	shell$ export PKG_CONFIG_PATH=/devel/target/mswin32/lib/pkgconfig
+# 	shell$ export TARGET_PLATFORM_RUBYLIB=/devel/target/mswin32/lib/ruby/site_ruby/1.8:/devel/target/mswin32/lib/ruby/site_ruby/1.8/i386-msvcrt:/devel/target/mswin32/lib/ruby/1.8:/devel/target/mswin32/lib/ruby/1.8/i386-target-mswin32
+# 	shell$ ruby1.8 extconf.rb
+
+if targ_rb_lib_paths = ENV['TARGET_PLATFORM_RUBYLIB']
+	targ_rb_lib_paths.split(':').reverse_each { |lpath| $:.unshift(lpath) }
+end
+
+#require 'rbconfig'
+#Config::CONFIG.keys.sort.each { |k| puts "#{k} = #{Config::CONFIG[k]}" }
+#puts Config::DESTDIR
+#puts Config::TOPDIR
+
+require 'mkmf'
+
+have_header('string.h')
+
+pkg_config('gobject-2.0 gdk-pixbuf-2.0 glib-2.0')
+create_makefile('pav')

data/ruby_libs/CVS/Entries

@@ -0,0 +1 @@
+D/pav////

data/ruby_libs/CVS/Repository

@@ -0,0 +1 @@
+extract-curves/ruby_libs

data/ruby_libs/CVS/Root

@@ -0,0 +1 @@
+:ext:pavpen@rubyforge.org:/var/cvs/extract-curves

data/ruby_libs/pav/CVS/Entries

@@ -0,0 +1,20 @@
+/attr_cache.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/attr_cache.t1.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+/cache.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/dbg_log.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/floatsio.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+/generator_cache.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/heap.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+/pav_find.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+/pix.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/rand_accessible.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+/rangeset.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/search.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/set.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+/sub_arr.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/traced_obj.rb/1.1.1.1/Tue Nov 15 17:32:11 2005//
+D/gtk////
+D/icons////
+D/numeric////
+D/pix////
+D/string////

data/ruby_libs/pav/CVS/Repository

@@ -0,0 +1 @@
+extract-curves/ruby_libs/pav

data/ruby_libs/pav/CVS/Root

@@ -0,0 +1 @@
+:ext:pavpen@rubyforge.org:/var/cvs/extract-curves

data/ruby_libs/pav/attr_cache.rb

@@ -0,0 +1,211 @@
+require 'pav/dbg_log'
+
+class Module
+	# Like +once+ from the Ruby Book (Pragmatic Programmer's Guide):
+	def cache_attr!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		id_val = "@__ca_#{id.to_i}_val__".to_sym
+		self.module_eval <<-"end_eval"
+		  #{if self.public_instance_methods.member?(id_orig.id2name)
+		  	res << id
+		  	"" 
+		  else
+		  	"alias_method #{id_orig.inspect}, #{id.inspect}"
+		  end}
+		  def #{id.id2name}(*args, &block)
+			tc = Thread::critical=(true)
+			def self.#{id.id2name}(*args, &block)
+				#{id_val.id2name}
+			end
+			$PDbgLog.sig_wrapped_call
+			#{id_val.id2name} = #{id_orig.id2name}(*args, &block)
+			$PDbgLog.sig_wrapped_return
+			Thread::critical = tc
+			#{id_val.id2name}
+		  end
+		end_eval
+	  end
+	  res
+	end
+	
+	def freeze_cache_attr!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		id_val = "@__ca_#{id.to_i}_val__".to_sym
+		self.module_eval <<-"end_eval"
+		  #{if self.public_instance_methods.member?(id_orig.id2name)
+		  	res << id
+		  	"" 
+		  else
+		  	"alias_method #{id_orig.inspect}, #{id.inspect}"
+		  end}
+		  def #{id.id2name}(*args, &block)
+			tc = Thread::critical=(true)
+			def self.#{id.id2name}(*args, &block)
+				#{id_val.id2name}
+			end
+			$PDbgLog.sig_wrapped_call
+			#{id_val.id2name} = #{id_orig.id2name}(*args, &block)
+			$PDbgLog.sig_wrapped_return
+			#{id_val.id2name}.freeze
+			Thread::critical = tc
+			#{id_val.id2name}
+		  end
+		end_eval
+	  end
+	  res
+	end
+	
+	def uncache_attr!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		if !self.public_instance_methods.member?(id_orig.id2name)
+			res << id
+			next
+		end
+		self.module_eval <<-"end_eval"
+		  alias_method #{id.inspect}, #{id_orig.inspect}
+		  remove_method #{id_orig.inspect}
+		end_eval
+	  end
+	  res
+	end
+	
+	def cache_get!(*ids)
+		for id in ids
+		  self.module_eval <<-end_eval
+			def #{id.to_s['get_'.length...id.to_s.length]}
+				if (tmp = @cache_#{id.to_s})
+					return tmp
+				end
+				@cache_#{id.to_s} = self.#{id.to_s}
+			end
+		  end_eval
+		end
+	end
+	
+	def cache_get_lm!(*ids)
+		for id in ids
+		  self.module_eval <<-end_eval
+			def #{id.to_s['get_'.length...id.to_s.length]}(lm)
+				if (tmp = @cache_#{id.to_s}[lm])
+					return tmp
+				end
+				@cache_#{id.to_s}[lm] = self.#{id.to_s}(lm)
+			end
+		  end_eval
+		end
+	end
+end
+
+module AttrCache
+	def uncache_attr!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		id_val = "@__ca_#{id.to_i}_val__".to_sym
+		if !self.instance_variables.member?(id_val.id2name)
+			res << id
+			next
+		end
+		self.instance_eval <<-"end_eval"
+		  class <<self
+		  	alias_method #{id.inspect}, #{id_orig.inspect}
+		  end
+		end_eval
+	    	remove_instance_variable id_val
+	  end
+	  res
+	end
+	
+	def cache_attr!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		id_val = "@__ca_#{id.to_i}_val__".to_sym
+		if self.instance_variables.member?(id_val.id2name)
+			res << id
+			next
+		end
+		self.instance_eval <<-"end_eval"
+		  class <<self
+		    alias_method #{id_orig.inspect}, #{id.inspect}
+		    def #{id.id2name}(*args, &block)
+			tc = Thread::critical=(true)
+			def self.#{id.id2name}(*args, &block)
+				#{id_val.id2name}
+			end
+			$PDbgLog.sig_wrapped_call
+			#{id_val.id2name} = #{id_orig.id2name}(*args, &block)
+			$PDbgLog.sig_wrapped_return
+			Thread::critical = tc
+			#{id_val.id2name}
+		    end
+		  end
+		end_eval
+	  end
+	  res
+	end
+	
+	def freeze_cache_attr!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		id_val = "@__ca_#{id.to_i}_val__".to_sym
+		if self.instance_variables.member?(id_val.id2name)
+			res << id
+			next
+		end
+		self.instance_eval <<-"end_eval"
+		  class <<self
+		    alias_method #{id_orig.inspect}, #{id.inspect}
+		    def #{id.id2name}(*args, &block)
+			tc = Thread::critical=(true)
+			def self.#{id.id2name}(*args, &block)
+				#{id_val.id2name}
+			end
+			$PDbgLog.sig_wrapped_call
+			#{id_val.id2name} = #{id_orig.id2name}(*args, &block)
+			$PDbgLog.sig_wrapped_return
+			#{id_val.id2name}.freeze
+			Thread::critical = tc
+			#{id_val.id2name}
+		    end
+		  end
+		end_eval
+	  end
+	  res
+	end
+	
+	def kill_attr_cache!(*ids)
+	  res = []
+	  for id in ids
+	  	id_orig = "__ca_#{id.to_i}_o__".to_sym
+		id_val = "@__ca_#{id.to_i}_val__".to_sym
+		if !self.instance_variables.member?(id_val.id2name)
+			res << id
+			next
+		end
+		self.instance_eval <<-"end_eval"
+		  class <<self
+		    def #{id.id2name}(*args, &block)
+			tc = Thread::critical=(true)
+			def self.#{id.id2name}(*args, &block)
+				#{id_val.id2name}
+			end
+			$PDbgLog.sig_wrapped_call
+			#{id_val.id2name} = #{id_orig.id2name}(*args, &block)
+			$PDbgLog.sig_wrapped_return
+			Thread::critical = tc
+			#{id_val.id2name}
+		    end
+		  end
+		end_eval
+	  end
+	  res
+	end
+end

data/ruby_libs/pav/attr_cache.t1.rb

@@ -0,0 +1,32 @@
+require 'pav/attr_cache'
+
+class C
+	include AttrCache
+	
+	def f(x)
+		x
+	end
+	
+	cache_attr! :f
+end
+
+a = C.new
+b = C.new
+p a.f("a")
+p b.f("b")
+c = C.new
+d = C.new
+p c.f("c")
+p a.f(1)
+p b.f(2)
+p c.f(3)
+p d.uncache_attr!(:f)
+a.uncache_attr!(:f)
+p a.f(0)
+p a.f(1)
+p a.cache_attr!(:f)
+p a.f(2)
+p a.f(3)
+p a.kill_attr_cache!(:f)
+p a.f(4)
+p a.f(5)

data/ruby_libs/pav/cache.rb

@@ -0,0 +1,31 @@
+#begin
+  require 'pav/pav'
+#rescue LoadError
+
+require 'weakref'
+
+class PCache
+	attr_reader :tbl, :args
+	
+	def initialize(*args)
+		@args = args
+		#@tbl = WeakRef.new(Hash.new(*@args))
+	end
+	
+	def method_missing(id, *args)
+		return @args[0]
+		gc_dis = GC.disable
+		unless @tbl.weakref_alive?
+			@tbl = WeakRef.new(Hash.new(*@args))
+		end
+		begin
+			res = @tbl.send(id, *args)
+		rescue WeakRef::RefError
+			res = @args[0]
+		end
+		GC.enable unless gc_dis
+		res
+	end
+end
+
+#end # require 'pav/pav'