gloo 0.4.0 → 0.5.0

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

@@ -0,0 +1,120 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Show colorized output with the pastel gem.
+#
+require 'pastel'
+
+module Gloo
+  module Objs
+    class Pastel < Gloo::Core::Obj
+
+      KEYWORD = 'pastel'.freeze
+      KEYWORD_SHORT = 'pastel'.freeze
+      TEXT = 'text'.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 text from the child object.
+      #
+      def text_value
+        o = find_child TEXT
+        return '' unless o
+
+        return o.value
+      end
+
+      #
+      # Get the 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 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
+        pastel = ::Pastel.new
+        c = self.color_value.split( ' ' ).map( &:to_sym )
+        puts pastel.decorate( self.text_value, *c )
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          PASTEL OBJECT TYPE
+            NAME: pastel
+            SHORTCUT: pastel
+
+          DESCRIPTION
+            Show colorized text with the pastel gem.
+
+          CHILDREN
+            text - string
+              The text that will be colorized.
+            color - string
+              The colors.  See pastel for options.
+
+          MESSAGES
+            show - Show the colorized text.
+        TEXT
+      end
+
+    end
+  end
+end

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

@@ -28,7 +28,7 @@ module Gloo
       end
 
       #
-      # Get the URI from the child object.
+      # Get the prompt from the child object.
       # Returns nil if there is none.
       #
       def prompt_value
@@ -64,14 +64,8 @@ module Gloo
       # for default configurations.
       def add_default_children
         fac = $engine.factory
-        fac.create( { :name => 'prompt',
-                      :type => 'string',
-                      :value => '> ',
-                      :parent => self } )
-        fac.create( { :name => 'result',
-                      :type => 'string',
-                      :value => nil,
-                      :parent => self } )
+        fac.create_string PROMPT, '>', self
+        fac.create_string RESULT, nil, self
       end
 
       # ---------------------------------------------------------------------
@@ -82,10 +76,23 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return super + [ 'run' ]
+        return super + %w[run multiline]
       end
 
-      # Run the system command.
+      #
+      # Show a multiline prompt and get the user's input.
+      #
+      def msg_multiline
+        prompt = prompt_value
+        return unless prompt
+
+        result = $prompt.multiline( prompt )
+        set_result result.join
+      end
+
+      #
+      # Show the prompt and get the user's input.
+      #
       def msg_run
         prompt = prompt_value
         return unless prompt
@@ -118,6 +125,7 @@ module Gloo
 
           MESSAGES
             run - Prompt the user and then set the result.
+            multiline - Show a multiline prompt.
         TEXT
       end
 

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

@@ -0,0 +1,153 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Show a CLI prompt and user selection from a list.
+#
+
+module Gloo
+  module Objs
+    class Select < Gloo::Core::Obj
+
+      KEYWORD = 'select'.freeze
+      KEYWORD_SHORT = 'sel'.freeze
+      PROMPT = 'prompt'.freeze
+      OPTIONS = 'options'.freeze
+      RESULT = 'result'.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 prompt from the child object.
+      # Returns nil if there is none.
+      #
+      def prompt_value
+        o = find_child PROMPT
+        return nil unless o
+
+        return o.value
+      end
+
+      #
+      # Get the list of options for selection.
+      #
+      def options
+        o = find_child OPTIONS
+        return [] unless o
+
+        return o.children.map( &:name )
+      end
+
+      #
+      # Get the value of the selected item.
+      #
+      def key_for_option( selected )
+        o = find_child OPTIONS
+        return nil unless o
+
+        o.children.each do |c|
+          return c.value if c.name == selected
+        end
+
+        return nil
+      end
+
+      #
+      # Set the result of the system call.
+      #
+      def set_result( data )
+        r = find_child RESULT
+        return nil unless r
+
+        r.set_value data
+      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 PROMPT, '>', self
+        fac.create_can OPTIONS, self
+        fac.create_string RESULT, nil, self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[run]
+      end
+
+      #
+      # Show the prompt and get the user's selection.
+      #
+      def msg_run
+        prompt = prompt_value
+        return unless prompt
+
+        per = Gloo::App::Settings.page_size
+        result = $prompt.select( prompt, options, :per_page => per )
+        set_result self.key_for_option( result )
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          SELECT OBJECT TYPE
+            NAME: select
+            SHORTCUT: sel
+
+          DESCRIPTION
+            Prompt for user to select from a list of options.
+
+          CHILDREN
+            prompt - string - '> '
+              The prompt displayed to the user.
+            options - container
+              The list of options for the selection list.
+              The name of each option will be presented to the user, but
+              the value will be put in the result.
+            result - string - none
+              The result with the user's selection.
+
+          MESSAGES
+            run - Prompt the user for a selection and then set the result.
+        TEXT
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/ctrl/each.rb

@@ -15,6 +15,7 @@ module Gloo
 
       KEYWORD = 'each'.freeze
       KEYWORD_SHORT = 'each'.freeze
+      CHILD = 'child'.freeze
       WORD = 'word'.freeze
       LINE = 'line'.freeze
       FILE = 'file'.freeze
@@ -48,7 +49,9 @@ module Gloo
       # Run the do script once.
       def run_do
         o = find_child DO
-        o.send_message( 'run' ) if o.can_receive_message? 'run'
+        return unless o
+
+        Gloo::Exec::Dispatch.message 'run', o
       end
 
       # ---------------------------------------------------------------------
@@ -67,18 +70,9 @@ module Gloo
       # for default configurations.
       def add_default_children
         fac = $engine.factory
-        fac.create( { :name => 'word',
-                      :type => 'string',
-                      :value => '',
-                      :parent => self } )
-        fac.create( { :name => 'in',
-                      :type => 'string',
-                      :value => '',
-                      :parent => self } )
-        fac.create( { :name => 'do',
-                      :type => 'script',
-                      :value => '',
-                      :parent => self } )
+        fac.create_string WORD, '', self
+        fac.create_string IN, '', self
+        fac.create_script DO, '', self
       end
 
       # ---------------------------------------------------------------------
@@ -94,7 +88,9 @@ module Gloo
 
       # Run the system command.
       def msg_run
-        if each_word?
+        if each_child?
+          run_each_child
+        elsif each_word?
           run_each_word
         elsif each_line?
           run_each_line
@@ -103,6 +99,39 @@ module Gloo
         end
       end
 
+      # ---------------------------------------------------------------------
+      #    Child Object
+      # ---------------------------------------------------------------------
+
+      # Is it set up to run for each word?
+      # If there is a child object by the name "word"
+      # then we will loop for each word in the string.
+      def each_child?
+        return true if contains_child? CHILD
+
+        return false
+      end
+
+      # Run for each word.
+      def run_each_child
+        o = find_child IN
+        return unless o
+
+        o = Gloo::Objs::Alias.resolve_alias( o )
+        o.children.each do |child|
+          set_child child
+          run_do
+        end
+      end
+
+      # Set the child alias.
+      def set_child( obj )
+        o = find_child CHILD
+        return unless o
+
+        o.set_value obj.pn
+      end
+
       # ---------------------------------------------------------------------
       #    Word
       # ---------------------------------------------------------------------
@@ -153,7 +182,7 @@ module Gloo
         str = in_value
         return unless str
 
-        str.split( '\n' ).each do |line|
+        str.each_line do |line|
           set_line line
           run_do
         end
@@ -229,7 +258,7 @@ module Gloo
             Perform an action for each item in a collection.
 
           CHILDREN
-            word | line | repo - string - none
+            child | word | line | repo - string - none
               The entity we want to loop for.
               It will hold the current value while the script is running.
             in - string - none

data/lib/gloo/objs/ctrl/repeat.rb

@@ -0,0 +1,129 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A looping construct...do something x times.
+#
+
+module Gloo
+  module Objs
+    class Repeat < Gloo::Core::Obj
+
+      KEYWORD = 'repeat'.freeze
+      KEYWORD_SHORT = 'repeat'.freeze
+      TIMES = 'times'.freeze
+      INDEX = 'index'.freeze
+      DO = 'do'.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 URI from the child object.
+      # Returns nil if there is none.
+      #
+      def times
+        o = find_child TIMES
+        return o ? o.value : 0
+      end
+
+      # Run the do script once.
+      def run_do
+        o = find_child DO
+        return unless o
+
+        Gloo::Exec::Dispatch.message 'run', o
+      end
+
+      # Set the index of the current iteration.
+      def set_index( index )
+        o = find_child INDEX
+        return unless o
+
+        o.set_value index
+      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_int TIMES, 0, self
+        fac.create_int INDEX, 0, self
+        fac.create_script DO, '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Run the repeat loop.
+      #
+      def msg_run
+        times.times do |index|
+          set_index index
+          run_do
+        end
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          REPEAT OBJECT TYPE
+            NAME: repeat
+            SHORTCUT: repeat
+
+          DESCRIPTION
+            Run a script a given number of times.
+
+          CHILDREN
+            times integer - 0
+              The number of times to run the script.
+            index integer - 0
+              The current iteration when the repeat loop is running.
+            do - script - none
+              The action we want to perform for iteration of the loop.
+
+          MESSAGES
+            run - Run the script for the given number of times.
+        TEXT
+      end
+
+    end
+  end
+end