gloo 0.3.0

data/lib/gloo/core/dictionary.rb

@@ -0,0 +1,101 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A dictionary of Objects and Verbs.
+#
+require 'singleton'
+
+module Gloo
+  module Core
+    class Dictionary
+      
+      include Singleton
+      
+      attr_reader :verbs, :objs
+      
+      # Set up the object dictionary.
+      def initialize()
+        @verbs = {}
+        @objs = {}
+        @verb_references = []
+        @obj_references = []
+      end
+      
+      # Register a verb.
+      def register_verb subclass
+        @verb_references << subclass
+      end
+      
+      # Register an object type.
+      def register_obj subclass
+        @obj_references << subclass
+      end
+
+      # Initialize verbs and objects in the dictionary.
+      def init
+        $log.debug "initializing dictionaries"
+        init_verbs
+        init_objs
+      end
+
+      # Init the list of verbs.
+      def init_objs
+        $log.debug "initializing #{@obj_references.count} objects"
+        @obj_references.each do |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
+        return false unless word
+        return @objs.key?( word.downcase )
+      end
+      
+      # Find the object type by name.
+      def find_obj word
+        return nil unless word
+        return nil unless is_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
+          @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
+        return false unless word
+        return @verbs.key?( word.downcase )
+      end
+      
+      # Find the verb by name.
+      def find_verb verb
+        return nil unless verb
+        return nil unless is_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 }
+      end
+      
+      # Get the list of verbs, sorted.
+      def get_verbs
+        return @verb_references.sort{ |a,b| a.keyword <=> b.keyword }
+      end
+      
+    end
+  end
+end

data/lib/gloo/core/event_manager.rb

@@ -0,0 +1,46 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The Event Manager.
+# Run scripts in response to pre-defined events.
+#
+
+module Gloo
+  module Core
+    class EventManager
+            
+      # Set up the event manager.
+      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
+        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
+      end
+
+      # 
+      # Run on_unload scripts in the object that will be unloaded.
+      # 
+      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
+      end
+      
+    end
+  end
+end

data/lib/gloo/core/factory.rb

@@ -0,0 +1,67 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object factory.
+#
+
+module Gloo
+  module Core
+    class Factory < Baseo
+            
+      # Set up the object factory.
+      def initialize()
+        $log.debug "object factory intialized..."
+      end
+      
+      # 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
+        if parent.nil?
+          parent = pn.get_parent
+          obj_name = pn.name
+        else
+          obj_name = 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}'"
+          return nil
+        end        
+      end
+      
+      # Find the object type by name.
+      def find_type type_name
+        if type_name.nil? || type_name.strip.empty?
+          type_name = "untyped"
+        end
+        return $engine.dictionary.find_obj( type_name )
+      end
+            
+    end
+  end
+end

data/lib/gloo/core/gloo_system.rb

@@ -0,0 +1,190 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The System Object.
+# A virtual Object: the system object can be used to access
+# system level variables and functions.  But it is not
+# actually an object in the normal sense of the word.
+#
+
+module Gloo
+  module Core
+    class GlooSystem < Obj
+      
+      KEYWORD = 'gloo'
+      KEYWORD_SHORT = '$'
+      
+      attr_reader :pn
+
+
+      # Set up the object.
+      def initialize( pn )
+        @pn = pn
+      end
+        
+      # 
+      # The name of the object type.
+      # 
+      def self.typename
+        return KEYWORD
+      end
+
+      # 
+      # The short name of the object type.
+      # 
+      def self.short_typename
+        return KEYWORD_SHORT
+      end
+
+      # 
+      # The object type, suitable for display.
+      # 
+      def type_display
+        return self.class.typename
+      end
+
+      
+      # Is this the root object?
+      def is_root?
+        return false
+      end
+
+      # Can this object be created?
+      # This is true by default and only false for some special cases
+      # such as the System object.
+      def self.can_create?
+        false
+      end
+
+      
+      # ---------------------------------------------------------------------
+      #    Value
+      # ---------------------------------------------------------------------
+
+      # 
+      # Get the parameter.
+      # 
+      def param
+        return nil unless @pn && @pn.segments.count > 1
+        return @pn.segments[1..-1].join( "_" )
+      end
+      
+      #
+      # Get the system value.
+      # 
+      def value
+        return dispatch param
+      end
+      
+      # 
+      # There is no value object in the system.
+      # 
+      def set_value new_value
+      end
+      
+      # 
+      # Get the value for display purposes.
+      # 
+      def value_display
+        return value
+      end
+            
+      # 
+      # Is the value a String?
+      # 
+      def value_is_string?
+        return true
+      end
+
+      # 
+      # Is the value an Array?
+      # 
+      def value_is_array?
+        return false
+      end
+      
+      # 
+      # Is the value a blank string?
+      # 
+      def value_is_blank?
+        return true
+      end
+
+
+      # ---------------------------------------------------------------------
+      #    Children
+      # ---------------------------------------------------------------------
+
+      # Does this object have children to add when an object
+      # is created in interactive mode?
+      # This does not apply during obj load, etc.
+      def add_children_on_create?
+        return false
+      end
+
+      
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      # 
+      # Get a list of message names that this object receives.
+      # 
+      def self.messages
+        return []
+      end
+      
+      # Dispatch the message and get the value.
+      def dispatch msg
+        o = "msg_#{msg}"
+        if self.respond_to? o 
+          return self.public_send( o ) 
+        else
+          $log.error "Message #{msg} not implemented"
+          return false
+        end
+      end
+      
+      # Get the system hostname.
+      def msg_hostname
+        return Socket.gethostname
+      end
+      
+      # Get the logged in User.
+      def msg_user
+        return ENV[ 'USER' ]
+      end
+
+      # Get the user's home directory.
+      def msg_user_home
+        return File.expand_path( "~" )
+      end
+
+			# Get the working directory.
+      def msg_working_dir
+        return Dir.pwd
+      end
+      
+      # Get the Gloo home directory
+      def msg_gloo_home
+        return $settings.user_root
+      end
+
+      # Get the Gloo home directory
+      def msg_gloo_config
+        return $settings.config_path
+      end
+
+      # Get the Gloo projects directory
+      def msg_gloo_projects
+        return $settings.project_path
+      end
+
+      # Get the Gloo log directory
+      def msg_gloo_log
+        return $settings.log_path
+      end
+
+    end
+  end
+end

data/lib/gloo/core/heap.rb

@@ -0,0 +1,42 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The Object Heap.
+# The collection of objects that are currently in play in
+# the running engine.
+#
+
+module Gloo
+  module Core
+    class Heap
+      
+      # The context is a reference to an object, usually a container.
+      # The context will be the root by default.
+      attr_reader :context
+      
+      # TODO:  Do I need a running script context?
+      # how to resolve relative reference.
+      
+      attr_reader :it, :root
+      
+      # Set up the object heap.
+      def initialize()
+        $log.debug "object heap intialized..."
+        
+        @root = Gloo::Objs::Container.new
+        @root.name = "root"
+        
+        @context = Pn.root
+        @it = It.new
+      end
+      
+      # Unload the given obj--remove it from the heap.
+      def unload obj
+        can = obj.parent.nil? ? @root : obj.parent
+        return unless can
+        can.remove_child obj
+      end
+      
+    end
+  end
+end