facets 1.4.5 → 1.7.0

data/snip/core/fileutils/nl_convert.rb

@@ -1,133 +0,0 @@
-
-# Credit goes to Daniel J. Berger, via PTools.
-# The nl_convert() method was adopted (somewhat) from the nlcvt program
-# found at http://www.perl.com/language/ppt/src/nlcvt/nlcvt, written by
-# Tom Christiansen.
-
-class FileUitls
-
-  # Converts a text file from one OS platform format to another, ala
-  # ((*dos2unix*)).  Valid values for ((*format*)), which are case insensitve,
-  # includes:
-  #
-  # * MS Windows -> dos, windows, win32
-  # * Unix/BSD   -> unix, linux, bsd
-  # * Mac        -> mac, macintosh, apple, osx
-  #
-  # Note that this method is only valid for an ftype of "file".  Otherwise a
-  # TypeError will be raised.  If an invalid format value is received,
-  # StandardError is raised.
-  #
-  #   # Creates a copy of 'myfile' called 'newfile', in DOS format
-  #   File.nl_convert("myfile","newfile","dos")
-  #
-  # (Note: Looking to improve.)
-
-  def self.nl_convert(old_file,new_file=old_file,platform="dos")
-
-    unless File.ftype(old_file) == "file"
-        raise TypeError, "Only valid for plain text files"
-    end
-
-    if platform =~ /dos|windows|win32/i
-        format = "\cM\cJ"
-    elsif platform =~ /unix|linux|bsd/i
-        format = "\cJ"
-    elsif platform =~ /mac|apple|macintosh|osx/i
-        format = "\cM"
-    else
-        raise StandardError, "Invalid platform string"
-    end
-
-    orig = $\
-    $\ = format
-
-    if old_file == new_file
-        require "ftools"
-        require "tempfile"
-        tf = Tempfile.new("temp")
-        tf.open
-        IO.foreach(old_file){ |line|
-          line.chomp!
-          tf.print line
-        }
-        tf.close
-        File.delete(old_file)
-        File.copy(tf.path,old_file)
-    else
-        nf = File.new(new_file,"w+")  
-        IO.foreach(old_file){ |line|
-          line.chomp!
-          nf.print line
-        }
-        nf.close
-    end
-
-    $\ = orig
-  end
-
-end
-
-
-
-=begin
-
-require 'test/unit'
-require 'ftools'
-
-class TC_FileNLConvert < Test::Unit::TestCase
-
-   @@tfile   = 'test_file.txt'
-   @@tfile2  = 'test_file2.txt'
-   @@dosfile = 'dos_test_file.txt'
-   @@macfile = 'mac_test_file.txt'
-   @@nixfile = 'nix_test_file.txt'
-
-   def test_01_method_responds
-      assert_respond_to( File, :nl_convert )
-   end
-
-   def test_02_constructor
-      assert_nothing_raised{ File.nl_convert(@@tfile2) }
-      assert_nothing_raised{ File.nl_convert(@@tfile2,@@tfile2) }
-      assert_nothing_raised{ File.nl_convert(@@tfile2,@@tfile2,"unix") }
-      File.copy(@@tfile,@@tfile2)
-   end
-
-   def test_03_dos
-      assert_nothing_raised{ File.nl_convert(@@tfile,@@dosfile,'dos') }
-      err = "dos file should be larger, but isn't"
-      assert_equal(true, File.size(@@dosfile) > File.size(@@tfile),err)
-   end
-   
-   def test_04_nix
-      assert_nothing_raised{ File.nl_convert(@@tfile,@@nixfile,'unix') }
-      err = "unix file should be the same size (or smaller), but isn't"
-      if File::ALT_SEPARATOR
-         assert_equal(true, File.size(@@nixfile) >= File.size(@@tfile),err)
-      else
-         assert_equal(true, File.size(@@nixfile) <= File.size(@@tfile),err)
-      end
-   end
-   
-   # May fail on MS Windows - no idea why
-   def test_05_mac
-      assert_nothing_raised{ File.nl_convert(@@tfile,@@macfile,'mac') }
-      err = "mac file should be the same size (or larger), but isn't"
-      assert_equal(true, File.size(@@macfile) >= File.size(@@tfile),err)
-   end
-
-   def test_06_exceptions
-      assert_raises(StandardError){ File.nl_convert(@@tfile,"bogus.txt","blah") }
-   end
-
-   def teardown
-      [@@dosfile,@@macfile,@@nixfile].each{ |f|
-         File.delete(f) if File.exists?(f)
-      }
-   end
-end
-
-=end
-
-

data/snip/core/io/expect.rb

@@ -1,127 +0,0 @@
-
-require 'timeout'  # for TimeoutError
-
-class IO
-
-  #
-  #
-  #
-
-  def expect(pat,timeout=60000)
-    buf = ''
-
-    case pat
-    when String
-      e_pat = Regexp.new(Regexp.quote(pat))
-    when Regexp
-      e_pat = pat
-    end
-
-    while true
-      if IO.select([self],nil,nil,timeout).nil? then
-        raise TimeoutError #result = nil
-        break
-      end
-
-      c = getc.chr
-      buf << c
-      if $DEBUG
-        STDOUT.print c ; STDOUT.flush
-      end
-      if mat = e_pat.match(buf) then
-        result = [buf,*mat.to_a[1..-1]]
-        break
-      end
-    end
-
-    if block_given? then
-      yield result
-    else
-      return result
-    end
-
-    nil
-  end
-
-end
-
-
-
-=begin test
-
-  require 'test/unit'
-  #require 'reactor/select_reactor'
-
-  class TCExpect < Test::Unit::TestCase
-
-    def setup
-      #@reactor = SelectReactor.new
-      @read, @write = IO.pipe
-      #@expect = Expect.new(@read, @reactor)
-      #@expect = Expect.new(@read, 1)
-      #@expect.timeout = 1
-    end
-
-    def test_simple
-      @write.puts "TESTING"
-      @read.expect "TESTING"
-    end
-
-    def test_regex
-      @write.puts "TESTING...1...2...3"
-      @read.expect /TESTING/
-    end
-
-    def test_regex2
-      @write.puts "TESTING...1...2...3"
-      @read.expect /\d/
-    end
-
-    def test_timeout
-      @write.puts "TESTING...1...2...3"
-      assert_nil( @read.expect 'X', 0 )
-    end
-
-    def test_unmatched_message
-      @write.puts "TESTING...1...2...3"
-      assert_nil( @read.expect("..........", 1) )
-    end
-
-  #   def test_ignore
-  #     @write.puts "testing"
-  #     @write.puts "ignore"
-  #     @expect.expect "testing"
-  #     @expect.ignore "ignore"
-  #     @expect.run
-  #   end
-  #
-  #   def test_reset
-  #     @write.puts "testing..."
-  #     @expect.expect "testing..."
-  #     @expect.run
-  #
-  #     @expect.reset
-  #     @expect.run
-  #
-  #     @write.puts "test2"
-  #     @expect.expect "test2"
-  #     @expect.run
-  #   end
-  #
-  #   def test_multiple_chains
-  #     @expect.expect "testing...", :chain1
-  #     @expect.expect "hmm...", :chain2
-  #     @write.puts "testing..."
-  #     @write.puts "hmm..."
-  #     @expect.run
-  # 
-  #     @expect.expect "testing...", :chain1
-  #     @expect.expect "hmm...", :chain2
-  #     @write.puts "hmm..."
-  #     @write.puts "testing..."
-  #     @expect.run
-  #   end
-
-  end
-
-=end

data/snip/core/kernel/__clone__.rb

@@ -1,4 +0,0 @@
-class Object
-  alias_method :__clone__, :clone
-  warn '__clone__ is being deprecated. Use kernel/meta.clone instead.'
-end

data/snip/core/kernel/__dup__.rb

@@ -1,4 +0,0 @@
-class Object
-  alias_method :__dup__, :dup
-  warn '__dup__ is being deprecated. Use kernel/meta.dup instead.'
-end

data/snip/core/kernel/call_line.rb

@@ -1,15 +0,0 @@
-module Kernel
-  # FIX ME!!!
-  # Return a string representing the line at the given call level,
-  # where level is the line desired, relative to the the method
-  # that called call_line.
-  def call_line(level=1)
-    dir = File.dirname(File.expand_path($0, Dir.getwd))
-    file, lineno, method = call_stack(level)
-    File.open(File.expand_path(file, dir)) do |input|
-      (lineno.to_i - 1).times { input.gets }
-      return input.gets
-    end
-  end
-end
- 

data/snip/core/kernel/does.rb

@@ -1,7 +0,0 @@
-# Yet another alias for proc.
-# This one would preferably be called just #do,
-# but that conflicts with Ruby's keyword.
-# (This should be in Kernel)
-def does(&blk)
-  return proc(&blk)
-end

data/snip/core/kernel/message.rb

@@ -1,6 +0,0 @@
-module Kernel
-  # Like Kernel#called but would return [:meth, arg1, arg2 ...]
-  def message
-  
-  end
-end

data/snip/core/kernel/query.rb

@@ -1,15 +0,0 @@
-class Object
-  def self.query( classes=nil, &blk )
-    objs = []
-    if mod
-      ObjectSpace.each_object(mod) do |o|
-        objs << o if blk.call(o)
-      end
-    else
-      ObjectSpace.each_object do |o|
-        objs << o if blk.call(o)
-      end
-    end
-    return objs
-  end
-end 

data/snip/core/kernel/taint.rb

@@ -1,10 +0,0 @@
-$TAINT = {}
-module Kernel
-
-  #alias :req :require
-  def request( file, level )
-    $TAINT[file] = [Time.now, level]
-    require(file)
-  end
-
-end 

data/snip/core/logger/clean_logger.rb

@@ -1,10 +0,0 @@
-require 'logger'
-
-class Logger #:nodoc:
-  private
-    remove_const "Format"
-    Format = "%s\n"
-    def format_message(severity, timestamp, msg, progname)
-      Format % [msg]
-    end
-end

data/snip/core/module/attr-old.rb

@@ -1,308 +0,0 @@
-=begin
- 
-$Title: Accessors $
-$Author: transami $
-$Date: 2004-10-06 13:56:57 $
-
-= Description
-
-  The Bill wants more from attributes.
-
-= Usage
-
-== Using Cast Attribute Accessors
-
-  
-== Using Accessor Shorthand
-
-  A nice shorthand is provided.
-
-    attr :r, :a, :a=, :w=, q?
-  
-  This is the same as doing
-  
-    attr_reader :r
-    attr_accessor :a
-    attr_writer :w
-    attr_tester :q
-    
-    def b?
-      @b ? true : @b
-    end
-  
-  The shorthand notation can be used with casting too.
-
-    attr :a => :to_s
-    init :a => 0
-
-== Using Return Value
-
-  Attribute methods now return a list of the methods created. 
-  This can then be passed to other useful methods.
-  
-    private attr :a
-
-= Authenticate
-  
-  Copyright (C) 2002 T. Sawyer
-  Ruby Distribute License
-  
-  This program is free software.
-  You can distribute/modify this program under
-  the terms of the Ruby Distribute License.
-    
-=end
-
-require 'facet/hash/keys_to_sym'
-
-# Modify module attribute methods.
-# *add define_attribute
-# *redefine old attr_* methods
-# *add attr_setter
-
-class Module
-  
-  # Create an attribute method for reading an
-  # instance variable. This is the same as the built
-  # in method, which it replaces, but adds casting.
-  #
-  # Casting allows the addition of a method invocation
-  # on the instance variable. It is defined using a hash
-  # parameter, so all castings must come at the end of a
-  # call to attr_reader.
-  #
-  #   require 'carat/attr'
-  #
-  #   attr_reader :a => :to_s
-  #
-  # _is equivalent to_
-  #
-  #   def a
-  #     @a.to_s
-  #   end
-  #
-  def attr_reader(*args)
-    made = []
-    if Hash === args.last
-      args.concat( args.pop.to_a )
-    end
-    #hargs = (Hash === args.last ? args.pop : {})
-    args.each { |a,d|
-      a = a.to_s.strip
-      #c = ".#{c.to_s.strip}".chomp('.')
-      module_eval %{
-        def #{a}
-          @#{a} = #{d} unless defined?( @a )
-          @#{a}
-        end
-      }
-      made << "#{a}".to_sym
-    }
-    (@__atributes__ ||= []).concat( made )
-    return *made
-  end
-
-  # Create an attribute method for writing to an
-  # instance variable. This is the same as the built
-  # in method, which it replaces, but adds casting.
-  #
-  # Casting allows the addition of a method invocation
-  # on the instance variable. It is defined using a hash
-  # parameter, so all castings must come at the end of a
-  # call to attr_writer.
-  #
-  #   require 'carat/attr'
-  #
-  #   attr_writer :a => :to_s
-  #
-  # _is equivalent to_
-  #
-  #   def a=(x)
-  #     @a = x.to_s
-  #   end
-  #
-  def attr_writer(*args)
-    made = []
-    if Hash === args.last
-      args.concat( args.pop.to_a )
-    end
-    #hargs = (Hash === args.last ? args.pop : {})
-    args.each { |a,c|
-      a = a.to_s.strip.chomp('=').chomp('!')
-      c = ".#{c.to_s.strip}".chomp('.')
-      module_eval %Q{ def #{a}=(x); @#{a}=x#{c}; end }
-      made << "#{a}=".to_sym
-    }
-    (@__atributes__ ||= []).concat( made )
-    return *made
-  end
-
-  # Create an attribute method for writing to an
-  # instance variable. This is the same as the built
-  # in method, which it replaces, but adds casting.
-  #
-  # Casting allows the addition of a method invocation
-  # on the instance variable. It is defined using a hash
-  # parameter, so all castings must come at the end of a
-  # call to attr_writer.
-  #
-  #   require 'carat/attr'
-  #
-  #   attr_accessor :a => :to_s
-  #
-  # _is equivalent to_
-  #
-  #   def a
-  #     @a.to_s
-  #   end
-  #
-  #   def a=(x)
-  #     @a = x.to_s
-  #   end
-  #
-  def attr_accessor(*args)
-    made = []
-    if Hash === args.last
-      args.concat( args.pop.to_a )
-    end
-    #hargs = (Hash === args.last ? args.pop : {})
-    args.each { |a,c|
-      a = a.to_s.strip.chomp('=')
-      c = ".#{c.to_s.strip}".chomp('.')
-      module_eval %Q{ def #{a}; @#{a}#{c} ; end }
-      module_eval %Q{ def #{a}=(x); @#{a}=x#{c}; end }
-      made << "#{a}".to_sym
-      made << "#{a}=".to_sym
-    }
-    (@__atributes__ ||= []).concat( made )
-    return *made
-  end
-
-  # Create an attribute method for boolean testing
-  # of an instance variable in the form of _var?_.
-  #
-  #   require 'facet/module/attr_tester'
-  #
-  #   attr_tester :a
-  #
-  # _is equivalent to_
-  #
-  #   def a?
-  #     @a ? true : @a
-  #   end
-  #
-  # Casting is also supported (see attr_reader).
-  #
-  #   attr_tester :a => :evaluate
-  #
-  # _is equivalent to_
-  #
-  #   def a?
-  #     @a.evaluate ? true : @a
-  #   end
-  #
-  def attr_tester(*args)
-    made = []
-    if Hash === args.last
-      args.concat( args.pop.to_a )
-    end
-    #hargs = (Hash === args.last ? args.pop : {})
-    args.each { |a,c|
-      a = a.to_s.strip.chomp('?')
-      c = ".#{c.to_s.strip}".chomp('.')
-      module_eval %Q{ def #{a}?; @#{a}#{c} ? true : @#{a}#{c}; end }
-      made << "#{a}?".to_sym
-    }
-    (@__atributes__ ||= []).concat made
-    return *made
-  end
-
-  # Create an attribute method for getting and setting an
-  # instance variable.
-  #
-  #   require 'carat/attr'
-  #
-  #   attr_setter :a
-  #
-  # _is equivalent to_
-  #
-  #   def a(*args)
-  #     if args.size > 0
-  #       @a = args[0]
-  #       self
-  #     else
-  #       @a
-  #     end
-  #   end
-  #
-  # Casting is supported on both getting and setting.
-  #
-  #   attr_setter :a => :to_s
-  #
-  # _is equivalent to_
-  #
-  #   def a(*args)
-  #     @a = args[0].to_s if args.size > 0
-  #     @a.to_s
-  #   end
-  #
-  def attr_setter(*args)
-    made = []
-    if Hash === args.last
-      args.concat( args.pop.to_a )
-    end
-    #hargs = (Hash === args.last ? args.pop : {})
-    args.each { |a,c|
-      a = a.to_s.strip
-      c = ".#{c.to_s.strip}".chomp('.')
-      module_eval %Q{
-        def #{a}(*args)
-          args.size > 0 ? ( @#{a}=args[0]#{c} ; self ) : @#{a}#{c}
-        end
-      }
-      made << "#{a}".to_sym
-    }
-    (@__atributes__ ||= []).concat( made )
-    return *made
-  end
-  
-  def attr(*args)
-    # Allows compatibility with old definition, while also
-    # extending the capabilites to allow multiple parameters.
-    # Defaults do not work with the backward compatible form.
-    if TrueClass === args.last or FalseClass === args.last or NilClass === args.last
-      if args.pop
-        args.concat( args.collect{ |a|
-          a = a.to_s.strip
-          case a[-1,1]
-          when '=' 
-            a[0..-2]
-          when '?' 
-            "#{a[0..-2]}="
-          else
-            "#{a}="
-          end
-        } )
-      end
-    end
-    # main routine
-    made = []
-    args.each do |a|
-      a = a.to_s.strip
-      m = a.chomp('!').chomp('=').chomp('?')
-      case a.slice(-1,1)
-      when '='
-        module_eval %Q{ def #{m}=(x) ; @#{m}=x ; end }
-        made << :"#{m}="
-      when '?'
-        module_eval %Q{ def #{m}? ; @#{m} ? true : @#{m} ; end }
-        made << :"#{m}?"
-      else
-        module_eval %Q{ def #{m} ; @#{m} ; end }
-        made << :"#{m}"
-      end
-    end
-    return *made
-  end
-
-end