gloo 0.3.0 → 0.5.3

data/lib/gloo/expr/op_minus.rb

@@ -9,12 +9,12 @@ module Gloo
     class OpMinus < Gloo::Core::Op
 
       # Perform the operation and return the result.
-      def perform left, right
-        if left.is_a? Integer
-          return left - right.to_i
-        end
+      def perform( left, right )
+        return left - right.to_i if left.is_a? Integer
+
+        return left - right.to_f if left.is_a? Numeric
       end
-      
+
     end
   end
 end

data/lib/gloo/expr/op_mult.rb

@@ -9,12 +9,12 @@ module Gloo
     class OpMult < Gloo::Core::Op
 
       # Perform the operation and return the result.
-      def perform left, right
-        if left.is_a? Integer
-          return left * right.to_i
-        end
+      def perform( left, right )
+        return left * right.to_i if left.is_a? Integer
+
+        return left * right.to_f if left.is_a? Numeric
       end
-      
+
     end
   end
 end

data/lib/gloo/expr/op_plus.rb

@@ -9,14 +9,14 @@ module Gloo
     class OpPlus < Gloo::Core::Op
 
       # Perform the operation and return the result.
-      def perform left, right
-        if left.is_a? String
-          return left + right.to_s
-        elsif left.is_a? Integer
-          return left + right.to_i
-        end
+      def perform( left, right )
+        return left + right.to_s if left.is_a? String
+
+        return left + right.to_i if left.is_a? Integer
+
+        return left + right.to_f if left.is_a? Numeric
       end
-      
+
     end
   end
 end

data/lib/gloo/objs/basic/alias.rb

@@ -0,0 +1,111 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A String.
+#
+
+module Gloo
+  module Objs
+    class Alias < Gloo::Core::Obj
+
+      KEYWORD = 'alias'.freeze
+      KEYWORD_SHORT = 'ln'.freeze
+      ALIAS_REFERENCE = '*'.freeze
+
+      #
+      # 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
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        self.value = new_value.to_s
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[resolve]
+      end
+
+      #
+      # Check to see if the referenced object exists.
+      #
+      def msg_resolve
+        pn = Gloo::Core::Pn.new( self.value )
+        s = pn.exists?
+        $engine.heap.it.set_to s
+        return s
+      end
+
+      # ---------------------------------------------------------------------
+      #    Resolve
+      # ---------------------------------------------------------------------
+
+      #
+      # Is the object an alias  If so, then resolve it.
+      # The ref_name is the name used to refer to the object.
+      # If it ends with the * then we won't resolve the alias since
+      # we are trying to refer to the alias itself.
+      #
+      def self.resolve_alias( obj, ref_name = nil )
+        return nil unless obj
+        return obj unless obj.type_display == Gloo::Objs::Alias.typename
+        return obj if ref_name&.end_with?( ALIAS_REFERENCE )
+
+        ln = Gloo::Core::Pn.new( obj.value )
+        return ln.resolve
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          ALIAS OBJECT TYPE
+            NAME: alias
+            SHORTCUT: ln
+
+          DESCRIPTION
+            A pointer to another object.
+            Normal path-name references will refere to the aliased object.
+            To refer to the alias itself, add an * at the end of the path-name.
+            This is neeed, for example, to set the value of the alias.
+            The value of the alias is merely the path-name of the
+            referenced object.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            The alias will reflect the mesages of the object to which
+            it points.
+            The alias itself can receive the following message:
+            resolve - Check to see if the object referenced exists.
+                  Sets it to true or false.
+        TEXT
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/boolean.rb

@@ -7,88 +7,86 @@
 module Gloo
   module Objs
     class Boolean < Gloo::Core::Obj
-      
-      KEYWORD = 'boolean'
-      KEYWORD_SHORT = 'bool'
-      TRUE = 'true'
-      FALSE = 'false'
 
-      # 
+      KEYWORD = 'boolean'.freeze
+      KEYWORD_SHORT = 'bool'.freeze
+      TRUE = 'true'.freeze
+      FALSE = 'false'.freeze
+
+      #
       # 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
 
-      # 
+      #
       # Set the value with any necessary type conversions.
-      # 
-      def set_value new_value
+      #
+      def set_value( new_value )
         self.value = Gloo::Objs::Boolean.coerse_to_bool( new_value )
       end
-      
-      # 
+
+      #
       # Coerse the new value to a boolean value.
-      # 
-      def self.coerse_to_bool new_value
-        if new_value.nil?
-          return false
-        elsif new_value.class.name == "String"
+      #
+      def self.coerse_to_bool( new_value )
+        return false if new_value.nil?
+
+        if new_value.class.name == 'String'
           return true if new_value.strip.downcase == TRUE
           return false if new_value.strip.downcase == FALSE
           return true if new_value.strip.downcase == 't'
           return false if new_value.strip.downcase == 'f'
-        elsif new_value.class.name == "Integer"
-          return false if new_value == 0
-          return true
-        else
-          return new_value == true
+        elsif new_value.class.name == 'Integer'
+          return new_value.zero? ? false : true
         end
+
+        return new_value == true
       end
-      
-      # 
+
+      #
       # Is the given token a boolean?
-      # 
-      def self.is_boolean? token
+      #
+      def self.boolean?( token )
         return true if token == true
         return true if token == false
-        if token.class.name == "String"
+
+        if token.class.name == 'String'
           return true if token.strip.downcase == TRUE
           return true if token.strip.downcase == FALSE
         end
         return false
       end
 
-      
-      # 
+      #
       # Get the value for display purposes.
-      # 
+      #
       def value_display
         return value ? TRUE : FALSE
       end
 
-      
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get a list of message names that this object receives.
-      # 
+      #
       def self.messages
-        return super + [ "not", "true", "false" ]
+        return super + %w[not true false]
       end
-      
+
       # Set the value to the opposite of what it is.
       def msg_not
-        v = ! value
+        v = !value
         set_value v
         $engine.heap.it.set_to v
         return v
@@ -108,6 +106,33 @@ module Gloo
         return false
       end
 
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          BOOLEAN OBJECT TYPE
+            NAME: boolean
+            SHORTCUT: bool
+
+          DESCRIPTION
+            A boolean value.
+            Value will be either true or false.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            not - Set the boolean to the opposite of what it is now.
+            true - Set the boolean to true.
+            false - Set the boolean to false.
+        TEXT
+      end
+
     end
   end
 end

data/lib/gloo/objs/basic/container.rb

@@ -3,47 +3,106 @@
 #
 # An object that contains a collection of other objects.
 #
+require 'tty-table'
+require 'pastel'
 
 module Gloo
   module Objs
     class Container < Gloo::Core::Obj
-      
-      KEYWORD = 'container'
-      KEYWORD_SHORT = 'can'
 
-      # 
+      KEYWORD = 'container'.freeze
+      KEYWORD_SHORT = 'can'.freeze
+
+      #
       # 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
 
-      
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get a list of message names that this object receives.
-      # 
+      #
       def self.messages
-        return super + [ "count" ]
+        return super + %w[count delete_children show_key_value_table]
       end
-      
+
+      #
       # Count the number of children in the container.
+      #
       def msg_count
         i = child_count
         $engine.heap.it.set_to i
         return i
       end
 
+      #
+      # Delete all children in the container.
+      #
+      def msg_delete_children
+        self.delete_children
+      end
+
+      #
+      # Show the given table data.
+      #
+      def msg_show_key_value_table
+        data = self.children.map { |o| [ o.name, o.value ] }
+        pastel = ::Pastel.new
+        table = TTY::Table.new rows: data
+        pad = [ 0, 1, 0, 1 ]
+        rendered = table.render( :ascii, indent: 2, padding: pad ) do |r|
+          r.border.style = :blue
+          r.filter = proc do |val, _row_index, col_index|
+            col_index.zero? ? pastel.blue( val ) : pastel.white( val )
+          end
+        end
+        puts "\n  #{rendered}\n\n"
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          CONTAINER OBJECT TYPE
+            NAME: container
+            SHORTCUT: can
+
+          DESCRIPTION
+            A container of other objects.
+            A container is similar to a folder in a file system.
+            It can contain any number of objects including other containers.
+            The container structure provides direct access to any object
+            within it through the object.object.object path-name structure.
+
+          CHILDREN
+            None by default.  But any container can have any number of
+            objects added to it.
+
+          MESSAGES
+            count - Count the number of children objects in the container.
+                    The result is put in <it>.
+            delete_children - Delete all children objects from the container.
+            show_key_value_tbl - Show a table with key (name) and values
+              for all children in the container.
+        TEXT
+      end
 
     end
   end

data/lib/gloo/objs/basic/decimal.rb

@@ -0,0 +1,96 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# An object with a decimal value.
+#
+
+module Gloo
+  module Objs
+    class Decimal < Gloo::Core::Obj
+
+      KEYWORD = 'decimal'.freeze
+      KEYWORD_SHORT = 'num'.freeze
+
+      #
+      # 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
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        if new_value.nil?
+          self.value = 0.0
+          return
+        end
+
+        unless new_value.is_a? Numeric
+          self.value = $engine.convert( new_value, 'Decimal', 0.0 )
+          return
+        end
+
+        self.value = new_value.to_f
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[round]
+      end
+
+      #
+      # Round the value to a whole value.
+      # If a parameter is included in the message,
+      # round to the precision given.
+      #
+      def msg_round
+        i = value + 1
+        set_value i
+        $engine.heap.it.set_to i
+        return i
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          DECIMAL OBJECT TYPE
+            NAME: decimal
+            SHORTCUT: num
+
+          DESCRIPTION
+            A decimal (numeric) value.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            round - Round to the nearest whole value.
+              If an optional parameter is included, round to the
+              precision specified.
+        TEXT
+      end
+
+    end
+  end
+end