ttk 0.1.580 → 0.2.0

data/ruby_ex/fileutils_ex.rb

@@ -1,44 +0,0 @@
-# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: fileutils_ex.rb 159 2005-02-18 12:07:23Z polrop $
-
-require 'fileutils'
-
-module FileUtils
-
-  alias remove_dir_without_chmod remove_dir
-
-  def remove_dir (dir, force = false) #:nodoc:
-    dir = dir.sub(%r</\z>, '')
-    first_time_p = true
-    begin
-      Dir.foreach(dir) do |file|
-        next if /\A\.\.?\z/ =~ file
-        path = "#{dir}/#{file.untaint}"
-        if File.symlink?(path)
-          remove_file path, force
-        elsif File.directory?(path)
-          remove_dir path, force
-        else
-          remove_file path, force
-        end
-      end
-      begin
-        Dir.rmdir dir
-      rescue Errno::ENOENT
-        raise unless force
-      end
-    rescue
-      if first_time_p
-        first_time_p = false
-        File.chmod 0777, dir
-        retry
-      end
-      raise
-    end
-  end
-
-end

data/ruby_ex/fold.rb

@@ -1,58 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: fold.rb 186 2005-04-03 00:07:45Z ertai $
-
-
-class Object
-
-  def rec_fold
-    if respond_to?(:fold)
-      return fold({}) do |k1, v1, acc1|
-        yield(k1, v1.rec_fold { |k2, v2, acc2| yield(k2, v2, acc2) }, acc1)
-      end
-    else
-      return self
-    end
-  end
-
-end # class Object
-
-
-class Hash
-
-  def fold(init, &block)
-    acc = init
-    self.each do |k,v|
-      acc = block[k, v, acc]
-    end
-    acc
-  end
-
-end # class Hash
-
-
-class Array
-
-  def fold(init, &block)
-    acc = init
-    self.each do |elt|
-      acc = block[elt, self[elt], acc]
-    end
-    acc
-  end
-
-  def reverse_fold(init, &block)
-    acc = init
-    self.reverse_each do |elt|
-      acc = block[elt, self[elt], acc]
-    end
-    acc
-  end
-
-end # class Array
-
-
-

data/ruby_ex/generate_id.rb

@@ -1,31 +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: generate_id.rb 186 2005-04-03 00:07:45Z ertai $
-
-
-require 'md5'
-
-
-module Kernel
-
-  def generate_id(&already_exist)
-    md5 = Digest::MD5::new
-    id = ''
-    begin
-      md5.update(id)
-      md5.update(String(Time::now))
-      md5.update(String(rand(0)))
-      md5.update(String($$))
-      md5.update(String($0))
-      id = md5.hexdigest[0,16]
-    end while already_exist[id]
-    id
-  end
-
-end # module Kernel
-
-
-

data/ruby_ex/inactive_timeout.rb

@@ -1,137 +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: inactive_timeout.rb 92 2005-01-10 12:23:55Z polrop $
-
-
-require 'thread'
-
-
-module InactiveTimeout
-
-  def inactive_timeout_initialize(inactive_timeout=0)
-    @inactive_timeout = inactive_timeout
-    @inactive_timeout_update_time = Time.now
-    @inactive_timeout_mutex = Mutex.new
-    if @inactive_timeout > 0
-      @inactive_timeout_thread = inactive_timeout_start_thread
-    end
-  end
-
-  def inactive_timeout=(inactive_timeout)
-    @inactive_timeout_mutex.synchronize do
-      @inactive_timeout = inactive_timeout
-    end
-  end
-
-  def inactive_timeout
-    @inactive_timeout_mutex.synchronize { @inactive_timeout }
-  end
-
-  def inactive_timeout_update_time
-    @inactive_timeout_mutex.synchronize do
-      @inactive_timeout_update_time
-    end
-  end
-
-  protected
-  def inactive_timeout_update(time=Time.now)
-    @inactive_timeout_mutex.synchronize do
-      @inactive_timeout_update_time = time
-    end
-  end
-
-  # Every @inactive_timeout seconds, this method is called if the enlapsed
-  # time since @inactive_timeout_update_time is greater than @inactive_timeout.
-  # Return true to stop the timeout thread.
-  protected
-  def inactive_timeout_callback
-    true
-  end
-
-  protected
-  def inactive_timeout_start_thread
-    Thread.new do
-      begin
-        time = @inactive_timeout_mutex.synchronize { @inactive_timeout }
-        while time > 0
-          sleep(time)
-          time = @inactive_timeout_mutex.synchronize do
-            @inactive_timeout - (Time.now - @inactive_timeout_update_time)
-          end
-        end
-      end until inactive_timeout_callback
-    end
-  end
-
-end # module InactiveTimeout
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class InactiveTimeoutTest < Test::Unit::TestCase
-
-  class Foo
-    include InactiveTimeout
-
-    attr_reader :obj
-
-    def initialize(obj, inactive_timeout=0)
-      inactive_timeout_initialize(inactive_timeout)
-      @obj = obj
-    end
-
-    def method_missing(meth, *args, &block)
-      inactive_timeout_update
-      @obj.send(meth, *args, &block)
-    end
-
-    protected
-    def inactive_timeout_callback
-      @obj = nil
-      super
-    end
-
-  end
-
-  class Bar
-
-    def hello
-      'hello bar'
-    end
-
-  end
-
-  def test_accessors
-    f = Foo.new(Bar.new)
-    assert_equal(0, f.inactive_timeout)
-    t0 = f.inactive_timeout_update_time
-    assert_equal(t0, f.inactive_timeout_update_time)
-    assert_equal('hello bar', f.hello)
-    assert(t0 < f.inactive_timeout_update_time)
-    assert_not_nil(f.obj)
-  end
-
-  def test_simple
-    f = Foo.new(Bar.new, 0.2)
-    assert_not_nil(f.obj)
-    assert_equal(0.2, f.inactive_timeout)
-    3.times do
-      sleep(0.1)
-      assert_equal('hello bar', f.hello)
-    end
-    assert_not_nil(f.obj)
-    sleep(0.5)
-    assert_nil(f.obj)
-  end
-
-end # class InactiveTimeoutTest
-
-end
-

data/ruby_ex/indexed_node.rb

@@ -1,66 +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: node.rb 171 2005-03-29 09:12:47Z polrop $
-
-
-require 'abstract_node'
-
-
-class IndexedNode < AbstractNode
-  include Concrete
-
-  def initialize(data=nil, *sub_nodes)
-    @sub_nodes = sub_nodes
-    super
-  end
-
-  def <<(sub_node)
-    check_sub_node_type(sub_node)
-    @sub_nodes << sub_node
-  end
-
-end # class IndexedNode
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-require 'test/unit'
-
-class IndexedNodeTest < Test::Unit::TestCase
-
-  def test_simple
-    s11 = IndexedNode.new(11)
-    s12 = IndexedNode.new(12)
-    s = IndexedNode.new(1, s11, s12)
-    assert_equal(1, s.data)
-    assert_equal(s11, s.sub_nodes[0])
-    assert_equal(s12, s.sub_nodes[1])
-  end
-
-  def test_crochet_equal
-    s = IndexedNode.new(1)
-    assert_nothing_raised { s[0] = IndexedNode.new(10) }
-    assert_raises(TypeError) { s[1] = nil }
-  end
-
-  def test_merge
-    s = IndexedNode.new(1)
-    s11 = IndexedNode.new(11)
-    s12 = IndexedNode.new(12)
-    s.merge!({ 0 => s11, 1 => s12 })
-  end
-
-  def test_chevron
-    s = IndexedNode.new(1)
-    assert_equal(0, s.size)
-    s << IndexedNode.new(2)
-    assert_equal(1, s.size)
-  end
-
-end # class IndexedNodeTest
-
-end
-

data/ruby_ex/io_marshal.rb

@@ -1,100 +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: io_marshal.rb 63 2004-12-06 13:09:14Z polrop $
-
-
-class IO
-
-  def dump(*objs)
-    objs.each do |obj|
-      data = Marshal.dump(obj)
-      write(data.size.to_s)
-      write("\0")
-      write(data)
-    end
-  end
-
-  def load(num_objs=nil, non_block=false)
-    objs = []
-    n = num_objs
-    begin
-      return nil if eof? and non_block
-      objs << load_one_object(non_block)
-      unless n.nil?
-        n -= 1
-        break if n <= 0
-      end
-    end until eof?
-    objs
-  end
-
-  def load_one_object(non_block=false)
-    size = ''
-    while (c = read(1)) != "\0" do
-      if c.nil?
-        if non_block
-          return nil
-        else
-          sleep(0.1)
-          redo
-        end
-      end
-      size += c
-    end
-    size = size.to_i
-    data = read(size)
-    Marshal.load(data)
-  end
-
-end # class IO
-
-
-#
-# Unit test suite
-#
-if defined? TEST_MODE or $0 == __FILE__
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class IOMarshalTest < Test::Unit::TestCase
-
-  #
-  # Tests
-  #
-  def test_simple
-    obj1 = 12
-    obj2 = 'hello'
-    obj3 = { 'a' => 12, 'b' => 42 }
-    rd, wr = IO.pipe
-    if pid = fork # father
-      wr.close
-      o1, o2 = rd.load(2)
-      assert_equal(obj1, o1)
-      assert_equal(obj2, o2)
-      o3 = rd.load
-      assert_equal([obj3], o3)
-      assert_equal(nil, rd.load(4, true))
-      assert_equal(nil, rd.load_one_object(true))
-      Process.waitpid(pid)
-      rd.close
-    else #  son
-      rd.close
-      sleep(0.5)
-      wr.dump(obj1)
-      wr.dump(obj2, obj3)
-      wr.close
-      exit
-    end
-  end
-
-
-end # class IOMarshalTest
-
-
-end
-

data/ruby_ex/ioo.rb

@@ -1,194 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: ioo.rb 186 2005-04-03 00:07:45Z ertai $
-
-require 'delegate'
-
-# With this class you can easily overwrite only write or read methods
-# to change the whole IO.
-#
-# This is very usefull to produce a crypted IO for example.
-module ImplIOO
-
-  def << ( obj )
-    write obj
-    self
-  end
-
-  def each ( sep_string=$/, &block )
-    begin
-      loop { block[readline(sep_string)] }
-    rescue EOFError
-      return self
-    end
-  end
-  alias :each_line :each
-
-  def each_byte ( &block )
-    begin
-      loop { block[readchar] }
-    rescue EOFError
-      return nil
-    end
-  end
-
-  def getc
-    begin
-      readchar
-    rescue EOFError
-      nil
-    end
-  end
-
-  def gets ( sep_string=$/ )
-    begin
-      readline(sep_string)
-    rescue EOFError
-      nil
-    end
-  end
-
-  def print ( *args )
-    if args.empty?
-      write $_
-    else
-      args.each { |x| write x }
-    end
-    nil
-  end
-
-  def printf ( fmt, *args )
-    write Kernel.sprintf(fmt, *args)
-    nil
-  end
-
-  def putc ( c )
-    case c
-    when Numeric then write c.chr
-    when String
-      if c.size == 1
-        write c
-      else
-        c = c[0].chr
-        write c
-      end
-    else
-      c = c.to_s[0].chr
-      write c
-    end
-    c
-  end
-
-  def puts ( *args )
-    if args.size == 0
-      write "\n"
-    else
-      args.each do |x|
-        x = x.to_s
-        write x
-        write "\n" unless x[-1] == ?\n
-      end
-    end
-    nil
-  end
-
-  def readchar
-    raise EOFError if eof?
-    read(1)[0]
-  end
-
-  def readline ( sep_string=$/ )
-    raise EOFError if eof?
-    buf = ''
-    begin
-      while (char = readchar) != ?\n
-        buf += char.chr
-      end
-      return buf + char.chr
-    rescue EOFError
-      return buf
-    end
-  end
-
-  def readlines ( sep_string=$/ )
-    res = []
-    each_line(sep_string) { |line| res << line }
-    res
-  end
-
-end # module ImplIOO
-
-class IOO < DelegateClass(IO)
-  include ImplIOO
-end # class IOO
-
-require 'socket'
-class TCPSocket
-  alias :real_send :send
-  alias :real_recv :recv
-end
-
-class IOOTCPSocket < DelegateClass(TCPSocket)
-  include ImplIOO
-
-  def recv ( integer, flags=nil )
-    read(integer)
-  end
-
-  def read ( integer=nil, buffer='' )
-    raise ArgumentError unless buffer.is_a? String
-    raise NotImplementedError if integer.nil?
-    raise ArgumentError unless integer.is_a? Numeric
-    buffer += real_recv(integer, 0)
-    return buffer
-  end
-
-  def send ( obj, flags=nil )
-    write(obj)
-  end
-
-  def write ( obj )
-    real_send(obj.to_s, 0)
-    nil
-  end
-
-end # class IOOTCPSocket
-
-
-if defined? TEST_MODE or $0 == __FILE__
-
-  require 'mktemp'
-  require 'test/unit'
-  class TestIOO < Test::Unit::TestCase
-
-    def setup
-      @tmp = Tempfile.mktemp('ioo')
-      @tmp.open('w') do |tmp|
-        tmp.puts 'foo'
-        tmp.puts
-        tmp.puts 'bar'
-      end
-      @readlines = @tmp.readlines
-    end
-
-    def teardown
-      @tmp.clean
-      @tmp = nil
-    end
-      
-    def test_readlines
-      @tmp.open do |tmp|
-        assert_not_nil(tmp)
-        f = nil
-        assert_nothing_raised { f = IOO.new(tmp) }
-        assert_not_nil(f)
-        assert_equal(@readlines, f.readlines)
-      end
-    end
-
-  end # class TestIOO
-
-end