reap 03.01 → 4.0

data/dev/suby-cvs.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/ruby
+
+DEBUG = false
+URI = "-dtransami@cvs.suby.berlios.de:/cvsroot/suby"
+
+cmd = nil
+
+case ARGV[0]
+when 'checkout', 'co'
+  if ARGV[1] and ARGV[1] != ''
+    cmd = %Q{cvs -z3 #{URI} co "#{ARGV[1]}"}
+  else
+    puts "no module given"
+    cmd = nil
+  end
+when 'commit'
+  if ARGV[1] and ARGV[1] != ''
+    cmd = %Q{cvs -z3 #{URI} commit -m "#{ARGV[1]}"}
+  else
+    puts "no commit message given"
+    cmd = nil
+  end
+when 'update'
+  cmd = %Q{cvs -z3 #{URI} update}
+when 'add'
+  if ARGV[1]
+    cmd = %Q{cvs -z3 #{URI} add #{ARGV[1..-1].join(' ')}}
+  else
+    puts "no files given to add"
+    cmd = nil
+  end
+when 'remove'
+  if ARGV[1]
+    cmd = %Q{cvs -z3 #{URI} remove #{ARGV[1..-1].join(' ')}}
+  else
+    puts "no file given to remove"
+    cmd = nil
+  end
+end
+
+if DEBUG
+  puts cmd
+elsif cmd
+  `#{cmd}`
+end
+

data/{data/site_ruby/reap/template.yaml → dev/template.rb}

@@ -1,48 +1,33 @@
 --- %YAML:1.0
 
-TITLE: &title Your App's Title
-NAME: &pkg your_unix_name
+TITLE: &title Your Package
+NAME: &pkg your_package_name
 VERSION: '0.0.1'
 AUTHOR: Your Name
-EMAIL: youremail@address.com
+EMAIL: &email youremail@address.com
 HOMEPAGE: "http://your_package_name.rubyforge.org"
 SUMMARY: One line summary
-
 DESCRIPTION: >
-  Multline description
-  goes here.
+  Multline description goes here.
 
 RUBYFORGE:
-  PROJECT: your_projects_unix_name
+  PROJECT: 'your_project_name'
   USERNAME: your_rubyforge_username
 
-PUBLISH:
-  - HOST: rubyforge
-    TYPE: web
-    USERNAME: your_username
-    DIR: www
-
-#=================================================
-# Usually the following defaults are sufficiant
-#=================================================
-
 TEST:
   FILES:
-    - 'test/**/tc*.rb'
-    - 'test/**/test*.rb'
-    - 'test/**/*test.rb'
-  OPTIONS: ~  # not used yet
+    - 'test/**/tc_*.rb'
+  OPTIONS: ~
 
 RDOC:
   TITLE: *title
-  DIR: 'rdoc'  # 'pub/www/rdoc'
-  TEMPLATE: html
-  OPTIONS: ['--merge', '--all']
+  DIR: 'doc' #'rdoc'
+  TEMPLATE: html #ruby-red
+  OPTIONS: ['--merge', '--promiscuous', '--all']
   MAIN: README
   INCLUDE:
     - 'README'
     - 'LICEN*'
-    - 'COPY*'
     - 'lib/**/*.rb'
     - 'bin/**/*.rb'
   EXCLUDE: []
@@ -51,8 +36,6 @@ PACKAGE:
   DIR: pkg
   INCLUDE:
     - 'lib/**/*'
-    - 'data/**/*'
-    - 'ext/**/*'
     - 'bin/**/*'
     - 'bench/**/*'
     - 'test/**/*'
@@ -63,16 +46,10 @@ PACKAGE:
     - 'demo/**/*'
     - 'samples/**/*'
     - 'examples/**/*'
-    - 'bench/**/*'
     - 'setup.rb'
     - '[A-Z]*'
   EXCLUDE:
     - InstalledFiles
-  AUTOREQUIRE: ~
-  REQUIREMENTS: []
-  DEPENDENCIES: []
-  EXECUTABLES: []
-  GEM: true
   ZIP: true
   GZIP: true
   BZIP2: true
@@ -84,11 +61,12 @@ ANNOUNCE:
   SERVER: smtp.your_email_server.com
   PORT: 25
   ACCOUNT: email_account_name
-  AUTHTYPE: login  #cram_md5  #plain
-  TLS: false  # not working yet
-  FILE: ANN  # which file contains announcement
+  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
-    - http://other_links.com
+
+GEMSPEC:
+  ACTIVE: true
 

data/lib/reap/bin/reap.rb

@@ -0,0 +1,134 @@
+
+require 'facets'
+require 'rbconfig'
+require 'carat/shellcommand'
+require 'reap/tasks'
+
+INFO_FILES = [ 'ProjectInfo', 'Reapfile', 'projectinfo', 'reapfile' ]
+
+Reap.register
+
+module Reap
+  Version = "2005-10-06"
+end
+
+class ReapCommand < ShellCommand
+
+  # Options
+
+  # verbose mode
+  def __verbose ; $VERBOSE = true ; end
+  alias_method :_V, :__verbose
+
+  # debug mode (under construction)
+  def __debug; $DEBUG = true ; end
+  alias_method :_D, :__debug
+
+  # pretend mode (under construction)
+  def __pretend; $PRETEND = true ; end
+  alias_method :_P, :__pretend
+
+  # option to display version
+  def __version ; version ; end
+  alias_method :_v, :__version
+
+  # option to display help
+  def __help ; help ; end
+  alias_method :_h, :__help
+
+  # option to display tasks
+  def __tasks; tasks ; end
+  alias_method :_t, :__tasks
+
+  # option for require
+  #def __require(r); @require = r ; end
+  #alias_method :_r, :__require
+
+  # Commands
+
+  # default action
+  def default
+    tasks
+  end
+
+  # display version
+  def version
+    puts "Reap  v.#{Reap::Version}"
+    exit 0
+  end
+
+  # display help
+  def help
+    puts HELP
+    exit 0
+  end
+
+  # list available tasks
+  def tasks
+    Reap.initialize #_all
+    puts
+    Reap.tasks.each do |name,task|
+      puts "  #{name}".ljust(20) + "#{task.task_desc}"
+    end
+    puts
+    exit 0
+  end
+  alias_method :ls, :tasks
+
+  # copy the file from lib/data to the current dir.
+  def template
+    if INFO_FILES.any?{ |f| File.exists?(f) }
+      puts "Project file already exists."
+      exit 0
+    end
+    filename = 'ProjectInfo'
+    dir = File.join( ::Config::CONFIG['datadir'], 'reap', 'scaffold' )
+    f = File.join( dir, filename )
+    raise "ProjectInfo template file #{f} is missing." unless File.file?( f )
+    # copy
+    FileUtils.cp( f, filename )
+    puts "#{filename} created. You'll need to fill it out."
+    exit 0
+  end
+
+  Reap.registry.each do |sym,taskclass|
+    define_method(sym) do |*args|
+      taskclass.new.run(*args)
+    end
+  end
+
+end
+
+
+HELP = <<-HERE
+
+  reap v#{::Reap::Version}
+
+  USAGE: reap [options...] <command> [arguments...]
+
+  COMMANDS:
+
+    scaffold
+        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!
+
+    help
+        Displays this help information.
+
+  OPTIONS:
+
+    -v --version
+        Display the current version.
+
+    -V --verbose
+        Provides extra verbose processing information.
+
+    -D --debug
+        Provides extra verbose processing information.
+
+    -h --help
+        Display this help information.
+
+HERE

data/lib/reap/projectinfo.rb

@@ -1,29 +1,40 @@
 
 require 'yaml'
-require 'nano/hash/traverse'
-require 'nano/string/tabto'
-require 'nano/binding/local_variables'
+require 'facet/hash/traverse'
+require 'facet/string/tabto'
+require 'facet/dir/self/ascend'
 
 module ProjectInfo
   extend self
 
-  attr_writer :info_file
+  INFO_FILES = [ 'ProjectInfo', 'ReapFile', 'projectinfo', 'reapfile' ]
 
-  def info_file
-    @info_file ||= 'ProjectInfo'
+  def add_info_file( f )
+    INFO_FILES.unshift( f )
   end
 
   def info_stream
+    dir = Dir.pwd
     unless @info_stream
-      if File.file?( info_file ) and !File.directory?( info_file )
-        @info_stream = File.read( 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
       end
     end
     @info_stream
   end
 
   def info
-    @info ||= YAML::load(info_stream).traverse{ |k,v| [k.downcase, v] }
+    if info_stream
+      @info ||= YAML::load(info_stream).traverse{ |k,v| [k.downcase, v] }
+    else
+      {}
+    end
   end
 
   # not using at the moment

data/lib/reap/readymade.rb

@@ -0,0 +1,21 @@
+
+# This loads in the reap tasks and setsup
+# some tasks that are typically ready to go
+# without additional paramaters.
+
+require 'reap/task/announce'
+require 'reap/task/extract_tests'
+require 'reap/task/fileperm'
+require 'reap/task/info'
+require 'reap/task/install'
+require 'reap/task/package'
+require 'reap/task/publish'
+require 'reap/task/rdoc'
+require 'reap/task/test'
+
+rdoc_task( :rdoc )
+tests_task( :test )
+install_task( :install )
+info_task( :info )
+package_task( :package )
+extract_tests_task( :exttests )

data/lib/reap/task.rb

@@ -1,18 +1,14 @@
 
-require 'rake'
-require 'rake/tasklib'
-
 require 'rbconfig'
 require 'fileutils'
 
-#require 'mega/filelist'
-require 'reap/projectinfo'
+require 'facet/fileutils/safe_ln'
+require 'facet/string/tabto'
+require 'facet/module/basename'
 
-module Reap ; VERSION = 3 ; end
+require 'carat/filelist'
 
-module ReapTask
-  extend self
-end
+require 'reap/projectinfo'
 
 # Base class for reap tasks.
 #
@@ -45,69 +41,122 @@ end
 #
 module Reap
 
-  #def self.register( name, klass )
-  #  @registry ||= {}
-  #  @registry[name.to_s.downcase] = klass
-  #end
+  def self.registry ; @registry ; end
 
-  #def self.registry ; @registry ; end
-
-  class Task < ::Rake::TaskLib
+  def self.register
+    @registry ||= {}
+    ObjectSpace.each_object(Class) { |klass|
+      if klass < ::Reap::Task
+        if klass.verify
+          @registry[klass.basename.downcase] = klass
+        end
+      end
+    }
+  end
 
-    RUBY = Config::CONFIG['ruby_install_name']
+  def self.tasks ; @tasks ; end
 
-    def self.register( name )
-      klass = self.class
-      ReapTask.class_eval {
-        define_method( "#{name}_task" ) { |*args| klass.new(*args) }
-      }
+  def self.initialize
+    @tasks ||= {}
+    registry.each do |name, klass|
+      @tasks[name] = klass.new
     end
+  end
 
-    def master
-      ::ProjectInfo.info
-    end
 
-    #attr_reader :name, :description, :subtask
+  class Task
 
-    def initialize( task_name=nil, subtask=nil, &yld ) #:yield:
-      o = nil
-      o = yld.call(self) if yld
-      if String === o
-        begin
-          section( o ).each { |k,v| send("#{k}=", v ) }
-        end
+    include ::Config
+    include ::FileUtils
+
+    RUBY = CONFIG['ruby_install_name']
+
+    # class methods
+
+    def self.task_desc ; '(no desciption given)' ; end
+    def self.task_name ; basename.downcase ; end
+
+    def self.section_required( val ) ; @section_required = val ;end
+    def self.section_required? ; @section_required ; end
+
+    def self.verify
+      assume = true
+      if section_required?
+        assume = ::ProjectInfo.info.key?(task_name)
       end
+      assume
+    end
+
+    # instance methods
+
+    def task_name ; self.class.task_name ; end
+    def task_desc ; self.class.task_desc ; end
 
-      init
+    def master ; ::ProjectInfo.info ; end
 
-      task_name ||= default_name
-      task_desc = @desc || default_desc
+    def section ; @section ; end
 
-      if subtask
-        desc task_desc
-        task task_name => subtask do
-          run
+    def section_required? ; self.class.section_required? ; end
+
+    def initialize
+      sect = master[task_name]
+      if sect.is_a?(Array)
+        sect.each do |s|
+          section_parameters_set( s )
+          init
         end
       else
-        desc task_desc
-        task task_name do
-          run
-        end
+        section_parameters_set( sect || {} )
+        init
       end
     end
 
-    def default_desc ; '(no desciption given)' ; end
-    #def default_name ; self.class.basename.downcase ; end
+    def section_parameters_set( s )
+      @section = s
+      @section.each { |k,v| send("#{k}=", v) }
+    end
 
     def init
-      raise "not implemented"
+      raise "not implemented for '#{task_name}' task"
     end
 
-    def section( ymlstr )
-      iy = YAML::load(ProjectInfo.info_stream + "\ntask:\n" + ymlstr.tabto(2))
-      iy['task'] || {}
+    def run( *args )
+      raise "no action defined for task #{task_name}"
     end
 
+    # task support methods
+
+    def sh( arg )
+      puts arg
+      system arg unless $PRETEND
+    end
+
+#       o = nil
+#       o = yld.call(self) if yld
+#       if String === o
+#         begin
+#           section( o ).each { |k,v| send("#{k}=", v ) }
+#         end
+#       end
+# 
+#       init
+# 
+#       task_name ||= default_name
+#       task_desc = @desc || default_desc
+# 
+#       if subtask
+#         desc task_desc
+#         task task_name => subtask do
+#           run
+#         end
+#       else
+#         desc task_desc
+#         task task_name do
+#           run
+#         end
+#       end
+#     end
+
   end #class Task
 
 end #module Reap
@@ -116,23 +165,23 @@ end #module Reap
 ##
 # Convenience methods for built-in rake tasks
 ##
-module RakeTask
-  extend self
-
-  def gem_package_task(*args,&blk)
-    ::Rake::GemPackageTask.new(*args,&blk)
-  end
-
-  def package_task(*args,&blk)
-    ::Rake::PackageTask.new(*args,&blk)
-  end
-
-  def test_task(*args,&blk)
-    ::Rake::TestTask.new(*args,&blk)
-  end
-
-  def rdoc_task(*args,&blk)
-    ::Rake::RDocTask.new(*args,&blk)
-  end
-
-end
+# module RakeTask
+#   extend self
+# 
+#   def gem_package_task(*args,&blk)
+#     ::Rake::GemPackageTask.new(*args,&blk)
+#   end
+# 
+#   def package_task(*args,&blk)
+#     ::Rake::PackageTask.new(*args,&blk)
+#   end
+# 
+#   def test_task(*args,&blk)
+#     ::Rake::TestTask.new(*args,&blk)
+#   end
+# 
+#   def rdoc_task(*args,&blk)
+#     ::Rake::RDocTask.new(*args,&blk)
+#   end
+# 
+# end