facets 1.8.49 → 1.8.51

data/work/more/logger_sing.rb

@@ -1,207 +0,0 @@
-#--
-# 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

@@ -1,37 +0,0 @@
-#
-# 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

@@ -1,189 +0,0 @@
-# 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

@@ -1,55 +0,0 @@
-
-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
-
-