gloo 0.3.0 → 0.5.3

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

@@ -7,43 +7,47 @@
 module Gloo
   module Objs
     class Integer < Gloo::Core::Obj
-      
-      KEYWORD = 'integer'
-      KEYWORD_SHORT = 'int'
 
-      # 
+      KEYWORD = 'integer'.freeze
+      KEYWORD_SHORT = 'int'.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 )
+        unless new_value.is_a? Numeric
+          self.value = $engine.convert( new_value, 'Integer', 0 )
+          return
+        end
+
         self.value = new_value.to_i
       end
-      
-      
+
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get a list of message names that this object receives.
-      # 
+      #
       def self.messages
-        return super + [ "inc", "dec" ]
+        return super + %w[inc dec]
       end
-      
+
       # Increment the integer
       def msg_inc
         i = value + 1
@@ -60,6 +64,31 @@ module Gloo
         return i
       end
 
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          INTEGER OBJECT TYPE
+            NAME: integer
+            SHORTCUT: int
+
+          DESCRIPTION
+            An integer (numeric) value.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            inc - Increment the integer value by 1.
+            dec - Decrement the integer value by 1.
+        TEXT
+      end
+
     end
   end
 end

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

@@ -8,43 +8,43 @@
 module Gloo
   module Objs
     class Script < Gloo::Core::Obj
-      
-      KEYWORD = 'script'
-      KEYWORD_SHORT = 'cmd'
 
-      # 
+      KEYWORD = 'script'.freeze
+      KEYWORD_SHORT = 'cmd'.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 = new_value.to_s
       end
-      
-      # 
+
+      #
       # Set the value as an array.
-      # 
-      def set_array_value arr
+      #
+      def set_array_value( arr )
         self.value = arr
       end
-      
-      # 
+
+      #
       # Add a line (cmd) to the script.
-      # 
-      def add_line line
-        if self.value_is_string?
+      #
+      def add_line( line )
+        if self.value_string?
           first = self.value
           self.set_array_value []
           self.value << first unless first.empty?
@@ -54,48 +54,72 @@ module Gloo
         self.value << line.strip
       end
 
-      # 
+      #
       # Does this object support multi-line values?
       # Initially only true for scripts.
-      # 
-      def has_multiline_value?
+      #
+      def multiline_value?
         return true
       end
-      
-      # 
+
+      #
       # Get the number of lines in this script.
-      # 
+      #
       def line_count
-        if self.value_is_array?
-          return self.value.count
-        elsif self.value_is_string?
-          return 0 if ( self.value.strip.empty? )
-          return 1
-        else
-          return 0
+        return self.value.count if self.value_is_array?
+
+        if self.value_string?
+          return self.value.strip.empty? ? 0 : 1
         end
+
+        return 0
       end
 
-      
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get a list of message names that this object receives.
-      # 
+      #
       def self.messages
-        return super + [ "run" ]
+        return super + [ 'run' ]
       end
 
-      # 
+      #
       # Send the object the unload message.
-      # 
+      #
       def msg_run
         s = Gloo::Core::Script.new self
         s.run
       end
 
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          SCRIPT OBJECT TYPE
+            NAME: script
+            SHORTCUT: cmd
+
+          DESCRIPTION
+            An exectutable script.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            run - Run the script.
+                  The script can be run by telling the object or run.
+                  It can all be executed with the run verb.
+        TEXT
+      end
+
     end
   end
 end

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

@@ -7,43 +7,49 @@
 module Gloo
   module Objs
     class String < Gloo::Core::Obj
-      
-      KEYWORD = 'string'
-      KEYWORD_SHORT = 'str'
 
-      # 
+      KEYWORD = 'string'.freeze
+      KEYWORD_SHORT = 'str'.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 = new_value.to_s
       end
 
-      
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get a list of message names that this object receives.
-      # 
+      #
       def self.messages
-        return super + [ "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
       def msg_up
         s = value.upcase
@@ -60,6 +66,32 @@ module Gloo
         return s
       end
 
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          STRING OBJECT TYPE
+            NAME: string
+            SHORTCUT: str
+
+          DESCRIPTION
+            A string value.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            up - Convert the string to uppercase.
+            down - Convert the string to lowercase.
+            size - Get the size of the string.
+        TEXT
+      end
+
     end
   end
 end

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

@@ -3,60 +3,108 @@
 #
 # A [multiline] block of text.
 #
+require 'tty-editor'
+require 'tty-pager'
 
 module Gloo
   module Objs
     class Text < Gloo::Core::Obj
-      
-      KEYWORD = 'text'
-      KEYWORD_SHORT = 'txt'
 
-      # 
+      KEYWORD = 'text'.freeze
+      KEYWORD_SHORT = 'txt'.freeze
+      DEFAULT_TMP_FILE = 'tmp.txt'.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 = new_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
-      
-      # 
+
+      #
       # Get the number of lines of text.
-      # 
+      #
       def line_count
         return value.split( "\n" ).count
       end
-      
-      
+
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # 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
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          TEXT OBJECT TYPE
+            NAME: text
+            SHORTCUT: txt
+
+          DESCRIPTION
+            A longer, multi-line text string.
+
+          CHILDREN
+            None
+
+          MESSAGES
+            edit - Edit the text field in the default editor.
+            page - Show the text, paginated.
+        TEXT
       end
 
     end