reap 03.01 → 4.0

data/dev/Rakefile

@@ -0,0 +1,60 @@
+# Rakefile for rubypants  -*-ruby-*-
+require 'rake/rdoctask'
+
+
+desc "Run all the tests"
+task :default => [:test]
+
+desc "Do predistribution stuff"
+task :predist => [:changelog, :doc]
+
+
+desc "Run all the tests"
+task :test do
+  ruby 'rand.rb'
+end
+
+desc "Make an archive as .tar.gz"
+task :dist => :test do
+  system "export DARCS_REPO=#{File.expand_path "."}; " +
+         "darcs dist -d rand#{get_darcs_tree_version}"
+end
+
+desc "Generate a ChangeLog"
+task :changelog do
+  system "darcs changes --repo=#{ENV["DARCS_REPO"] || "."} >ChangeLog"
+end
+
+desc "Generate RDoc documentation"
+Rake::RDocTask.new(:doc) do |rdoc|
+  rdoc.options << '--line-numbers --inline-source --all'
+  rdoc.rdoc_files.include 'README'
+  rdoc.rdoc_files.include 'rand.rb'
+end
+
+
+# Helper to retrieve the "revision number" of the darcs tree.
+def get_darcs_tree_version
+  return ""  unless File.directory? "_darcs"
+
+  changes = `darcs changes`
+  count = 0
+  tag = "0.0"
+  
+  changes.each("\n\n") { |change|
+    head, title, desc = change.split("\n", 3)
+    
+    if title =~ /^  \*/
+      # Normal change.
+      count += 1
+    elsif title =~ /tagged (.*)/
+      # Tag.  We look for these.
+      tag = $1
+      break
+    else
+      warn "Unparsable change: #{change}"
+    end
+  }
+
+  "-" + tag + "." + count.to_s
+end

data/dev/composite_task.rb

@@ -0,0 +1,27 @@
+
+require 'reap/reap'
+require 'reap/task'
+
+class Reap::CompositeTask < Reap::Task
+
+  register "composite"
+
+  #def default_name ; "" ; end
+  def default_desc
+    "run tasks #{subtasks.join(',')} [reap]"
+  end
+
+  #attr_accessor :subtasks
+
+  def init
+    #@subtasks = section['subtasks']
+  end
+
+  private
+
+  def run
+    #@subtasks.each do |st|
+    #end
+  end
+
+end

data/dev/compositepublisher.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+module Rake
+
+  # Manage several publishers as a single entity.
+  class CompositePublisher
+    def initialize
+      @publishers = []
+    end
+    
+    # Add a publisher to the composite.
+    def add(pub)
+      @publishers << pub
+    end
+    
+    # Upload all the individual publishers.
+    def upload
+      @publishers.each { |p| p.upload }
+    end
+  end
+
+end
+
+

data/dev/ftptools.rb

@@ -0,0 +1,139 @@
+#!/usr/bin/env ruby
+
+# = Tools for FTP uploading.
+#
+# This file is still under development and is not released for general
+# use.
+
+require 'date'
+require 'parsedate'
+require 'net/ftp'
+
+module Rake # :nodoc:
+
+  ####################################################################
+  # <b>Note:</b> <em> Not released for general use.</em>
+  class FtpFile
+    attr_reader :name, :size, :owner, :group, :time
+
+    def self.date
+      @date_class ||= Date
+    end
+
+    def initialize(path, entry)
+      @path = path
+      @mode, line, @owner, @group, size, d1, d2, d3, @name = entry.split(' ')
+      @size = size.to_i
+      @time = determine_time(d1, d2, d3)
+    end
+
+    def path
+      File.join(@path, @name)
+    end
+
+    def directory?
+      @mode[0] == ?d
+    end
+
+    def mode
+      parse_mode(@mode)
+    end
+
+    def symlink?
+      @mode[0] == ?l
+    end
+
+    private # --------------------------------------------------------
+
+    def parse_mode(m)
+      result = 0
+      (1..9).each do |i|
+	result = 2*result + ((m[i]==?-) ? 0 : 1)
+      end
+      result
+    end
+
+    def determine_time(d1, d2, d3)
+      elements = ParseDate.parsedate("#{d1} #{d2} #{d3}")
+      if elements[0].nil?
+	today = self.class.date.today
+	if elements[1] > today.month
+	  elements[0] = today.year - 1
+	else
+	  elements[0] = today.year
+	end
+      end
+      elements = elements.collect { |el| el.nil? ? 0 : el }
+      Time.mktime(*elements[0,7])
+    end
+  end
+
+  ####################################################################
+  # Manage the uploading of files to an FTP account.
+  class FtpUploader
+
+    # Log uploads to standard output when true.
+    attr_accessor :verbose
+
+    class << FtpUploader
+      # Create an uploader and pass it to the given block as +up+.
+      # When the block is complete, close the uploader.
+      def connect(path, host, account, password)
+	up = self.new(path, host, account, password)
+	begin
+	  yield(up)
+	ensure
+	  up.close
+	end
+      end
+    end
+
+    # Create an FTP uploader targetting the directory +path+ on +host+
+    # using the given account and password.  +path+ will be the root
+    # path of the uploader.
+    def initialize(path, host, account, password)
+      @created = Hash.new
+      @path = path
+      @ftp = Net::FTP.new(host, account, password)
+      makedirs(@path)
+      @ftp.chdir(@path)
+    end
+
+    # Create the directory +path+ in the uploader root path.
+    def makedirs(path)
+      route = []
+      File.split(path).each do |dir|
+	route << dir
+	current_dir = File.join(route)
+	if @created[current_dir].nil?
+	  @created[current_dir] = true
+	  puts "Creating Directory  #{current_dir}" if @verbose
+	  @ftp.mkdir(current_dir) rescue nil
+	end
+      end
+    end
+
+    # Upload all files matching +wildcard+ to the uploader's root
+    # path.
+    def upload_files(wildcard)
+      Dir[wildcard].each do |fn|
+	upload(fn)
+      end
+    end
+    
+    # Close the uploader.
+    def close
+      @ftp.close
+    end
+
+    private # --------------------------------------------------------
+
+    # Upload a single file to the uploader's root path.
+    def upload(file)
+      puts "Uploading #{file}" if @verbose
+      dir = File.dirname(file)
+      makedirs(dir)
+      @ftp.putbinaryfile(file, file) unless File.directory?(file)
+    end
+  end
+end

data/dev/license-each.rb

@@ -0,0 +1,85 @@
+# Ruby Treasures 0.4
+# Copyright (C) 2002 Paul Brannan <paul@atdesk.com>
+# 
+# You may distribute this software under the same terms as Ruby (see the file
+# COPYING that was distributed with this library).
+# 
+# Ruby Treasures 0.2
+# Copyright (C) 2002 Paul Brannan <paul@atdesk.com>
+# 
+# You may distribute this software under the same terms as Ruby (see the file
+# COPYING that was distributed with this library).
+# 
+# Run this Ruby script to prepare the RubyTreasures distribution for
+# publication.
+
+require 'find'
+require 'ftools'
+
+
+# Add licences to the top of every file and remove unnecessary files
+
+license = IO.readlines('LICENSE')
+ruby_license_comment = license.map { |i| i.sub(/^/, '# ') }
+c_license_comment = ["/*\n"] + license.map { |i| i.sub(/^/, ' * ') } + [" */\n"]
+
+def rm_rf(dir)
+  Dir.foreach(dir) do |f|
+    if not f =~ /\.?\.$/ then
+      filename = File.join(dir, f)
+      if File.directory?(filename) then
+        rm_rf(filename)
+      else
+        puts "Removing file #{filename}"
+        File.rm_f(filename)
+      end
+    end
+  end
+  puts "Removing directory #{dir}"
+  Dir.rmdir(dir)
+end
+
+Find.find('.') do |file|
+  if File.directory?(file) then
+    case file
+      when /\/CVS$/
+        # Remove CVS directories
+        rm_rf(file)
+      else
+        # Remove empty directories
+        entries = Dir.entries(file)
+        entries.delete('.')
+        entries.delete('..')
+        entries.delete('CVS')
+        if entries.length == 0 then
+          rm_rf(file)
+        end
+    end
+  else
+    case file
+      when /\.rb$/
+        # Add LICENSE to ruby sources
+        puts "Adding license to #{file}"
+        lines = ruby_license_comment + IO.readlines(file)
+        File.open(file, 'w') do |out|
+          lines.each do |line|
+            out.puts line
+          end
+        end
+      when /\.c$/
+        # Add LICENSE to C sources
+        puts "Adding license to #{file}"
+        lines = c_license_comment + IO.readlines(file)
+        File.open(file, 'w') do |out|
+          lines.each do |line|
+            out.puts line
+          end
+        end
+      when /~$/
+        # Remove temporary files
+        puts "Removing file #{file}"
+        File.rm_f(file)
+    end
+  end
+end
+

data/dev/publisher.rb

@@ -0,0 +1,75 @@
+#!/usr/bin/env ruby
+
+# Copyright 2003, 2004 by Jim Weirich (jim@weirichhouse.org)
+# All rights reserved.
+
+# Permission is granted for use, copying, modification, distribution,
+# and distribution of modified versions of this work as long as the
+# above copyright notice is included.
+
+# Configuration information about an upload host system.
+# * name   :: Name of host system.
+# * webdir :: Base directory for the web information for the
+#             application.  The application name (APP) is appended to
+#             this directory before using.
+# * pkgdir :: Directory on the host system where packages can be
+#             placed. 
+HostInfo = Struct.new(:name, :webdir, :pkgdir)
+
+# Manage several publishers as a single entity.
+class CompositePublisher
+  def initialize
+    @publishers = []
+  end
+
+  # Add a publisher to the composite.
+  def add(pub)
+    @publishers << pub
+  end
+
+  # Upload all the individual publishers.
+  def upload
+    @publishers.each { |p| p.upload }
+  end
+end
+
+# Publish an entire directory to an existing remote directory using
+# SSH.
+class SshDirPublisher
+  def initialize(host, remote_dir, local_dir)
+    @host = host
+    @remote_dir = remote_dir
+    @local_dir = local_dir
+  end
+
+  def upload
+    run %{scp -rq #{@local_dir}/* #{@host}:#{@remote_dir}}
+  end
+end
+
+# Publish an entire directory to a fresh remote directory using SSH.
+class SshFreshDirPublisher < SshDirPublisher
+  def upload
+    run %{ssh #{@host} rm -rf #{@remote_dir}} rescue nil
+    run %{ssh #{@host} mkdir #{@remote_dir}}
+    super
+  end
+end
+
+# Publish a list of files to an existing remote directory.
+class SshFilePublisher
+  # Create a publisher using the give host information.
+  def initialize(host, remote_dir, local_dir, *files)
+    @host = host
+    @remote_dir = remote_dir
+    @local_dir = local_dir
+    @files = files
+  end
+
+  # Upload the local directory to the remote directory.
+  def upload
+    @files.each do |fn|
+      run %{scp -q #{@local_dir}/#{fn} #{@host}:#{@remote_dir}}
+    end
+  end
+end

data/dev/rubyforgepublisher.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+require 'rake/contrib/sshpublisher'
+
+module Rake
+
+  class RubyForgePublisher < SshDirPublisher
+    attr_reader :project, :proj_id, :user
+    
+    def initialize(projname, user)
+      super(
+	"#{user}@rubyforge.org",
+	"/var/www/gforge-projects/#{projname}",
+	"html")
+    end
+  end
+  
+end

data/dev/sshpublisher.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+
+require 'rake/contrib/compositepublisher'
+
+module Rake
+
+  # Publish an entire directory to an existing remote directory using
+  # SSH.
+  class SshDirPublisher
+    def initialize(host, remote_dir, local_dir)
+      @host = host
+      @remote_dir = remote_dir
+      @local_dir = local_dir
+    end
+    
+    def upload
+      sh %{scp -rq #{@local_dir}/* #{@host}:#{@remote_dir}}
+    end
+  end
+  
+  # Publish an entire directory to a fresh remote directory using SSH.
+  class SshFreshDirPublisher < SshDirPublisher
+    def upload
+      sh %{ssh #{@host} rm -rf #{@remote_dir}} rescue nil
+      sh %{ssh #{@host} mkdir #{@remote_dir}}
+      super
+    end
+  end
+  
+  # Publish a list of files to an existing remote directory.
+  class SshFilePublisher
+    # Create a publisher using the give host information.
+    def initialize(host, remote_dir, local_dir, *files)
+      @host = host
+      @remote_dir = remote_dir
+      @local_dir = local_dir
+      @files = files
+    end
+    
+    # Upload the local directory to the remote directory.
+    def upload
+      @files.each do |fn|
+	sh %{scp -q #{@local_dir}/#{fn} #{@host}:#{@remote_dir}}
+      end
+    end
+  end
+end