gloo 0.3.0 → 0.5.3

data/lib/gloo/core/gloo_system.rb

@@ -6,46 +6,45 @@
 # 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
     class GlooSystem < Obj
-      
-      KEYWORD = 'gloo'
-      KEYWORD_SHORT = '$'
-      
-      attr_reader :pn
 
+      KEYWORD = 'gloo'.freeze
+      KEYWORD_SHORT = '$'.freeze
+
+      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?
+      def root?
         return false
       end
 
@@ -56,61 +55,61 @@ module Gloo
         false
       end
 
-      
       # ---------------------------------------------------------------------
       #    Value
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get the parameter.
-      # 
+      #
       def param
         return nil unless @pn && @pn.segments.count > 1
-        return @pn.segments[1..-1].join( "_" )
+
+        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
+      #
+      def set_value( new_value )
+        # overriding base functionality with dummy function
       end
-      
-      # 
+
+      #
       # Get the value for display purposes.
-      # 
+      #
       def value_display
         return value
       end
-            
-      # 
+
+      #
       # Is the value a String?
-      # 
-      def value_is_string?
+      #
+      def value_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
       # ---------------------------------------------------------------------
@@ -122,34 +121,31 @@ module Gloo
         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
+      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
-      
+        return self.public_send( o ) if self.respond_to? o
+
+        $log.error "Message #{msg} not implemented"
+        return false
+      end
+
       # Get the system hostname.
       def msg_hostname
         return Socket.gethostname
       end
-      
+
       # Get the logged in User.
       def msg_user
         return ENV[ 'USER' ]
@@ -157,14 +153,14 @@ module Gloo
 
       # Get the user's home directory.
       def msg_user_home
-        return File.expand_path( "~" )
+        return File.expand_path( '~' )
       end
 
-			# Get the working directory.
+      # 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
@@ -185,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/heap.rb

@@ -9,34 +9,36 @@
 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
-      
+
+      attr_reader :it, :root, :error
+
       # Set up the object heap.
-      def initialize()
-        $log.debug "object heap intialized..."
-        
+      def initialize
+        $log.debug 'object heap intialized...'
+
         @root = Gloo::Objs::Container.new
-        @root.name = "root"
-        
+        @root.name = 'root'
+
         @context = Pn.root
         @it = It.new
+        @error = Error.new
       end
-      
+
       # Unload the given obj--remove it from the heap.
-      def unload obj
+      def unload( obj )
         can = obj.parent.nil? ? @root : obj.parent
         return unless can
+
         can.remove_child obj
       end
-      
+
     end
   end
 end

data/lib/gloo/core/it.rb

@@ -7,16 +7,16 @@
 module Gloo
   module Core
     class It
-      
+
       attr_accessor :value
-      
+
       # Set up the object.
-      def initialize()
+      def initialize
         @value = nil
       end
-            
+
       # Set the value of it.
-      def set_to new_value
+      def set_to( new_value )
         @value = new_value
       end
 

data/lib/gloo/core/literal.rb

@@ -7,19 +7,19 @@
 module Gloo
   module Core
     class Literal
-      
+
       attr_reader :value
-      
+
       # Create the expression from a list of tokens.
-      def initialize value
+      def initialize( value )
         set_value( value )
       end
-      
+
       # Set the literal value.
-      def set_value value
+      def set_value( value )
         @value = value
-      end      
-      
+      end
+
     end
   end
 end

data/lib/gloo/core/obj.rb

@@ -8,47 +8,48 @@
 module Gloo
   module Core
     class Obj < Baseo
-      
+
       attr_accessor :value
       attr_reader :children, :parent
 
       # Set up the object.
-      def initialize()
-        @value = ""
+      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
+      #
+      def set_parent( obj )
         @parent = obj
       end
-      
+
       # Is this the root object?
-      def is_root?
+      def root?
         return false if @parent
-        return false unless name.downcase == "root"
+        return false unless name.downcase == 'root'
+
         return true
       end
 
@@ -58,165 +59,223 @@ module Gloo
       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
+
       # ---------------------------------------------------------------------
       #    Value
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Set the value with any necessary type conversions.
-      # 
-      def set_value new_value
+      #
+      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?
+      #
+      def multiline_value?
         return false
       end
-      
-      # 
+
+      #
       # Is the value a String?
-      # 
-      def value_is_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
+      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
+      def contains_child?( name )
         @children.each do |o|
-          return true if ( name.downcase == o.name.downcase )
+          return true if name.downcase == o.name.downcase
         end
         return false
       end
 
       # Find a child object with the given name.
-      def find_child 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 )
+          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
+      #
+      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 
+      # 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 [ "unload" ]
+        return %w[unload]
       end
-      
-      # 
+
+      #
       # Can this object receive a message?
-      # 
-      def can_receive_message? msg
+      #
+      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
+      #
+      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
+      #
+      def dispatch( msg )
         o = "msg_#{msg}"
-        if self.respond_to? o 
-          self.public_send( o ) 
+        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."
+        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