coral_core 0.2.26 → 0.2.30

data/lib/coral_core/config/collection.rb

@@ -0,0 +1,57 @@
+
+module Coral
+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(:coral_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/coral_core/config/options.rb

@@ -0,0 +1,70 @@
+
+module Coral
+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

data/lib/coral_core/config/project.rb

@@ -0,0 +1,225 @@
+
+module Coral
+class Config
+class Project < Config
+  
+  include Mixin::SubConfig
+
+  #-----------------------------------------------------------------------------
+  
+  def initialize(data = {}, defaults = {}, force = true)
+    super(data, defaults, force)
+    
+    init_subconfig(true)
+    
+    unless _get(:project)
+      _set(:project, Repository.open(_delete(:directory, Dir.pwd), {
+        :origin    => _delete(:origin),
+        :revision  => _delete(:revision)
+      }))
+    end
+    
+    _init(:autoload, true)
+    _init(:autosave, true)
+    _init(:autocommit, true)
+    _init(:commit_message, 'Saving state')
+    
+    self.config_file = _get(:config_file, '')
+  end
+  
+  #---
+  
+  def self.finalize(file_name)
+    proc do
+      Util::Disk.close(file_name)
+    end
+  end
+  
+  #---
+  
+  #def inspect
+  #  "#<#{self.class}: #{@absolute_config_file}>"
+  #end
+     
+  #-----------------------------------------------------------------------------
+  # Checks
+  
+  def can_persist?
+    success = project.can_persist?
+    success = false if Util::Data.empty?(@absolute_config_file)
+    return success
+  end
+      
+  #-----------------------------------------------------------------------------
+  # Property accessors / modifiers
+  
+  def autoload(default = false)
+    return _get(:autoload, default)
+  end
+  
+  #---
+  
+  def autoload=autoload
+    _set(:autoload, test(autoload))
+  end
+   
+  #---
+  
+  def autosave(default = false)
+    return _get(:autosave, default)
+  end
+  
+  #---
+  
+  def autosave=autosave
+    _set(:autosave, test(autosave))
+  end
+   
+  #---
+  
+  def autocommit(default = false)
+    return _get(:autocommit, default)
+  end
+  
+  #---
+  
+  def autocommit=autocommit
+    _set(:autocommit, test(autocommit))
+  end
+   
+  #---
+  
+  def commit_message(default = false)
+    return _get(:commit_message, default)
+  end
+  
+  #---
+  
+  def commit_message=commit_message
+    _set(:commit_message, string(commit_message))
+  end
+  
+  #---
+  
+  def project(default = nil)
+    return _get(:project, default)
+  end
+  
+  #---
+  
+  def config_file(default = nil)
+    return _get(:config_file, default)
+  end
+  
+  #---
+  
+  def config_file=file
+    unless Util::Data.empty?(file)
+      _set(:config_file, Util::Disk.filename(file))
+    end    
+    set_absolute_config_file
+  end
+
+  #---
+ 
+  def set_absolute_config_file
+    if Util::Data.empty?(project.directory) || Util::Data.empty?(config_file)
+      @absolute_config_file = ''
+    else 
+      @absolute_config_file = File.join(project.directory, config_file)
+      ObjectSpace.define_finalizer(self, self.class.finalize(@absolute_config_file))
+    end
+    load if autoload
+    return self
+  end
+  protected :set_absolute_config_file
+  
+  #---
+  
+  def set_location(directory)
+    if directory && directory.is_a?(Coral::Repository)
+      project.set_location(directory.directory)
+    elsif directory && directory.is_a?(String) || directory.is_a?(Symbol)
+      project.set_location(directory.to_s)
+    end
+    set_absolute_config_file if directory
+  end
+  
+  #-----------------------------------------------------------------------------
+    
+  def set(keys, value = '', options = {})
+    super(keys, value)
+    save(options) if autosave
+    return self
+  end
+   
+  #---
+   
+  def delete(keys, options = {})
+    super(keys)
+    save(options) if autosave
+    return self
+  end
+  
+  #---
+  
+  def clear(options = {})
+    super
+    save(options) if autosave
+    return self
+  end
+
+  #-----------------------------------------------------------------------------
+  # Import / Export
+  
+  def import(properties, options = {})
+    super(properties, options)
+    save(options) if autosave
+    return self
+  end
+      
+  #-----------------------------------------------------------------------------
+  # Configuration loading / saving
+    
+  def load(options = {})
+    local_config = Config.ensure(options)
+    
+    if can_persist? && File.exists?(@absolute_config_file)
+      raw = Util::Disk.read(@absolute_config_file)    
+      if raw && ! raw.empty?
+        config.clear if local_config.get(:override, false)
+        config.import(Util::Data.parse_json(raw), local_config)
+      end
+    end
+    return self
+  end
+   
+  #---
+    
+  def save(options = {})
+    local_config = Config.ensure(options)
+    
+    if can_persist?
+      rendering = Util::Data.to_json(config.export, local_config.get(:pretty, true))
+      if rendering && ! rendering.empty?
+        Util::Disk.write(@absolute_config_file, rendering)
+        project.commit(@absolute_config_file, local_config) if autocommit
+      end
+    end
+    return self
+  end
+  
+  #---
+  
+  def rm(options = {})
+    local_config = Config.ensure(options)
+    
+    if can_persist?
+      config.clear
+      File.delete(@absolute_config_file)
+      project.commit(@absolute_config_file, local_config) if autocommit
+    end  
+  end
+end
+end
+end

data/lib/coral_core/core.rb

@@ -1,19 +1,25 @@
 
 module Coral
-class Core
+class Core < Config
   
   #-----------------------------------------------------------------------------
   # Properties
   
-  @@ui = Interface.new("coral")
+  @@ui = Util::Interface.new("coral")
   
   #-----------------------------------------------------------------------------
   # Constructor / Destructor
   
-  def initialize(options = {})
-    config = Config.ensure(options)
+  def initialize(data = {}, defaults = {}, force = true)
+    super(data, defaults, force)
     
-    @ui = Interface.new(config)
+    @ui = Util::Interface.new(export)
+  end
+  
+  #---
+  
+  def inspect
+    "#<#{self.class}: >"
   end
   
   #-----------------------------------------------------------------------------
@@ -21,7 +27,7 @@ class Core
   
   attr_accessor :ui
   
-  #-----------------------------------------------------------------------------
+  #---
   
   def self.ui
     return @@ui
@@ -33,180 +39,20 @@ class Core
     return @@ui.logger
   end
   
+  #---
+ 
+  def self.logger=logger
+    self.class.logger = logger
+  end
+  
   #--- 
    
   def logger
     return self.class.logger
   end
-  
-  #---
- 
-  def logger=logger
-    self.class.logger = logger
-  end
  
   #-----------------------------------------------------------------------------
   # General utilities
-
-  def self.symbol_map(data)
-    results = {}
-    return data unless data
-    
-    case data
-    when Hash
-      data.each do |key, value|
-        results[key.to_sym] = symbol_map(value)
-      end
-    else
-      results = data
-    end    
-    return results
-  end
-  
-  #---
-  
-  def symbol_map(data)
-    return self.class.symbol_map(data)
-  end
-  
-  #---
-  
-  def self.string_map(data)
-    results = {}
-    return data unless data
-    
-    case data
-    when Hash
-      data.each do |key, value|
-        results[key.to_s] = string_map(value)
-      end
-    else
-      results = data
-    end    
-    return results
-  end
-  
-  #---
-  
-  def string_map(data)
-    return self.class.string_map(data)
-  end
-  
-  #-----------------------------------------------------------------------------
-      
-  def self.filter(data, method = false)
-    if method && method.is_a?(Symbol) && 
-      [ :array, :hash, :string, :symbol, :test ].include?(method.to_sym)
-      return send(method, data)
-    end
-    return data
-  end
-  
-  #---
-  
-  def filter(data, method = false)
-    return self.class.filter(data, method)
-  end
-    
-  #-----------------------------------------------------------------------------
-          
-  def self.array(data, default = [], split_string = false)
-    result = default    
-    if data
-      case data
-      when Array
-        result = data
-      when String
-        result = [ ( split_string ? data.split(/\s*,\s*/) : data ) ]
-      else
-        result = [ data ]
-      end
-    end
-    return result
-  end
-  
-  #---
-  
-  def array(data, default = [], split_string = false)
-    return self.class.array(data, default, split_string)
-  end
-    
-  #---
-        
-  def self.hash(data, default = {})
-    result = default    
-    if data
-      case data
-      when Hash
-        result = data
-      else
-        result = {}
-      end
-    end
-    return result
-  end
-  
-  #---
-  
-  def hash(data, default = {})
-    return self.class.hash(data, default)
-  end
-    
-  #---
-         
-  def self.string(data, default = '')
-    result = default    
-    if data
-      case data
-      when String
-        result = data
-      else
-        result = data.to_s
-      end
-    end
-    return result
-  end
-  
-  #---
-  
-  def string(data, default = '')
-    return self.class.string(data, default)
-  end
-    
-  #---
-         
-  def self.symbol(data, default = :undefined)
-    result = default    
-    if data
-      case data
-      when Symbol
-        result = data
-      when String
-        result = data.to_sym
-      else
-        result = data.class.to_sym
-      end
-    end
-    return result
-  end
-  
-  #---
-  
-  def symbol(data, default = '')
-    return self.class.symbol(data, default)
-  end
-     
-  #---
-    
-  def self.test(data)
-    return false if Util::Data.empty?(data)
-    return true
-  end
-  
-  #---
-  
-  def test(data)
-    return self.class.test(data)
-  end  
+ 
 end
 end