corl 0.4.0

data/lib/corl.rb

@@ -0,0 +1,173 @@
+
+#*******************************************************************************
+# CORL Core Library
+#
+# This provides core data elements and utilities used in the CORL gems.
+#
+# Author::    Adrian Webb (mailto:adrian.webb@coralnexus.com)
+# License::   GPLv3
+
+#-------------------------------------------------------------------------------
+# Global namespace
+
+module Kernel
+   
+  def dbg(data, label = '')
+    # Invocations of this function should NOT be committed to the project
+    require 'pp'
+    
+    puts '>>----------------------'
+    unless label.empty?
+      puts label
+      puts '---'
+    end
+    pp data
+    puts '<<'
+  end
+  
+  #---  
+    
+  def corl_locate(command)
+    command = command.to_s
+    exts    = ENV['PATHEXT'] ? ENV['PATHEXT'].split(';') : ['']
+    ENV['PATH'].split(File::PATH_SEPARATOR).each do |path|
+      exts.each do |ext|
+        exe = File.join(path, "#{command}#{ext}")
+        return exe if File.executable?(exe)
+      end
+    end
+    return nil
+  end
+    
+  #---
+  
+  def corl_require(base_dir, name)
+    name = name.to_s
+    top_level_file = File.join(base_dir, "#{name}.rb")
+    
+    require top_level_file if File.exists?(top_level_file) 
+     
+    directory = File.join(base_dir, name)
+      
+    if File.directory?(directory)
+      Dir.glob(File.join(directory, '**', '*.rb')).each do |sub_file|
+        require sub_file
+      end
+    end  
+  end
+end
+
+#-------------------------------------------------------------------------------
+# Top level properties 
+
+lib_dir          = File.dirname(__FILE__)
+core_dir         = File.join(lib_dir, 'corl_core')
+mixin_dir        = File.join(core_dir, 'mixin')
+mixin_config_dir = File.join(mixin_dir, 'config')
+mixin_action_dir = File.join(mixin_dir, 'action')
+macro_dir        = File.join(mixin_dir, 'macro')
+util_dir         = File.join(core_dir, 'util')
+mod_dir          = File.join(core_dir, 'mod')
+plugin_dir       = File.join(core_dir, 'plugin')
+ 
+#-------------------------------------------------------------------------------
+# CORL requirements
+
+git_location = corl_locate('git')
+
+$:.unshift(lib_dir) unless $:.include?(lib_dir) || $:.include?(File.expand_path(lib_dir))
+
+#---
+  
+require 'rubygems'
+
+require 'pp'
+require 'i18n'
+require 'log4r'
+require 'log4r/configurator'
+require 'base64'
+require 'sshkey'
+require 'deep_merge'
+require 'hiera'
+require 'facter'
+require 'yaml'
+require 'multi_json'
+require 'digest/sha1'
+require 'optparse'
+require 'thread' # Eventually depreciated
+require 'celluloid'
+require 'celluloid/autostart'
+require 'tmpdir'
+
+#---
+
+# TODO: Make this dynamically settable
+
+I18n.enforce_available_locales = false
+I18n.load_path << File.expand_path(File.join('..', 'locales', 'en.yml'), lib_dir)
+
+#---
+
+if git_location
+  require 'grit'
+  corl_require(util_dir, :git)
+end
+
+#---
+
+# Object modifications (100% pure monkey patches)
+Dir.glob(File.join(mod_dir, '*.rb')).each do |file|
+  require file
+end
+
+#---
+
+# Mixins for classes
+Dir.glob(File.join(mixin_dir, '*.rb')).each do |file|
+  require file
+end
+Dir.glob(File.join(mixin_config_dir, '*.rb')).each do |file|
+  require file
+end
+Dir.glob(File.join(mixin_action_dir, '*.rb')).each do |file|
+  require file
+end
+Dir.glob(File.join(macro_dir, '*.rb')).each do |file|
+  require file
+end
+
+#---
+
+# Include bootstrap classes
+corl_require(core_dir, :errors)
+corl_require(core_dir, :codes)
+corl_require(util_dir, :data)
+corl_require(core_dir, :config)
+corl_require(util_dir, :interface) 
+corl_require(core_dir, :core) 
+
+#---
+
+# Include core utilities
+[ :liquid, 
+  :cli, 
+  :disk, 
+  :package, 
+  :shell, 
+  :ssh 
+].each do |name| 
+  corl_require(util_dir, name)
+end
+
+# Include core systems
+corl_require(core_dir, :corl)
+corl_require(core_dir, :gems)
+corl_require(core_dir, :manager)
+corl_require(plugin_dir, :base)
+corl_require(core_dir, :plugin)
+corl_require(core_dir, :facade)
+
+#-------------------------------------------------------------------------------
+# CORL initialization
+
+CORL.initialize

data/lib/corl_core/codes.rb

@@ -0,0 +1,107 @@
+
+module CORL
+class Codes
+  
+  #-----------------------------------------------------------------------------
+  # Code index
+  
+  @@registry     = {}
+  @@status_index = {}
+  @@next_code    = 0
+  
+  #---
+  
+  def self.registry
+    @@registry
+  end
+  
+  #---
+  
+  def self.index(status_code = nil)
+    if status_code.nil? || ! status_code.integer?
+      @@status_index
+    else
+      status_code = status_code.to_i
+          
+      if @@status_index.has_key?(status_code)
+        @@status_index[status_code]
+      else
+        @@status_index[registry[:unknown_status]]
+      end  
+    end    
+  end
+  
+  #---
+  
+  def self.render_index(status_code = nil)
+    output = "Status index:\n"
+    @@status_index.each do |code, name|
+      name = name.gsub(/_/, ' ').capitalize
+      
+      if ! status_code.nil? && status_code == code
+        output << sprintf(" [ %3i ] - %s\n", code, name)
+      else
+        output << sprintf("   %3i   - %s\n", code, name)
+      end      
+    end
+    output << "\n"
+    output
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Code construction
+  
+  def self.code(name)
+    name = name.to_sym
+    
+    unless registry.has_key?(name)
+      status_code = @@next_code    
+      @@next_code = @@next_code + 1
+    
+      # TODO: Add more information to the index (like a help message)
+      @@registry[name]            = status_code
+      @@status_index[status_code] = name.to_s
+    end
+  end
+  
+  #---
+  
+  def self.codes(*codes)
+    codes.each do |name|
+      code(name)
+    end
+  end
+
+  #-----------------------------------------------------------------------------
+  # Return status codes on demand
+  
+  def [](name)
+    name = name.to_sym
+    
+    if @@registry.has_key?(name)
+      @@registry[name]  
+    else
+      @@registry[:unknown_status]
+    end
+  end
+  
+  #---
+ 
+  def method_missing(method, *args, &block)
+    self[method]
+  end
+  
+  #-----------------------------------------------------------------------------
+  # Core status codes
+  
+  code(:success) # This must be added first (needs to be 0)
+  code(:help_wanted)
+  code(:unknown_status)
+  
+  code(:action_unprocessed)
+  code(:batch_error)
+  
+  code(:validation_failed)
+  code(:access_denied) 
+end
+end

data/lib/corl_core/config/collection.rb

@@ -0,0 +1,57 @@
+
+module CORL
+class Config
+class Collection
+
+  #-----------------------------------------------------------------------------
+  # Property accessor / modifiers
+
+  @@properties = {}
+  
+  #---
+  
+  def self.all
+    return @@properties
+  end
+  
+  #---
+  
+  def self.get(name)
+    return @@properties[name.to_sym]
+  end
+  
+  #---
+  
+  def self.set(name, value)
+    @@properties[name.to_sym] = value
+  end
+  
+  #---
+  
+  def self.delete(name)
+    @@properties.delete(name.to_sym)
+  end
+   
+  #---
+  
+  def self.clear
+    @@properties = {}
+  end
+  
+  #---
+  
+  def self.save
+    log_options = Options.get(:corl_log)
+    
+    unless Util::Data.empty?(log_options[:config_log])
+      config_log = log_options[:config_log]
+      
+      if log_options[:config_store]
+        Util::Disk.write(config_log, MultiJson.dump(@@properties, :pretty => true))
+        Util::Disk.close(config_log)
+      end
+    end
+  end
+end
+end
+end

data/lib/corl_core/config/options.rb

@@ -0,0 +1,70 @@
+
+module CORL
+class Config
+class Options
+  
+  #-----------------------------------------------------------------------------
+  # Property accessors / modifiers
+  
+  @@options = {}
+  
+  #---
+  
+  def self.contexts(contexts = [], hierarchy = [])
+    contexts = [ 'all', contexts ].flatten
+    
+    unless hierarchy.is_a?(Array)
+      hierarchy = ( ! Util::Data.empty?(hierarchy) ? [ hierarchy ].flatten : [] )
+    end
+    
+    hierarchy.each do |group|  
+      group_contexts = Util::Data.prefix(group, contexts)
+      contexts       = [ contexts, group_contexts ].flatten
+    end
+    
+    return contexts
+  end
+  
+  #---
+  
+  def self.get(contexts, force = true)
+    options = {}
+    
+    unless contexts.is_a?(Array)
+      contexts = ( ! Util::Data.empty?(contexts) ? [ contexts ].flatten : [] )
+    end
+    contexts.each do |name|
+      name = name.to_sym
+      if @@options.has_key?(name)
+        options = Util::Data.merge([ options, @@options[name] ], force)
+      end
+    end
+    return options
+  end
+  
+  #---
+  
+  def self.set(contexts, options, force = true)
+    unless contexts.is_a?(Array)
+      contexts = ( ! Util::Data.empty?(contexts) ? [ contexts ].flatten : [] )
+    end
+    contexts.each do |name|
+      name = name.to_sym    
+      current_options = ( @@options.has_key?(name) ? @@options[name] : {} )
+      @@options[name] = Util::Data.merge([ current_options, Config.symbol_map(options) ], force)
+    end  
+  end
+  
+  #---
+  
+  def self.clear(contexts)
+    unless contexts.is_a?(Array)
+      contexts = [ contexts ]
+    end
+    contexts.each do |name|
+      @@options.delete(name.to_sym)
+    end
+  end
+end
+end
+end