uttk 0.3.1.2

data/misc/expandtab.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/misc/expandtab.rb 8784 2005-09-26T12:11:55.049358Z ertai  $
+
+class String
+  def process!
+    chomp!
+    gsub!(/\t/, '        ')
+    self
+  end
+end
+
+if ARGV.empty?
+  STDIN.each do |line|
+    puts line.process!
+  end
+else
+  ARGV.each do |file|
+    puts "Processing: #{file}..."
+    File.open("#{file}.tmp", 'w') do |tmp|
+      IO.foreach(file) do |line|
+        tmp.puts line.process!
+      end
+    end
+    File.rename("#{file}.tmp", file)
+  end
+end

data/misc/header.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+require 'pathname'
+
+ARGV.map! { |x| Pathname.new(x) }
+
+ARGV.each do |path|
+  next if path.to_s =~ /header\.rb/
+  header, body, she_bang = '', '', nil
+  header_mode = true
+  path.each_line do |line|
+    header_mode = false unless line =~ /^\s*$/ or line =~ /^#[! ]/
+    if line =~ /^#!/
+      she_bang = line
+    elsif header_mode
+      header += line
+    else
+      body += line
+    end
+  end
+
+  header =~ /^# Authors?::?\s+(.*)$/
+  author = $1
+  raise "No author for #{path}" if author.nil?
+
+  header =~ /^# Copyright::?\s+Copyright\s+\([cC]\)\s+([\d-, ]*\d)/
+  years = '2004, 2005' # $1
+  raise "No years for #{path}" if years.nil?
+  raise "Invalid year format in #{path}" if years =~ /-/
+
+  path.open('w') do |f|
+    f.print she_bang unless she_bang.nil?
+    str = <<-end
+      # Author::    #{author}
+      # Copyright:: Copyright (c) #{years} Uttk team. All rights reserved.
+      # License::   LGPL
+      # $Id$
+    end
+    str.gsub!(/^\s*#/, '#')
+
+    f.puts str
+    2.times { f.puts }
+    f.print body
+  end
+end

data/misc/renaming

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+
+class String
+  def uttk_rename!
+    r = gsub!(/([^Uu])ttk/, '\1uttk') || r
+    r = gsub!(/^ttk/, 'uttk') || r
+    r = gsub!(/([^uU])ttk/, '\1Uttk') || r
+    r = gsub!(/^T[Tt][Kk]/, 'Uttk') || r
+    r = gsub!(/([^Uu])T[tT][kK]/, '\1Uttk') || r
+    r = gsub!(/TestTKewl/, 'Unified Test Tool Kit') || r
+    r = gsub!(/TestToolKit/, 'Unified Test Tool Kit') || r
+    # r = gsub!(/([^Uu ][^Nn ][^Ii ][^Ff ][^Ii ][^Ee ][^Dd ]\s*)(\s*?[tT][Ee][Ss][Tt]\s*[Tt][Oo][Oo][Ll]\s*[Kk][Ii][Tt])/, '\1 Unified\2') || r
+    (r)? self : nil
+  end
+end
+
+class Pathname
+  def uttk_rename!
+    path = self
+    if new = basename.to_s.uttk_rename!
+      p = dirname + new
+      if system("svn move #{self} #{p} --force")
+        path = p
+      end
+      r = self
+    end
+    unless path.directory?
+      r = path.read.uttk_rename!
+      if r
+        path.open('w') { |f| f.syswrite(r) }
+      end
+    end
+    (r)? self : nil
+  end
+end
+
+ARGV.each do |arg|
+  Pathname.new(arg).find do |path|
+    next if path.to_s == /^\.\.?$/
+    Find.prune if path.to_s =~ /\.svn/
+    next unless path.directory?
+    if path.uttk_rename!
+      STDERR.puts "- #{path}"
+    end
+  end
+  Pathname.new(arg).find do |path|
+    next if path.to_s == /renaming/
+    next if path.to_s == /^\.\.?$/
+    Find.prune if path.to_s =~ /\.svn/
+    next if path.directory?
+    if path.uttk_rename!
+      STDERR.puts "- #{path}"
+    end
+  end
+end

data/misc/textile_compiler

@@ -0,0 +1,194 @@
+#! /usr/bin/env ruby
+# Author::    Nicolas Despr�s  <nicolas.despres@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk Team. All rights reserved.
+# License::   LGPL
+# $Id: /w/fey/uttk/trunk/misc/textile_compiler 22074 2006-02-21T13:47:00.947568Z pouillar  $
+
+require 'erb'
+require 'pathname'
+require 'optparse'
+
+module TextileCompiler
+
+  DEFAULT_SEVERITY_LEVEL = :warning
+
+  SEVERITY_LEVELS = {
+    :fatal => 0,
+    :error => 1,
+    :warning => 2,
+    :info => 3,
+    :debug => 4
+  }
+
+  def self.severity_level=(level)
+    @@severity_level = level
+  end
+
+  def self.severity_level
+    @@severity_level
+  end
+
+  def self.log(level, message)
+    @@severity_level ||= DEFAULT_SEVERITY_LEVEL
+    if SEVERITY_LEVELS[level] <= SEVERITY_LEVELS[@@severity_level]
+      STDERR.puts "#{File.basename($0)}: #{level}: #{message}"
+    end
+  end
+
+  def self.error(message)
+    log(:error, message)
+  end
+
+  def self.fatal(message)
+    log(:fatal, message)
+    raise message
+  end
+
+  def self.warning(message)
+    log(:warning, message)
+  end
+
+  def self.info(message)
+    log(:info, message)
+  end
+
+  def self.debug(message)
+    log(:debug, message)
+  end
+
+  class Compiler
+
+    DEFAULT_OPTIONS = {
+      :input_extension => '.rtextile',
+      :output_extension => '.textile'
+    }
+
+    def initialize(commands, options={})
+      @command = commands
+      @options = DEFAULT_OPTIONS
+      @options.merge!(options)
+      TextileCompiler.debug("current directory = `#{Pathname.pwd}'")
+    end
+
+    def compile(*pathnames)
+      pathnames.each do |src_pathname|
+        if src_pathname.extname == @options[:input_extension]
+          base_pathname = src_pathname.to_s.sub(/#{src_pathname.extname}$/, '')
+          dest_pathname = Pathname.new(base_pathname +
+                                       @options[:output_extension])
+          dest_pathname.open('w') do |f|
+            f.write ERB.new(src_pathname.read).result(@command.get_binding)
+          end
+        else
+          TextileCompiler.warning("unknown file extension, ignore `#{src_pathname}'")
+        end
+      end
+    end
+
+  end # class Compiler
+
+  class Textile
+
+    def initialize
+      @fixtures_directory = Pathname.new(".")
+    end
+
+    def get_binding
+      binding
+    end
+
+    def comment(&block)
+    end
+
+    def command(command, options={})
+      args = options[:arguments]
+      args ||= []
+      args = args.join(' ')
+
+      cmd = "#{command} #{args}"
+      cmd = "echo #{options[:input]} | #{cmd}" if options[:input]
+      TextileCompiler.info("cmd `#{cmd}'")
+
+      result = "|{background:#ddd}.<code>$ #{cmd}</code>|\n\n"
+
+      TextileCompiler.debug("options[:directory] = `#{options[:directory]}'")
+      directory = options[:directory]
+      directory ||= "."
+      directory = @fixtures_directory + Pathname.new(directory)
+      unless directory.directory? and directory.executable? and directory.readable?
+        TextileCompiler.error("bad directory `#{directory}' " +
+                              "(fixtures_directory = `#{@fixtures_directory}'")
+      end
+      TextileCompiler.debug("directory = `#{directory}'")
+
+      full_cmd = "cd #{directory} && #{cmd}"
+      full_cmd += " 2>&1" if options[:with_stderr]
+      TextileCompiler.debug("run `#{full_cmd}'")
+      unless options[:without_output]
+        result += "<pre>\n" + `#{full_cmd}` + "\n</pre>"
+      end
+      status = $?.exitstatus
+      if status != 0
+        TextileCompiler.warning("the command `#{full_cmd}' has exited with " +
+                                "status #{status}")
+      end
+      result
+    end
+
+    def fixtures_directory=(new_value)
+      tmp = Pathname.new(new_value)
+      if tmp.directory? and tmp.executable? and tmp.readable?
+        @fixtures_directory = tmp
+      else
+        TextileCompiler.error("bad fixture directory `#{tmp}'")
+      end
+    end
+
+    attr_reader :fixtures_directory
+
+  end # class Textile
+
+end # class TextileCompiler
+
+
+ME_DIR, ME = Pathname.new($0).split
+
+options = TextileCompiler::Compiler::DEFAULT_OPTIONS
+opts = OptionParser.new do |opts|
+
+  opts.banner = "Usage: #{ME} [options] <.rtextile files>..."
+  opts.separator ''
+
+  opts.summary_indent = '  '
+  opts.summary_width = 28
+
+  opts.on('--input-extension EXT',
+          "Input extention (default: #{options[:input_extension]})") do |ext|
+    options[:input_extenstion] = ext
+  end
+
+  opts.on('--output-extension EXT',
+          "Output extention (default: #{options[:output_extension]})") do |ext|
+    options[:output_extenstion] = ext
+  end
+
+  opts.on('-s',
+          '--severity LEVEL',
+          TextileCompiler::SEVERITY_LEVELS.keys,
+          'Log severity level (no argument for the list)') do |lvl|
+    if lvl.nil?
+      puts "Log severity level:"
+      TextileCompiler::SEVERITY_LEVELS.keys.each { |l| puts " - #{l}" }
+      exit
+    else
+      TextileCompiler.severity_level = lvl
+    end
+  end
+
+end
+
+opts.parse!(ARGV)
+ARGV.map! { |arg| Pathname.new(arg) }
+
+TextileCompiler::Compiler.new(TextileCompiler::Textile.new).compile(*ARGV)
+

data/misc/uttk-grep.sh

@@ -0,0 +1,8 @@
+#!/bin/sh
+
+find .                              \
+     \( -name '*.rb' -or            \
+        -name 'uttk' -or             \
+        -name 'uttk[dm]' \)          \
+     | xargs grep "$@"
+

data/misc/uttk-line-count.rb

@@ -0,0 +1,143 @@
+#!/usr/bin/env ruby
+# Author::    Nicolas Despres  <nicolas.despres@gmail.com>.
+# Copyright:: Copyright (c) 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id$
+
+require 'pathname'
+require 'optparse'
+
+ME_DIR, ME = Pathname.new($0).split
+
+skip_comment = false
+skip_empty_line = false
+skip_test = false
+verbose = true
+append = false
+opts = OptionParser.new do |opts|
+
+  opts.banner = "Usage: #{ME} [options] <glob_patterns...>"
+  opts.separator ''
+
+  opts.on('-c', '--skip-comment', 'Skip comment') do
+    skip_comment = true
+  end
+
+  opts.on('-C', '--no-skip-comment', 'Do not skip comment (default)') do
+    skip_comment = false
+  end
+
+  opts.on('-l', '--skip-empty-line', 'Skip empty line') do
+    skip_empty_line = true
+  end
+
+  opts.on('-L', '--no-skip-empty-line', 'Do not skip empty line (default)') do
+    skip_empty_line = false
+  end
+
+  opts.on('-t', '--skip-test', 'Skip unit test suite') do
+    skip_test = true
+  end
+
+  opts.on('-T', '--no-skip-test', 'Do not skip unit test suite (default)') do
+    skip_test = false
+  end
+
+  opts.on('-v', '--verbose', 'Be verbose (default)') do
+    verbose = true
+  end
+
+  opts.on('-V', '--no-verbose', 'Do not be verbose') do
+    verbose = false
+  end
+
+  opts.on('-a', '--append', 'Append glob pattern to the search list') do
+    append = true
+  end
+
+end
+
+opts.parse!(ARGV)
+
+
+def merge_arrays! ( dst, src, &block )
+  src.each_with_index do |x, i|
+    dst[i] = block[dst[i], x]
+  end
+end
+
+
+GLOBDIRS = [
+  'bin/**/*.rb',
+  'bin/uttk*',
+  'lib/**/*.{rb,js,css}',
+  'test/**/*.{rb,yml}',
+]
+
+
+files = []
+globdirs = GLOBDIRS
+if append
+  globdirs += ARGV
+else
+  globdirs = ARGV unless ARGV.empty?
+end
+globdirs.each do |glob|
+  Pathname.glob(glob).each do |x|
+    next if x.to_s =~ /~$/
+    files << x
+  end
+end
+
+
+if verbose
+  puts "%7s %7s %7s %7s %7s %s" %
+       [ 'lines', 'code', 'comment', 'empty', 'test', 'file' ]
+end
+total = [0] * 5
+files.each do |f|
+  count = test_count = comment_count = empty_count = code_count = 0
+  unit_test = false
+  f.each_line do |l|
+
+    if l =~ /^\s*#/
+      comment_count += 1
+
+    elsif l =~ /^\s*$/
+      empty_count += 1
+
+    elsif l =~ /^(\s*)test_section/
+      unit_test = /^#{$1}end/
+
+    elsif unit_test
+      if l =~ unit_test
+        unit_test = false
+      else
+        test_count += 1
+      end
+
+    else
+      code_count += 1
+
+    end
+  end
+
+  count = code_count
+  count += test_count unless skip_test
+  count += comment_count unless skip_comment
+  count += empty_count unless skip_empty_line
+
+  if f.to_s =~ /\.yml$/
+    code_count, test_count = 0, code_count
+  end
+  lst = [ count, code_count, comment_count, empty_count, test_count ]
+  merge_arrays!(total, lst) { |x, y| x + y }
+
+  puts "%7s %7s %7s %7s %7s #{f}" % lst if verbose
+end
+
+if verbose
+  puts "%7s %7s %7s %7s %7s total" % total
+else
+  puts total[0]
+end