gloo-lang 0.9.2 → 0.9.3

data/lib/gloo_lang/core/obj.rb

@@ -0,0 +1,303 @@
+# 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 GlooLang
+  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 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
+
+      #
+      # Get the path and name to this object.
+      #
+      def pn
+        str = self.name
+        p = self.parent
+        while p && !p.root?
+          str = "#{p.name}.#{str}"
+          p = p.parent
+        end
+        return str
+      end
+
+      #
+      # Generic function to get display value.
+      # Can be used for debugging, etc.
+      #
+      def display_value
+        return self.pn
+      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 multiline_value?
+        return false
+      end
+
+      #
+      # Is the value a String?
+      #
+      def value_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
+      # ---------------------------------------------------------------------
+
+      #
+      # Find a child of the given name.
+      # If found, return it.  If not found create it.
+      #
+      def find_add_child( name, type )
+        child = self.find_child( name )
+        return child if child
+
+        params = { :name => name,
+                   :type => type,
+                   :value => nil,
+                   :parent => self }
+        return $engine.factory.create params
+      end
+
+      #
+      # 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 contains_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 )
+        if name.end_with?( GlooLang::Objs::Alias::ALIAS_REFERENCE )
+          name = name[ 0..-2 ]
+        end
+
+        @children.each do |o|
+          return o if name.downcase == o.name.downcase
+        end
+
+        if self.type_display == GlooLang::Objs::Alias.typename
+          ln = GlooLang::Core::Pn.new( self.value )
+          redirect = ln.resolve
+          return redirect.find_child( name )
+        end
+        return nil
+      end
+
+      #
+      # Delete all children from the container.
+      #
+      def delete_children
+        @children.reverse.each do |o|
+          self.remove_child o
+        end
+      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
+        # Override this.
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return %w[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
+        return self.dispatch msg if self.can_receive_message? msg
+
+        $log.error "Object #{self.name} cannot receive message #{msg}"
+        return false
+      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.root?
+          $log.error 'Cannot unload the root object.'
+          return
+        end
+
+        $engine.event_manager.on_unload self
+        $engine.heap.unload self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object.
+      #
+      def self.help
+        return 'No help found.'
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/obj_finder.rb

@@ -0,0 +1,30 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Utility used to find objects.
+#
+
+module GlooLang
+  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 )
+        container = $engine.heap.root if container.nil?
+        arr = []
+
+        container.children.each do |o|
+          arr << o if o.name == name
+          arr += by_name( name, o ) if o.child_count.positive?
+        end
+
+        return arr
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/op.rb

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

data/lib/gloo_lang/core/parser.rb

@@ -0,0 +1,59 @@
+# 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 GlooLang
+  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 = GlooLang::Core::Tokens.new( params ) if params
+        tokens = GlooLang::Core::Tokens.new( cmd )
+        dic = GlooLang::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 )
+        GlooLang::Exec::Runner.go( v ) if v
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/pn.rb

@@ -0,0 +1,188 @@
+# 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 GlooLang
+  module Core
+    class Pn < Baseo
+
+      ROOT = 'root'.freeze
+      IT = 'it'.freeze
+      ERROR = 'error'.freeze
+
+      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
+
+      #
+      # Reference to the error message.
+      #
+      def self.error
+        return Pn.new( ERROR )
+      end
+
+      #
+      # Does the pathname reference refer to the root?
+      #
+      def root?
+        return @src.downcase == ROOT
+      end
+
+      #
+      # Does the pathname reference refer to it?
+      #
+      def it?
+        return @src.downcase == IT
+      end
+
+      #
+      # Does the pathname reference refer to error?
+      #
+      def error?
+        return @src.downcase == ERROR
+      end
+
+      #
+      # Does the pathname reference refer to the gloo system object?
+      #
+      def gloo_sys?
+        return false unless @elements&.count&.positive?
+
+        o = @elements.first.downcase
+        return true if o == GlooLang::Core::GlooSystem.typename
+        return true if o == GlooLang::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.nil? ? nil : value.strip
+        @elements = @src.nil? ? [] : @src.split( '.' )
+      end
+
+      #
+      # Convert the raw string to a list of segments.
+      #
+      def segments
+        return @elements
+      end
+
+      #
+      # Get the name element.
+      #
+      def name
+        return '' unless self.named?
+
+        return @elements.last
+      end
+
+      #
+      # Does the value include path elements?
+      #
+      def named?
+        return @elements.count.positive?
+      end
+
+      #
+      # Does the value include a name?
+      #
+      def includes_path?
+        return @elements.count > 1
+      end
+
+      #
+      # Get the parent that contains the object referenced.
+      #
+      def get_parent
+        o = $engine.heap.root
+
+        if self.includes_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.root?
+        return true if self.it?
+        return true if self.error?
+
+        parent = self.get_parent
+        return false unless parent
+
+        return parent.contains_child? name
+      end
+
+      #
+      # Is the reference to a color?
+      #
+      def named_color?
+        colors = %w[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.root?
+        return $engine.heap.it if self.it?
+        return $engine.heap.error if self.error?
+        return GlooLang::Core::GlooSystem.new( self ) if self.gloo_sys?
+
+        Here.expand_here( self ) if Here.includes_here_ref?( @elements )
+
+        parent = self.get_parent
+        return nil unless parent
+
+        obj = parent.find_child( self.name )
+        return GlooLang::Objs::Alias.resolve_alias( obj, self.src )
+      end
+
+    end
+  end
+end