gloo 0.3.0

data/lib/gloo/core/it.rb

@@ -0,0 +1,30 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# It is the value of the last command that was run.
+#
+
+module Gloo
+  module Core
+    class It
+      
+      attr_accessor :value
+      
+      # Set up the object.
+      def initialize()
+        @value = nil
+      end
+            
+      # Set the value of it.
+      def set_to new_value
+        @value = new_value
+      end
+
+      # Get the string representation of it.
+      def to_s
+        return @value.to_s
+      end
+
+    end
+  end
+end

data/lib/gloo/core/literal.rb

@@ -0,0 +1,25 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A Literal value.
+#
+
+module Gloo
+  module Core
+    class Literal
+      
+      attr_reader :value
+      
+      # Create the expression from a list of tokens.
+      def initialize value
+        set_value( value )
+      end
+      
+      # Set the literal value.
+      def set_value value
+        @value = value
+      end      
+      
+    end
+  end
+end

data/lib/gloo/core/obj.rb

@@ -0,0 +1,222 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An data/value object.
+# Derives from the Baseo object.  Is not a verb.
+#
+
+module Gloo
+  module Core
+    class Obj < Baseo
+      
+      attr_accessor :value
+      attr_reader :children, :parent
+
+      # Set up the object.
+      def initialize()
+        @value = ""
+        @children = []
+        @parent = nil
+      end
+        
+      # Register object types when they are loaded.
+      def self.inherited( subclass )
+        Dictionary.instance.register_obj( subclass )
+      end
+
+      # 
+      # The name of the object type.
+      # 
+      def self.typename
+        raise 'this method should be overriden'
+      end
+
+      # 
+      # The object type, suitable for display.
+      # 
+      def type_display
+        return self.class.typename
+      end
+
+      # 
+      # Set the parent for the object.
+      # 
+      def set_parent obj
+        @parent = obj
+      end
+      
+      # Is this the root object?
+      def is_root?
+        return false if @parent
+        return false unless name.downcase == "root"
+        return true
+      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?
+        true
+      end
+      
+      
+      # ---------------------------------------------------------------------
+      #    Value
+      # ---------------------------------------------------------------------
+
+      # 
+      # Set the value with any necessary type conversions.
+      # 
+      def set_value new_value
+        self.value = new_value
+      end
+      
+      # 
+      # Get the value for display purposes.
+      # 
+      def value_display
+        return self.value.to_s
+      end
+      
+      # 
+      # Does this object support multi-line values?
+      # Initially only true for scripts.
+      # 
+      def has_multiline_value?
+        return false
+      end
+      
+      # 
+      # Is the value a String?
+      # 
+      def value_is_string?
+        return self.value.is_a? String
+      end
+
+      # 
+      # Is the value an Array?
+      # 
+      def value_is_array?
+        return self.value.is_a? Array
+      end
+      
+      # 
+      # Is the value a blank string?
+      # 
+      def value_is_blank?
+        return true if value.nil?
+        return self.value.to_s.strip.empty?
+      end
+      
+
+      # ---------------------------------------------------------------------
+      #    Children
+      # ---------------------------------------------------------------------
+      
+      # Add a child object to the container.
+      def add_child obj
+        @children << obj
+        obj.set_parent self
+      end
+      
+      # Get the number of children.
+      def child_count
+        return @children.count
+      end
+      
+      # Does this object contain an object with the given name?
+      def has_child? name
+        @children.each do |o|
+          return true if ( name.downcase == o.name.downcase )
+        end
+        return false
+      end
+
+      # Find a child object with the given name.
+      def find_child name
+        @children.each do |o|
+          return o if ( name.downcase == o.name.downcase )
+        end
+        return nil
+      end
+      
+      # Remove the object from the children collection.
+      def remove_child obj
+        @children.delete obj
+      end
+      
+      # 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
+      
+      # Add children to this object.
+      # This is used by containers to add children needed 
+      # for default configurations.
+      def add_default_children
+      end
+
+      
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      # 
+      # Get a list of message names that this object receives.
+      # 
+      def self.messages
+        return [ "unload" ]
+      end
+      
+      # 
+      # Can this object receive a message?
+      # 
+      def can_receive_message? msg
+        msgs = self.class.messages
+        return msgs.include?( msg.strip.downcase )
+      end
+
+      # 
+      # Sent this object the given message.
+      # 
+      def send_message msg, params=nil
+				@params = params
+        if self.can_receive_message? msg
+          return self.dispatch msg
+        else
+          $log.error "Object #{self.name} cannot receive message #{msg}"
+          return false
+        end
+      end
+      
+      # 
+      # Dispatch the message to the object.
+      # 
+      def dispatch msg
+        o = "msg_#{msg}"
+        if self.respond_to? o 
+          self.public_send( o ) 
+          return true
+        else
+          $log.error "Message #{msg} not implemented"
+          return false
+        end
+      end
+      
+      # 
+      # Send the object the unload message.
+      # 
+      def msg_unload
+        if self.is_root?
+          $log.error "Cannot unload the root object."
+          return
+        end
+        $engine.event_manager.on_unload self
+        $engine.heap.unload self
+      end
+      
+    end
+  end
+end

data/lib/gloo/core/obj_finder.rb

@@ -0,0 +1,35 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Utility used to find objects.
+#
+
+module Gloo
+  module Core
+    class ObjFinder
+                  
+      # 
+      # Find all objects in the given container that have
+      # the given name.
+      # If the container isn't provided, root will be used.
+      # 
+      def self.by_name name, container=nil
+        if container.nil?
+          container = $engine.heap.root
+        end
+        arr = []
+        
+        container.children.each do |o|
+          arr << o if o.name == name
+          if o.child_count > 0
+            arr += by_name( name, o )
+          end
+        end
+        
+        return arr
+      end
+      
+      
+    end
+  end
+end

data/lib/gloo/core/op.rb

@@ -0,0 +1,33 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An Operator; part of an expression.
+#
+
+module Gloo
+  module Core
+    class Op
+                  
+      # Is the token an operator?
+      def self.is_op? token
+        return [ "+", "-", "*", "/" ].include?( token.strip )
+      end
+      
+      # Create the operator for the given token.
+      def self.create_op token
+        return Gloo::Expr::OpMinus.new if token == '-'
+        return Gloo::Expr::OpMult.new if token == '*'
+        return Gloo::Expr::OpDiv.new if token == '/'
+        return Gloo::Expr::OpPlus.new if token == '+'
+        
+        return default_op
+      end
+      
+      # Get the default operator (+).
+      def self.default_op
+        return Gloo::Expr::OpPlus.new
+      end
+      
+    end
+  end
+end

data/lib/gloo/core/parser.rb

@@ -0,0 +1,52 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The Parser.
+# Can parse single line commands or files.
+#
+
+module Gloo
+  module Core
+    class Parser
+      
+      # Set up the parser.
+      def initialize()
+        $log.debug "parser intialized..."
+      end
+      
+      
+      # Parse a command from the immediate execution context.
+      def parse_immediate cmd
+				cmd, params = split_params cmd
+				params = Gloo::Core::Tokens.new( params ) if params
+        tokens = Gloo::Core::Tokens.new( cmd )
+        dic = Gloo::Core::Dictionary.instance
+        verb = dic.find_verb( tokens.verb )
+        return verb.new( tokens, params ) if verb
+          
+        $log.error "Verb '#{tokens.verb}' was not found."
+        return nil
+      end
+			
+			# If additional params were provided, split them out 
+			# from the token list.
+			def split_params cmd
+				params = nil
+				i = cmd.rindex( '(' )
+				if i && cmd.strip.end_with?( ')' )
+					pstr = cmd[i+1..-1]
+					params = pstr.strip[0..-2] if pstr
+					cmd = cmd[ 0, i-1]
+				end
+				return cmd, params
+			end
+      
+      # Parse a command and then run it if it parsed correctly.
+      def run cmd
+        v = parse_immediate( cmd )
+        v.run if v
+      end
+      
+    end
+  end
+end

data/lib/gloo/core/pn.rb

@@ -0,0 +1,134 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object path name.
+# Path and name elements are separated by periods.
+#
+
+module Gloo
+  module Core
+    class Pn < Baseo
+
+      attr_reader :src, :elements
+      
+      # Set up the object given a source string,
+      # ie: the full path and name.
+      def initialize( src )
+        set_to src
+      end
+      
+      # Reference to the root object path.
+      def self.root
+        return Pn.new( "root" )
+      end
+
+      # Reference to it.
+      def self.it
+        return Pn.new( "it" )
+      end
+      
+      # Does the pathname reference refer to the root?
+      def is_root?
+        return @src.downcase == "root"
+      end
+      
+      # Does the pathname reference refer to the root?
+      def is_it?
+        return @src.downcase == "it"
+      end
+      
+      # Does the pathname reference refer to the gloo system object?
+      def is_gloo_sys?
+        return false unless @elements && @elements.count > 0
+        o = @elements.first.downcase
+        return true if o == Gloo::Core::GlooSystem.typename
+        return true if o == Gloo::Core::GlooSystem.short_typename
+        return false
+      end
+
+      # Get the string representation of the pathname.
+      def to_s
+        return @src
+      end
+
+      # Set the object pathname to the given value.
+      def set_to value
+        @src = value.strip unless value.nil?
+        if @src.nil?
+          @elements = []
+        else
+          @elements = @src.split( '.' )
+        end
+      end
+      
+      # Convert the raw string to a list of segments.
+      def segments
+        return @elements
+      end
+      
+      # Get the name element.
+      def name
+        return "" unless self.has_name?
+        return @elements.last
+      end
+
+      # Does the value include path elements?
+      def has_name?
+        return @elements.count > 0
+      end
+
+      # Does the value include a name?
+      def has_path?
+        return @elements.count > 1
+      end
+      
+      # Get the parent that contains the object referenced.
+      def get_parent
+        o = $engine.heap.root
+        
+        if self.has_path?
+          @elements[0..-2].each do |e|
+            o = o.find_child( e )
+            if o.nil?
+              $log.error "Object '#{e}' was not found."
+              return nil
+            end
+          end
+        end
+        
+        return o
+      end
+      
+      # Does the object at the path exist?
+      def exists?
+        return true if self.is_root?
+        return true if self.is_it?
+        
+        parent = self.get_parent
+        return false unless parent
+        return parent.has_child? name
+      end
+			
+			# Is the reference to a color?
+			def is_color?
+				colors = [ "red", "blue", "green", "white", "black", "yellow" ]
+				return true if colors.include?( @src.downcase )
+			end
+      
+      # Resolve the pathname reference.
+      # Find the object referenced or return nil if it is not found.
+      def resolve
+        return $engine.heap.root if self.is_root?
+        return $engine.heap.it if self.is_it?
+        if self.is_gloo_sys?
+          return Gloo::Core::GlooSystem.new( self ) 
+        end
+        
+        parent = self.get_parent
+        return nil unless parent
+        return parent.find_child( self.name )
+      end
+
+    end
+  end
+end