gloo 0.3.0 → 0.5.3

data/lib/gloo/convert/string_to_datetime.rb

@@ -0,0 +1,21 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 202 Eric Crane.  All rights reserved.
+#
+# Conversion tool:  String to Date Time.
+#
+require 'chronic'
+
+module Gloo
+  module Convert
+    class StringToDateTime
+
+      #
+      # Convert the given string value to a date and time.
+      #
+      def convert( value )
+        return Chronic.parse( value )
+      end
+
+    end
+  end
+end

data/lib/gloo/convert/string_to_decimal.rb

@@ -0,0 +1,20 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 202 Eric Crane.  All rights reserved.
+#
+# Conversion tool:  String to Decimal.
+#
+
+module Gloo
+  module Convert
+    class StringToDecimal
+
+      #
+      # Convert the given string value to an integer.
+      #
+      def convert( value )
+        return value.to_f
+      end
+
+    end
+  end
+end

data/lib/gloo/convert/string_to_integer.rb

@@ -0,0 +1,20 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 202 Eric Crane.  All rights reserved.
+#
+# Conversion tool:  String to Integer.
+#
+
+module Gloo
+  module Convert
+    class StringToInteger
+
+      #
+      # Convert the given string value to an integer.
+      #
+      def convert( value )
+        return value.to_i
+      end
+
+    end
+  end
+end

data/lib/gloo/core/baseo.rb

@@ -8,17 +8,17 @@
 module Gloo
   module Core
     class Baseo
-      
+
       attr_accessor :name
-      
+
       # Set up the object.
-      def initialize()
-        @name = ""
+      def initialize
+        @name = ''
       end
-      
-      # 
+
+      #
       # The object type, suitable for display.
-      # 
+      #
       def type_display
         raise 'this method should be overriden'
       end

data/lib/gloo/core/dictionary.rb

@@ -8,32 +8,32 @@ require 'singleton'
 module Gloo
   module Core
     class Dictionary
-      
+
       include Singleton
-      
+
       attr_reader :verbs, :objs
-      
+
       # Set up the object dictionary.
-      def initialize()
+      def initialize
         @verbs = {}
         @objs = {}
         @verb_references = []
         @obj_references = []
       end
-      
+
       # Register a verb.
-      def register_verb subclass
+      def register_verb( subclass )
         @verb_references << subclass
       end
-      
+
       # Register an object type.
-      def register_obj subclass
+      def register_obj( subclass )
         @obj_references << subclass
       end
 
       # Initialize verbs and objects in the dictionary.
       def init
-        $log.debug "initializing dictionaries"
+        $log.debug 'initializing dictionaries'
         init_verbs
         init_objs
       end
@@ -42,60 +42,63 @@ module Gloo
       def init_objs
         $log.debug "initializing #{@obj_references.count} objects"
         @obj_references.each do |o|
-          $log.debug  o
+          $log.debug o
           @objs[ o.typename ] = o
           @objs[ o.short_typename ] = o
         end
       end
-      
+
       # Is the given word an object type?
-      def is_obj? word
+      def obj?( word )
         return false unless word
+
         return @objs.key?( word.downcase )
       end
-      
+
       # Find the object type by name.
-      def find_obj word
+      def find_obj( word )
         return nil unless word
-        return nil unless is_obj?( word )
+        return nil unless obj?( word )
+
         return @objs[ word.downcase ]
       end
 
-      
       # Init the list of verbs.
       def init_verbs
         $log.debug "initializing #{@verb_references.count} verbs"
         @verb_references.each do |v|
-          $log.debug  v
+          $log.debug v
           @verbs[ v.keyword ] = v
           @verbs[ v.keyword_shortcut ] = v
           # v.send( :new ).run
         end
       end
-      
+
       # Is the given word a verb?
-      def is_verb? word
+      def verb?( word )
         return false unless word
+
         return @verbs.key?( word.downcase )
       end
-      
+
       # Find the verb by name.
-      def find_verb verb
+      def find_verb( verb )
         return nil unless verb
-        return nil unless is_verb?( verb )
+        return nil unless verb?( verb )
+
         return @verbs[ verb.downcase ]
       end
-      
+
       # Get the list of verbs, sorted.
       def get_obj_types
-        return @obj_references.sort{ |a,b| a.typename <=> b.typename }
+        return @obj_references.sort { |a, b| a.typename <=> b.typename }
       end
-      
+
       # Get the list of verbs, sorted.
       def get_verbs
-        return @verb_references.sort{ |a,b| a.keyword <=> b.keyword }
+        return @verb_references.sort { |a, b| a.keyword <=> b.keyword }
       end
-      
+
     end
   end
 end

data/lib/gloo/core/error.rb

@@ -0,0 +1,50 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# If the last command to run generated an error it will be here.
+#
+
+module Gloo
+  module Core
+    class Error
+
+      attr_accessor :value
+
+      # Set up the error object.
+      def initialize
+        @value = nil
+        @error_count = 0
+      end
+
+      # Set the value of error.
+      def set_to( new_value )
+        @error_count += 1
+        @value = new_value
+      end
+
+      # Clear out the error message.
+      def clear
+        @error_count = 0
+        @value = nil
+      end
+
+      # Start counting errors.
+      # We're looking to see if we get any new ones during
+      # a script or an immediate command.
+      def start_tracking
+        @error_count = 0
+      end
+
+      # Clear out error if we didn't add any new ones.
+      def clear_if_no_errors
+        self.clear if @error_count.zero?
+      end
+
+      # Get the string representation of the error.
+      def to_s
+        return @value.to_s
+      end
+
+    end
+  end
+end

data/lib/gloo/core/event_manager.rb

@@ -8,39 +8,33 @@
 module Gloo
   module Core
     class EventManager
-            
+
       # Set up the event manager.
-      def initialize()
-        $log.debug "event manager intialized..."        
+      def initialize
+        $log.debug 'event manager intialized...'
       end
-      
-      # 
+
+      #
       # Run on_load scripts in the recently loaded object
       # If no obj is given the script will be run in root.
-      # 
-      def on_load obj=nil, in_heap=false
+      #
+      def on_load( obj = nil, in_heap = false )
         return unless obj || in_heap
-        arr = Gloo::Core::ObjFinder.by_name "on_load", obj
-        arr.each do |o|
-          if o.can_receive_message? "run"
-            o.send_message "run"
-          end
-        end
+
+        arr = Gloo::Core::ObjFinder.by_name 'on_load', obj
+        arr.each { |o| Gloo::Exec::Dispatch.message 'run', o }
       end
 
-      # 
+      #
       # Run on_unload scripts in the object that will be unloaded.
-      # 
-      def on_unload obj
+      #
+      def on_unload( obj )
         return unless obj
-        arr = Gloo::Core::ObjFinder.by_name "on_unload", obj
-        arr.each do |o|
-          if o.can_receive_message? "run"
-            o.send_message "run"
-          end
-        end
+
+        arr = Gloo::Core::ObjFinder.by_name 'on_unload', obj
+        arr.each { |o| Gloo::Exec::Dispatch.message 'run', o }
       end
-      
+
     end
   end
 end

data/lib/gloo/core/factory.rb

@@ -7,61 +7,171 @@
 module Gloo
   module Core
     class Factory < Baseo
-            
+
+      # ---------------------------------------------------------------------
+      #    Initializer
+      # ---------------------------------------------------------------------
+
+      #
       # Set up the object factory.
-      def initialize()
-        $log.debug "object factory intialized..."
+      #
+      def initialize
+        $log.debug 'object factory intialized...'
+      end
+
+      # ---------------------------------------------------------------------
+      #    Factory Helpers
+      # ---------------------------------------------------------------------
+
+      #
+      # Helper shortcut to create a string child object.
+      #
+      def create_untyped( name, value, parent )
+        params = { :name => name,
+                   :type => 'untyped',
+                   :value => value,
+                   :parent => parent }
+        create params
+      end
+
+      #
+      # Helper shortcut to create a string child object.
+      #
+      def create_string( name, value, parent )
+        params = { :name => name,
+                   :type => 'string',
+                   :value => value,
+                   :parent => parent }
+        create params
+      end
+
+      #
+      # Helper shortcut to create an integer child object.
+      #
+      def create_int( name, value, parent )
+        params = { :name => name,
+                   :type => 'integer',
+                   :value => value,
+                   :parent => parent }
+        create params
       end
-      
+
+      #
+      # Helper shortcut to create a boolean child object.
+      #
+      def create_bool( name, value, parent )
+        params = { :name => name,
+                   :type => 'boolean',
+                   :value => value,
+                   :parent => parent }
+        create params
+      end
+
+      #
+      # Helper shortcut to create a container child object.
+      #
+      def create_can( name, parent )
+        params = { :name => name,
+                   :type => 'container',
+                   :value => nil,
+                   :parent => parent }
+        create params
+      end
+
+      #
+      # Helper shortcut to create a script child object.
+      #
+      def create_script( name, value, parent )
+        params = { :name => name,
+                   :type => 'script',
+                   :value => value,
+                   :parent => parent }
+        create params
+      end
+
+      # ---------------------------------------------------------------------
+      #    Object Factory
+      # ---------------------------------------------------------------------
+
       # Create object with given name, type and value.
       # One of either name or type is required.
       # All values are optional when considered on their own.
-      def create name=nil, type=nil, value=nil, parent=nil, squash_dups=true
-        objtype = find_type( type )
-        pn = Gloo::Core::Pn.new name
+      # Parameter hash keys:
+      #  :name - the name of the object
+      #  :type - the name of the type
+      #  :value - the initial object value
+      #  :parent - the parent object
+      #  :squash_duplicates - if the object exists, use it rather
+      #                       than creating a new one?  Default = true
+      def create( params )
+        objtype = find_type params[ :type ]
+        return nil unless objtype
+
+        pn = Gloo::Core::Pn.new params[ :name ]
+        parent = params[ :parent ]
         if parent.nil?
           parent = pn.get_parent
           obj_name = pn.name
         else
-          obj_name = name
+          obj_name = params[ :name ]
         end
 
-        if objtype
-          unless objtype.can_create?
-            $log.error "'#{type}' cannot be created."
-            return nil
-          end
-          if pn.exists? && squash_dups
-            o = pn.resolve
-            o.set_value value
-            return o
-          else
-            o = objtype.new
-            o.name = obj_name
-            o.set_value value
-            
-            if parent
-              parent.add_child( o )
-              return o          
-            else
-              $log.error "Could not create object.  Bad path: #{name}"
-              return nil
-            end
-          end
-        else
-          $log.warn "Could not find type, '#{type}'"
+        if pn.exists? && params[ :squash_duplicates ]
+          $log.debug "Updating existing object: #{name}"
+          return self.update_existing pn, params[ :value ]
+        end
+
+        $log.debug "Creating new object: #{name}"
+        return create_new obj_name, params[ :value ], objtype, parent
+      end
+
+      #
+      # Create a new object.
+      #
+      def create_new( name, value, type, parent )
+        unless parent
+          $log.error "Could not create object.  Bad path: #{name}"
           return nil
-        end        
+        end
+
+        o = type.new
+        o.name = name
+        o.set_value value
+        parent.add_child( o )
+        return o
+      end
+
+      #
+      # Find and Update an existing object.
+      #
+      def update_existing( pn, value )
+        o = pn.resolve
+        o.set_value value
+        return o
       end
-      
+
+      #
       # Find the object type by name.
-      def find_type type_name
-        if type_name.nil? || type_name.strip.empty?
-          type_name = "untyped"
+      # Return nil if the object type cannot be found or
+      # cannot be created.
+      #
+      def find_type( type_name )
+        type_name = 'untyped' if type_name.nil? || type_name.strip.empty?
+        t = $engine.dictionary.find_obj( type_name )
+
+        if t.nil?
+          $log.warn "Could not find type, '#{type_name}'"
+          return nil
+        end
+
+        unless t.can_create?
+          $log.error "'#{type_name}' cannot be created."
+          return nil
         end
-        return $engine.dictionary.find_obj( type_name )
+
+        return t
       end
-            
+
     end
   end
 end