gm 0.1.4

data/lib/gm/behavior.rb

@@ -0,0 +1,23 @@
+
+module GM
+  
+  class Behavior
+    
+    include GM::Documentation
+    include GM::Configuration
+    include GM::Helpers
+    include GM::System
+    include GM::Loader
+    
+    desc ""
+    doc  ""
+    
+    loads :behaviors
+    
+    def run
+      
+    end
+    
+  end
+  
+end

data/lib/gm/command.rb

@@ -0,0 +1,70 @@
+
+module GM
+  
+  class Command
+    
+    attr_accessor :argv
+    attr_accessor :options
+    
+    include GM::Documentation
+    include GM::Configuration
+    include GM::Helpers
+    include GM::System
+    include GM::Loader
+    
+    desc ""
+    doc  ""
+    banner ""
+    loads :commands
+    
+    # build a command
+    def self.run(cmd_name=nil, argv=ARGV)
+      app = GM.app
+      if Array === cmd_name
+        argv = cmd_name
+        cmd_name = nil
+      end
+      cmd = self.build(cmd_name, argv)
+      clip = Clip(argv) do |p|
+        p.banner = cmd.banner_text
+        app.extra_options(p)
+        cmd.extra_options(p)
+      end
+      app.log_level = :verbose if clip.verbose?
+      app.log_level = :debug   if clip.debug?
+      cmd.options = clip
+      argv.clear
+      argv.concat(clip.remainder)
+      cmd.argv = argv
+      cmd.run
+      argv
+    end
+    
+    # build a command
+    def self.build(cmd_name=nil, argv=ARGV)
+      if Array === cmd_name
+        argv = cmd_name
+        cmd_name = nil
+      end
+      if cmd_name.nil?
+        cmd_name  = (argv.detect {|i| i !~ /^--?/ } || 'help')
+        argv.delete(cmd_name)
+      end
+      app         = GM.app
+      cmd_name    = cmd_name.to_s.underscore.to_sym
+      cmd_class   = GM::Command.commands[cmd_name]
+      cmd_class ||= GM::Command.commands[:help]
+      cmd_class.new
+    end
+    
+    # A command can overwrite this method in order to add extra command line options.
+    def extra_options(options)
+    end
+    
+    # A command must overwrite this method.
+    def run
+    end
+    
+  end
+  
+end

data/lib/gm/configuration.rb

@@ -0,0 +1,20 @@
+
+module GM
+  
+  module Configuration
+    
+    def self.included(base)
+      base.extend GM::Configuration::ClassMethods
+    end
+    
+    module ClassMethods
+      
+      def specify_conf(&block)
+        EC.store.specify(&block)
+      end
+      
+    end
+    
+  end
+  
+end

data/lib/gm/documentation.rb

@@ -0,0 +1,38 @@
+
+module GM
+  
+  module Documentation
+    
+    def self.included(base)
+      base.extend GM::Documentation::ClassMethods
+    end
+    
+    module ClassMethods
+      def desc(text)
+        module_eval %{
+          def self.description
+            ERB.new(#{text.inspect}).result(binding)
+          end
+        }
+      end
+      def doc(text)
+        module_eval %{
+          def self.documentation
+            ERB.new(#{text.inspect}).result(binding)
+          end
+        }
+      end
+      def banner(text)
+        text = "#{File.basename($0)} #{text}" unless text.blank?
+        module_eval %{
+          def self.banner_text
+            #{text.inspect}
+          end
+          def banner_text; self.class.banner_text ; end
+        }
+      end
+    end
+    
+  end
+  
+end

data/lib/gm/helpers.rb

@@ -0,0 +1,20 @@
+
+module GM
+  
+  module Helpers
+    
+    def app
+      GM.app
+    end
+    
+    def config
+      EC.store.config
+    end
+    
+    def spec
+      GM.app.gemspec
+    end
+    
+  end
+  
+end

data/lib/gm/loader.rb

@@ -0,0 +1,84 @@
+
+module GM
+  
+  module Loader
+    
+    def self.included(base)
+      base.extend GM::Loader::Macros
+    end
+    
+    module Macros
+      
+      def loads(name, options={})
+        options.reverse_merge!(
+          :name       => name.to_s.singularize.underscore,
+          :includes   => [],
+          :extends    => [],
+          :extention  => ".rb",
+          :collection => name.to_s.pluralize.underscore,
+          :only_eval  => false
+        )
+        options[:extends]  = [options[:extends]].flatten
+        options[:includes] = [options[:includes]].flatten
+        unless options[:only_eval]
+          module_eval %{
+            extend GM::Loader::ClassMethods
+            def self.load_#{options[:name]}(path)
+              klass = load(path, #{options.inspect})
+              #{options[:collection]}[klass.name] = klass
+              klass
+            end
+            def self.name
+              return @name unless @name.nil?
+              regexp = /^(?:[#][<]Module[:]0x[0-9a-f]+[>][:]{2})?(.+)#{options[:name].camelize}$/
+              @name = self.to_s
+              @name.gsub!(regexp, '\\1')
+              @name = @name.underscore.to_sym
+            end
+            def self.#{options[:collection]}
+              @#{options[:collection]} ||= {}
+            end
+          }
+        else
+          module_eval %{
+            extend GM::Loader::ClassMethods
+            def self.load_#{options[:name]}(path)
+              load(path, #{options.inspect})
+              true
+            end
+          }
+        end
+      end
+      
+    end
+    
+    module ClassMethods
+      
+      def load(path, options={})
+        raise LoadError, "file missing at path: #{path}" unless File.exist?(path)
+        cmd_name = File.basename(path, '.rb')
+        cmd_name = cmd_name.camelize
+        
+        mod = Module.new
+        options[:includes].each do |mod|
+          mod.send :include, mod
+        end
+        options[:extends].each do |mod|
+          mod.send :extend, mod
+        end
+        mod.module_eval(IO.read(path), path)
+        
+        unless options[:only_eval]
+          cmd_class = (mod.module_eval(cmd_name) rescue nil)
+          
+          raise LoadError, "Expected file to define #{cmd_name} (#{path})" if cmd_class.nil?
+          
+          cmd_class
+        end
+      end
+      
+    end
+    
+  end
+  
+end

data/lib/gm/network.rb

@@ -0,0 +1,29 @@
+
+module GM
+  
+  class Network
+    
+    include GM::Documentation
+    include GM::Configuration
+    include GM::Helpers
+    include GM::System
+    include GM::Loader
+    
+    desc ""
+    doc  ""
+    
+    loads :networks
+    
+    def publish
+    end
+    
+    def published_versions
+    end
+    
+    def has_version?(version)
+      published_versions.include? version
+    end
+    
+  end
+  
+end

data/lib/gm/system.rb

@@ -0,0 +1,16 @@
+
+module GM
+  
+  module System
+    
+    def sh(*cmds)
+      cmds.each do |cmd|
+        cmd = cmd.strip
+        GM.app.log "> #{cmd}"
+        system(cmd)
+      end
+    end
+    
+  end
+  
+end

data/test/command_test.rb

@@ -0,0 +1,106 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class CommandTest < Test::Unit::TestCase
+  
+  before do
+    GM.app.reset!
+  end
+  
+  context "load_command" do
+    
+    should "return klass" do
+      File.expects(:exist?).with('path/to/my_command.rb').returns(true)
+      IO.expects(:read).with('path/to/my_command.rb').returns(%{
+        class MyCommand ; end
+      })
+      klass = GM::Command.load_command('path/to/my_command.rb')
+      assert_equal "MyCommand", klass.to_s.split('::', 2).last
+    end
+    
+    should "return false when file doen't exist" do
+      File.expects(:exist?).with('path/to/my_command.rb').returns(false)
+      assert_raise(LoadError) { GM::Command.load_command('path/to/my_command.rb') }
+    end
+    
+    should "return false when file doen't contain command" do
+      File.expects(:exist?).with('path/to/my_command.rb').returns(true)
+      IO.expects(:read).with('path/to/my_command.rb').returns(%{})
+      assert_raise(LoadError) { GM::Command.load_command('path/to/my_command.rb') }
+    end
+    
+  end
+  
+  context "build" do
+    
+    should "return instance of HelpCommand not found" do
+      help_cmd = mock
+      help_cmd_class = mock
+      help_cmd_class.expects(:new).returns(help_cmd)
+      GM::Command.commands[:hello] = help_cmd_class
+      cmd = GM::Command.build(:hello)
+      assert_equal help_cmd, cmd
+    end
+    
+    should "return new command" do
+      hello_cmd = mock
+      hello_cmd_class = mock
+      hello_cmd_class.expects(:new).returns(hello_cmd)
+      GM::Command.commands[:hello] = hello_cmd_class
+      cmd = GM::Command.build(:hello)
+      assert_equal hello_cmd, cmd
+    end
+    
+    should "find command name in argv if name is nil" do
+      argv = %w( -v hello world )
+      hello_cmd = mock
+      hello_cmd_class = mock
+      hello_cmd_class.expects(:new).returns(hello_cmd)
+      GM::Command.commands[:hello] = hello_cmd_class
+      cmd = GM::Command.build(argv)
+      assert_equal hello_cmd, cmd
+    end
+    
+  end
+  
+  context "run" do
+    
+    should "run command and return remaining argv" do
+      argv = %w( -v p )
+      hello_cmd = mock('hello_command') do
+        expects(:run)
+        expects(:banner_text).returns("")
+        expects(:extra_options).with() { |value| Clip::Parser === value  }
+        expects(:options=).with()      { |value| Clip::Parser === value  }
+        expects(:argv=).with %w( p )
+      end
+      hello_cmd_class = mock('hello_command_class') do
+        expects(:new).returns(hello_cmd)
+      end
+      GM::Command.commands[:hello] = hello_cmd_class
+      assert_equal %w( p ), GM::Command.run(:hello, argv)
+    end
+    
+    should "find command name in argv if name is nil" do
+      argv = %w( -v hello p )
+      hello_cmd = mock('hello_command') do
+        expects(:run)
+        expects(:banner_text).returns("")
+        expects(:extra_options).with() { |value| Clip::Parser === value  }
+        expects(:options=).with()      { |value| Clip::Parser === value  }
+        expects(:argv=).with %w( p )
+      end
+      hello_cmd_class = mock('hello_command_class') do
+        expects(:new).returns(hello_cmd)
+      end
+      GM::Command.commands[:hello] = hello_cmd_class
+      assert_equal %w( p ), GM::Command.run(argv)
+    end
+    
+  end
+  
+  
+  should "retrun GM.app for #app" do
+    assert_equal GM.app, GM::Command.new.send(:app)
+  end
+  
+end

data/test/gem_extentions_test.rb

@@ -0,0 +1,31 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class GemExtentionsTest < Test::Unit::TestCase
+  
+  should "find recent files" do
+    gems  = Gem.searcher.find_all('autotest/discover.rb')
+    gems  = gems.inject({}) do |specs, spec|
+      specs[spec.name] = spec if specs[spec.name].nil? or (spec <=> specs[spec.name]) == 1
+      specs
+    end.values
+    paths = gems.collect do |gem|
+      Gem.searcher.matching_files gem, 'autotest/discover.rb'
+    end.flatten.compact
+    
+    assert_equal paths, Gem.find_recent_files('autotest/discover.rb')
+  end
+  
+  should "find_recent_resources" do
+    gems  = Gem.searcher.find_all('autotest/discover.rb')
+    gems  = gems.inject({}) do |specs, spec|
+      specs[spec.name] = spec if specs[spec.name].nil? or (spec <=> specs[spec.name]) == 1
+      specs
+    end.values
+    paths = gems.collect do |gem|
+      Gem.searcher.matching_files gem, 'autotest/discover.rb'
+    end.flatten.compact
+    
+    assert_equal paths, Gem.find_recent_resources('lib/autotest/discover.rb')
+  end
+  
+end