facets 2.2.1 → 2.3.0

data/lib/more/facets/cloneable.rb

@@ -1,75 +0,0 @@
-# TITLE:
-#
-#   Clonable
-#
-# SUMMARY:
-#
-#   Standard basis for adding #dup and #clone methods to a class.
-#
-# COPYRIGHT:
-#
-#   Copyright (c) 2002 Jim Weirich
-#
-# LICENSE:
-#
-#   GNU General Public License (GPL)
-#
-#   Permission is hereby granted, free of charge, to any person obtaining
-#   a copy of this software and associated documentation files (the
-#   "Software"), to deal in the Software without restriction, including
-#   without limitation the rights to use, copy, modify, merge, publish,
-#   distribute, sublicense, and/or sell copies of the Software, and to
-#   permit persons to whom the Software is furnished to do so, subject to
-#   the following conditions:
-#
-#   The above copyright notice and this permission notice shall be
-#   included in all copies or substantial portions of the Software.
-#
-#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-#   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-#   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-#   NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-#   LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-#   OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-#   WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-# HISTORY:
-#
-#   Cloneable was ported from Jim Weirich's Rake.
-#
-# AUTHORS:
-#
-#   - Jim Weirich
-#
-# TODOs:
-#
-#   - Method #clone should copy '<<'-methods in contrast to #dup.
-
-
-# = Cloneable
-#
-# Standard basis for adding #dup and #clone methods to a class.
-
-module Cloneable
-  def clone
-    sibling = self.class.new
-    instance_variables.each do |ivar|
-      value = self.instance_variable_get(ivar)
-      sibling.instance_variable_set(ivar, value.dup) #rake_dup)
-    end
-    sibling
-  end
-  alias_method :dup, :clone
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin #test
-=end

data/meta/facets.roll

@@ -1,4 +0,0 @@
-facets 2.2.1 stable 2007-12-22 facets.rb
-lib/core/facets
-lib/more/facets
-

data/meta/google_ad.html

@@ -1,15 +0,0 @@
-<div style="position: absolute; top: 5px; right: 10px;">
-  <script type="text/javascript"><!--
-  google_ad_client = "pub-1126154564663472";
-  google_ad_width = 234;
-  google_ad_height = 60;
-  google_ad_format = "234x60_as";
-  google_ad_type = "text_image";
-  //2007-08-31: facets
-  google_ad_channel = "2923120207";
-  //-->
-  </script>
-  <script type="text/javascript"
-    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
-  </script>
-</div>

data/meta/icli.yaml

@@ -1,17 +0,0 @@
----
-rubyforge:
-  project  : facets
-  username : transami
-
-  release:
-    store     : pkg
-    package   : All of Facets
-    name      : facets
-    notelog   : NOTES
-    changelog : CHANGES
-
-  publish: {}
-
-  post:
-    file: NOTES
-

data/task/changes

@@ -1,29 +0,0 @@
-#!/usr/bin/env ratch
-
-# generate changes from history
-
-config = configuration['changes']
-
-history_file = config['history'] || 'log/history.rd'
-changes_file = config['changes'] || 'CHANGES'
-
-history_file.to_actual_filename!
-
-name, version = rollrc.name, rollrc.version
-
-main :changes do
-  build changes_file
-end
-
-file changes_file => [ history_file ] do
-  history = File.read(history_file)
-  matches = /^==\s*#{version}(.*?)(\n==|\Z)/m.match(history)
-  changes = matches[0]
-  changes = changes.chomp('==').strip.sub(/^==\s+/, "#{name} ")
-  if dryrun?
-    puts "#{changes_file} would have been updated (dryrun mode)."
-  else
-    File.open(changes_file, 'w'){ |f| f << changes }
-    puts "#{changes_file} updated."
-  end
-end

data/task/clean

@@ -1,17 +0,0 @@
-#!/usr/bin/env ratch
-
-# Remove pkg/ and doc/rdoc products
-
-CLOBBER = %w{ pkg doc/rdoc }
-
-main :clean do
-  CLOBBER.each do |f|
-    print path
-    if exits?(f)
-      rm_r(f)
-      puts " (removed)"
-    else
-      puts " (missing)"
-    end
-  end
-end

data/task/clobber/package

@@ -1,10 +0,0 @@
-#!/usr/bin/env ratch
-
-# Remove package products.
-
-main :clobber_packaging do
-  glob("pkg/*").each do |f|
-    rm_r(f)
-  end
-end
-

data/task/log

@@ -1,17 +0,0 @@
-#!/usr/bin/env ratch
-
-# produce changelog
-
-main :changelog do
-  text = `svn log --xml`
-  i = text.index("?>\n")
-  text.insert(i+2, "\n" + '<?xml-stylesheet href="changelog.xsl" type="text/xsl" ?>')
-
-  if dryrun?
-    puts text
-  else
-    File.open('doc/log/changelog.xml') do |f|
-      f << text
-    end
-  end
-end

data/task/prepare

@@ -1,7 +0,0 @@
-#!/usr/bin/env ratch
-
-# prepare package
-
-manifest 'update'
-box 'build'
-

data/task/publish

@@ -1,43 +0,0 @@
-#!/usr/bin/env ratch
-
-# Publish website to rubyforge
-#
-# This task publishes the source dir (deafult 'doc')
-# to a rubyforge website.
-
-main :publish do
-  config = configuration['publish']
-
-  project     = config['project']
-  subdir      = config['subdir']
-  source      = config['source'] || "doc"
-  username    = config['username']
-  protect     = %w{usage statcvs statsvn robot.txt wiki}
-  exclude     = %w{.svn}
-
-  abort "no project"  unless project
-  abort "no username" unless username
-
-  if subdir
-    destination = File.join(project, subdir)
-  else
-    destination = project
-  end
-
-  dir = source.chomp('/') + '/'
-  url = "#{username}@rubyforge.org:/var/www/gforge-projects/#{destination}"
-
-  # maybe -p ?
-  op = ['-rLvz', '--delete']
-  if file?(File.join(source,'.rsync-filter'))
-    op << "--filter='dir-merge #{source}/.rsync-filter'"
-  else
-    op.concat exclude.map{|e| "--filter='- #{e}'"}
-    op.concat protect.map{|e| "--filter='P #{e}'"}
-  end
-
-  args = op + [dir, url]
-
-  rsync(*args.to_params)
-end
-

data/task/release

@@ -1,10 +0,0 @@
-#!/usr/bin/env ratch
-
-# release packages
-
-main :release do
-  name, version = rollrc.name, rollrc.version
-
-  icli "rubyforge release --version=#{version}"
-end
-

data/task/stamp

@@ -1,33 +0,0 @@
-#!/usr/bin/env ratch
-
-# update version stamps
-
-# You can change these via the command line.
-version = commandline['version'] || release.version
-status  = commandline['status']  || release.status
-
-# Update ROLLRC file.
-
-main :stamp do
-  if version != release.version or status != release.status
-    build release.file
-  end
-end
-
-#
-
-file release.file do
-  w = ''
-  w << "#{release.name} #{version} #{status} #{Time.now.strftime('%Y-%m-%d')}"
-  w << " #{release.default}" if release.default
-  w << "\n"
-  w << release.libpath.join("\n")
-
-  if dryrun?
-    puts release.file + ":"
-    puts w
-  else
-    File.open(release.file, 'w'){|f| f << w}
-    puts "#{release.file} updated."
-  end
-end

data/task/stats

@@ -1,138 +0,0 @@
-#!/usr/bin/env ratch
-
-# Simple code count analysis.
-#
-# This ratchet scan source code counting files,
-# lines of code and comments and  presents a
-# report of it's findings.
-
-main :stats do
-  statistics
-end
-
-DEFAULT_STATS_FILES = [ 'lib/**/*', 'ext/**/*', 'bin/**/*' ]
-
-# Basic statics on line count.
-#
-# This task counts the file and lines of code in your
-# project and provided some statistical figures.
-#
-#   files      Files to include and/or exclude in
-#              analysis. '+' and '-' files patterns
-#              are accepted. The default includes all
-#              files in the lib/ and ext/ directories.
-#
-# TODO Support - and + augmentations for configuration.
-
-def statistics
-  config  = configuration['stats'] || {}
-  scripts = config['files'] || DEFAULT_STATS_FILES
-  files   = scripts.inject([]){ |memo, find| memo.concat(glob(find)); memo }
-  #Dir.multiglob_with_default(DEFAULT_STATS_FILES)
-
-  fc, l, c, r, t, s = *line_count(*files)
-
-  fct, lt, ct, rt, tt, st = *([0]*6)
-  if File.directory?('test')
-    fct, lt, ct, rt, tt, st = *line_count('test/**/*')
-    t = lt if lt > 0
-  end
-
-  rat = lambda do |d,n|
-    if d > n and n != 0
-      "%.1f" % [ d.to_f / n ]
-    elsif n > d and d != 0
-      "-" #"%.1f:1" % [ n.to_f / d ]
-    elsif d == 0 or n == 0
-      "-"
-    else
-      "1.0"
-    end
-  end
-
-  per = lambda do |n,d|
-    if d != 0
-      (((n.to_f / d)*100).to_i).to_s + "%"
-    else
-      "-"
-    end
-  end
-
-  max = l.to_s.size + 4
-
-  puts
-  #puts "FILES:"
-  #puts "  source: #{fc}"
-  #puts "  test  : #{fct}"
-  #puts "  total : #{fc+fct}"
-  #puts
-  #puts "LINES:"
-  #puts "  code  : %#{max}s   %4s" % [ c.to_s, per[c,l] ]
-  #puts "  docs  : %#{max}s   %4s" % [ r.to_s, per[r,l] ]
-  #puts "  space : %#{max}s   %4s" % [ s.to_s, per[s,l] ]
-  #puts "  test  : %#{max}s   %4s" % [ t.to_s, per[t,l] ]
-  #puts "  total : %#{max}s   %4s" % [ l.to_s, per[l,l] ]
-  #puts
-  #puts "Ratio to 1 :"
-  #puts "  code to test : #{rat[c,t]} #{per[c,t]}"
-
-  head = ["Total", "Code", "-%-", "Docs", "-%-", "Blank", "-%-", "Files"]
-  prod = [l.to_s, c.to_s, per[c,l], r.to_s, per[r,l], s.to_s, per[s,l], fc]
-  test = [lt.to_s, ct.to_s, per[ct,l], rt.to_s, per[rt,l], st.to_s, per[st,l], fct]
-  totl = [(l+lt), (c+ct), per[c+ct,l+lt], (r+rt), per[r+rt,l+lt], (s+st), per[s+st,l+lt], (fc+fct)]
-
-  puts "TYPE    %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % head
-  puts "Source  %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % prod
-  puts "Test    %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % test
-  puts "Total   %#{max}s %#{max}s %4s %#{max}s %4s %#{max}s %4s %#{max}s" % totl
-  puts
-  puts "RATIO     Code    Docs    Blank   Test   Total"
-  puts "Code   %7s %7s %7s %7s %7s" % [ rat[c,c], rat[c,r], rat[c,s], rat[c,t], rat[c,l] ]
-  puts "Docs   %7s %7s %7s %7s %7s" % [ rat[r,c], rat[r,r], rat[r,s], rat[r,t], rat[r,l] ]
-  puts "Blank  %7s %7s %7s %7s %7s" % [ rat[s,c], rat[s,r], rat[s,s], rat[s,t], rat[s,l] ]
-  puts "Test   %7s %7s %7s %7s %7s" % [ rat[t,c], rat[t,r], rat[t,s], rat[t,t], rat[t,l] ]
-  puts "Total  %7s %7s %7s %7s %7s" % [ rat[l,c], rat[l,r], rat[l,s], rat[l,t], rat[l,l] ]
-  puts
-end
-
-private
-
-# Return line counts for files.
-
-def line_count( *files )
-  files = files.inject([]) do |memo, find|
-    memo.concat(Dir.glob(find)); memo
-  end
-
-  fc, l, c, t, r = 0, 0, 0, 0, 0
-  bt, rb = false, false
-
-  files.each do |fname|
-    next unless fname =~ /.*rb/      # TODO should this be done?
-    fc += 1
-    File.open( fname ) do |f|
-      while line = f.gets
-        l += 1
-        next if line =~ /^\s*$/
-        case line
-        when /^=begin\s+test/
-          tb = true; t+=1
-        when /^=begin/
-          rb = true; r+=1
-        when /^=end/
-          t+=1 if tb
-          r+=1 if rb
-          rb, tb = false, false
-        when /^\s*#/
-          r += 1
-        else
-          c+=1 if !(rb or tb)
-          r+=1 if rb
-          t+=1 if tb
-        end
-      end
-    end
-  end
-  s = l - c - r - t
-  return fc, l, c, r, t, s
-end

data/task/test/cross

@@ -1,309 +0,0 @@
-#!/usr/bin/env ratch
-
-# Run cross comparison tests.
-#
-# This tool runs unit tests in pairs to make
-# sure there is cross library compatibility.
-
-require 'facets/hash/rekey'
-require 'facets/string/tabs'
-require 'facets/progressbar'
-
-require 'test/unit/ui/testrunnermediator' #require 'test/unit'
-::Test::Unit.run = true # Don't autorun tests!
-
-
-main :crosstest do
-  run_crosstests
-end
-
-# Run unit-tests. The tests are run in pairs in a separate interpretor
-# to prevent script clash. This makes for a more robust test
-# facility and discover potential conflicts between test scripts.
-#
-#   tests     Test files (eg. test/tc_**/*.rb) [test/**/*]
-#   libs      Directories to include in load path.
-#             ('./lib' is always included)
-#   live      Deactive use of local libs and test against install.
-#   reqs      List of files to require prior to running tests.
-#
-# To isolate tests this tool marshals test results across a
-# stdout->stdin shell pipe. This prevents interfence of one
-# pair of script's tests on another. But consequently it is
-# not always possible to send debug info to stdout in the tests
-# themselves (eg. #p and #puts).
-
-def run_crosstests
-  info = configuration['test']
-
-  if commandline.arguments.empty?
-    tests = info['files'] || 'test/unit/**/test_*.rb'
-  else
-    tests = commandline.arguments
-  end
-
-  libs    = info['libpath']
-  reqs    = info['require']
-  live    = info['live']
-  #extract = info['extract']
-
-  tests = [ tests ].flatten
-  libs  = [ libs ].flatten
-
-  results  = TestResults.new #(style)
-
-  # get test files
-  test_libs  = libs.join(':')
-  test_files = Dir.multiglob(*tests)
-  if test_files.empty?
-    puts "Tests        [NONE]"
-    return
-  end
-
-  # run tests
-
-  if trace?
-    pbar = nil
-    size = test_files.collect{|f| f.size}.max * 2 + 5
-    dots = '.' * size
-  else
-    pbar = Console::ProgressBar.new('Testing', test_files.size ** 2)
-    pbar.inc
-  end
-
-  test_files.each do |test_file|
-    next unless File.file?(test_file)
-
-    test_files.each do |test_file_x|
-      next unless File.file?(test_file_x)
-      next if test_file == test_file_x
-
-      pbar.inc if pbar
-      unless pbar
-        out = test_file +' : ' + test_file_x
-        print out + dots[out.size..-1]
-        $stdout.flush
-      end
-
-      r = fork_test( test_file, test_file_x, :libs=>libs, :reqs=>reqs, :live=>live )
-
-      unless pbar
-        puts r.passed? ? "[PASS]" : "[FAIL]"
-      end
-
-      results << r
-    end
-  end
-
-  pbar.finish if pbar
-
-  # display results
-  puts results
-
-  fails, errrs = results.failure_count, results.error_count
-  #CHECKLIST << :test if fails > 0
-  #CHECKLIST << :test if errrs > 0
-  return (fails + errrs > 0)
-end
-
-# Run a test in a separate process.
-#
-# Currently send program output to null device.
-# Could send to a logger in future version.
-#
-# Key parameters are libs, reqs, live.
-
-def fork_test( file, xfile, keys )
-  keys = keys.rekey(:to_s)
-
-  libs = keys['lib'] || []
-  reqs = keys['req'] || []
-  live = keys['live']
-
-  src = ''
-
-  unless live
-    l = File.join( Dir.pwd, 'lib' )
-    if File.directory?( l )
-      src << %{$:.unshift('#{l}')\n}
-    end
-    libs.each { |r| src << %{$:.unshift('#{r}')\n} }
-  end
-
-  src << %{
-    #require 'test/unit'
-    require 'test/unit/collector'
-    require 'test/unit/collector/objectspace'
-    require 'test/unit/ui/testrunnermediator'
-  }
-
-  reqs.each do |fix|
-    src << %Q{
-      require '#{fix}'
-    }
-  end
-
-  src << %{
-    def warn(*null); end  # silence warnings
-
-    output = STDOUT.dup
-    STDOUT.reopen( PLATFORM =~ /mswin/ ? "NUL" : "/dev/null" )
-
-    load('#{file}')
-    load('#{xfile}')
-
-    tests = Test::Unit::Collector::ObjectSpace.new.collect
-    runner = Test::Unit::UI::TestRunnerMediator.new( tests )
-    result = runner.run_suite
-
-    begin
-      marshalled = Marshal.dump(result)
-    rescue TypeError => e
-      $stderr << "MARSHAL ERROR\n"
-      $stderr << "TEST: #{file}\n"
-      $stderr << "XTEST: #{xfile}\n"
-      $stderr << "DATA:" << result.inspect
-      exit -1
-    end
-    output << marshalled
-
-    STDOUT.reopen(output)
-    output.close
-  }
-
-  result = IO.popen("ruby","w+") do |ruby|
-    ruby.puts src
-    ruby.close_write
-    ruby.read
-  end
-
-  begin
-    marsh = Marshal.load(result)
-  rescue ArgumentError
-    $stderr << "\nCannot load marshalled test data.\n"
-    $stderr << result << "\n"
-    exit -1
-  end
-
-  return marsh
-end
-
-#
-# Support class for collecting test results.
-#
-
-class TestResults
-  attr_reader :assertion_count,
-              :run_count,
-              :failure_count,
-              :error_count
-
-  attr_accessor :style
-
-  def initialize( style=nil )
-    @style = style
-
-    @results = []
-
-    @assertion_count = 0
-    @run_count = 0
-    @failure_count = 0
-    @error_count = 0
-  end
-
-  # Add a result to the results collection.
-
-  def <<( result )
-    @results << result
-
-    @assertion_count += result.assertion_count
-    @run_count += result.run_count
-    @failure_count += result.failure_count
-    @error_count += result.error_count
-  end
-
-  #
-
-  def errors
-    errors = []
-    @results.each do |r|
-      unless r.passed?
-        errors << r.instance_variable_get('@errors')
-      end
-    end
-    errors.reject! { |e| e == [] }
-    errors
-  end
-
-  #
-
-  def failures
-    failures = []
-    @results.each do |r|
-      unless r.passed?
-        failures << r.instance_variable_get('@failures')
-      end
-    end
-    failures.reject! { |e| e == [] }
-    failures
-  end
-
-  # Output format for test results.
-
-  def to_s
-    return @results.to_s if style == 'pease'
-
-    s = []
-    # Display failures
-    unless failures.empty?
-      s << ''
-      s << "FAILURES:"
-      failures.reverse.each do |fails|
-        fails.reverse.each do |failure|
-          #puts
-          s << %{  - test      : #{failure.test_name}}
-          s << %{    location  : #{failure.location}}
-          if failure.message.index("\n")
-            s << %{    message   : >}
-            s << failure.message.tabto(6)
-          else
-            s << %{    message   : #{failure.message}}
-          end
-        end
-      end
-    end
-
-    # Display errors
-    unless errors.empty?
-      s << ''
-      s << "ERRORS:"
-      errors.reverse.each do |errs|
-        errs.reverse.each do |err|
-          s << ''
-          s << %{  - test      : #{err.test_name}}
-          s << %{    message   : #{err.exception.message}}
-          s << %{    backtrace :}
-          err.exception.backtrace[0...-1].each { |bt| s << %Q{      - #{bt}} }
-        end
-      end
-    end
-
-    # Display final results
-    s << ''
-    s << "Summary:"
-    s << "  Tests      : #{@run_count}"
-    s << "  Assertions : #{@assertion_count}"
-    s << "  Failures   : #{@failure_count}"
-    s << "  Errors     : #{@error_count}"
-    s << ''
-    s << ''
-
-    return s.join("\n")
-  end
-
-  # Delegate missing call to the results array.
-
-  def method_missing(*a,&b)
-    @results.send(*a,&b)
-  end
-end