ckuru-tools 0.0.1

data/bin/ckuru-arg-tester

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+['ckuru-tools'].each do |lib|
+  require File.expand_path(File.join(File.dirname(__FILE__), '..', 'lib', lib))
+end	
+
+require 'ruby-debug'
+
+emacs_trace do 
+  response = CkuruTools::ArgsProcessor.new(:args => ["-flag","value","Required_value+"]).parse
+  puts response.inspect
+
+end
+
+# EOF

data/bin/ckuru-tools

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+
+require File.expand_path(
+    File.join(File.dirname(__FILE__), '..', 'lib', 'ckuru-tools'))
+
+# Put your code here
+
+# EOF

data/bin/generate_as_controller

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+require File.expand_path(
+    File.join(File.dirname(__FILE__), '..', 'lib', 'ckuru-tools'))
+
+# Put your code here
+
+args = CkuruTools::ArgsProcessor(:args => ["-table"
+
+# EOF

data/lib/args.rb

@@ -0,0 +1,123 @@
+require 'rubygems'
+require 'ckuru-tools'
+require 'getoptlong'
+
+class String
+  def stripdashes
+    gsub(/-/,'')
+  end
+  def stripplusses
+    gsub(/\+/,'')
+  end
+
+  def String.code_append(old,new)
+    old += ";" if old and old.length > 0
+    old += new
+  end
+end
+
+module CkuruTools 
+  class ArgParsed < HashInitializerClass
+    attr_accessor :spec, :type, :long, :short, :required
+  end
+
+  class ArgsProcessor < HashInitializerClass
+    attr_accessor :args
+    attr_accessor :noparse
+
+    #
+    # A simple, terse, and concise wrapper around GetoptLong command line parsing.
+    #
+    # Lets start with an example:
+    #
+    # args = CkuruTools::ArgsProcessor.new(:args => ["-flag","value","Required_value+"])
+    #
+    # response = args.parse
+    #
+    # Now if the script where to be called with 
+    #
+    # myscript -f -v VALUE --Required_value required
+    # 
+    # response => {:flag => true, :value => "VALUE", :Required_value => "required"}
+    #
+    # Defaults:
+    # -h : always generates help (do not use this flag)
+    # -d : Interface into CkuruTools::Debug  (increments debugging level); (do not override this flag) 
+    #
+    #
+    def initialize(h)
+      super h
+    end
+    
+    def parse
+      argsparse, argshash = [], {}
+
+      argsparse.push(["--debug","-d",GetoptLong::NO_ARGUMENT],
+                     ["--help","-h",GetoptLong::NO_ARGUMENT])
+      
+      args.each do |arg|
+        if matchdata =  arg.match(/-(([a-zA-Z0-9])[a-zA-Z0-9]+)/)
+          short = "-#{matchdata[2]}"
+          long = "-#{arg}"
+          argsparse.push([long,short,GetoptLong::NO_ARGUMENT])
+          argshash[long] = ArgParsed.new(:spec => arg, 
+                                         :type => :flag, 
+                                         :long => long, 
+                                         :short => short,
+                                         :required => false)
+        elsif matchdata = arg.match(/(([a-zA-Z0-9])[a-zA-Z0-9]+)/)
+          short = "-#{matchdata[2]}"
+          long = "--#{arg.stripplusses}"
+
+          argsparse.push([long,short,GetoptLong::REQUIRED_ARGUMENT])
+          argshash[long] = ArgParsed.new(:spec => arg, 
+                                         :type => :value, 
+                                         :long => long, 
+                                         :short => short,
+                                         :required => arg.match(/\+/) ? true : false)
+        else
+          raise "unrecognized arg spec #{arg}"
+        end
+      end
+
+      ret = {}
+      opts = GetoptLong.new *argsparse
+      opts.each do |opt, arg|
+        if opt == '--debug'
+          CkuruTools::Debug.instance.level = CkuruTools::Debug.instance.level + 1
+          ckebug 1, "incrementing debug level"
+        elsif opt == '--help'
+          puts "Options are:"
+          argshash.keys.each do |a|
+            puts "\t#{argshash[a].long},#{argshash[a].short}" + (argshash[a].required ? " (required)" : '')
+          end
+          exit 0
+        else
+          ckebug 1, "parsing #{opt}, #{arg}"
+          case argshash[opt].type
+          when :flag
+            ret[argshash[opt].long.stripdashes.to_sym] = true
+          when :value
+            ret[argshash[opt].long.stripdashes.to_sym] = arg
+          end
+        end
+      end
+      missing_required = []
+      argshash.keys.each do |a|
+        if argshash[a].required
+          missing_required.push a unless ret.has_key? a.stripdashes.to_sym
+        end
+      end
+      ckebug 1, ret.inspect
+      if missing_required.length > 0
+        missing_required.each do |m|
+          ckebug 0, "#{argshash[m].long}(#{argshash[m].short}) is required"
+        end
+        raise "missing required values"
+      end
+      ret
+    end
+  end
+end
+    
+    

data/lib/ckuru-tools.rb

@@ -0,0 +1,238 @@
+# $Id$
+
+# Equivalent to a header guard in C/C++
+# Used to prevent the class/module from being loaded more than once
+unless defined? CkuruTools
+
+  module CkuruTools
+
+    # :stopdoc:
+    VERSION = '1.0.0'
+    LIBPATH = ::File.expand_path(::File.dirname(__FILE__)) + ::File::SEPARATOR
+    PATH = ::File.dirname(LIBPATH) + ::File::SEPARATOR
+    # :startdoc:
+
+    # Returns the version string for the library.
+    #
+    def self.version
+      VERSION
+    end
+
+    # Returns the library path for the module. If any arguments are given,
+    # they will be joined to the end of the libray path using
+    # <tt>File.join</tt>.
+    #
+    def self.libpath( *args )
+      args.empty? ? LIBPATH : ::File.join(LIBPATH, *args)
+    end
+
+    # Returns the lpath for the module. If any arguments are given,
+    # they will be joined to the end of the path using
+    # <tt>File.join</tt>.
+    #
+    def self.path( *args )
+      args.empty? ? PATH : ::File.join(PATH, *args)
+    end
+
+    # Utility method used to rquire all files ending in .rb that lie in the
+    # directory below this file that has the same name as the filename passed
+    # in. Optionally, a specific _directory_ name can be passed in such that
+    # the _filename_ does not have to be equivalent to the directory.
+    #
+    def self.require_all_libs_relative_to( fname, dir = nil )
+      dir ||= ::File.basename(fname, '.*')
+      search_me = ::File.expand_path(
+                                     ::File.join(::File.dirname(fname), dir, '**', '*.rb'))
+
+      Dir.glob(search_me).sort.each {|rb| require rb}
+    end
+
+    #
+    # extending HashInitalizerClass enables you to get Object.new(hash) functionality
+    # where each key will dispatch to an object setter method.
+    #
+    # Usage:
+    #
+    # class MyClass < HashInitalizerClass
+    # ..attr_accessor :foo
+    # end
+    #
+    # m = MyClass(:foo => "bar")
+    # m.foo
+    # => "bar"
+    #
+    #
+    
+    class HashInitializerClass
+      def initialize(h)
+        h.keys.each do |k|
+          self.send("#{k}=",h[k])
+        end
+
+        yield self if block_given?
+      end
+    end
+
+  end  # module CkuruTools
+
+  CkuruTools.require_all_libs_relative_to __FILE__
+  CkuruTools.require_all_libs_relative_to CkuruTools.libpath
+
+  class Object
+
+    def _require ; each {|r| require r } ; end
+
+#     def to_hash
+#       ret = Hash.new
+#       each do |elem|
+#         ret[elem] = true
+#       end
+#       ret
+#     end
+
+    def docmd(cmd,dir=nil)
+      ret = docmdi(cmd,dir)
+      if ret.exitstatus != 0
+        raise "cmd #{cmd} exitstatus #{ret.exitstatus} : #{ret}"
+      end
+      ret
+    end
+
+    def docmdi(cmd,dir=nil)
+      if dir
+        unless Dir.chdir(dir) 
+          ckebug 0, "failed to cd to #{dir}"
+          return nil
+        end
+      end
+      ret = msg_exec "running #{cmd}" do
+        cmd.gsub!(/\\/,"\\\\\\\\\\\\\\\\")
+        cmd.gsub!(/\'/,"\\\\'")
+        cmd.gsub!(/\"/,"\\\\\\\\\\\"")
+        system("bash -c \"#{cmd}\"")
+        if $?.exitstatus != 0 
+          print " failed exit code #{$?.exitstatus} "
+        end
+      end
+      $?
+    end
+        
+    ################################################################################
+
+    def docmd_dir(h={})
+      ret = nil
+      if h[:dir]
+        unless Dir.chdir(h[:dir]) 
+          ckebug 0, "failed to cd to #{h[:dir]}"
+          return nil
+        end
+      end
+      if h[:commands]
+        h[:commands].each do |cmd|
+          ret = docmd(cmd)
+          if ret.exitstatus != 0
+            ckebug 0, "giving up"
+            return ret
+          end
+        end
+      end
+      ret
+    end
+
+    def emacs_trace
+      begin
+        yield
+      rescue Exception => e
+        puts e
+        puts "... exception thrown from ..."
+        e.backtrace.each do |trace|
+          a = trace.split(/:/)
+          if a[0].match(/^\//)
+            puts "#{a[0]}:#{a[1]}: #{a[2..a.length].join(':')}"
+          else
+            d = File.dirname(a[0])
+            f = File.basename(a[0])
+            dir = `cd #{d}; pwd`.chomp
+            goodpath = File.join(dir,f)
+
+            puts "#{goodpath}:#{a[1]}: #{a[2..a.length].join(':')}"              
+          end
+          if $emacs_trace_debugger
+            require 'ruby-debug'
+          end
+        end
+      end
+    end
+
+    def ckebug(level,msg)      
+      CkuruTools::Debug.instance.debug(level,msg)
+    end
+
+    def current_method
+      caller[0].match(/`(.*?)'/)[1]
+    end
+
+    def calling_method
+      caller[1] ? caller[1].match(/`(.*?)'/)[1] : ""
+    end
+
+    def calling_method2
+      if caller[2]
+        if matchdata = caller[2].match(/`(.*?)'/)
+          matchdata[1]
+        else
+          ""
+        end
+      else
+        ""
+      end
+    end
+
+
+    def calling_method_sig
+      caller[1] ? caller[1] : ""
+    end
+
+      
+
+#     def calling_method
+#       if caller[2]
+#         caller[2].match(/`(.*?)'/)[1]
+#       else
+#         ""
+#       end
+      
+#     end
+
+  end
+end
+
+class Time
+  def ckuru_time_string
+    strftime("%m/%d/%Y %H:%M:%S")
+  end
+end
+
+def printmsg(msg,newline=true)
+  print "#{Time.new.ckuru_time_string}: #{msg}"
+  puts if newline
+end
+
+
+#module MlImportUtils
+def msg_exec(msg)
+  printmsg("#{msg} ... ",false)
+  t1 = Time.new
+  ret = yield
+  puts "done (#{Time.new - t1})"
+  ret
+end
+
+def chatty_exec(level,name)
+  ret = yield
+  ckebug level, "#{name} is #{ret}"
+  ret
+end
+
+
+# EOF

data/lib/debug.rb

@@ -0,0 +1,26 @@
+require 'singleton'
+
+module CkuruTools
+  class Debug
+    include ::Singleton
+    attr_accessor :level
+
+    def debug(level,msg,newline=true)
+      raise "first argument to #{current_method} must be a number or support the #to_i method" unless
+        level.respond_to?(:to_i)
+      self.level = 0 if self.level.nil?
+      if level <= self.level
+#        print "#{Time.new}(#{calling_method}): #{msg}" + (newline ? "\n" : nil)
+#        debugger
+        print "#{Time.new.ckuru_time_string}(#{calling_method2}): #{msg}" + (newline ? "\n" : nil)
+      end
+    end
+    
+    def self.set_level(level)
+      CkuruTools::Debug.instance.level = level
+      ckebug 0, "setting debug level to #{level}"
+    end
+  end
+end
+
+CkuruTools::Debug.instance.level = ENV['CKURU_DEBUG_LEVEL'] ? ENV['CKURU_DEBUG_LEVEL'].to_i : 0

data/spec/ckuru-tools_spec.rb

@@ -0,0 +1,8 @@
+# $Id$
+
+require File.join(File.dirname(__FILE__), %w[spec_helper])
+
+describe CkuruTools do
+end
+
+# EOF

data/spec/spec_helper.rb

@@ -0,0 +1,17 @@
+# $Id$
+
+require File.expand_path(
+    File.join(File.dirname(__FILE__), %w[.. lib ckuru-tools]))
+
+Spec::Runner.configure do |config|
+  # == Mock Framework
+  #
+  # RSpec uses it's own mocking framework by default. If you prefer to
+  # use mocha, flexmock or RR, uncomment the appropriate line:
+  #
+  # config.mock_with :mocha
+  # config.mock_with :flexmock
+  # config.mock_with :rr
+end
+
+# EOF

data/tasks/ann.rake

@@ -0,0 +1,81 @@
+# $Id$
+
+begin
+  require 'bones/smtp_tls'
+rescue LoadError
+  require 'net/smtp'
+end
+require 'time'
+
+namespace :ann do
+
+  # A prerequisites task that all other tasks depend upon
+  task :prereqs
+
+  file PROJ.ann.file do
+    ann = PROJ.ann
+    puts "Generating #{ann.file}"
+    File.open(ann.file,'w') do |fd|
+      fd.puts("#{PROJ.name} version #{PROJ.version}")
+      fd.puts("    by #{Array(PROJ.authors).first}") if PROJ.authors
+      fd.puts("    #{PROJ.url}") if PROJ.url.valid?
+      fd.puts("    (the \"#{PROJ.release_name}\" release)") if PROJ.release_name
+      fd.puts
+      fd.puts("== DESCRIPTION")
+      fd.puts
+      fd.puts(PROJ.description)
+      fd.puts
+      fd.puts(PROJ.changes.sub(%r/^.*$/, '== CHANGES'))
+      fd.puts
+      ann.paragraphs.each do |p|
+        fd.puts "== #{p.upcase}"
+        fd.puts
+        fd.puts paragraphs_of(PROJ.readme_file, p).join("\n\n")
+        fd.puts
+      end
+      fd.puts ann.text if ann.text
+    end
+  end
+
+  desc "Create an announcement file"
+  task :announcement => ['ann:prereqs', PROJ.ann.file]
+
+  desc "Send an email announcement"
+  task :email => ['ann:prereqs', PROJ.ann.file] do
+    ann = PROJ.ann
+    from = ann.email[:from] || PROJ.email
+    to   = Array(ann.email[:to])
+
+    ### build a mail header for RFC 822
+    rfc822msg =  "From: #{from}\n"
+    rfc822msg << "To: #{to.join(',')}\n"
+    rfc822msg << "Subject: [ANN] #{PROJ.name} #{PROJ.version}"
+    rfc822msg << " (#{PROJ.release_name})" if PROJ.release_name
+    rfc822msg << "\n"
+    rfc822msg << "Date: #{Time.new.rfc822}\n"
+    rfc822msg << "Message-Id: "
+    rfc822msg << "<#{"%.8f" % Time.now.to_f}@#{ann.email[:domain]}>\n\n"
+    rfc822msg << File.read(ann.file)
+
+    params = [:server, :port, :domain, :acct, :passwd, :authtype].map do |key|
+      ann.email[key]
+    end
+
+    params[3] = PROJ.email if params[3].nil?
+
+    if params[4].nil?
+      STDOUT.write "Please enter your e-mail password (#{params[3]}): "
+      params[4] = STDIN.gets.chomp
+    end
+
+    ### send email
+    Net::SMTP.start(*params) {|smtp| smtp.sendmail(rfc822msg, from, to)}
+  end
+end  # namespace :ann
+
+desc 'Alias to ann:announcement'
+task :ann => 'ann:announcement'
+
+CLOBBER << PROJ.ann.file
+
+# EOF

data/tasks/bones.rake

@@ -0,0 +1,21 @@
+# $Id$
+
+if HAVE_BONES
+
+namespace :bones do
+
+  desc 'Show the PROJ open struct'
+  task :debug do |t|
+    atr = if t.application.top_level_tasks.length == 2
+      t.application.top_level_tasks.pop
+    end
+
+    if atr then Bones::Debug.show_attr(PROJ, atr)
+    else Bones::Debug.show PROJ end
+  end
+
+end  # namespace :bones
+
+end  # HAVE_BONES
+
+# EOF

data/tasks/gem.rake

@@ -0,0 +1,126 @@
+# $Id$
+
+require 'rake/gempackagetask'
+
+namespace :gem do
+
+  PROJ.gem._spec = Gem::Specification.new do |s|
+    s.name = PROJ.name
+    s.version = PROJ.version
+    s.summary = PROJ.summary
+    s.authors = Array(PROJ.authors)
+    s.email = PROJ.email
+    s.homepage = Array(PROJ.url).first
+    s.rubyforge_project = PROJ.rubyforge.name
+
+    s.description = PROJ.description
+
+    PROJ.gem.dependencies.each do |dep|
+      s.add_dependency(*dep)
+    end
+
+    s.files = PROJ.gem.files
+    s.executables = PROJ.gem.executables.map {|fn| File.basename(fn)}
+    s.extensions = PROJ.gem.files.grep %r/extconf\.rb$/
+
+    s.bindir = 'bin'
+    dirs = Dir["{#{PROJ.libs.join(',')}}"]
+    s.require_paths = dirs unless dirs.empty?
+
+    incl = Regexp.new(PROJ.rdoc.include.join('|'))
+    excl = PROJ.rdoc.exclude.dup.concat %w[\.rb$ ^(\.\/|\/)?ext]
+    excl = Regexp.new(excl.join('|'))
+    rdoc_files = PROJ.gem.files.find_all do |fn|
+                   case fn
+                   when excl; false
+                   when incl; true
+                   else false end
+                 end
+    s.rdoc_options = PROJ.rdoc.opts + ['--main', PROJ.rdoc.main]
+    s.extra_rdoc_files = rdoc_files
+    s.has_rdoc = true
+
+    if test ?f, PROJ.test.file
+      s.test_file = PROJ.test.file
+    else
+      s.test_files = PROJ.test.files.to_a
+    end
+
+    # Do any extra stuff the user wants
+    PROJ.gem.extras.each do |msg, val|
+      case val
+      when Proc
+        val.call(s.send(msg))
+      else
+        s.send "#{msg}=", val
+      end
+    end
+  end  # Gem::Specification.new
+
+  # A prerequisites task that all other tasks depend upon
+  task :prereqs
+
+  desc 'Show information about the gem'
+  task :debug => 'gem:prereqs' do
+    puts PROJ.gem._spec.to_ruby
+  end
+
+  pkg = Rake::PackageTask.new(PROJ.name, PROJ.version) do |pkg|
+    pkg.need_tar = PROJ.gem.need_tar
+    pkg.need_zip = PROJ.gem.need_zip
+    pkg.package_files += PROJ.gem._spec.files
+  end
+  Rake::Task['gem:package'].instance_variable_set(:@full_comment, nil)
+
+  gem_file = if PROJ.gem._spec.platform == Gem::Platform::RUBY
+      "#{pkg.package_name}.gem"
+    else
+      "#{pkg.package_name}-#{PROJ.gem._spec.platform}.gem"
+    end
+
+  desc "Build the gem file #{gem_file}"
+  task :package => ['gem:prereqs', "#{pkg.package_dir}/#{gem_file}"]
+
+  file "#{pkg.package_dir}/#{gem_file}" => [pkg.package_dir] + PROJ.gem._spec.files do
+    when_writing("Creating GEM") {
+      Gem::Builder.new(PROJ.gem._spec).build
+      verbose(true) {
+        mv gem_file, "#{pkg.package_dir}/#{gem_file}"
+      }
+    }
+  end
+
+  desc 'Install the gem'
+  task :install => [:clobber, 'gem:package'] do
+    sh "#{SUDO} #{GEM} install --local pkg/#{PROJ.gem._spec.full_name}"
+
+    # use this version of the command for rubygems > 1.0.0
+    #sh "#{SUDO} #{GEM} install --no-update-sources pkg/#{PROJ.gem._spec.full_name}"
+  end
+
+  desc 'Uninstall the gem'
+  task :uninstall do
+    installed_list = Gem.source_index.find_name(PROJ.name)
+    if installed_list and installed_list.collect { |s| s.version.to_s}.include?(PROJ.version) then
+      sh "#{SUDO} #{GEM} uninstall --version '#{PROJ.version}' --ignore-dependencies --executables #{PROJ.name}"
+    end
+  end
+
+  desc 'Reinstall the gem'
+  task :reinstall => [:uninstall, :install]
+
+  desc 'Cleanup the gem'
+  task :cleanup do
+    sh "#{SUDO} #{GEM} cleanup #{PROJ.gem._spec.name}"
+  end
+
+end  # namespace :gem
+
+desc 'Alias to gem:package'
+task :gem => 'gem:package'
+
+task :clobber => 'gem:clobber_package'
+
+remove_desc_for_task %w(gem:clobber_package)
+
+# EOF