facets 1.7.46 → 1.8.0

data/work/more/logger_sing.rb

@@ -0,0 +1,207 @@
+#--
+# GLogger
+#
+# Copyright (c) 2005 George Moschovitis <gm@navel.gr>
+#
+# Ruby License
+#
+# This module is free software. You may use, modify, and/or redistribute this
+# software under the same terms as Ruby.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.
+#
+# ===========================================================================
+#  Revision History ::
+# ---------------------------------------------------------------------------
+#
+#  2005.08.25  trans   Ported to Mega Modules with Mark Probet's changes.
+#
+# ===========================================================================
+#
+# :TODO: Docs upadte, What compatibility purposes?
+#
+# :TODO: Implement as mixin that can be added to Log4R.
+#
+#++
+
+require 'logger'
+
+#:title: GLogger
+#
+# A simple wrapper arround the Ruby logger. Mainly for
+# compatibility purposes.
+#
+# == Usage
+#
+#  TODO
+#
+# Author(s)
+#
+# * George Moschovitis
+# * Gavin Sinclair
+# * Mark Probet
+#
+
+class GLogger < Logger
+  alias_method :devel, :debug
+  alias_method :fine, :debug
+
+  # Prints a trace message to DEBUGLOG (at debug level).  
+  # Useful for emitting the value of variables, etc.  Use 
+  # like this:
+  #
+  #   x = y = 5
+  #   trace 'x'        # -> 'x = 5'
+  #   trace 'x ** y'   # -> 'x ** y = 3125'
+  #
+  # If you have a more complicated value, like an array of 
+  # hashes, then you'll probably want to use an alternative 
+  # output format.  For instance:
+  #
+  #   trace 'value', :yaml
+  #
+  # Valid output format values (the _style_ parameter) are:
+  #
+  #   :p :inspect
+  #   :pp                     (pretty-print, using 'pp' library)
+  #   :s :to_s
+  #   :y :yaml :to_yaml       (using the 'yaml' library')
+  #
+  # The default is <tt>:p</tt>.
+  #
+  # CREDITS:
+  #
+  # This code comes straight from the dev-utils Gem.
+  # Author: Gavin Sinclair <gsinclair@soyabean.com.au>
+
+  def trace(expr, style=:p)
+    unless expr.respond_to? :to_str
+      warn "trace: Can't evaluate the given value: #{caller.first}"
+    else
+      require 'nano/binding/of_caller'
+
+      Binding.of_caller do |b|
+        value = b.eval(expr.to_str)
+        formatter = TRACE_STYLES[style] || :inspect
+        case formatter
+        when :pp then require 'pp'
+        when :y, :yaml, :to_yaml then require 'yaml'
+        end
+        value_s = value.send(formatter)
+        message = "#{expr} = #{value_s}"
+        lines = message.split(/\n/)
+        indent = "   "
+        debug(lines.shift)                      
+        lines.each do |line|
+          debug(indent + line)
+        end
+      end
+    end
+  end
+
+  TRACE_STYLES = {}  # :nodoc:
+  TRACE_STYLES.update(
+    :pp => :pp_s, :s => :to_s, :p => :inspect,
+    :y => :to_yaml, :yaml => :to_yaml,
+    :inspect => :inspect, :to_yaml => :to_yaml
+  )
+
+  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+  # Global logger interface. 
+  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+  # Override the logger with your custom version.
+
+  @@global_logger = GLogger.new(STDERR)
+
+  # Set the global Logger.
+
+  def self.set(logger)
+    if logger.is_a?(String)
+      @@global_logger = GLogger.new(logger)
+    elsif logger.is_a?(Logger)
+      @@global_logger = logger
+    else
+      raise ArgumentError.new
+    end
+  end
+
+  def self.get
+    @@global_logger
+  end
+
+  def self.warn(str)
+    @@global_logger.warn(str)
+  end
+
+  def self.info(str)
+    @@global_logger.info(str)
+  end
+
+  def self.debug(str)
+    @@global_logger.debug(str)
+  end
+
+  def self.error(str)
+    @@global_logger.error(str)
+  end
+
+  #--
+  # Saddly have to duplicate the code to make
+  # Binding.of_caller work.
+  #++
+  def self.trace(expr, style=:p)
+    unless expr.respond_to? :to_str
+      warn "trace: Can't evaluate the given value: #{caller.first}"
+    else
+      require 'nano/binding/of_caller'
+
+      Binding.of_caller do |b|
+        value = eval(expr.to_str, b)
+        formatter = TRACE_STYLES[style] || :inspect
+        case formatter
+        when :pp then require 'pp'
+        when :y, :yaml, :to_yaml then require 'yaml'
+        end
+        value_s = value.send(formatter)
+        message = "#{expr} = #{value_s}"
+        lines = message.split(/\n/)
+        indent = "   "
+        debug(lines.shift)                      
+        lines.each do |line|
+          debug(indent + line)
+        end
+      end
+    end
+  end
+
+  # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+  private
+
+  # the default Ruby logger has a hardwired silly format.
+
+  Format = "%5s: %s\n"
+
+  def format_message(severity, timestamp, msg, progname)
+    Format % [severity, msg]
+  end
+
+end
+
+# Add logging capabilities to the including class.
+# When using the log/logger variables always check
+# for nil:
+#
+#   log.info "your #{expensive_calculation} comes here" if @log
+#
+# This way the expensive calculation is avoided if the
+# logger is dissabled (@log == nil).
+#
+module Logging
+  attr_accessor :logger
+  alias_method :log, :logger
+end
+

data/work/more/must.rb

@@ -0,0 +1,37 @@
+#
+# must.rb
+#
+#   Copyright (c) 1999-2002 Minero Aoki <aamine@loveruby.net>
+#
+#   This program is free software.
+#   You can distribute/modify this program under the terms of
+#   the GNU Lesser General Public License version 2 or later.
+#
+#   $Id: must.rb,v 1.12 2002/01/05 06:19:34 aamine Exp $
+#
+class Object
+
+  def must( *args )
+    args.each {|c| return self if c === self }
+    raise TypeError, "wrong arg type '#{self.class}' for required #{args.join('/')}"
+  end
+
+  def must_have( *args )
+    args.each do |m|
+      self.respond_to? m or
+        raise ArgumentError, "receiver #{inspect} does not have '#{m}'"
+    end
+    self
+  end
+  alias_method :needed, :must_have
+
+  def must_be( obj )
+    self == obj or raise ArgumentError, "expected #{eq.inspect} but is #{inspect}"
+    self
+  end
+
+  def must_exist
+    nil? and raise ArgumentError, 'receiver is wrongly nil'
+  end
+
+end

data/work/more/old-tkxml.rb

@@ -0,0 +1,189 @@
+# XMLToolKit - TkXML
+# Copyright (c) 2002 Thomas Sawyer, LGPL
+#
+# Version: April 2002 - Alpha (2.04a)
+#
+# A combination of Ruby/Tk + REXML 
+# to allow for fast and easy creation
+# of Tk interfaces using standard XML
+
+# XMLToolKit is free software; you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# XMLToolKit is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with XMLToolKit; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+require 'rexml/document'
+require 'tk'
+
+module XMLToolKit
+
+  class TkXML
+  
+    def initialize(source)
+      @listener = TkXML_Listener.new
+      REXML::Document.parse_stream(source, @listener)
+    end
+  
+    def build
+      Tk.mainloop
+    end
+  
+  end
+  
+  class TkXML_Listener
+  
+    def initialize
+      puts "Initializing TkXML_Listner"
+      @widget = Hash.new
+      @widget_stack = Array.new
+      @parent = nil
+    end
+  
+    def tag_start name, attributes
+      
+      # get parent, the widget on the bottom of the stack
+      @parent = @widget_stack.last
+      
+      # pull off the tag name if prefixed with the Tk namespace
+      if name[0..2] == "Tk:"
+        tag_name = name[3..name.length]
+      else
+        tag_name = name
+      end
+      
+      # looks life the attributes object given is nothing morethen a array in an array. how lame!
+      # this wll turn it into a hash
+      attr_hash = Hash.new
+      attributes.each do |a|
+        attr_hash[a[0]] = a[1]
+      end
+      
+      # okay, lets do this thing
+      
+      # is it a method call or a new widget?
+      if tag_name[0..0] == '_'
+      
+        # apply method
+        puts "Applying Method: #{name} to #{@parent}"
+        
+        # get method name
+        meth_name = tag_name[1..tag_name.length]
+        
+        # assign the method's parameters
+        p_arr = Array.new	# array for parameters to be passed
+        p_init = Hash.new	# for the ordered arguments _1 _2 etc.
+        p_hash = Hash.new	# for all other named parameters
+        
+        # weed out the ordered parameters from the hash parameters
+        attr_hash.each do |n, v|
+          puts "   #{n} => #{v}"
+          if n[0..0] == "_"
+            p_init[n] = v
+          else
+            p_hash[n] = v
+          end
+        end
+  
+        # sort the ordered parameters based on the hash key
+        # note: this converts p_init into an associative array
+        # then place each one in the parameter array
+        if not p_init.empty?
+          p_init.sort
+          p_init.each do |a|
+            p_arr.push a[1]
+          end
+        end
+        
+        # now add the hash to the array if there is one
+        if not p_hash.empty?
+          p_arr.push p_hash
+        end
+        
+        # call the method
+        @parent.send(meth_name, *p_arr)
+      
+      else
+  
+        # create widget
+        puts "Creating Widget: #{name} of #{@parent}"
+  
+        widget_class = "Tk" + tag_name.capitalize
+        widget_name = attr_hash['name']
+  
+        if @parent == nil
+          @widget[widget_name] = Tk.const_get(widget_class).new
+        else
+          @widget[widget_name] = Tk.const_get(widget_class).new(@parent)
+        end
+        
+        # assign the widget properties
+        attr_hash.each do |n, v|
+          if not n == 'name'
+            puts "   #{n} => #{v}"
+            @widget[widget_name].send(n, v)
+          end
+        end
+  
+        # push widget on to the stack
+        @widget_stack.push(@widget[widget_name])
+      
+      end
+    
+    end
+  
+  
+    def tag_end name
+    
+      # pull off the tag name if prefixed with the Tk namespace
+      if name[0..2] == "Tk:"
+        tag_name = name[3..name.length]
+      else
+        tag_name = name
+      end
+      
+      # if method then we're finish
+      # else if widget then finish creation and pop off the widget stack
+      if tag_name[0..0] == "_"
+      
+        puts "End Method: #{name}"
+      
+      else
+      
+        @parent = @widget_stack[-2]
+        current = @widget_stack.last
+        
+        case tag_name.downcase
+          when "menu"
+            @parent.menu(current)
+        end
+        
+        # pop current widget off of stack
+        @widget_stack.pop
+        
+        puts "End Widget: #{name}"
+        
+      end
+      
+    end
+  
+    
+    def text free_radical
+      if not free_radical.strip == ""
+        puts "Error: TkXML does not use XML text entries: #{free_radical}"
+      end
+    end
+  
+  end
+
+end  # XMLToolKit
+

data/work/more/pairhash.rb

@@ -0,0 +1,55 @@
+
+class PairHash
+
+  def initialize( *args )
+    @outer = Hash.new([])
+  end
+
+  def add_entry( x, y, z )
+    a = [y,z]
+    @outer[x] << a
+    a
+  end
+
+  def del_entry( x, y=nil )
+    if y
+      @outer[x].reject! { |e| e[0] == y }
+    else
+      @outer.delete(x)
+    end
+  end
+
+  def inner_value?( v, x, y ) 
+    @outer[x].select { |e| e == [y,v] }
+  end
+
+end
+
+
+# test
+
+if $0 == __FILE__
+
+  require 'test/unit'
+
+  class TC < Test::Unit::TestCase
+
+    def setup
+      @ph = ::PairHash.new
+    end
+  
+    def test01
+      @ph.add_entry( "x", "aa", 2 )
+      @ph.add_entry( "x", "aa", 3 )
+      @ph.add_entry( "x", "bb", "boo" )
+    end
+   
+    def test02
+      assert( @ph.inner_value?( 3, "x", "aa" ) )
+    end
+   
+  end
+
+end
+
+