extract-curves 0.1.1-mswin32

data/ruby_libs/pav/guiobj.rb

@@ -0,0 +1,2 @@
+require 'pav/guiobj/obj'
+require 'pav/guiobj/method'

data/ruby_libs/pav/guiobj/info_asm.rb

@@ -0,0 +1,41 @@
+require 'pav/search'
+
+module PGuiObj
+
+class ObjInfoStrAssembler
+	def initialize(impl_obj)
+		@impl_obj = impl_obj
+		@attrs = []
+		@cmp_f = proc { |a,b|
+			if (res = (a[0] <=> b[0]))
+				res
+			else
+				a[1] <=> b[1]
+			end
+		}
+	end
+	
+	def set_attr(idx, key, value)
+		attr = [idx, key, value]
+		if (i = PSearch.bsearch(@attrs, attr, &@cmp_f)) >= 0
+			if @attrs[i][2] != value
+			  @attrs[i][2] = value
+			  self.rebuild
+			end
+		else
+			@attrs[-i-1, 0] = [attr]
+			self.rebuild
+		end
+	end
+	
+	def rebuild
+		@impl_obj.pguiobj_info_str = @attrs.collect { |a| a[2]+'.' }.
+			join("\n")
+	end
+end
+
+module MObj
+	attr_accessor :pguiobj_info_str_asm
+end
+
+end

data/ruby_libs/pav/guiobj/method.rb

@@ -0,0 +1,211 @@
+require 'ostruct'
+require 'pav/guiobj/signals'
+
+module PGuiObj
+
+class Bool
+end
+
+class Enum < Array
+	def initialize(*args)
+		super()
+		while !args.empty?
+			unless (name = args.shift).kind_of?(String)
+			  raise ArgumentError,
+			    "Invalid Enumeration member name: #{name.inspect}!"
+			end
+			self << [name, args.shift]
+		end
+	end
+	
+	def each_triplet
+		self.each_with_index { |k, m| yield(k, m[0], m[1]) }
+	end
+	
+	def each_member
+		self.each { |m| yield(m[0], m[1]) }
+	end
+	
+	def each_name
+		self.each { |m| yield(m[0]) }
+	end
+	
+	def value(k)
+		self.at(k)[1]
+	end
+end
+
+module MArgument
+	attr_accessor :pguiobj_type_class, :pguiobj_type_constraints,
+		:pguiobj_contraint_func, :pguiobj_default,
+		:pguiobj_name, :pguiobj_descr, :pguiobj_config,
+		:pguiobj_value_changed_flag
+	
+	def pguiobj_init(klass, constraints=OpenStruct.new, constraint_func=nil,
+	default=nil, name=nil, descr=nil, config=OpenStruct.new)
+		@pguiobj_type_class = klass
+		@pguiobj_type_constraints = constraints
+		@pguiobj_constraint_func = constraint_func
+		@pguiobj_default = default
+		@pguiobj_name = name
+		@pguiobj_descr = descr
+		@pguiobj_config = config || OpenStruct.new
+		@pguiobj_value_changed_flag = Flag.new
+		raise ArgumentError, "Invalid constraints: #{
+		  @pguiobj_type_constraints}/#{@pguiobj_type_constraints.class
+		  }!" unless @pguiobj_type_constraints.kind_of?(OpenStruct) ||
+		  @pguiobj_type_constraints.kind_of?(PGuiObj::Enum) ||
+		  @pguiobj_type_constraints.kind_of?(PGuiObj::Bool) ||
+		  @pguiobj_type_constraints.nil?
+		raise ArgumentError, "Invalid name: #{@pguiobj_name}/#{
+		  @pguiobj_name.class}" unless @pguiobj_name.kind_of?(String)
+		raise ArgumentError, "Default value inconsistent with " +
+		  "argument type: #{@pguiobj_default}/#{@pguiobj_default.class
+		  } vs. #{@pguiobj_type_class}" unless @pguiobj_default.nil? ||
+		  @pguiobj_default.kind_of?(@pguiobj_type_class) ||
+		  (@pguiobj_type_class == Bool && (@pguiobj_default.
+		  	equal?(true) || @pguiobj_default.equal?(false))) ||
+		  @pguiobj_type_class == Enum &&
+		  	@pguiobj_default.kind_of?(Integer)
+	end
+end
+
+class Argument
+	include MArgument
+	
+	alias_method :initialize, :pguiobj_init
+end
+
+class CancelCall < RuntimeError
+end
+
+module PMMethod
+	attr_accessor :pguiobj_implementation, :pguiobj_args,
+		:pguiobj_pre_call_flag, :pguiobj_cancel_call_flag,
+		:pguiobj_post_call_pre_gui_flag, :pguiobj_post_call_flag,
+		:pguiobj_name, :pguiobj_descr, :pguiobj_config,
+		:pguiobj_parent_meth, :pguiobj_children, :pguiobj_obj
+	
+	def pguiobj_init(implementation, input_args, name=nil, descr=nil,
+	config=OpenStruct.new, pre_call_flag=nil, cancel_call_flag=nil,
+	pre_gui_flag=nil, post_call_flag=nil)
+		@pguiobj_implementation = implementation
+		@pguiobj_args = input_args
+		@pguiobj_name = name
+		@pguiobj_descr = descr
+		@pguiobj_config = config
+		@pguiobj_pre_call_flag = pre_call_flag || Flag.new
+		@pguiobj_cancel_call_flag = cancel_call_flag || Flag.new
+		@pguiobj_post_call_pre_gui_flag = pre_gui_flag || Flag.new
+		@pguiobj_post_call_flag = post_call_flag || Flag.new
+		raise ArgumentError,"Invalid config: #{@pguiobj_config}!" unless
+			@pguiobj_config.kind_of?(OpenStruct)
+	end
+	
+	def pguiobj_remove_child(child)
+		return unless self.pguiobj_children
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "Children: #{self.pguiobj_children.inspect}"
+		i = nil
+		self.pguiobj_children.each_with_index { |c,i|
+			break if child.equal?(c) }
+		if i
+			self.pguiobj_children.delete_at(i)
+		else
+			warn("#{self.class.name}.remove_child: Child not " +
+			  "found: #{child}!")
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def pguiobj_clear_children
+		return unless self.pguiobj_children
+		self.pguiobj_children.clear
+	end
+	
+	def pguiobj_instantiate(obj)
+		if (impl = @pguiobj_implementation).kind_of?(Symbol) ||
+		impl.kind_of?(String)
+			impl = obj.method(impl)
+		end
+		meth = PMethod.new(impl, @pguiobj_args, @pguiobj_name,
+			@pguiobj_descr, @pguiobj_config.dup,
+			@pguiobj_pre_call_flag.dup,
+			@pguiobj_cancel_call_flag.dup,
+			@pguiobj_post_call_pre_gui_flag.dup,
+			@pguiobj_post_call_flag.dup)
+		meth.pguiobj_obj = obj
+		meth
+	end
+end
+
+class PMethod
+	include PMMethod
+	
+	alias_method :initialize, :pguiobj_init
+end
+
+class ObjDeathObserverInstcMeth
+	attr_reader :instc_meth
+	
+	def initialize(instc_meth)
+		@instc_meth = instc_meth
+	end
+	
+	def update(gui_obj, obj)
+		if @instc_meth.kind_of?(Symbol) || @instc_meth.kind_of?(String)
+			obj.method(@instc_meth).call
+		else
+			@instc_meth.call
+		end
+	end
+end
+
+class MethObserverChildrenNoDeleteBtn
+	def self.observe(meth)
+		meth.pguiobj_post_call_pre_gui_flag.add_observer(self)
+	end
+	
+	def self.update(obj, meth, child)
+		child.pguiobj_config.destroy_btn = false if
+			child.class <= PGuiObj::MObj
+	end
+end
+
+class MethObserverCachedAttr
+	def self.observe(meth)
+		meth.pguiobj_post_call_flag.add_observer(self)
+	end
+	
+	def self.update(obj, meth, child, gui_child)
+		if child.class <= PGuiObj::MObj
+			meth.disable
+			child.pguiobj_post_destroy_flag.add_observer(
+			  ObserverCallMeth.new(meth.method(:enable)))
+		end
+	end
+end
+
+class MethObserverCall
+	def self.create
+		self
+	end
+	
+	def self.update(obj, meth, *args)
+		meth.call
+	end
+end
+
+class ObserverCallMeth
+	attr_reader :meth
+	
+	def initialize(meth)
+		@meth = meth
+	end
+	
+	def update(*args)
+		@meth.call
+	end
+end
+
+end

data/ruby_libs/pav/guiobj/obj.rb

@@ -0,0 +1,134 @@
+require 'pav/guiobj/method'
+require 'pav/guiobj/signals'
+
+module PGuiObj
+
+module MObj
+	attr_accessor :pguiobj_methods, :pguiobj_config, :pguiobj_parent_meth,
+		:pguiobj_impl_obj
+	attr_reader :pguiobj_pre_destroy_flag, :pguiobj_post_destroy_flag,
+		:pguiobj_changed_flag
+	
+	def pguiobj_init(methods=nil, config=nil)
+		@pguiobj_methods = methods ||
+			PGuiObj::MObj.pguiobj_get_methods_of(self.class) ||
+			[]
+		raise ArgumentError, "Invalid 'methods' argument: #{
+			@pguiobj_methods}!" unless
+			@pguiobj_methods.kind_of?(Array)
+		raise ArgumentError, "Invalid config: #{config}!" unless
+			config.kind_of?(OpenStruct)
+		@pguiobj_methods = @pguiobj_methods.collect { |meth|
+			meth.pguiobj_instantiate(self) }
+		@pguiobj_config = config || OpenStruct.new
+		@pguiobj_pre_destroy_flag = Flag.new
+		@pguiobj_post_destroy_flag = Flag.new
+		@pguiobj_changed_flag = Flag.new
+	end
+	
+	def to_pguiobj
+		self
+	end
+	
+	def self.pguiobj_get_methods_of(klass)
+		if (meths = klass.instance_variable_get(:@pguiobj_methods))
+			return meths
+		end
+		begin
+		  if (meths = self.pguiobj_get_methods_of(klass.superclass))
+			klass.instance_variable_set(:@pguiobj_methods,
+				meths=meths.dup)
+			return meths
+		  end
+		rescue NoMethodError
+		end
+		klass.instance_variable_set(:@pguiobj_methods, meths=[])
+		meths
+	end
+	
+	def self.pguiobj_add_methods_to(klass, *args)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "args: #{args.inspect}"
+		#res=
+		self.pguiobj_get_methods_of(klass).concat(args)
+		#$PDbgLog.puts_msg caller[0,5].join('\n')
+		#$PDbgLog.sig_return(res.inspect)
+		#res
+	end
+end
+
+module MObjCollection
+	def pguiobj_length
+		self.length
+	end
+end
+
+class ObjCollection
+	attr_reader :collection
+	include PGuiObj::MObj
+	
+	def self.create(collection, *args)
+		self.new(collection, *args)
+	end
+	
+	def initialize(collection, *args)
+		@collection = collection
+		pguiobj_init(*args)
+	end
+	
+	def pguiobj_length
+		@collection.length
+	end
+end
+
+module MObjArray
+	include MObj
+	include MObjCollection
+	
+	def pguiobj_each_key_value
+		self.each_with_index { |obj, i|
+			yield(i, obj) if obj.kind_of?(PGuiObj::MObj)
+		}
+	end
+	
+	def pguiobj_each_value(&block)
+		self.each(&block)
+	end
+end
+
+class ObjArray < ObjCollection
+	def pguiobj_each_key_value
+		@collection.each_with_index { |obj, i|
+			yield(i, obj) if obj.kind_of?(PGuiObj::MObj)
+		}
+	end
+	
+	def pguiobj_each_value(&block)
+		@collection.each(&block)
+	end
+end
+
+module MObjHash
+	include MObj
+	include MObjCollection
+	
+	def pguiobj_each_key_value
+		self.each_pair { |k, obj|
+			yield(k, obj) if obj.kind_of?(PGuiObj::MObj)
+		}
+	end
+end
+
+class ObjHash < ObjCollection
+	def pguiobj_each_key_value
+		@collection.each_pair { |k, obj|
+			yield(k, obj) if obj.kind_of?(PGuiObj::MObj)
+		}
+	end
+	
+	def pguiobj_each_value(&block)
+		@collection.each_value(&block)
+	end
+end
+
+end

data/ruby_libs/pav/guiobj/signals.rb

@@ -0,0 +1,9 @@
+require 'observer'
+
+module PGuiObj
+
+class Flag
+	include Observable
+end
+
+end

data/ruby_libs/pav/heap.rb

@@ -0,0 +1,54 @@
+class PMinHeap < Array
+	attr_reader :comparator
+	
+	def initialize(&comparator)
+		if block_given?
+			@comparator = comparator
+		else
+			@comparator = proc { |a, b| a <=> b }
+		end
+		super()
+	end
+	
+	def push(lm)
+		i = self.length
+		super(lm)
+		while i>0 && @comparator.call(self[parent_i=((i-1)>>1)], lm) > 0
+			self[i] = self[parent_i]
+			i = parent_i
+		end
+		self[i] = lm
+		self
+	end
+	
+	alias_method :<<, :push
+	
+	def pop
+		res = self.first
+		lm = super
+		return res if self.empty?
+		i = 0
+		len = self.length
+		while (chld_i = (i<<1) + 1) < len
+			l_chld_i = chld_i + 1
+			chld_i = l_chld_i if l_chld_i < len &&
+				@comparator.call(self[l_chld_i],self[chld_i])<0
+			if @comparator.call(lm, self[chld_i]) > 0
+				self[i] = self[chld_i]
+				i = chld_i
+			else
+				self[i] = lm
+				return res
+			end
+		end
+		self[i] = lm
+		res
+	end
+	
+	alias_method :shift, :pop
+	
+	def concat(arr)
+		arr.each { |lm| self.push(lm) }
+		self
+	end
+end