ttk 0.1.580 → 0.2.0

data/ruby_ex/cache.rb

@@ -1,373 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: cache.rb 186 2005-04-03 00:07:45Z ertai $
-
-
-require 'pathname'
-require 'md5'
-require 'tempfile'
-require 'fileutils'
-
-
-class Cache
-
-  #
-  # Constants
-  #
-  REPOSITORY = '/var/cache/ruby_ex_cache'
-  MAX_SIZE = 50 * 1024 * 1024 # 50 MB
-  BLOCK_SIZE = 1024 # octets
-
-  #
-  # Attributs
-  #
-  attr_reader :repository, :max_size, :size
-
-  #
-  # Constructor
-  #
-  def initialize(repository=REPOSITORY, max_size=MAX_SIZE)
-    @repository = Pathname.new(repository)
-    @max_size = check_max_size(max_size)
-    create
-  end
-
-  #
-  # Methods
-  #
-  def create
-    @size = 0
-    @atime = []
-    if @repository.directory?
-      @repository.each_entry do |p|
-        next if p.to_s =~ /^\./
-        full_p = @repository + p
-        @atime << full_p
-        @size += full_p.size
-      end
-      @atime.sort! { |a, b| a.atime <=> b.atime }
-    else
-      @repository.mkdir
-    end
-  end
-
-  def clear
-    @repository.each_entry do |p|
-      (@repository + p).delete unless p.to_s =~ /^\./
-    end
-    @size = 0
-    @atime.clear
-  end
-
-  def recreate
-    clear
-    create
-  end
-
-  def open(md5sum=nil, mode='r', perm=0644, &block)
-    case mode
-    when 'r': read(md5sum, &block)
-    when 'w': write(perm, &block)
-    else
-      raise(ArgumentError, "`#{mode}' - bad mode")
-    end
-  end
-
-  def read(md5sum, &block)
-    p = @repository + md5sum.to_s
-    p.open('r', &block)
-    @atime.delete(p)
-    @atime << p
-    p
-  end
-
-  def write(perm=0644, &block)
-    tmp = nil
-    p = nil
-    begin
-      md5 = Digest::MD5.new
-      tmp = Tempfile.new('cache')
-      new_size = 0
-      while (str = block[])
-        tmp.write(str)
-        md5 << str
-        new_size += str.size
-      end
-      tmp.close
-      p = @repository + md5.to_s
-      if p.exist?
-        @atime.delete(p)
-      else
-        @size += new_size
-      end
-      FileUtils.move(tmp.path, p)
-      p.chmod(perm)
-    rescue
-      tmp.delete if tmp
-      raise
-    end
-    @atime << p
-    adjust_size
-    p
-  end
-
-  def import(filename)
-    p = nil
-    File.open(filename) do |f|
-      p = write(File.stat(filename).mode) { f.eof? ? nil : f.read(BLOCK_SIZE) }
-    end
-    p
-  end
-
-  def export(md5sum, dst_filename)
-    p = @repository + md5sum.to_s
-    FileUtils.copy_entry(p, dst_filename)
-    update_entry(p)
-    p
-  end
-
-  def present?(md5sum)
-    p = @repository + md5sum.to_s
-    p.exist? ? p : nil;
-  end
-
-  def each
-    @atime.each { |p| yield(p) }
-  end
-
-  def [](index)
-    @atime[index]
-  end
-
-  def max_size=(max_size)
-    @max_size = check_max_size(max_size)
-    adjust_size
-  end
-
-  def nb_files
-    @atime.size
-  end
-
-  protected
-  def adjust_size
-    while @size > @max_size
-      p = @atime.shift
-      @size -= p.size
-      p.delete
-    end
-    @size
-  end
-
-  protected
-  def check_max_size(max_size)
-    unless max_size > 0
-      raise(ArgumentError, "`#{max_size}' - bad cache maximum size")
-    end
-    max_size
-  end
-
-end # class Cache
-
-
-#
-# Unit test suite
-#
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-require 'md5sum'
-
-
-class CacheTest < Test::Unit::TestCase
-
-  #
-  # Tests
-  #
-  def test_simple
-    tmp_cache = nil
-    begin
-      tmp_cache = Tempfile.new('cache')
-      repo = Pathname.new(tmp_cache.path)
-      tmp_cache.delete
-      cache = nil
-      assert_nothing_raised { cache = Cache.new(repo) }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_nothing_raised { cache.create }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_nothing_raised { cache.clear }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_nothing_raised { cache.create }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_raises(Errno::ENOENT) { cache.open('toto', 'r') { |f| f.gets } }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_equal(0, cache.size)
-
-      data = [ "toto\n", "tata\n" ]
-      p1 = cache.open(nil, 'w') do
-        data.shift
-      end
-      assert_equal(File.md5sum(p1.to_s).to_s, p1.basename.to_s, 'bad md5 open')
-      assert_equal(1, cache.nb_files, 'bad nb_files')
-      assert_equal(p1, cache[0])
-      assert_equal(10, cache.size)
-      assert_equal(p1, cache.present?(p1.basename))
-      tmp_p = cache.read(p1) do |f|
-        assert_equal("toto\n", f.gets)
-        assert_equal("tata\n", f.gets)
-        assert(f.eof?)
-      end
-      assert_equal(tmp_p, p1)
-      check_atime(cache)
-      assert_equal(1, cache.nb_files, 'bad nb_files')
-      assert(cache.present?(p1))
-      assert_equal(p1, cache[0])
-      assert(! cache.present?('foo'))
-
-      tmp_file = Tempfile.new('cache')
-      system("man printf > #{tmp_file.path} 2> /dev/null")
-      md5 = File.md5sum(tmp_file.path)
-      p2 = cache.import(tmp_file.path)
-      assert_equal(md5.to_s, p2.basename.to_s, 'bad name after import')
-      assert(p2.exist?, 'file do not exist after import')
-      assert(FileUtils.cmp(tmp_file.path, p2.to_s), 'bad import')
-      assert_equal(md5.to_s, File.md5sum(p2.to_s).to_s, 'bad md5 import')
-      tmp_file.delete
-      assert_equal(2, cache.nb_files, 'bad nb_files')
-      assert_equal(p2, cache[1])
-      check_atime(cache)
-
-      data = [ "foo\n", "bar\n" ]
-      p3 = cache.open(nil, 'w') do
-        data.shift
-      end
-      assert_equal(File.md5sum(p3.to_s).to_s, p3.basename.to_s, 'bad md5 open')
-      assert_equal(3, cache.nb_files, 'bad nb_files')
-      assert_equal(p3, cache[2])
-      assert_equal(p3, cache.present?(p3.basename))
-
-      assert_equal(p1, cache[0], 'p1 first')
-      assert_equal(p2, cache[1], 'p2 second')
-      assert_equal(p3, cache[2], 'p3 third')
-      assert_equal(p1, cache.read(p1) { |f| f.gets })
-      assert_equal(p2, cache[0], 'p2 first')
-      assert_equal(p3, cache[1], 'p3 second')
-      assert_equal(p1, cache[2], 'p1 third')
-      check_atime(cache)
-      assert_equal(3, cache.nb_files, 'bad nb_files')
-
-
-      new_cache = nil
-      assert_nothing_raised { new_cache = Cache.new(repo) }
-      assert_equal(3, new_cache.nb_files, 'bad nb_files in new cache')
-      check_atime(new_cache)
-      assert_equal(cache.size, new_cache.size)
-
-      assert_equal(3, cache.nb_files, 'bad nb_files')
-      assert(cache.size > 1024)
-      cache.max_size = 1024
-      assert(cache.size < 1024)
-      assert_equal(p1.size + p3.size, cache.size)
-      assert_equal(2, cache.nb_files, 'bad nb_files')
-      assert_equal(p3, cache[0], 'p3 first')
-      assert_equal(p1, cache[1], 'p1 second')
-
-      cache.clear
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_equal(0, cache.size)
-    ensure
-      repo.rmtree if repo
-    end
-  end
-
-  def test_write_twice_the_same
-    tmp_cache = nil
-    begin
-      tmp_cache = Tempfile.new('cache')
-      repo = Pathname.new(tmp_cache.path)
-      tmp_cache.delete
-      cache = nil
-      assert_nothing_raised { cache = Cache.new(repo) }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_equal(0, cache.size)
-
-      data = [ "toto\n", "tata\n" ]
-      d = data.dup
-      p1 = cache.open(nil, 'w') do
-        d.shift
-      end
-
-      assert_equal(File.md5sum(p1.to_s).to_s, p1.basename.to_s, 'bad md5 open')
-      assert_equal(1, cache.nb_files, 'bad nb_files')
-      assert_equal(p1, cache[0])
-      assert_equal(10, cache.size)
-      assert_equal(p1, cache.present?(p1.basename))
-
-      data = [ "toto\n", "tata\n" ]
-      d = data.dup
-      p2 = cache.open(nil, 'w') do
-        d.shift
-      end
-
-      assert_equal(File.md5sum(p1.to_s).to_s, p1.basename.to_s, 'bad md5 open')
-      assert_equal(1, cache.nb_files, 'bad nb_files')
-      assert_equal(p1, cache[0])
-      assert_equal(10, cache.size)
-      assert_equal(p1, cache.present?(p1.basename))
-    ensure
-      repo.rmtree if repo
-    end
-  end
-
-  def test_nested_write
-    tmp_cache = nil
-    begin
-      tmp_cache = Tempfile.new('cache')
-      repo = Pathname.new(tmp_cache.path)
-      tmp_cache.delete
-      cache = nil
-      assert_nothing_raised { cache = Cache.new(repo) }
-      assert_equal(0, cache.nb_files, 'bad nb_files')
-      assert_equal(0, cache.size)
-
-      data = [ "toto\n", "tata\n" ]
-      d1 = data.dup
-      p1 = cache.open(nil, 'w') do
-        d2 = data.dup
-        p2 = cache.open(nil, 'w') do
-          d2.shift
-        end
-        d1.shift
-      end
-
-      assert_equal(File.md5sum(p1.to_s).to_s, p1.basename.to_s, 'bad md5 open')
-      assert_equal(1, cache.nb_files, 'bad nb_files')
-      assert_equal(p1, cache[0])
-      assert_equal(10, cache.size)
-      assert_equal(p1, cache.present?(p1.basename))
-
-    ensure
-      repo.rmtree if repo
-    end
-  end
-
-  #
-  # Utilities
-  #
-  protected
-  def check_atime(cache)
-    j = 0
-    for i in 1...cache.nb_files do
-      assert(cache[j].atime <= cache[i].atime, "bad atime order for #{i}")
-      j = i
-    end
-  end
-
-end # class CacheTest
-
-
-end
-

data/ruby_ex/checkout.rb

@@ -1,12 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: checkout.rb 159 2005-02-18 12:07:23Z polrop $
-
-require 'uri_ex' 
-require 'uri/http_ex'
-require 'uri/ftp_ex'
-require 'uri/file'
-require 'uri/svn'

data/ruby_ex/config_file.rb

@@ -1,96 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: config_file.rb 186 2005-04-03 00:07:45Z ertai $
-
-
-require 'pathname'
-require 'yaml'
-require 'delegate'
-
-
-class ConfigFile < SimpleDelegator
-
-  protected :__setobj__
-
-  class FormatError < RuntimeError; end
-
-  attr_reader :default_config
-
-  def initialize(filename, default_config=nil)
-    @filename = Pathname.new(filename)
-    @default_config = default_config.freeze
-    __load__
-  end
-
-  def __load__(&block)
-    config = nil
-    if @filename.exist?
-      @filename.open do |f|
-        f.flock(File::LOCK_EX)
-        config = real_load(f)
-        f.flock(File::LOCK_UN)
-      end
-      block ? block[config] : check_config(config)
-      config.freeze
-    else
-      if $VERBOSE
-        Kernel.warn('warning: use default configuration because no ' +
-                    'configuration file has been found')
-      end
-      config = @default_config
-    end
-    __setobj__(config)
-  end
-
-  # Raise a FormatError if the loaded configuration do not fit the format
-  protected
-  def check_config(config)
-  end
-
-  # You can override it to change arguments or Yaml parsing command.
-  protected
-  def real_load(io)
-    YAML::load(io)
-  end
-
-
-end # class ConfigFile
-
-
-if (not defined? CONFIG_FILE_TESTED) and (defined? TEST_MODE or __FILE__ == $0)
-CONFIG_FILE_TESTED = true
-
-require 'test/unit/ui/console/testrunner'
-require 'tempfile'
-
-
-class ConfigFileTest < Test::Unit::TestCase
-
-  def test_config_file
-    tmp_file = nil
-    Tempfile.open('config_file') do |f|
-      f.puts '---'
-      f.puts 'key1: val1'
-      f.puts 'key2: val2'
-      tmp_file = f
-    end
-    raise 'no temp file' if tmp_file.nil?
-    default_config = { 'key1' => 'def1', 'key2' => 'def2' }
-    config_file = ConfigFile.new('/toto', default_config)
-    assert_equal(default_config, config_file.__getobj__)
-    assert_raises(NoMethodError) { config_file.__setobj__(nil) }
-    config_file = ConfigFile.new(tmp_file.path, default_config)
-    assert_equal({ 'key1' => 'val1', 'key2' => 'val2' },
-                 config_file.__getobj__)
-    assert(config_file.__getobj__.frozen?)
-  end
-
-end # class ConfigFileTest
-
-
-end
-
-