proutils 0.3.0

data/README

@@ -0,0 +1,78 @@
+= ProUtils
+
+ProUtils is a collect of handy command line tools. You can think of it as
+supplements to the ubinqutous GNU CoreUtils.
+
+ProUtils consits of the following tools:
+
+=== Mint
+
+Mint is a managed copy tool. It makes it easy to recreate folder layouts,
+project scaffolding, and of course update files.
+
+Mint is managed copy tool. It's especailly useful for managing
+project scaffolding, and comes with some pre-built Ruby project
+templates. This is an early version, but it's based on some older code
+that worked well. Future plans will add plugin support for dynamic
+scaffolds.
+
+
+=== Xact
+
+Script Ginsu!  Xact (formerly Exacto) is a text extraction utility.
+It is useful for extractng any identifiable section of
+of text. It is also very useful for running comment-embedded
+tests, examples and/or benchmarks from source scripts.
+
+
+=== rTar
+
+rTar is a package format based on tar. But it follows a structural pattern
+of recursion to allow efficent cherry picking of data from within an archive.
+
+
+=== iCli
+
+Command the Web! iCli provides a command-line Interface to World Wide Web.
+In particular, it makes it easy to interface with gforge-based development
+sites like Rubyforge.
+
+Underthe hood, iCli is a web-scrapping toolkit base on the
+HttpClient library.
+
+=== How does it differ from the Seattle.rb's 'rubyforge'?
+
+* It is designed to be extensible to support other sites.
+* It does not store project data in hidden home directory.
+Instead it looks up all needed information on the fly.
+
+
+
+== Status
+
+This is an early release. Basic functionality is in place. Better documentation
+and command line help will be available in coming releases.
+
+
+== Install
+
+  $ gem install proutils
+
+or to install manually
+
+  $ tar -xzf protuils-0.2.0.tgz
+  $ cd proutils-0.2.0
+  $ sudo task/setup
+
+
+== Acknowlegments
+
+  iCli is based on Ara T. Howards' original rubyforge.rb script.
+
+
+== License
+
+  ProUtils Copyright (c) 2006, 2007 Thomas Sawyer, Psi T. Corp.
+
+  ProUtils is ditributed under the terms of the GPL3 license.
+

data/RELEASE

@@ -0,0 +1,7 @@
+ProUtils
+
+http://proutils.rubyforge.org
+
+ProUtils is a collection of useful command-line
+utilities which includes  icli, mint, rtar and xact.
+

data/TODO

@@ -0,0 +1,4 @@
+= TODO List
+
+* Add web extraction option.
+

data/bin/icli

@@ -0,0 +1,278 @@
+#!/usr/bin/env ruby
+
+require 'yaml'
+require 'facets/arguments'
+require 'proutils/icli/abstract_host'
+
+module ICli
+
+  class Command
+
+    def self.start
+      new.run
+    end
+
+    def initialize()
+      @command_arguments, @command_options = *Console::Arguments.parameters
+
+      @config_options   = file_options(@command_options['use'])
+
+      parse_general_options(@command_options)
+
+      @host             = @command_arguments.shift
+      @command          = @command_arguments.shift
+
+      @host_options     = @config_options[@host].merge(:dryrun=>@dryrun, :trace=>@trace)
+      @command_options  = @command_options.merge(@config_options[@host][@command] || {})
+    end
+
+    def run
+      host = host_class(@host).new(@host_options)
+      if host.commands.include?(@command)
+        host.send(@command, @command_options)  # TODO Add command_arguments?
+      else
+        puts "Unknown command -- #{@command}"
+      end
+    end
+
+    private
+
+      def parse_general_options(options)
+        @dryrun = %w{dryrun dry-run noharm}.any?{ |o| options.delete(o) }
+        @trace = %w{trace}.any?{ |o| options.delete(o) }
+      end
+
+      def dryrun? ; @dryrun ; end
+      def trace?  ; @trace  ; end
+
+      # Print help usage to stadout.
+      def help
+        puts DATA.read
+      end
+
+      #
+      def host_class(name)
+        ICli.factory(name)
+      end
+
+      def file_options(fname=nil)
+        file = config_file(fname)
+        if file
+          YAML::load(File.open(file))
+        elsif fname
+          raise ArgumentError, "Parameter file not found -- #{fname}" unless file
+        else
+          {}
+        end
+      end
+
+      def config_file(fname=nil)
+        if fname
+          Dir.glob("#{fname}{.yaml,.yml,}").first
+        else
+          Dir.glob("{meta/icli,.icli}{.yaml,.yml,}").first
+        end
+      end
+
+#       #
+#
+#       def config_load(section=nil)
+#         if file = config_file
+#           options = YAML::load(File.open(file))
+#         else
+#           options = {}
+#         end
+#         # merge in the selected section
+#         if section
+#           options.merge!(options[section.to_s] || {})
+#         end
+#         # remove subsections (should we bother?)
+#         options = options.delete_if{ |k,v| Hash === v }
+#         # return
+#         return options
+#       end
+
+
+  end
+end
+
+ICli::Command.start
+
+=begin
+
+    class CommonOptions < Console::Command::Options
+      attr_accessor :host,
+                    :domain,
+                    :username
+    end
+
+    class ReleaseOptions < CommonOptions
+      attr_accessor :store,      # Package folder.
+                    :files,      # Files to release.
+                    :package,    # Package name.
+                    :version,    # Package version.
+                    :release,    # Release name. Defaults to +version+.
+                    :date,       # Release Date. Defaults to +Time.now+.
+                    :processor,  # Processor type. Deafults to +Any+.
+                    :changelog,  # ChangeLog file.
+                    :notelog,    # Notes file.
+                    :is_public   # Is this release public?
+    end
+
+    class PublishOptions < CommonOptions
+      attr_accessor :root        # directory with website files
+    end
+
+    class AnnounceOptions < CommonOptions
+      attr_accessor :subject,
+                    :message
+    end
+
+    #
+
+    options :publish,  PublishOptions
+    options :release,  ReleaseOptions
+    options :announce, AnnounceOptions
+    options :touch,    CommonOptions
+
+    # Publish
+    #
+    #     root        directory with website files
+
+    def publish
+      options = config_load('publish')
+
+      # merge in any commandline options
+      options.merge!(PublishOptions.parse.to_h)
+
+      name = options['host'] || options['domain']
+      host = host_class(name).new(options)
+
+      host.publish(options)
+    end
+
+    # Release options. This is a hash of options:
+    #
+    #     store        Location of packages.
+    #     version      Package version.
+    #     files        Files to release. (defaults to source/package-version.*)
+    #     package      Package name (defaults to +project+).
+    #     release      Release name (defaults to +version+).
+    #     date         Release Date (defaults to to +Time.now+).
+    #     processor    Processor type (deafults to +Any+).
+    #     changelog    ChangeLog file.
+    #     notelog      Notes file.
+    #     is_public    Is this release public?
+    #
+
+    def release
+      options = config_load('release')
+
+      # merge in any commandline options
+      options.merge!(@options.to_h) #(ReleaseOptions.parse.to_h)
+
+      #options = {}
+      #options.update info.gather('rubyforge')
+      #options.update info.gather('release')
+      #options.update info.select('version', 'changelog', 'notelog', 'processor'=>'arch')
+      #options['files'] = Dir[File.join(info.package_store,"*#{options['version']}.*")]
+
+      store = options['store']
+      name  = options['package']
+      vers  = options['version']
+
+      options['files'] ||= Dir[File.join(store,"#{name}-#{ver}.*")]
+
+      name = options['host'] || options['domain']
+      host = host_class(name).new(options)
+
+      host.release(options)
+    end
+
+    # Annouce to news.
+
+    def announce
+      options = config_load('announce')
+
+      # merge in any commandline options
+      options.merge!(AnnounceOptions.parse.to_h)
+
+      name = options['host'] || options['domain']
+      host = host_class(name).new(options)
+
+      host.announce(options)
+    end
+
+    # Test connection. Simply login and logout.
+
+    def touch
+      options = config_load
+
+      # merge in any commandline options
+      options.merge!(@options.to_h) #(CommonOptions.parse.to_h)
+
+      name = options['host'] || options['domain']
+      host = host_class(name).new(options)
+
+      host.touch
+    end
+
+
+    # Default action (no subcommand)
+
+    alias_method :default, :help
+
+
+#     def start
+#       config = File.file?(CONFIG_FILE) ? YAML::load(f) : {}
+#       section = (@args[0] || 'all').to_s.downcase
+#
+#       if section == 'all'
+#         config.each do |name, settings|
+#           settings.update(@keys)
+#           press(settings)
+#         end
+#       else
+#         settings = config[section]
+#         settings.update(@keys)
+#         press(settings)
+#       end
+#     end*/
+=end
+
+
+__END__
+
+Forge v0.2.0
+
+Usage: forge <command> <options>
+
+Commands:
+
+  touch
+    Test connection. This simply attempts to login and logout.
+
+  release
+    Release a package.
+
+  announce
+    Make an announcement via news.
+
+  publish
+    Publish website files.
+
+Common Options:
+
+  --host
+    The host name (eg. rubyforge). If LaForge supports the
+    host name then a specialized adatapter will be used.
+
+  --domain
+    The domain name of the host. If the host is not build in
+    you can supply the domain name instead of the host name.
+    The generic GForge adapter will be used.
+
+  --username
+    Your username on the host.
+
+For more information, http://proutils.rubyforge.org.

data/bin/mint

@@ -0,0 +1,139 @@
+#!/usr/bin/env ruby
+
+require 'getoptlong'
+require 'proutils/mint/copier'
+
+module Mint
+
+  # Scaffolding Console Command
+
+  class Command
+
+    # Start command.
+
+    def self.start
+      new.start
+    end
+
+    # New scaffolding command.
+
+    def initialize
+      @options = {}
+      @cmd = 'copy'  # default command
+
+      opts = GetoptLong.new(
+        ['--source', '-s',             GetoptLong::NO_ARGUMENT],
+        ['--dryrun', '--noharm', '-n', GetoptLong::NO_ARGUMENT],
+        ['--skip',                     GetoptLong::NO_ARGUMENT],
+        ['--replace',                  GetoptLong::NO_ARGUMENT],
+        ['--help', '-h',               GetoptLong::NO_ARGUMENT]
+      )
+
+      opts.each do |k,v|
+        case k
+        when '--dryrun'
+          @options[:dryrun] = true
+        when '--safe'
+          @options[:skip] = true
+        when '--replace'
+          @options[:force] = true
+        when '--help'
+          @cmd = 'help'
+        when '--source'
+          @options[:special] = true
+        end
+      end
+
+    end
+
+    # Start execution.
+
+    def start
+      send(@cmd)
+    end
+
+    # Copy scaffolding.
+
+    def copy
+      #if @source
+      #  src = Mint.lookup(ARGV[0])
+      #  dst = ARGV[1] || '.'
+      #else
+        src = ARGV[0]
+        dst = ARGV[1] || '.'
+      #end
+
+      if src
+        Copier.new(src, dst, @options).copy
+      else
+        puts "Unrecognized source, '#{src}'."
+        exit 0
+      end
+    end
+
+    # Get help.
+
+    def help
+      $stdout << DATA.read
+      exit -1
+    end
+
+    #
+
+    def __DIR__
+      File.dirname(__FILE__)
+    end
+  end
+
+end
+
+Mint::Command.start
+
+
+__END__
+Mint v0.2.0
+Usage: mint [-s] <source-path> [destination]
+
+Opitons:
+
+  -s --source
+    Source path starts in mint paths.
+
+  --skip
+    Skip all duplicates.
+
+  --replace
+    Replace all duplicates.
+
+  --svn (NOT IMPLEMTENTED YET)
+    Create subversion branches/ tags/ trunk/
+    directories at the top level.
+
+  -n --noharm --dryrun
+    Only pretend to create files.
+
+  --help
+    Display's this help information.
+
+Built-in Sources:
+
+  website        Start a website.
+
+  ruby           Create a standard ruby project layout.
+
+Examples:
+
+  To copy a directory:
+    $ mint ~/pictures ~/copy_of_pictures/
+
+  To copy a selection of files:
+    $ mint ~/pictures/*.jpg ~/copy_of_pictures/
+
+  To scaffold a new ruby project in the current directory.
+    $ mint -s ruby .
+
+  To scaffold a new website to a new directory.
+    $ mint -s website mysite/
+
+  To copy a single file, for instance:
+    $ mint -s ruby/meta/name-1.0.0.roll meta/

data/bin/rtar

@@ -0,0 +1,69 @@
+
+require 'facet/command'
+require 'proutils/rtar'
+
+# Rock command line interface.
+#
+class Rock::Command < Console::Command
+
+  def __pack( file )
+    @mode, @file = :pack, file
+  end
+
+  def __unpack( file )
+    @mode, @file = :unpack, file
+  end
+  alias_method :_x, :__unpack
+
+  def __list( file )
+    @mode, @file = :list, file
+  end
+
+  def __verbose
+    $VERBOSE = true
+  end
+  alias_method :_v, :__verbose
+
+  def __force
+    $FORCE = true
+  end
+  alias_method :_f, :__force
+
+  def __help
+    @mode = nil
+  end
+
+  # main routine
+
+  def default
+    $VERBOSE ||= false
+    $FORCE ||= false
+
+    case @mode
+    when :pack
+      rpkg = Rock::Package.new
+      rpkg.pack( @file )
+    when :unpack
+      rpkg = Rock::Package.new
+      rpkg.unpack( @file )
+    when :list
+      rpkg = Rock::Package.new
+      rpkg.list( @file )
+    else
+      puts HELP
+    end
+
+    if nil.status?
+      puts Rock::Errors.__send__(*nil.status)
+    end
+  end
+
+  VERSION = '0.4.0'
+
+  HELP = <<-END
+    rock v#{VERSION}
+  END
+
+end
+
+Rock::Command.execute

data/bin/xact

@@ -0,0 +1,121 @@
+#! /usr/bin/ruby
+
+require 'getoptlong'
+require 'proutils/xact/extract'
+
+module Xact
+
+  #
+  # Extract commandline interface.
+  #
+
+  class Command
+
+    def self.run
+      new.run
+    end
+
+    #
+
+    attr_reader :file, :start, :stop, :repeat, :style
+
+    #
+
+    def initialize
+      opts = GetoptLong.new(
+        [ '--help'         , GetoptLong::NO_ARGUMENT ],
+        [ '--repeat', '-r' , GetoptLong::NO_ARGUMENT ],
+        [ '--unxml',  '-x' , GetoptLong::NO_ARGUMENT ],
+        [ '--style',  '-s' , GetoptLong::REQUIRED_ARGUMENT ]
+      )
+
+      repeat = nil
+      style  = nil
+      unxml  = nil
+
+      opts.each do |opt, arg|
+        case opt
+        when '--help'
+          help
+          exit 0
+        when '--repeat'
+          repeat = true
+        when '--style'
+          style = arg
+        when '--unxml'
+          unxml = true
+        end
+      end
+
+      file  = ARGV.shift
+      start = ARGV.shift
+      stop  = ARGV.shift
+
+#       if i = argv.index('-h')
+#         handle = argv[i+1].strip
+#         argv[i+1,1] = nil
+#         argv.delete('-h')
+#       else
+#         handle = 'test'
+#       end
+#
+#       file = argv.pop
+
+      unless file && File.file?(file)
+        puts "No such file -- '#{file}'."
+        exit 0
+      end
+
+      @file   = file
+      @start  = start
+      @stop   = stop
+      @repeat = repeat
+      @style  = style
+      @unxml  = unxml
+    end
+
+    #
+
+    def extractor
+      @extractor ||= Extractor.new(@file, :unxml => @unxml)
+    end
+
+    # Extract and display.
+
+    def run
+      r = case style
+      when 'ruby'
+        extractor.extract_ruby_block_comment(start||'test')
+      when 'rubymethod'
+        extractor.extract_ruby_method_comment(start)
+      else
+        if stop
+          extractor.extract_block(start, stop)
+        else
+          extractor.extract_pattern(start)
+        end
+      end
+      text, offset = *r
+      $stdout << text
+    end
+
+#     # Extract the code.
+#
+#     def exact
+#       return *@exacto.extract_block(handle)
+#     end
+
+    # Show help.
+
+    def help
+      puts "USAGE: xact [options...] <file> [pattern] [end-pattern]"
+      puts "     --help       This help ionformation."
+      puts "  -r --repeat     Repeat for every occurance."
+      puts "     --style      Use built-in style."
+    end
+
+  end
+
+end
+
+Xact::Command.run

data/data/mint/cherry/_scaffold.rb

@@ -0,0 +1,4 @@
+
+def scaffold_directory
+  File.join(Config::CONFIG['datadir'], 'cherry', 'architect', 'scaffold')
+end