reap 4.0 → 4.3.1

data/ProjectInfo

@@ -2,8 +2,8 @@
 
 TITLE    : Reap
 NAME     : reap
-DATE     : '2005-10-06'
-SERIES   : '4.0'
+VERSION  : '4.3.1'
+DATE     : '2006-02-01'
 STATUS   : 'beta/stable'
 
 AUTHOR   : Thomas Sawyer 
@@ -17,13 +17,25 @@ DESCRIPTION: >
   Reap utilizes a YAML configuration file to harvest project
   information, significantly simplifying usage.
 
-DISTRIBUTE   : [ gem, tar.bz2, zip ]  # tar.gz, tbz, tgz
+DISTRIBUTE   : [ tar.bz2, gem ]  # zip, tar.gz, tbz, tgz, deb
 DEPENDENCIES : [ facets ]
 EXECUTABLES  : [ reap ]
 
+PACKAGE:
+  dir: '../DISTRIBUTION'
+  exclude:
+    - dist
+    - dev
+    - scrap
+    - web
+
 RUBYFORGE:
-  PROJECT: reap
-  USERNAME: transami
+  project  : reap
+  username : transami
+
+RELEASE:
+  host       : rubyforge.org  # only one supported currently
+  project_id :
 
 PUBLISH:
   type     : web
@@ -32,7 +44,7 @@ PUBLISH:
   dir      : web
 
 RDOC:
-  dir: 'web/rdoc'
+  dir: 'web/doc/api'
   include:
     - 'A-Z*'
     - 'lib/**/*'

data/lib/reap/bin/reap.rb

@@ -1,18 +1,37 @@
 
-require 'facets'
+# Support libraries
 require 'rbconfig'
-require 'carat/shellcommand'
-require 'reap/tasks'
-
-INFO_FILES = [ 'ProjectInfo', 'Reapfile', 'projectinfo', 'reapfile' ]
+require 'facets'
+require 'calibre/consoleapp'
+
+# Reap support
+require 'reap/projectinfo'
+
+# Reap tasks
+require 'reap/task/fileperm'
+require 'reap/task/test'
+require 'reap/task/testext'
+require 'reap/task/rdoc'
+require 'reap/task/announce'
+require 'reap/task/package'
+require 'reap/task/publish'
+require 'reap/task/info'
+require 'reap/task/install'
+require 'reap/task/noop'
+#require 'reap/task/webpublish'
 
 Reap.register
 
 module Reap
-  Version = "2005-10-06"
+  Version = "1.2.0"
 end
 
-class ReapCommand < ShellCommand
+class ReapCommand < Console::Application
+
+  # to do first for exvery task
+  #def application_setup
+  #  $PROJECT_INFO = ProjectInfo.new( $PROJECT_FILE )
+  #end
 
   # Options
 
@@ -40,6 +59,12 @@ class ReapCommand < ShellCommand
   def __tasks; tasks ; end
   alias_method :_t, :__tasks
 
+  #option for build version (only for package task)
+  def _b ; $BUILD_VERSION = true ; end
+
+  #def _f( pif ) ; $PROJECT_FILE = pif ; end
+  #alias_method :_f, :__file
+
   # option for require
   #def __require(r); @require = r ; end
   #alias_method :_r, :__require
@@ -65,10 +90,10 @@ class ReapCommand < ShellCommand
 
   # list available tasks
   def tasks
-    Reap.initialize #_all
+    #Reap.initialize #_all
     puts
-    Reap.tasks.each do |name,task|
-      puts "  #{name}".ljust(20) + "#{task.task_desc}"
+    Reap.tasks.each do |name,task_class|
+      puts "  #{name}".ljust(20) + "#{task_class.task_desc}"
     end
     puts
     exit 0
@@ -91,9 +116,9 @@ class ReapCommand < ShellCommand
     exit 0
   end
 
-  Reap.registry.each do |sym,taskclass|
+  Reap.tasks.each do |sym,taskclass|
     define_method(sym) do |*args|
-      taskclass.new.run(*args)
+      taskclass.new(*args)
     end
   end
 
@@ -108,11 +133,14 @@ HELP = <<-HERE
 
   COMMANDS:
 
-    scaffold
+    template
         Copies a ProjectInfo template into the current
-        directory, if it doesn't already exist. If it does
-        exist will build the project directory based on it.
-        This will not destroy any structure already in place!
+        directory, if it doesn't already exist.
+
+    scaffold
+        Builds a project directory based on settings of
+        project information file. This will not destroy
+        any structure already in place!
 
     help
         Displays this help information.
@@ -128,6 +156,9 @@ HELP = <<-HERE
     -D --debug
         Provides extra verbose processing information.
 
+    -f --file
+        Specify alternate project file.
+
     -h --help
         Display this help information.
 

data/lib/reap/interface/rubyforge.rb

@@ -0,0 +1,247 @@
+
+require "enumerator"
+require "http-access2"
+
+require 'reap/iface/interface.rb'
+
+
+class RubyForgeInterface < Interface
+
+  attr_accessor :username, :password, :cookie_jar
+
+  def initialize( master, section )
+
+    @name = master['name']
+
+    @username = master['rubyforge']['username'] || section['username']
+
+    @packge_id = section['package_id']
+    @lockfile_id = section['lockfile_id']
+
+    @group_id = section['group_id'] || 1024 # this is codeforpeople.  it's just a default...
+    @private = section['private'] ? 0 : 1
+
+    # internal use
+    @uri = "http://rubyforge.org"
+    @cookie_jar  = File::join(File::expand_path("~"), ".rubyforge.cookie_jar")
+
+  end
+
+
+#    config = {
+#      "username"    => "username", # this must be your username
+#      "password"    => "password", # this must be your password
+# 
+#      "group_id"    => 1024,       # this is codeforpeople.  it's just a default...
+# 
+#      "package_ids" => {           # configure shortcuts for your packages here
+#        "traits"   => 1241,
+#        "lockfile" => 1242,
+#      },
+# 
+#      "uri"         => "http://rubyforge.org",
+#      "cookie_jar"  => File::join(File::expand_path("~"), ".rubyforge.cookie_jar"),
+#    }
+# 
+#    opts =
+#      GetoptLong::new(
+#        [ "--username"   , "-u" , GetoptLong::REQUIRED_ARGUMENT ] ,
+#        [ "--password"   , "-p" , GetoptLong::REQUIRED_ARGUMENT ] ,
+#        [ "--cookie_jar" , "-c" , GetoptLong::REQUIRED_ARGUMENT ]
+#      ).enum_for.inject({}){|h,kv| h.update Hash[*kv]}
+# 
+#    username = opts['username'] || config['username']
+#    password = opts['password'] || config['password']
+#    cookie_jar = opts["cookie_jar"] || config['cookie_jar']
+#
+# setup
+#
+#   mode = ARGV.shift
+#   abort "#{ $0 } [login|create_package (package_name)|add_package (package_id release_name release.ext)]" unless mode
+
+  def setup
+
+    page, form, method = nil
+    extheader = {}
+
+    case mode
+
+    when %r/login/
+      page = "/account/login.php"
+      method = "post_content"
+
+      form = {
+        "return_to" => "",
+        "form_loginname" => username,
+        "form_pw" => password,
+        "login" => "Login"
+      }
+
+    when %r/create_package/
+      page = "/frs/admin/index.php"
+      method = "post_content"
+
+      opts =
+        GetoptLong::new(
+          [ "--group_id"   , "-g" , GetoptLong::REQUIRED_ARGUMENT ] ,
+          [ "--is_private" , "-P" , GetoptLong::REQUIRED_ARGUMENT ]
+        ).enum_for.inject({}){|h,kv| h.update Hash[*kv]}
+
+       package_name = ARGV.shift
+       abort "#{ $0 } package_name" unless package_name
+
+       group_id = opts["group_id"] || config["group_id"]
+       is_public = opts["is_private"] ? 0 : 1
+
+       form = {
+         "group_id"     => group_id,
+         "package_name" => package_name,
+         "func"         => "add_package",
+         "is_public"    => is_public,
+         "submit"       => "Create This Package",
+       }
+
+     when %r/add_release/
+       page = "/frs/admin/qrs.php"
+       method = "post_content"
+
+       opts =
+         GetoptLong::new(
+           [ "--group_id"        , "-g" , GetoptLong::REQUIRED_ARGUMENT ] ,
+           [ "--release_date"    , "-r" , GetoptLong::REQUIRED_ARGUMENT ] ,
+           [ "--type_id"         , "-t" , GetoptLong::REQUIRED_ARGUMENT ] ,
+           [ "--processor_id"    , "-P" , GetoptLong::REQUIRED_ARGUMENT ] ,
+           [ "--release_nots"    , "-n" , GetoptLong::REQUIRED_ARGUMENT ] ,
+           [ "--release_changes" , "-a" , GetoptLong::REQUIRED_ARGUMENT ]
+         ).enum_for.inject({}){|h,kv| h.update Hash[*kv]}
+
+       package_id, release_name, userfile, ignored = ARGV
+       abort "#{ $0 } package_name" unless
+         package_id and release_name and userfile
+
+       package_id = config["package_ids"][package_id] unless
+         package_id =~ %r/^\d+$/
+
+       group_id = opts["group_id"] || config["group_id"]
+       release_date = opts["release_date"] || Time::now.strftime('%Y-%m-%d %H:%M')
+
+       type_id = opts['type_id'] || userfile[%r|\.[^\./]+$|]
+       type_id = {
+         ".deb"     => 1000,
+         ".rpm"     => 2000,
+         ".zip"     => 3000,
+         ".bz2"     => 3100,
+         ".gz"      => 3110,
+         ".src.zip" => 5000,
+         ".src.bz2" => 5010,
+         ".src.gz"  => 5020,
+         ".src.rpm" => 5100,
+         ".src"     => 5900,
+         ".jpg"     => 8000,
+         ".txt"     => 8100,
+         ".text"    => 8100,
+         ".htm"     => 8200,
+         ".html"    => 8200,
+         ".pdf"     => 8300,
+         ".oth"     => 9999,
+         ".ebuild"  => 1300,
+         ".exe"     => 1100,
+         ".dmg"     => 1200,
+         ".tar.gz"  => 5000,
+         ".tgz"     => 5000,
+         ".gem"     => 1400,
+         ".pgp"     => 8150,
+         ".sig"     => 8150,
+       }[type_id]
+
+       processor_id = opts['processor_id'] || 'Any'
+       processor_id = {
+         "i386"       => 1000,
+         "IA64"       => 6000,
+         "Alpha"      => 7000,
+         "Any"        => 8000,
+         "PPC"        => 2000,
+         "MIPS"       => 3000,
+         "Sparc"      => 4000,
+         "UltraSparc" => 5000,
+         "Other"      => 9999,
+       }[processor_id]
+
+       release_notes = opts['release_notes'] || nil
+       release_notes = open(release_notes) if release_notes
+
+       release_changes = opts['release_changes'] || nil
+       release_changes = open(release_changes) if release_changes
+
+       userfile = open(userfile)
+
+       preformatted = '1'
+
+       form = {
+         "group_id"     => group_id,
+         "package_id"   => package_id,
+         "release_name" => release_name,
+         "release_date" => release_date,
+         "type_id"      => type_id,
+         "processor_id" => processor_id,
+         "preformatted" => preformatted,
+         "userfile"     => userfile,
+         "submit"       => "Release File"
+       }
+
+       boundary = Array::new(8){ "%2.2d" % rand(42) }.join('__')
+       extheader['content-type'] = "multipart/form-data; boundary=___#{ boundary }___"
+
+     else
+       abort "#{ $0 } login create_package add_release"
+
+   end
+#
+# http transaction
+#
+   client = HTTPAccess2::Client::new ENV['HTTP_PROXY']
+   client.debug_dev = STDERR if ENV['DEBUG']
+
+   client.set_cookie_store cookie_jar
+
+   # fixes http-access2 bug
+   client.redirect_uri_callback = lambda do |res|
+     page = res.header['location'].first
+     page = page =~ %r/http/ ? page : "#{ config['uri'] }/#{ page }"
+     page
+   end
+
+   response = client.send "#{ method }", "#{ config['uri'] }/#{ page }", form, extheader
+
+   client.save_cookie_store
+
+# fixes http-access2 bug
+BEGIN {
+   require "http-access2"
+   module WebAgent::CookieUtils
+     def domain_match(host, domain)
+       case domain
+       when /\d+\.\d+\.\d+\.\d+/
+         return (host == domain)
+       when '.'
+         return true
+       when /^\./
+         #return tail_match?(domain, host)
+         return tail_match?(host, domain)
+       else
+         return (host == domain)
+       end
+     end
+   end
+
+}
+
+
+
+
+
+
+end
+
+
+

data/lib/reap/lint.rb

@@ -0,0 +1 @@
+# TODO

data/lib/reap/projectinfo.rb

@@ -1,42 +1,70 @@
 
 require 'yaml'
+
 require 'facet/hash/traverse'
 require 'facet/string/tabto'
 require 'facet/dir/self/ascend'
 
-module ProjectInfo
-  extend self
+
+class ProjectInfo
 
   INFO_FILES = [ 'ProjectInfo', 'ReapFile', 'projectinfo', 'reapfile' ]
 
-  def add_info_file( f )
+  def self.add_info_file( f )
     INFO_FILES.unshift( f )
   end
 
-  def info_stream
-    dir = Dir.pwd
-    unless @info_stream
+  #def self.[](name)
+  #  @self ||= self.new
+  #  @self[name]
+  #end
+
+  attr_reader :info, :info_stream
+
+  def initialize( info_file=nil )
+    unless info_file
       Dir.ascend(Dir.pwd) do |d|
         Dir.chdir(d)
         info_file = INFO_FILES.find{ |f| File.file?( f ) }
-        if info_file
-          @info_stream = File.read( info_file )
-          puts "(in #{d})" unless dir == Dir.pwd
-          break
-        end
+        break if info_file
       end
     end
-    @info_stream
-  end
-
-  def info
-    if info_stream
-      @info ||= YAML::load(info_stream).traverse{ |k,v| [k.downcase, v] }
+    if info_file
+      @info_stream = File.read( info_file )
+      @info = YAML::load( @info_stream ).traverse{ |k,v| [k.downcase, v] }
+      puts "(in #{Dir.pwd})" #unless dir == Dir.pwd
     else
-      {}
+      @info_stream = ""
+      @info = {}
+      puts "(without a project information file)"
     end
   end
 
+#   def info_stream
+#     dir = Dir.pwd
+#     unless @info_stream
+#       Dir.ascend(Dir.pwd) do |d|
+#         Dir.chdir(d)
+#         info_file = INFO_FILES.find{ |f| File.file?( f ) }
+#         if info_file
+#           @info_stream = File.read( info_file )
+#           puts "(in #{d})" unless dir == Dir.pwd
+#           break
+#         end
+#       end
+#     end
+#     @info_stream
+#   end
+
+#   def info
+#     @info
+#     #if info_stream
+#     #  @info ||= YAML::load(info_stream).traverse{ |k,v| [k.downcase, v] }
+#     #else
+#     #  {}
+#     #end
+#   end
+
   # not using at the moment
   def validate
     # required main parameters
@@ -48,4 +76,5 @@ module ProjectInfo
   def [](name)
     info[name]
   end
+
 end

data/lib/reap/task/announce.rb

@@ -10,11 +10,9 @@ require 'facet/string/word_wrap'
 
 class Reap::Announce < Reap::Task
 
-  section_required true
+  task_desc "Send announcement email to ruby-talk or other address."
 
-  def task_desc
-    "Send announcement email to ruby-talk or other address."
-  end
+  section_required true
 
   attr_accessor :title, :version, :summary, :description, :subject
   attr_accessor :to, :from, :server, :port, :domain, :account
@@ -35,7 +33,7 @@ class Reap::Announce < Reap::Task
     raise "account is a require announce field" if @account.empty?
 
     @title       ||= master['title']
-    @version     ||= master['version']
+    @version     ||= master['version'] || master['date']
     @summary     ||= master['summary']
     @description ||= master['description']
     @links       ||= []
@@ -60,7 +58,7 @@ class Reap::Announce < Reap::Task
     abstract = ''
     if @description
       abstract << "\n\n"
-      abstract << "ABSTRACT: #{@description}".word_wrap(72)
+      abstract << "ABSTRACT: #{@description}"
       abstract << "\n"
     end
 
@@ -86,28 +84,28 @@ class Reap::Announce < Reap::Task
     memo = ''
     if @memo
       memo = ''
-      memo << "\n" << ('-' * 72) << "\n"
+      memo << "\n---\n" #<< ('-' * 72) << "\n"
       memo << "(Memo)\n\n"
-      memo << @memo.fold.word_wrap(72)
+      memo << @memo.fold(true) #.word_wrap(67)
       #memo << "\n"
     end
 
     # msg file
     msg = ''
     if @file and File.file?( @file )
-      msg << "\n" << ("-" * 72) << "\n"
+      msg << "\n---\n" #<< ("-" * 68) << "\n"
       msg << "(from #{@file})\n\n"
       mg = ''
       File.open( @file ) { |f| mg << f.gets(nil) }
-      msg << mg.fold.word_wrap(72)
+      msg << mg.fold(true) #.word_wrap(67)
     end
 
     # stamp
     stamp = ''
-    stamp << "\n" << ("-" * 72) << "\n"
+    stamp << "\n---\n" #<< ("-" * 68) << "\n"
     stamp << %Q{
-      |Generated by Reap, a Rake-based Ruby Project Assistant.
-      |Do you Ruby?  (http://www.ruby-lang.org)
+      |Generated by REAP, the Ruby Project Assistant
+      |http://www.ruby-lang.org -- Do you Ruby?
       }.margin
     stamp << "\n\n"
 

data/lib/reap/task/fileperm.rb

@@ -6,13 +6,10 @@ require 'reap/task'
 #
 class Reap::Perm < Reap::Task
 
-  attr_accessor :user, :group, :filemod, :dirmod
-
+  task_desc "Normalize ownership and permissions of package files."
   section_required true
 
-  def task_desc
-    "Normalize ownership and permissions of package files."
-  end
+  attr_accessor :user, :group, :filemod, :dirmod
 
   def init
     @user = section['user']

data/lib/reap/task/info.rb

@@ -6,15 +6,13 @@ require 'reap/task'
 #
 class Reap::Info < Reap::Task
 
-  def task_desc
-    "Display ProjectInfo file."
-  end
+  task_desc "Display ProjectInfo file."
 
   def init
   end
 
   def run
-    puts ProjectInfo.info_stream
+    puts $PROJECT_INFO.info_stream
   end
 
 end

data/lib/reap/task/install.rb

@@ -6,9 +6,7 @@ require 'reap/task'
 #
 class Reap::Install < Reap::Task
 
-  def task_desc
-    "Locally install package using setup.rb or install.rb."
-  end
+  task_desc "Locally install package using setup.rb or install.rb."
 
   attr_accessor :options, :quiet #, :sudo
 

data/lib/reap/task/noop.rb

@@ -10,9 +10,7 @@ require 'reap/task'
 #
 class Reap::Noop < Reap::Task
 
-  def task_desc
-    "A no-op task to help debug reap itself."
-  end
+  task_desc "A no-op task to help debug reap itself."
 
   attr_accessor :message