gloo 0.4.0 → 0.5.4

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/event_manager.rb

@@ -22,9 +22,7 @@ module Gloo
         return unless obj || in_heap
 
         arr = Gloo::Core::ObjFinder.by_name 'on_load', obj
-        arr.each do |o|
-          o.send_message 'run' if o.can_receive_message? 'run'
-        end
+        arr.each { |o| Gloo::Exec::Dispatch.message 'run', o }
       end
 
       #
@@ -34,9 +32,7 @@ module Gloo
         return unless obj
 
         arr = Gloo::Core::ObjFinder.by_name 'on_unload', obj
-        arr.each do |o|
-          o.send_message 'run' if o.can_receive_message? 'run'
-        end
+        arr.each { |o| Gloo::Exec::Dispatch.message 'run', o }
       end
 
     end

data/lib/gloo/core/factory.rb

@@ -23,7 +23,20 @@ module Gloo
       #    Factory Helpers
       # ---------------------------------------------------------------------
 
-      # Helper shortcut to create a string.
+      #
+      # 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',
@@ -32,6 +45,50 @@ module Gloo
         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
       # ---------------------------------------------------------------------
@@ -60,11 +117,11 @@ module Gloo
         end
 
         if pn.exists? && params[ :squash_duplicates ]
-          $log.debug "Updating existing object: #{name}"
+          $log.debug "Updating existing object: #{obj_name}"
           return self.update_existing pn, params[ :value ]
         end
 
-        $log.debug "Creating new object: #{name}"
+        $log.debug "Creating new object: #{obj_name}"
         return create_new obj_name, params[ :value ], objtype, parent
       end
 

data/lib/gloo/core/gloo_system.rb

@@ -6,6 +6,7 @@
 # system level variables and functions.  But it is not
 # actually an object in the normal sense of the word.
 #
+require 'tty-platform'
 
 module Gloo
   module Core
@@ -180,6 +181,77 @@ module Gloo
         return $settings.log_path
       end
 
+      # ---------------------------------------------------------------------
+      #    Screen Messages
+      # ---------------------------------------------------------------------
+
+      # Get the number of lines on screen.
+      def msg_screen_lines
+        return Gloo::App::Settings.lines
+      end
+
+      # Get the number of columns on screen.
+      def msg_screen_cols
+        return Gloo::App::Settings.cols
+      end
+
+      # ---------------------------------------------------------------------
+      #    Platform Messages
+      # ---------------------------------------------------------------------
+
+      # Get the platform CPU
+      def msg_platform_cpu
+        platform = TTY::Platform.new
+        return platform.cpu
+      end
+
+      # Get the platform Operating System
+      def msg_platform_os
+        platform = TTY::Platform.new
+        return platform.os
+      end
+
+      # Get the platform version
+      def msg_platform_version
+        platform = TTY::Platform.new
+        return platform.version
+      end
+
+      # Is the platform Windows?
+      def msg_platform_windows?
+        platform = TTY::Platform.new
+        return platform.windows?
+      end
+
+      # Is the platform Unix?
+      def msg_platform_unix?
+        platform = TTY::Platform.new
+        return platform.unix?
+      end
+
+      # Is the platform Linux?
+      def msg_platform_linux?
+        platform = TTY::Platform.new
+        return platform.linux?
+      end
+
+      # Is the platform Mac?
+      def msg_platform_mac?
+        platform = TTY::Platform.new
+        return platform.mac?
+      end
+
+      #
+      # Get the command to open a file on this platform.
+      #
+      def self.open_for_platform
+        platform = TTY::Platform.new
+        return 'open' if platform.mac?
+        return 'xdg-open' if platform.linux?
+
+        return nil
+      end
+
     end
   end
 end

data/lib/gloo/core/obj.rb

@@ -60,6 +60,19 @@ module Gloo
         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
+
       # ---------------------------------------------------------------------
       #    Value
       # ---------------------------------------------------------------------
@@ -113,6 +126,21 @@ module Gloo
       #    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
@@ -134,13 +162,34 @@ module Gloo
 
       # Find a child object with the given name.
       def find_child( name )
+        if name.end_with?( Gloo::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 == Gloo::Objs::Alias.typename
+          ln = Gloo::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
@@ -167,7 +216,7 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return [ 'unload' ]
+        return %w[unload]
       end
 
       #

data/lib/gloo/core/parser.rb

@@ -40,10 +40,12 @@ module Gloo
         return cmd, params
       end
 
+      #
       # Parse a command and then run it if it parsed correctly.
+      #
       def run( cmd )
         v = parse_immediate( cmd )
-        Runner.go( v ) if v
+        Gloo::Exec::Runner.go( v ) if v
       end
 
     end

data/lib/gloo/core/pn.rb

@@ -69,7 +69,7 @@ module Gloo
 
       # Set the object pathname to the given value.
       def set_to( value )
-        @src = value.strip unless value.nil?
+        @src = value.nil? ? nil : value.strip
         @elements = @src.nil? ? [] : @src.split( '.' )
       end
 
@@ -141,7 +141,8 @@ module Gloo
         parent = self.get_parent
         return nil unless parent
 
-        return parent.find_child( self.name )
+        obj = parent.find_child( self.name )
+        return Gloo::Objs::Alias.resolve_alias( obj, self.src )
       end
 
     end

data/lib/gloo/exec/dispatch.rb

@@ -0,0 +1,30 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Central Message Dispatch.
+# Responsible for sending message to objects.
+# All object messaging goes through here so we can uniformly
+# manage things like checking to make sure object can
+# receive the messages sent, handling errors, etc.
+#
+
+module Gloo
+  module Exec
+    class Dispatch
+
+      #
+      # Dispatch the given message to the given object.
+      #
+      def self.message( msg, to_obj, params = nil )
+        $log.debug "----- Sending message #{msg} to #{to_obj.name}"
+
+        if to_obj.can_receive_message? msg
+          to_obj.send_message msg, params
+        else
+          $log.warn "Object #{to_obj.name} does not respond to #{msg}"
+        end
+      end
+
+    end
+  end
+end

data/lib/gloo/exec/runner.rb

@@ -0,0 +1,43 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# The Runner is a static helper function.
+# It is used to send the run command to verbs.
+#
+
+module Gloo
+  module Exec
+    class Runner
+
+      #
+      # Dispatch run command to a verb.
+      # We abstract this out in case there are things
+      # that need to be done before or after a verb
+      # is done running.
+      #
+      def self.go( verb )
+        $log.debug "**** Running verb #{verb.type_display}"
+        $engine.heap.error.start_tracking
+        verb&.run
+        $engine.heap.error.clear_if_no_errors
+      end
+
+      #
+      # Send 'run' message to the object.
+      # Resolve the path_name and then send the run message.
+      #
+      def self.run( path_name )
+        $log.debug "**** Running script at #{path_name}"
+        pn = Gloo::Core::Pn.new path_name
+        o = pn.resolve
+
+        if o
+          o.send_message 'run'
+        else
+          $log.error "Could not send message to object.  Bad path: #{path_name}"
+        end
+      end
+
+    end
+  end
+end

data/lib/gloo/expr/expression.rb

@@ -85,6 +85,7 @@ module Gloo
         return LBoolean.new( token ) if LBoolean.boolean?( token )
         return LInteger.new( token ) if LInteger.integer?( token )
         return LString.new( token ) if LString.string?( token )
+        return LDecimal.new( token ) if LDecimal.decimal?( token )
 
         # last chance: an Object reference
         return Gloo::Core::Pn.new( token )

data/lib/gloo/expr/l_decimal.rb

@@ -0,0 +1,34 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A literal decimal value.
+#
+
+module Gloo
+  module Expr
+    class LDecimal < Gloo::Core::Literal
+
+      #
+      # Is the given token a decimal?
+      #
+      def self.decimal?( token )
+        return true if token.is_a? Numeric
+
+        s = token.strip
+        return s.to_f.to_s == s
+      end
+
+      # Set the value, converting to an integer.
+      def set_value( value )
+        value = value.to_s if value.is_a? Numeric
+
+        @value = value.to_f
+      end
+
+      def to_s
+        return self.value.to_s
+      end
+
+    end
+  end
+end