butler 1.8.0

data/lib/log/nolog.rb

@@ -0,0 +1,18 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Log
+	# discards all messages
+	class NoLog
+		def respond_to?(m,*a)
+			true
+		end
+		def method_missing(*a)
+		end
+	end
+end

data/lib/log/splitter.rb

@@ -0,0 +1,26 @@
+module Log
+	class Splitter
+		def initialize(*receivers)
+			@receivers = receivers
+		end
+		
+		def delete(receiver)
+			@receivers.delete(receiver)
+		end
+		
+		def add(receiver)
+			@receivers << receiver
+		end
+		
+		def method_missing(*a, &b)
+			@receivers.each { |r| r.__send__(*a, &b)
+		end
+		
+		def inspect
+			"#<%s:%08x %s %s>" %  [
+				self.class,
+				object_id,
+				@receivers.map { |r| r.inspect }.join(', ')
+			]
+		end
+end

data/lib/ostructfixed.rb

@@ -0,0 +1,26 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+require 'ostruct'
+
+
+
+class OpenStruct
+	def [](field)
+		@table[field.to_sym]
+	end
+	
+	def []=(field,value)
+		new_ostruct_member(field)
+		@table[field.to_sym] = value
+	end
+	
+	def to_hash
+		@table.dup
+	end
+end

data/lib/ruby/array/columnize.rb

@@ -0,0 +1,38 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+class Array
+	ColumnizeDefaults = {
+		:prepend     => "",
+		:orientation => :vertical,
+		:spacing     => 1
+	}
+
+	def columnize(columns=nil, opts={})
+		pre, ori, space = ColumnizeDefaults.merge(opts).values_at(:prepend, :orientation, :spacing)
+		columns       ||= 2
+		numrows         = length.quo(columns).ceil
+		sizes, print    = Array.new(columns) { [] }, Array.new(numrows) { [] }
+
+		if ori == :vertical then
+			(self+Array.new(numrows*columns-length,"")).each_with_index { |e,i|
+				sizes[i.div(numrows)] << e
+				print[i%numrows]      << e
+			}
+		else
+			(self+Array.new(numrows*columns-length,"")).each_with_index { |e,i|
+				sizes[i%columns]      << e
+				print[i.div(columns)] << e
+			}
+		end
+
+		sizes  = sizes.map { |e| e.map { |f| f.length }.max+space }
+		format = "#{pre}%-#{sizes.join('s %-')}s"
+		print.map { |e| format % e }.join("\n")
+	end
+end

data/lib/ruby/dir/mktree.rb

@@ -0,0 +1,28 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+class <<Dir
+	# create directory structure
+	# Dir.mktree(
+	# 	"a" => {
+	# 		"b" => [
+	# 			"d",
+	# 			"e"
+	# 		],
+	# 	},
+	# 	"in/directory"
+	# )
+	def mktree(tree, base=Dir.pwd)
+		dir = [];
+		tree.each { |dir, sub|
+			current = "#{base}/#{dir}"
+			mkdir(current)
+			mktree(sub, current) if sub
+		}
+	end
+end

data/lib/ruby/enumerable/join.rb

@@ -0,0 +1,13 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Enumerable
+	def join(sep=$,)
+		to_a.join(sep)
+	end
+end

data/lib/ruby/exception/detailed.rb

@@ -0,0 +1,24 @@
+class Exception
+	module Detailed
+		def self.extended(obj)
+			obj.initialize_details
+		end
+
+		def initialize_details
+			@prepend = []
+			@append  = []
+		end
+
+		def prepend(string)
+			@prepend.unshift string
+		end
+
+		def append(string)
+			@append.unshift string
+		end
+
+		def to_s
+			(@prepend+[super]+@append).join(' ')
+		end
+	end
+end

data/lib/ruby/file/append.rb

@@ -0,0 +1,11 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+def File.append(path, data)
+	File.open(path, "a") { |fh| fh.write(data) }
+end

data/lib/ruby/file/write.rb

@@ -0,0 +1,11 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+def File.write(path, data)
+	File.open(path, "w") { |fh| fh.write(data) }
+end

data/lib/ruby/hash/zip.rb

@@ -0,0 +1,15 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+# create a hash from an array with keys and an array with values
+# you can set default or provide a block just as with Hash::new
+def Hash.zip(keys, values, default=nil, &block)
+	hash = block_given? ? Hash.new(&block) : Hash.new(default)
+	keys.zip(values) { |k,v| hash[k]=v }
+	hash
+end

data/lib/ruby/kernel/bench.rb

@@ -0,0 +1,15 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Kernel
+	def bench(n=1,&b)
+		start = Time.now
+		n.to_i.times(&b)
+		Time.now - start
+	end
+end

data/lib/ruby/kernel/daemonize.rb

@@ -0,0 +1,42 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+require 'ruby/kernel/safe_fork'
+
+
+
+
+module Kernel
+	# This method causes the current running process to become a daemon
+	# All further printing is relied to the error.log
+	# FIXME doesn't belong into Butler::Bot, rather into botcontrol
+	def daemonize(chdir=nil, &on_sighup)
+		srand # Split rand streams between spawning and daemonized process
+		safe_fork and exit # Fork and exit from the parent
+
+		# Detach from the controlling terminal
+		raise "Can't detach from controlling terminal" unless sess_id = Process.setsid
+
+		# Prevent the possibility of acquiring a controlling terminal
+		trap('SIGHUP', 'IGNORE')
+		exit if safe_fork
+
+		# In daemon mode, a SIGHUP means termination
+		trap('SIGHUP', &on_sighup)
+
+		# We can't get the originally controlling terminals stdout/stdin anymore
+		STDIN.reopen("/dev/null")
+		STDOUT.reopen("/dev/null", "a")
+		STDERR.reopen(STDOUT)
+		
+		Dir.chdir(chdir) if chdir
+		File.umask 0033 # FIXME ask somebody knowledgable about a sensible value
+
+		sess_id
+	end
+end

data/lib/ruby/kernel/non_verbose.rb

@@ -0,0 +1,17 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Kernel
+	def non_verbose
+		old_verbose = $VERBOSE
+		$VERBOSE    = false
+		yield
+	ensure
+		$VERBOSE = old_verbose
+	end
+end

data/lib/ruby/kernel/safe_fork.rb

@@ -0,0 +1,18 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+module Kernel
+  # Try to fork if at all possible retrying every +delay+ sec (5s default)
+  # if the maximum process limit for the system has been reached
+  def safe_fork(delay=5)
+  	fork
+  rescue Errno::EWOULDBLOCK
+  	sleep(delay)
+  	retry
+  end
+end

data/lib/ruby/range/stepped.rb

@@ -0,0 +1,11 @@
+require 'enumerator'
+
+class Range
+	# Returns an array with all values starting from begin,
+	# in intervall size until end.
+	# Example:
+	#   (2..17).stepped(4) # => [2, 6, 10, 14]
+	def stepped(size=1)
+		enum_for(:step, size).to_a
+	end
+end

data/lib/ruby/string/arguments.rb

@@ -0,0 +1,72 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+require 'ruby/string/unescaped'
+
+class String
+	# the exception raised by String#arguments if an odd number of arguments is encountered.
+	# you can still extract the other parts of the parsing via its accessors.
+	class SingleQuoteException < RuntimeError
+		attr_reader :index
+		attr_reader :pre
+		attr_reader :post
+		def initialize(args, index)
+			@index, @pre, @post = index, args[0,index], args[index+1,args.length-index]
+			super("A single unescaped quote as argument #{index}")
+		end
+	end
+	
+	# parse a string of single/double/unquoted arguments (or any mix of)
+	# raises an exception if an odd number of quotes is matched
+	# examples:
+	#   'hello hello "ruby world"'.arguments # => ["hello", "hello", "ruby world"]
+	#   'hello hello ruby\ world'.arguments #  => ["hello", "hello", "ruby world"]
+	#   'hello hello ruby\ world'.arguments(false) #  => ["hello", "hello", "ruby\\ world"]
+	def arguments(unescape=true)
+		args = scan(
+			/
+				# match a double quoted string
+				"(?:\\.|[^\\"])*" |
+
+				# match a single quoted string
+				'(?:\\.|[^\\'])*' |
+
+				# match non-quoted words (may contain escaped spaces)
+				(?:\\.|[^\\'"\s])+ |
+
+				# match a single " or '
+				["']
+			/x
+		)
+		if unescape
+			args.map! { |arg| ((arg[0,1] == '"' && arg[1]) ? arg[1..-2] : arg).unescaped }
+		else
+			args.map! { |arg| ((arg[0,1] == '"' && arg[1]) ? arg[1..-2] : arg) }
+		end
+		if (sq = args.index('"')) || (sq = args.index("'")) then
+			raise SingleQuoteException.new(args, sq)
+		end
+		args
+	end
+end
+
+if __FILE__ == $0 then
+	require 'test/unit'
+	class TestStringArguments < Test::Unit::TestCase
+		def test_all
+			assert_equal(%w(), ''.arguments)
+			assert_equal(%w(hello world those are arguments), 'hello world those are arguments'.arguments)
+			assert_equal(%w(hello ruby\ world those are arguments), 'hello "ruby world" those are arguments'.arguments)
+			assert_equal(%w(hello ruby\ world), 'hello "ruby world"'.arguments)
+			assert_equal(%w(ruby\ world those are arguments), '"ruby world" those are arguments'.arguments)
+			assert_equal(%w(hello ruby\ world those are arguments), 'hello ruby\ world those are arguments'.arguments)
+			assert_raise(String::SingleQuoteException) { 'hello " ruby'.arguments }
+			assert_raise(String::SingleQuoteException) { "hello ' ruby".arguments }
+		end
+	end
+end

data/lib/ruby/string/chunks.rb

@@ -0,0 +1,15 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+class String
+	# splits a string into chunks of length 'len'
+	def chunks(chunk_length)
+		scan(/.{1,#{chunk_length}}/)
+	end
+end
+

data/lib/ruby/string/post_arguments.rb

@@ -0,0 +1,44 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+require 'ruby/string/arguments'
+
+class String
+	def post_arguments(unescaped=true)
+		post   = []
+		offset = -1
+		found  = 0
+		arguments = begin
+			arguments(false)
+		rescue SingleQuoteException => ex
+			ex.pre+[ex.post.join(" ")]
+		end
+		arguments.each { |argument|
+			post  << (unescaped ? self[offset+1..-1].unescaped : self[offset+1..-1])
+			found  = index(argument, offset+1)
+			offset = found+argument.length
+		}
+		post
+	end
+end
+
+if __FILE__ == $0 then
+	require 'test/unit'
+	class TestStringArguments < Test::Unit::TestCase
+		def test_all
+			#assert_equal(%w(), ''.arguments)
+			#assert_equal(%w(hello world those are arguments), 'hello world those are arguments'.arguments)
+			#assert_equal(%w(hello ruby\ world those are arguments), 'hello "ruby world" those are arguments'.arguments)
+			#assert_equal(%w(hello ruby\ world), 'hello "ruby world"'.arguments)
+			#assert_equal(%w(ruby\ world those are arguments), '"ruby world" those are arguments'.arguments)
+			#assert_equal(%w(hello ruby\ world those are arguments), 'hello ruby\ world those are arguments'.arguments)
+			#assert_raise(String::SingleQuoteException) { 'hello " ruby'.arguments }
+			#assert_raise(String::SingleQuoteException) { "hello ' ruby".arguments }
+		end
+	end
+end