reap 0.4.0

data/lib/reap/tasks/announce-task.rb

@@ -0,0 +1,140 @@
+
+require 'net/smtp'
+require 'facet/string/margin'
+require 'facet/string/tab'
+require 'facet/string/center_lines'
+require 'facet/string/clump'
+require 'facet/string/word_wrap'
+
+module Reap
+
+  class AnnounceTask < Task
+    
+    def self.task ; :announce ; end
+    
+    def self.desc ; "Sends [ANN] email to ruby-talk or other list." ; end
+
+
+    def set( section )
+      @address = section['to']
+      @from = section['from'].to_s
+      @server = section['server'].to_s.strip
+      @port = section['port'] || 25
+      @domain = section['domain'].to_s.strip
+      @account = section['account'].to_s
+      @authtype = section['authtype'].to_sym
+      @subject = "[ANN] #{@config['title']}, v#{@config['version']}"
+
+      #raise "DOMAIN is a required field" if @domain.empty?
+
+      announce = %Q{
+        |
+        |A N N O U N C I N G
+        |
+        |#{@config['title']}, v#{@config['version']}
+        |
+        |#{@config['summary']}
+        |
+        }.margin.center_lines(66)
+
+      # abstract
+      abstract = ''
+      desc = @config['description']
+      if desc
+        abstract << "\n\n"
+        abstract << "ABSTRACT: #{desc}".word_wrap(72)
+        abstract << "\n"
+      end
+
+      # more info
+      info = ''
+      info_arr = section['info']
+      unless info_arr.empty?
+        info << "\n"
+        info << "For More Information".center(67)
+        info << "\n"
+        info_arr.each{ |mi| info << "#{mi}".center(67) }
+        info << "\n\n"
+      end
+
+      # slogan
+      slogan = ''
+      if section['slogan']
+        slogan << "\n\n"
+        slogan << section['slogan'].center(67)
+        slogan << "\n\n"
+      end
+
+      # memo
+      memo = ''
+      if section['memo']
+        memo = ''
+        memo << "\n" << ('-' * 72) << "\n"
+        memo << "(Memo)\n\n"
+        memo << section['memo'].clump.word_wrap(72)
+        #memo << "\n"
+      end
+
+      # msg file
+      msg = ''
+      msg_file = section['file']
+      if msg_file and File.file?( msg_file )
+        msg << "\n" << ("-" * 72) << "\n"
+        msg << "(from #{msg_file})\n\n"
+        mg = ''       
+        File.open( msg_file ) { |f| mg << f.gets(nil) }
+        msg << mg.clump.word_wrap(72)
+      end
+    
+      # stamp
+      stamp = ''
+      stamp << "\n" << ("-" * 72) << "\n"
+      stamp << %Q{
+        |Generated by Reap, a dedicated Ruby Packaging Assistant.
+        |Do you Ruby?  (http://www.ruby-lang.org)
+        }.margin
+      stamp << "\n\n"
+      
+      @message = ''
+      @message << announce
+      @message << abstract
+      @message << info
+      @message << slogan
+      @message << memo
+      @message << msg
+      @message << stamp      
+    end
+
+    def run
+      puts "\n#{@message}\n\n"
+      print "Send? [Y/n] "
+      until inp = $stdin.gets[0,1] ; sleep 1 ; end
+      if (inp || 'y').downcase == 'y'
+        # ask for password
+        print "Password for #{@account}: "
+        until passwd = $stdin.gets.strip ; sleep 1 ; end  
+        mail = %Q{
+         |From: #{@from}
+         |To: #{@address}
+         |Subject: #{@subject}
+         |
+         |#{@message}
+         }.margin
+        begin
+          # --- Send using SMTP object and an adaptor
+          Net::SMTP.start(@server, @port, @domain, @account, passwd, @authtype) do |s|
+            s.send_message mail, @from, @address
+          end
+          puts "Email sent successfully to #{@address}."
+        rescue => e
+          puts "Email delivery failed."
+          puts e     
+        end     
+      else
+        puts "Reap announce task canceled."
+        exit 0
+      end
+    end
+  end
+
+end #module Reap

data/lib/reap/tasks/chmod-task.rb

@@ -0,0 +1,72 @@
+
+module Reap
+
+  class ChmodTask < Task
+
+    def self.task; :chmod ; end
+
+    def self.desc; "Change the permissions of package files." ; end
+
+
+    def set( section )
+#       @user = section['user']
+#       @group = section['group']
+#       #raise "USER and GROUP are required CHMOD fields." unless @user and @group
+    end
+
+    def run
+      puts "Reap is shelling out work to chmod..."
+      
+      # misc
+      misc = FileList.new
+      misc.include('[A-Z]*')
+      misc.exclude('InstalledFiles')
+      chmod( misc ) unless misc.empty?
+
+      # lib
+      libs = FileList.new
+      libs.include('lib/**/*')
+      libs.exclude('lib/CVS/**/*')
+      libs.include('packages/*/lib/**/*')
+      libs.exclude('packages/*/lib/CVS/**/*')
+      libs.exclude('packages/CVS/**/*')
+      chmod( libs ) unless libs.empty?
+
+      # bin
+      bins = FileList.new
+      bins.include('bin/**/*')
+      bins.exclude('bin/CVS/**/*')
+      bins.include('packages/*/bin/**/*')
+      bins.exclude('packages/*/bin/CVS/**/*')
+      bins.exclude('packages/CVS/**/*')
+      chmod( bins, 755 ) unless bins.empty?      
+    end
+
+    private
+    
+    def chmod( file_list, file_mode=644, dir_mode=755 )
+      dirs, files = file_list.partition{ |l| File.directory?(l) }
+      unless files.empty?
+        fstr = '"' + files.join('" "') + '"'
+        sh %{chmod #{file_mode} #{fstr}}
+      end
+      unless dirs.empty?
+        fstr = '"' + dirs.join('" "') + '"'
+        sh %{chmod #{dir_mode} #{fstr}}
+      end   
+    end
+
+#     def chown( file_list, user, group )
+#       fstr = '"' + file_list.join('" "') + '"'
+#       if user
+#         if group
+#           sh %{chown #{user}.#{group} #{fstr}}
+#         else
+#           sh %{chown #{user} #{fstr}}
+#         end
+#       end
+#     end
+
+  end #class ChmodTask
+
+end #module Reap

data/lib/reap/tasks/package-task.rb

@@ -0,0 +1,153 @@
+
+require 'rubygems'
+
+module Reap
+
+  #
+  # Package Task
+  #
+  # This task allows on to create standard .zip, .tgz, or .tbz
+  # packages, plus create gem distributions.
+  #
+  class PackageTask < Task
+
+    def self.task ; :package ; end
+    
+    def self.desc ; "Build standard .tar.gz, .tar.bzip2 and .zip packages." ; end
+
+
+    def set( section )
+      @dir = section['dir'] || 'pkg'
+      
+      @name = section['name'] || @config['name']
+      @version = section['version'] || @config['version'] || '0.0.1'
+      @package_name = @name + '--' + @version
+
+      @author = section['author'] || @config['author']
+      @email = section['email'] || @config['email']
+      @summary = section['summary'] || @config['summary']     
+      @project = section['project'] || @config['rubyforge']['project']
+      @homepage = section['homepage'] || @config['homepage'] || @config['rubyforge']['homepage']
+      
+      @include = section['include'] || DEFAULT_INCLUDE 
+      @exclude = MUST_EXCLUDE + section['exclude']
+
+      @zip = section['zip'].nil? ? true : section['zip']
+      @gzip = section['gzip'].nil? ? true : section['zip']
+      @bzip2 = section['bzip2'].nil? ? true : section['zip']
+      @gem = section['gem'].nil? ? true : section['gem']
+      
+      # gem specific
+      if self['platform']
+        @platform = ::Gem.const_get(section['platform'])
+      else 
+        @platform = ::Gem::Platform::RUBY
+      end
+      @autorequire  = section['autorequire']
+      @requirements = section['requirements'] || []
+      @dependencies = section['dependencies'] || []
+      @executables = section['executables'] || []
+    end
+
+    def run
+      # create package image
+      if FileTest.directory?(@dir)
+        print "Directory '#{@dir}' already exists. Clobber? [y/N] "
+        until inp = $stdin.gets[0,1] ; sleep 1 ; end
+        if (inp || 'y').downcase == 'y'
+          puts "Removing old directory '#{File.expand_path(@dir)}'..."
+          trash_dir = ".trash/#{File.basename(@dir)}"
+          FileUtils.mkdir_p(".trash") unless FileTest.directory?(".trash")
+          FileUtils.rm_r(trash_dir) if FileTest.exists?(trash_dir)
+          FileUtils.mv(@dir, trash_dir)
+        else
+          puts "Reap package task canceled."
+          exit 0
+        end
+      end
+      package_dir_path = "#{@dir}/#{@package_name}"
+      package_files = FileList.new
+      package_files.include(*@include)
+      package_files.exclude(*@exclude) if @exclude and not @exclude.empty?
+      FileUtils.mkdir_p @dir #rescue nil
+      package_files.each do |fn|
+        f = File.join(package_dir_path, fn)
+        fdir = File.dirname(f)
+        FileUtils.mkdir_p(fdir) if not File.exist?(fdir)
+        if File.directory?(fn)
+          FileUtils.mkdir_p(f)
+        else
+          FileUtils.rm_f(f)
+          FileUtils.safe_ln(fn, f)
+        end
+      end
+      
+      # create standard package files
+      FileUtils.chdir(@dir) do
+        # tar bzip2 for unix
+        if @bzip2
+          puts "\nReap is shelling out work to tar and bzip2..."
+          sh %{tar --bzip2 -cvf #{@package_name}.tbz #{@package_name}}
+        end
+        # tar gzip for unix
+        if @gzip
+          puts "\nReap is shelling out work to tar and gzip..."
+          sh %{tar --gzip -cvf #{@package_name}.tgz #{@package_name}}
+        end
+        # zip for windows
+        if @zip
+          puts "\nReap is shelling out work to zip..."
+          sh %{zip -r #{@package_name}.zip #{@package_name}}
+        end
+        puts
+      end
+
+      # create gem package
+      if @gem
+        run_gem
+      end
+      return true
+    end
+
+    private
+    
+    def run_gem
+      spec = Gem::Specification.new { |s|
+        s.name = @name
+        s.version = @version
+        @dependencies.each{ |d,v| 
+          if v 
+            s.add_dependency(d, v)
+          else
+            s.add_dependency(d)
+          end
+        }
+        s.platform = @platform
+        s.summary = @summary
+        s.requirements = @requirements
+
+        # s.files = Dir.glob("lib/**/*").delete_if {|item| item.include?("CVS")}
+        # s.files.concat Dir.glob("bin/**/*").delete_if {|item| item.include?("CVS")}
+        package_files = FileList.new
+        package_files.include(*@include)
+        package_files.exclude(*@exclude) if @exclude and not @exclude.empty?
+        s.files = package_files.to_a
+
+        s.require_path = 'lib'
+        s.autorequire = @autorequire if @autorequire
+        s.author = @author
+        s.email = @email
+        s.rubyforge_project = @project
+        s.homepage = @homepage
+        s.executables = @executables
+        s.bindir = "bin"
+      }
+      puts "Reap is shelling out work to the Gem Package Manager..."
+      Gem.manage_gems
+      Gem::Builder.new(spec).build
+      sh %{mv ./*.gem #{@dir}/}
+    end
+    
+  end #class PackageTask
+
+end #module Reap

data/lib/reap/tasks/publish-task.rb

@@ -0,0 +1,33 @@
+
+module Reap
+
+  class PublishTask < Task
+    
+    def self.task ; :publish ; end
+    
+    def self.desc ; "Publish documents to the web." ; end
+    
+
+    def set( section )
+      @dir = section["dir"]
+      #@exclude = section["exclude"]
+      @project = section["project"]
+      @username = section["username"]
+    end
+
+    def run
+      #current_dir = Dir.pwd
+      #Dir.chdir( @web_dir )
+      #web_files = FileList.new
+      #web_files.include('**/*')
+      #web_files.exclude(*@web_exclude) if @web_exclude
+      #web_files = '"' << web_files.join('" "') << '"'
+      cmd = %{scp -r #{@dir}/* #{@username}@rubyforge.org:/var/www/gforge-projects/#{@project}/}
+      puts "Reap is shelling out work to scp..."
+      puts cmd
+      sh(cmd) unless $PRETEND
+    end
+
+  end
+
+end

data/lib/reap/tasks/rdoc-task.rb

@@ -0,0 +1,57 @@
+
+module Reap
+
+  class RDocTask < Task
+
+    def self.task; :rdoc ; end
+    
+    def self.desc ; "Generate RDocs." ; end
+
+
+    def set( section )
+      @dir = section["dir"] || 'doc/rdoc'
+      @main = section["main"]
+      @title = section["title"] || @config["title"]
+      @template = section["template"] || 'html'
+      @include = section["include"] || ['lib/**/*']
+      @exclude = section["exclude"]
+      @options = section["options"] || []
+    end
+
+    def run
+      rdoc_dir = File.expand_path(@dir)
+      if FileTest.directory?(@dir)
+        print "Directory '#{@dir}' already exists. Clobber? [y/N] "
+        until inp = $stdin.gets[0,1] ; sleep 1 ; end ; puts
+        if (inp || 'y').downcase == 'y'
+          puts "Removing old directory '#{rdoc_dir}'..."
+          trash_dir = ".trash/#{File.basename(@dir)}"
+          FileUtils.mkdir_p(".trash") unless FileTest.directory?(".trash")
+          FileUtils.rm_r(trash_dir) if FileTest.exists?(trash_dir)
+          FileUtils.mv(@dir, trash_dir)
+        else
+          puts "Packmule rdoc task canceled."
+          return nil
+        end
+      end
+      rdoc_target = "#{rdoc_dir}/index.html"
+      # rdoc files
+      rdoc_files = FileList.new
+      rdoc_files.include(*@include)
+      rdoc_files.exclude(*@exclude)
+      rdoc_files = '"' << rdoc_files.join('" "') << '"'
+      # build options string
+      build = @options.dup
+      build << "--main '#{@main}'" if @main
+      build << "--title '#{@title}'" if @title
+      build << "-T '#{@template}'" if @template
+      rdoc_opts = build.join(' ')
+      # do it!
+      puts "PackMule is shelling work out to RDoc..."
+      puts %{rdoc -o #{@dir} #{rdoc_opts}}
+      sh %{rdoc -o #{rdoc_dir} #{rdoc_opts} #{rdoc_files}}
+    end
+
+  end
+
+end #module Reap

data/lib/reap/tasks/template-task.rb

@@ -0,0 +1,38 @@
+
+require 'fileutils'
+
+module Reap
+
+  class TemplateTask < Task
+  
+    def self.task ; :template ; end
+    
+    def self.desc ; "Create template configuration file in current directory." ; end
+
+
+    def set( section )
+    end
+
+    def run
+      dir = File.dirname(File.dirname(__FILE__))
+      tmpf = File.join( dir, 'template.rb' )
+      unless File.file?( tmpf )
+        puts tmpf
+        raise "Tempfile is missing."
+      end
+      
+      if File.directory?("Reapfile")
+        puts "Why is Reapfile a directory? Cannot comply."
+        return
+      elsif File.file?("Reapfile")
+        puts "Reapfile already exists."
+        return      
+      end
+      # copy tmpf to Reapfile
+      FileUtils.cp( tmpf, "Reapfile" )
+      puts "Reapfile create. You'll need to fill it out."
+    end
+    
+  end #class Template
+
+end #module Reap

data/lib/reap/tasks/test-task.rb

@@ -0,0 +1,45 @@
+
+module Reap
+
+  class TestTask < Task
+
+    def self.task ; :test ; end
+
+    def self.desc ; "Run unit tests." ; end
+
+
+    def set( section )
+      @libs = ( section["libs"] || ['lib'] ).join(':')
+      #@libs = (section["libs"] || []).join(':')
+      @files = section["files"] || [ 'test/**/tc*.rb', 'test/**/test*.rb', 'test/**/*test.rb' ]
+      @options = section['options']     
+    end
+
+    def run
+      # get test files
+      test_libs = @libs
+      test_files = FileList.new
+      test_files.include(*@files)
+      if test_files.empty?
+        puts "No test files found."
+        return
+      end
+      #test_reqs = test_files.gsub(/^(.*)\.rb$/, ' -r"\1"').join(" \\\n")
+      #test_opts = " \\\n -- #{@options}" if @options
+      puts "Reap is shelling out work to Ruby's Test Suite..."
+      begin
+        test_files.each { |f|
+          ruby %{-r"test/unit" "#{f}"}
+        }
+        #puts %Q{ ruby %{-I#{test_libs} -e0 -r"test/unit" \\\n#{test_reqs}#{test_opts}} } if $DEBUG
+        #ruby %{-I#{test_libs} -e0 -r"test/unit" \\\n#{test_reqs}#{test_opts}}
+        #ruby %{-e0 -r"test/unit" \\\n#{test_reqs}#{test_opts}}
+      rescue
+        puts "Error occured while trying to run tests."
+        exit 0
+      end
+    end
+
+  end
+  
+end #module Reap

data/lib/reap/template.rb

@@ -0,0 +1,72 @@
+--- %YAML:1.0
+
+TITLE: &title Your Package
+NAME: &pkg your_package_name
+VERSION: '0.0.1'
+AUTHOR: Your Name
+EMAIL: &email youremail@address.com
+HOMEPAGE: "http://your_package_name.rubyforge.org"
+SUMMARY: One line summary
+DESCRIPTION: >
+  Multline description goes here.
+
+RUBYFORGE:
+  PROJECT: 'your_project_name'
+  USERNAME: your_rubyforge_username
+
+TEST:
+  FILES:
+    - 'test/**/tc_*.rb'
+  OPTIONS: ~
+
+RDOC:
+  TITLE: *title
+  DIR: 'doc' #'rdoc'
+  TEMPLATE: html #ruby-red
+  OPTIONS: ['--merge', '--promiscuous', '--all']
+  MAIN: README
+  INCLUDE:
+    - 'README'
+    - 'LICEN*'
+    - 'lib/**/*.rb'
+    - 'bin/**/*.rb'
+  EXCLUDE: []
+
+PACKAGE:
+  DIR: pkg
+  INCLUDE:
+    - 'lib/**/*'
+    - 'bin/**/*'
+    - 'bench/**/*'
+    - 'test/**/*'
+    - 'doc/**/*'
+    - 'rdoc/**/*'
+    - 'pub/**/*'
+    - 'www/**/*'
+    - 'demo/**/*'
+    - 'samples/**/*'
+    - 'examples/**/*'
+    - 'setup.rb'
+    - '[A-Z]*'
+  EXCLUDE:
+    - InstalledFiles
+  ZIP: true
+  GZIP: true
+  BZIP2: true
+
+ANNOUNCE:
+  TO: ruby-talk@ruby-lang.org
+  FROM: *email
+  DOMAIN: your_domain.net
+  SERVER: smtp.your_email_server.com
+  PORT: 25
+  ACCOUNT: email_account_name
+  AUTHTYPE: login  #cram_md5 #plain
+  FILE: ANN  #which file contains tha announcement text
+  SLOGAN: ALL YOUR BASE ARE BELONG TO RUBY!
+  INFO:
+    - http://your_homepage.org
+
+GEMSPEC:
+  ACTIVE: true
+