gloo 0.4.0 → 0.5.0

data/lib/gloo/expr/op_plus.rb

@@ -13,6 +13,8 @@ module Gloo
         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

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

@@ -33,16 +33,25 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return super + [ 'count' ]
+        return super + %w[count delete_children]
       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
+
       # ---------------------------------------------------------------------
       #    Help
       # ---------------------------------------------------------------------
@@ -70,6 +79,7 @@ module Gloo
           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.
         TEXT
       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

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

@@ -29,6 +29,11 @@ module Gloo
       # Set the value with any necessary type conversions.
       #
       def set_value( new_value )
+        unless new_value.is_a? Numeric
+          self.value = $engine.convert( new_value, 'Integer', 0 )
+          return
+        end
+
         self.value = new_value.to_i
       end
 

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

@@ -40,7 +40,14 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return super + %w[up down]
+        return super + %w[up down size]
+      end
+
+      # Get the size of the string.
+      def msg_size
+        s = value.size
+        $engine.heap.it.set_to s
+        return s
       end
 
       # Convert string to upper case
@@ -81,6 +88,7 @@ module Gloo
           MESSAGES
             up - Convert the string to uppercase.
             down - Convert the string to lowercase.
+            size - Get the size of the string.
         TEXT
       end
 

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

@@ -3,6 +3,8 @@
 #
 # A [multiline] block of text.
 #
+require 'tty-editor'
+require 'tty-pager'
 
 module Gloo
   module Objs
@@ -10,6 +12,7 @@ module Gloo
 
       KEYWORD = 'text'.freeze
       KEYWORD_SHORT = 'txt'.freeze
+      DEFAULT_TMP_FILE = 'tmp.txt'.freeze
 
       #
       # The name of the object type.
@@ -55,7 +58,28 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return super
+        return super + %w[edit page]
+      end
+
+      #
+      # Show the contents of the file, paginated.
+      #
+      def msg_page
+        return unless value
+
+        # pager = TTY::Pager::SystemPager.new command: 'less -R'
+        pager = TTY::Pager.new
+        pager.page( value )
+      end
+
+      #
+      # Edit the text in the default editor.
+      #
+      def msg_edit
+        tmp = File.join( $settings.tmp_path, DEFAULT_TMP_FILE )
+        File.open( tmp, 'w' ) { |file| file.write( self.value ) }
+        TTY::Editor.open( tmp )
+        set_value File.read( tmp )
       end
 
       # ---------------------------------------------------------------------
@@ -78,7 +102,8 @@ module Gloo
             None
 
           MESSAGES
-            None
+            edit - Edit the text field in the default editor.
+            page - Show the text, paginated.
         TEXT
       end
 

data/lib/gloo/objs/cli/banner.rb

@@ -0,0 +1,137 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Show a large-text banner.
+#
+require 'tty-font'
+require 'pastel'
+
+module Gloo
+  module Objs
+    class Banner < Gloo::Core::Obj
+
+      KEYWORD = 'banner'.freeze
+      KEYWORD_SHORT = 'ban'.freeze
+      TEXT = 'text'.freeze
+      STYLE = 'style'.freeze
+      COLOR = 'color'.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
+
+      #
+      # Get the banner text from the child object.
+      #
+      def text_value
+        o = find_child TEXT
+        return '' unless o
+
+        return o.value
+      end
+
+      #
+      # Get the banner style from the child object.
+      #
+      def style_value
+        o = find_child STYLE
+        return '' unless o
+
+        return o.value
+      end
+
+      #
+      # Get the banner color from the child object.
+      #
+      def color_value
+        o = find_child COLOR
+        return '' unless o
+
+        return o.value
+      end
+
+      # ---------------------------------------------------------------------
+      #    Children
+      # ---------------------------------------------------------------------
+
+      # 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 true
+      end
+
+      # Add children to this object.
+      # This is used by containers to add children needed
+      # for default configurations.
+      def add_default_children
+        fac = $engine.factory
+        fac.create_string TEXT, '', self
+        fac.create_string STYLE, '', self
+        fac.create_string COLOR, '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[show]
+      end
+
+      #
+      # Show the banner bar
+      #
+      def msg_show
+        font = TTY::Font.new self.style_value
+        t = font.write( self.text_value )
+        pastel = ::Pastel.new
+        c = self.color_value.split( ' ' ).map( &:to_sym )
+        puts pastel.decorate( t, *c )
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          BANNER OBJECT TYPE
+            NAME: banner
+            SHORTCUT: ban
+
+          DESCRIPTION
+            Banner text in large, colored font.
+
+          CHILDREN
+            text - string
+              The text for the banner.
+            style - string
+              The banner style.  See tty-font for options.
+            color - string
+              The color for the banner.  See pastel for options.
+
+          MESSAGES
+            show - Show the text banner.
+        TEXT
+      end
+
+    end
+  end
+end