extract-curves 0.1.1

data/ruby_ext/pav/pix.h

@@ -0,0 +1,236 @@
+#ifndef PAV_PIX_H
+#define PAV_PIX_H
+
+#include <ruby.h>
+#include <gdk-pixbuf/gdk-pixbuf.h>
+
+#define PRB_2_PASS_SORTED(val1,val2,reciever,...)	\
+	( (val1) <= (val2) ? (reciever((val1), (val2), __VA_ARGS__)) : \
+	                    (reciever((val2), (val1), __VA_ARGS__)) )
+#define PRB_2_SORTED_PASS_3_SORTED(srt_val1,srt_val2,val3,reciever,...)\
+  ( (val3)<=(srt_val1) ? (reciever((val3),(srt_val1),(srt_val2),__VA_ARGS__)) :\
+  ( (val3)<=(srt_val2) ? (reciever((srt_val1),(val3),(srt_val2),__VA_ARGS__)) :\
+	                 (reciever((srt_val1),(srt_val2),(val3),__VA_ARGS__)) ))
+#define PRB_3_PASS_SORTED(val1,val2,val3,reciever,...)	\
+  PRB_2_PASS_SORTED((val1),(val2),PRB_2_SORTED_PASS_3_SORTED,(val3),__VA_ARGS__)
+
+#define PRB_2_PASS_SORTED_WITH_PROPS(val1,prop1,val2,prop2,reciever,...) \
+  ( (val1)<=(val2) ? (reciever((val1),(prop1),(val2),(prop2),__VA_ARGS__)) : \
+                     (reciever((val2),(prop2),(val1),(prop1),__VA_ARGS__)) )
+#define PRB_2_SORTED_PASS_3_SORTED_WITH_PROPS(srt_val1,prop1,srt_val2,prop2,\
+ val3,prop3,reciever,...)\
+  ( (val3)<=(srt_val1) ? (reciever((val3), prop3, (srt_val1), prop1,\
+				   (srt_val2), prop2, __VA_ARGS__)) :\
+  ( (val3)<=(srt_val2) ? (reciever((srt_val1), prop1, (val3), prop3,\
+				   (srt_val2), prop2, __VA_ARGS__)) :\
+	                 (reciever((srt_val1), prop1, (srt_val2), prop2,\
+				   (val3), prop3, __VA_ARGS__)) ))
+#define PRB_3_PASS_SORTED_WITH_PROPS(val1,prop1,val2,prop2,val3,prop3,\
+ reciever,...)	\
+    PRB_2_PASS_SORTED_WITH_PROPS((val1), prop1, (val2), prop2, \
+      PRB_2_SORTED_PASS_3_SORTED_WITH_PROPS,(val3),prop3,reciever,__VA_ARGS__)
+
+#define PRB_2_FPASS_SORTED_WITH_PROPS(val1,prop1,val2,prop2,reciever,...) \
+	if ( (val1)<=(val2) ) { \
+		reciever((val1), prop1, (val2), prop2, __VA_ARGS__) \
+	} else { \
+		reciever((val2), prop2, (val1), prop1, __VA_ARGS__) \
+	}
+#define PRB_2_SORTED_FPASS_3_SORTED_WITH_PROPS(srt_val1,prop1,srt_val2,prop2,\
+ val3,prop3,reciever,...)\
+	if ( (val3)<=(srt_val1) ) { \
+		reciever((val3), prop3, (srt_val1), prop1, \
+				   (srt_val2), prop2, __VA_ARGS__) \
+	} else if ( (val3)<=(srt_val2) ) { \
+		reciever((srt_val1), prop1, (val3), prop3, \
+				(srt_val2), prop2, __VA_ARGS__) \
+	} else { \
+		reciever((srt_val1), prop1, (srt_val2), prop2, \
+				   (val3), prop3, __VA_ARGS__) \
+	}
+#define PRB_3_FPASS_SORTED_WITH_PROPS(val1,prop1,val2,prop2,val3,prop3,\
+ reciever,...)\
+   PRB_2_FPASS_SORTED_WITH_PROPS((val1), prop1, (val2), prop2, \
+     PRB_2_SORTED_FPASS_3_SORTED_WITH_PROPS,(val3),prop3,reciever,__VA_ARGS__)
+
+#define	PRB_PIXELS_GET_PIX_PTR(pixels,x,y,ofs0,rowstride,pix_len)	\
+	((pixels) + (ofs0) + (y)*(rowstride) + (x)*(pix_len))
+#define PRB_PIXELS_GET_PIX(pixels,x,y,ofs0,rowstride,pix_len,mask)	\
+	((*((long*) PRB_PIXELS_GET_PIX_PTR(pixels,x,y,ofs0,rowstride,pix_len)))\
+	 & (mask))
+
+#define	PRB_PIXBUF_GET_PIX_PTR(pixbuf,x,y)	\
+	(PRB_PIXELS_GET_PIX_PTR( RSTRING(rb_iv_get(pixbuf,"@pixels"))->ptr,x,y,\
+		NUM2INT(rb_iv_get(pixbuf, "@ofs0")), \
+		NUM2INT(rb_funcall(pixbuf, rb_intern("rowstride"), 0)), \
+		NUM2INT(rb_iv_get(pixbuf, "@pix_length")) ))
+#define PRB_PIXBUF_GET_PIX(pixbuf,x,y)	\
+	((*((long*) PRB_PIXBUF_GET_PIX_PTR(pixbuf,x,y))) & \
+	 NUM2LONG(rb_iv_get(pixbuf, "@pix_mask")))
+
+#define PRB_PIX_ON_BORDER_TOUCH_D(y,end_y,none,all)	\
+	( (y) >= (end_y) ? (all) : (none) )
+#define PRB_PIX_ON_BORDER_TOUCH_UD(y,start_y,end_y,none,up,down,all) \
+	( (y) <= (start_y) ? PRB_PIX_ON_BORDER_TOUCH_D(y,end_y,up,all) : \
+	  PRB_PIX_ON_BORDER_TOUCH_D(y,end_y,none,down) )
+#define PRB_PIX_ON_BORDER_TOUCH_RUD(x,y,start_y,end_x,end_y,none,right,up,down,\
+	up_down,right_up,right_down,all) \
+		( (x) >= (end_x) ? PRB_PIX_ON_BORDER_TOUCH_UD(y,start_y,\
+			end_y,right,right_up,right_down,all) : \
+		  PRB_PIX_ON_BORDER_TOUCH_UD(y,start_y,end_y,none,up,down,\
+			up_down) )
+#define PRB_PIX_ON_BORDER_TOUCH(x,y,start_x,start_y,end_x,end_y,none,up,down,\
+	left,right,up_down,left_right,left_up,left_down,right_up,right_down,\
+	left_right_up,left_right_down,left_up_down,right_up_down,all)	\
+		( (x) <= (start_x) ? PRB_PIX_ON_BORDER_TOUCH_RUD(x,y,start_y,\
+			end_x,end_y,left,left_right,left_up,left_down,\
+			left_up_down,left_right_up,left_right_down,all) : \
+		  PRB_PIX_ON_BORDER_TOUCH_RUD(x,y,start_y,end_x,end_y,none,\
+			right,up,down,up_down,right_up,right_down,\
+			right_up_down) )
+
+#define PRB_PIX_ADJS8(x,y,start_x,start_y,end_x,end_y,adjs_var)	\
+		(PRB_PIX_ON_BORDER_TOUCH(x,y,start_x,start_y,end_x,end_y,\
+		  ((adjs_var)=prb_PixAdjs,8), ((adjs_var)=prb_PixAdjs_NoUp,5),\
+		  ((adjs_var)=prb_PixAdjs_NoDown,5), \
+		  ((adjs_var)=prb_PixAdjs_NoLeft,5), \
+		  ((adjs_var)=prb_PixAdjs_NoRight,5), \
+		  ((adjs_var)=prb_PixAdjs_NoUpDown,2), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftRight,2), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftUp,3), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftDown,3), \
+		  ((adjs_var)=prb_PixAdjs_NoRightUp,3), \
+		  ((adjs_var)=prb_PixAdjs_NoRightDown,3), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftRightUp,1), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftRightDown,1), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftUpDown,1), \
+		  ((adjs_var)=prb_PixAdjs_NoRightUpDown,1), \
+		  ((adjs_var)=NULL, 0) ))
+
+#define PRB_PIX_ADJS4(x,y,start_x,start_y,end_x,end_y,adjs_var)	\
+		(PRB_PIX_ON_BORDER_TOUCH(x,y,start_x,start_y,end_x,end_y,\
+		  ((adjs_var)=prb_PixAdjs,4), ((adjs_var)=prb_PixAdjs_NoUp,3),\
+		  ((adjs_var)=prb_PixAdjs_NoDown,3), \
+		  ((adjs_var)=prb_PixAdjs_NoLeft,3), \
+		  ((adjs_var)=prb_PixAdjs_NoRight,3), \
+		  ((adjs_var)=prb_PixAdjs_NoUpDown,2), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftRight,2), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftUp,2), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftDown,2), \
+		  ((adjs_var)=prb_PixAdjs_NoRightUp,2), \
+		  ((adjs_var)=prb_PixAdjs_NoRightDown,2), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftRightUp,1), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftRightDown,1), \
+		  ((adjs_var)=prb_PixAdjs_NoLeftUpDown,1), \
+		  ((adjs_var)=prb_PixAdjs_NoRightUpDown,1), \
+		  ((adjs_var)=NULL, 0) ))
+
+#define PRB_PIX_RB_ADJS8(x,y,start_x,start_y,end_x,end_y)	\
+		(PRB_PIX_ON_BORDER_TOUCH(x,y,start_x,start_y,end_x,end_y,\
+		  prb_rbPixAdjs8, prb_rbPixAdjs8_NoUp, prb_rbPixAdjs8_NoDown, \
+		  prb_rbPixAdjs8_NoLeft, prb_rbPixAdjs8_NoRight, \
+		  prb_rbPixAdjs8_NoUpDown, prb_rbPixAdjs8_NoLeftRight, \
+		  prb_rbPixAdjs8_NoLeftUp, prb_rbPixAdjs8_NoLeftDown, \
+		  prb_rbPixAdjs8_NoRightUp, prb_rbPixAdjs8_NoRightDown, \
+		  prb_rbPixAdjs8_NoLeftRightUp, prb_rbPixAdjs8_NoLeftRightDown,\
+		  prb_rbPixAdjs8_NoLeftUpDown, prb_rbPixAdjs8_NoRightUpDown, \
+		  prb_rbPixAdjs8_None ))
+
+#define PRB_PIX_RB_ADJS4(x,y,start_x,start_y,end_x,end_y)	\
+		(PRB_PIX_ON_BORDER_TOUCH(x,y,start_x,start_y,end_x,end_y,\
+		  prb_rbPixAdjs4, prb_rbPixAdjs4_NoUp, prb_rbPixAdjs4_NoDown, \
+		  prb_rbPixAdjs4_NoLeft, prb_rbPixAdjs4_NoRight, \
+		  prb_rbPixAdjs4_NoUpDown, prb_rbPixAdjs4_NoLeftRight, \
+		  prb_rbPixAdjs4_NoLeftUp, prb_rbPixAdjs4_NoLeftDown, \
+		  prb_rbPixAdjs4_NoRightUp, prb_rbPixAdjs4_NoRightDown, \
+		  prb_rbPixAdjs4_NoLeftRightUp, prb_rbPixAdjs4_NoLeftRightDown,\
+		  prb_rbPixAdjs4_NoLeftUpDown, prb_rbPixAdjs4_NoRightUpDown, \
+		  prb_rbPixAdjs4_None ))
+
+const int prb_PixAdjs[16], prb_PixAdjs_NoUp[10], prb_PixAdjs_NoDown[10],
+	prb_PixAdjs_NoLeft[10],		prb_PixAdjs_NoRight[10],
+	prb_PixAdjs_NoUpDown[4],	prb_PixAdjs_NoLeftRight[4],
+	prb_PixAdjs_NoLeftUp[6],	prb_PixAdjs_NoLeftDown[6],
+	prb_PixAdjs_NoRightUp[6],	prb_PixAdjs_NoRightDown[6],
+	prb_PixAdjs_NoLeftRightUp[2],	prb_PixAdjs_NoLeftRightDown[2],
+	prb_PixAdjs_NoLeftUpDown[2],	prb_PixAdjs_NoRightUpDown[2];
+VALUE	prb_rbPixAdjs8, prb_rbPixAdjs8_NoUp, prb_rbPixAdjs8_NoDown,
+	prb_rbPixAdjs8_NoLeft, prb_rbPixAdjs8_NoRight, prb_rbPixAdjs8_NoUpDown,
+	prb_rbPixAdjs8_NoLeftRight,	prb_rbPixAdjs8_NoLeftUp,
+	prb_rbPixAdjs8_NoLeftDown,	prb_rbPixAdjs8_NoRightUp,
+	prb_rbPixAdjs8_NoRightDown,	prb_rbPixAdjs8_NoLeftRightUp,
+	prb_rbPixAdjs8_NoLeftRightDown,	prb_rbPixAdjs8_NoLeftUpDown,
+	prb_rbPixAdjs8_NoRightUpDown,	prb_rbPixAdjs8_None;
+VALUE	prb_rbPixAdjs4, prb_rbPixAdjs4_NoUp, prb_rbPixAdjs4_NoDown,
+	prb_rbPixAdjs4_NoLeft, prb_rbPixAdjs4_NoRight, prb_rbPixAdjs4_NoUpDown,
+	prb_rbPixAdjs4_NoLeftRight,	prb_rbPixAdjs4_NoLeftUp,
+	prb_rbPixAdjs4_NoLeftDown,	prb_rbPixAdjs4_NoRightUp,
+	prb_rbPixAdjs4_NoRightDown,	prb_rbPixAdjs4_NoLeftRightUp,
+	prb_rbPixAdjs4_NoLeftRightDown,	prb_rbPixAdjs4_NoLeftUpDown,
+	prb_rbPixAdjs4_NoRightUpDown,	prb_rbPixAdjs4_None;
+
+VALUE	prb_cPPix_Xy,
+	prb_mPPix_MPixbufPix,
+	prb_cPPix_PixbufPix,
+	prb_cPPix_Pixbuf;
+
+void prb_color_rgb_to_hsv(int r, int g, int b, double *h, double *s, double *v);
+
+VALUE prb_xy_init(VALUE self, VALUE x, VALUE y);
+VALUE prb_xy_new(VALUE klass, VALUE x, VALUE y);
+VALUE prb_xy_x(VALUE self);
+VALUE prb_xy_y(VALUE self);
+VALUE prb_xy_yx(VALUE self);
+VALUE prb_xy_hash(VALUE self);
+VALUE prb_xy_to_s(VALUE self);
+
+VALUE prb_pixbuf_pix_rgb_to_hsv(VALUE klass, VALUE r, VALUE g, VALUE b);
+VALUE prb_pixbuf_pix_pixbuf(VALUE self);
+VALUE prb_pixbuf_pix_color_id(VALUE self);
+VALUE prb_pixbuf_pix_color_rgb(VALUE self);
+VALUE prb_pixbuf_pix_color_hsv(VALUE self);
+VALUE prb_pixbuf_pix_is_virtual(VALUE self);
+VALUE prb_pixbuf_pix_is_border(VALUE self, VALUE adjacents);
+VALUE prb_pixbuf_pix_is_border_in_8(VALUE self, unsigned int neighbs_cnt);
+VALUE prb_pixbuf_pix_is_border8(VALUE self);
+VALUE prb_pixbuf_pix_is_border4(VALUE self);
+VALUE prb_pixbuf_pix_adj(VALUE self, VALUE adjacents);
+VALUE prb_pixbuf_pix_adj8(VALUE self);
+VALUE prb_pixbuf_pix_adj4(VALUE self);
+VALUE prb_pixbuf_pix_adj_cocolor(VALUE self, VALUE adjacents);
+VALUE prb_pixbuf_pix_adj_cocolor8(VALUE self);
+VALUE prb_pixbuf_pix_adj_cocolor4(VALUE self);
+VALUE prb_pixbuf_pix_adj_fuzzy_rgb_cocolor
+	(VALUE self, VALUE adjacents, VALUE rb_r_toler, VALUE rb_g_toler,
+	 VALUE rb_b_toler);
+VALUE prb_pixbuf_pix_adj_fuzzy_hsv_cocolor
+	(VALUE self, VALUE adjacents, VALUE rb_h_toler, VALUE rb_s_toler,
+	 VALUE rb_v_toler);
+
+VALUE prb_pixbuf_pix_init(VALUE self, VALUE pixbuf, VALUE x, VALUE y);
+
+VALUE prb_pixbuf_pixels_ptr(VALUE self);
+VALUE prb_pixbuf_pixels(VALUE self);
+VALUE prb_pixbuf_sample_length(VALUE self);
+VALUE prb_pixbuf_pix_length(VALUE self);
+VALUE prb_pixbuf_picture_width(VALUE self);
+VALUE prb_pixbuf_picture_height(VALUE self);
+VALUE prb_pixbuf_ofs0(VALUE self);
+VALUE prb_pixbuf_pix_mask(VALUE self);
+VALUE prb_pixbuf_border_width(VALUE self);
+VALUE prb_pixbuf_init(int argc, VALUE *argv, VALUE self);
+VALUE prb_pixbuf_get_pix(VALUE self, VALUE x, VALUE y);
+VALUE prb_pixbuf_dup(VALUE self);
+VALUE prb_pixbuf_scale(int argc, VALUE *argv, VALUE self);
+VALUE prb_pixbuf_add_border(VALUE self, VALUE rb_b_width);
+/*
+VALUE prb_pixbuf_subpixbuf
+	(VALUE self, VALUE r_x, VALUE r_y, VALUE r_width, VALUE r_height);*/
+VALUE prb_pixbuf_scaled
+	(VALUE self, VALUE r_kx, VALUE r_ky, VALUE r_x, VALUE r_y,VALUE r_width,
+	 VALUE r_height, VALUE r_interp);
+VALUE prb_pixbuf_gdk_scaled
+	(VALUE self, VALUE r_kx, VALUE r_ky, VALUE r_x, VALUE r_y,VALUE r_width,
+	 VALUE r_height, VALUE r_interp);
+
+#endif /* PAV_PIX_H */

data/ruby_ext/pav/t.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/ruby
+
+require 'pav/pav'
+
+class T
+	def initialize
+		CStrView.new(10, 100, nil)
+		nil
+	end
+	
+	def t1
+		ObjectSpace.define_finalizer(CStrView.new(10, 100, nil)) { |oid|
+			puts "Killing #{oid}." }
+		nil
+	end
+	
+	def t2
+		ObjectSpace.undefine_finalizer(CStrView.new(10, 100, nil))
+		nil
+	end
+end
+
+T.new
+puts "GC'ing (1)..."
+GC.start
+
+T.new.t1
+puts "GC'ing (2)..."
+GC.start
+
+T.new.t2
+puts "GC'ing (3)..."
+GC.start
+
+puts "Done."

data/ruby_ext/pav/t1.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/ruby
+
+require 'pav/pav'
+
+class T
+	def initialize
+		String.cstr_view_new([], 10, 100)
+		nil
+	end
+	
+	def t1
+		ObjectSpace.define_finalizer(String.cstr_view_new(nil,10,100)) {
+		  |oid| puts "Killing #{oid}." }
+		nil
+	end
+	
+	def t2
+		ObjectSpace.undefine_finalizer(String.cstr_view_new(nil,10,100))
+		nil
+	end
+end
+
+T.new
+puts "GC'ing (1)..."
+GC.start
+
+T.new.t1
+puts "GC'ing (2)..."
+GC.start
+
+T.new.t2
+puts "GC'ing (3)..."
+GC.start
+
+puts "Done."

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