gloo-lang 0.9.0 → 0.9.3

data/lib/gloo_lang/objs/cli/menu_item.rb

@@ -0,0 +1,95 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A CLI menu item.  One element in a CLI menu.
+#
+
+module GlooLang
+  module Objs
+    class MenuItem < GlooLang::Core::Obj
+
+      KEYWORD = 'menu_item'.freeze
+      KEYWORD_SHORT = 'mitem'.freeze
+      SHORTCUT = 'shortcut'.freeze
+      DESCRIPTION = 'description'.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 value of the menu item shortcut.
+      # Returns nil if there is none.
+      #
+      def shortcut_value
+        o = find_child SHORTCUT
+        return self.name unless o
+
+        return o.value
+      end
+
+      #
+      # Get the action's description.
+      # Returns nil if there is none.
+      #
+      def description_value
+        o = find_child DESCRIPTION
+        return self.value unless o
+
+        return o.value
+      end
+
+      #
+      # Get the action's script.
+      # Returns nil if there is none.
+      #
+      def do_script
+        return find_child DO
+      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 SHORTCUT, '', self
+        fac.create_string DESCRIPTION, '', self
+        fac.create_script DO, '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,97 @@
+# 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 GlooLang
+  module Objs
+    class Pastel < GlooLang::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
+
+    end
+  end
+end

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

@@ -0,0 +1,110 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Show a CLI prompt and collect user input.
+#
+
+module GlooLang
+  module Objs
+    class Prompt < GlooLang::Core::Obj
+
+      KEYWORD = 'prompt'.freeze
+      KEYWORD_SHORT = 'ask'.freeze
+      PROMPT = 'prompt'.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
+
+      #
+      # 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_string RESULT, nil, self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[run multiline]
+      end
+
+      #
+      # 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
+
+        result = $prompt.ask( prompt )
+        set_result result
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,126 @@
+# 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 GlooLang
+  module Objs
+    class Select < GlooLang::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 = GlooLang::App::Settings.page_size
+        result = $prompt.select( prompt, options, :per_page => per )
+        set_result self.key_for_option( result )
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,279 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A looping construct...do something for each whatever in something.
+# This object has several possible uses:
+#   - each word in a string
+#   - each line in a string
+#   - each file in a directory
+#   - each git repo in a directory
+#
+
+module GlooLang
+  module Objs
+    class Each < GlooLang::Core::Obj
+
+      KEYWORD = 'each'.freeze
+      KEYWORD_SHORT = 'each'.freeze
+      CHILD = 'child'.freeze
+      WORD = 'word'.freeze
+      LINE = 'line'.freeze
+      FILE = 'file'.freeze
+      REPO = 'repo'.freeze
+      IN = 'IN'.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 in_value
+        o = find_child IN
+        return o ? o.value : nil
+      end
+
+      #
+      # Run the do script once.
+      #
+      def run_do
+        o = find_child DO
+        return unless o
+
+        GlooLang::Exec::Dispatch.message 'run', o
+      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 WORD, '', self
+        fac.create_string IN, '', 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 system command.
+      def msg_run
+        if each_child?
+          run_each_child
+        elsif each_word?
+          run_each_word
+        elsif each_line?
+          run_each_line
+        elsif each_repo?
+          run_each_repo
+        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 = GlooLang::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
+      # ---------------------------------------------------------------------
+
+      #
+      # 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_word?
+        return true if find_child WORD
+
+        return false
+      end
+
+      #
+      # Run for each word.
+      #
+      def run_each_word
+        str = in_value
+        return unless str
+
+        str.split( ' ' ).each do |word|
+          set_word word
+          run_do
+        end
+      end
+
+      #
+      # Set the value of the word.
+      #
+      def set_word( word )
+        o = find_child WORD
+        return unless o
+
+        o.set_value word
+      end
+
+      # ---------------------------------------------------------------------
+      #    Line
+      # ---------------------------------------------------------------------
+
+      #
+      # Is it set up to run for each line?
+      # If there is a child object by the name "line"
+      # then we will loop for each line in the string.
+      #
+      def each_line?
+        return true if find_child LINE
+
+        return false
+      end
+
+      #
+      # Run for each line.
+      #
+      def run_each_line
+        str = in_value
+        return unless str
+
+        str.each_line do |line|
+          set_line line
+          run_do
+        end
+      end
+
+      #
+      # Set the value of the word.
+      #
+      def set_line( line )
+        o = find_child LINE
+        return unless o
+
+        o.set_value line
+      end
+
+      # ---------------------------------------------------------------------
+      #    Git Repo
+      # ---------------------------------------------------------------------
+
+      #
+      # Is it set up to run for each git repo?
+      # If there is a child object by the name "repo"
+      # then we will loop for each repo in the directory.
+      #
+      def each_repo?
+        return true if find_child REPO
+
+        return false
+      end
+
+      #
+      # Find all git projects in a path.
+      #
+      def find_all_git_projects( path )
+        path.children.collect do |f|
+          if f.directory? && ( File.basename( f ) == '.git' )
+            File.dirname( f )
+          elsif f.directory?
+            find_all_git_projects( f )
+          end
+        end.flatten.compact
+      end
+
+      #
+      # Run for each line.
+      #
+      def run_each_repo
+        path = in_value
+        return unless path
+
+        path = Pathname.new( path )
+        repos = find_all_git_projects( path )
+        repos.each do |o|
+          set_repo o
+          run_do
+        end
+      end
+
+      #
+      # Set the value of the repo.
+      # This is a path to the repo.
+      #
+      def set_repo( path )
+        o = find_child REPO
+        return unless o
+
+        o.set_value path
+      end
+
+    end
+  end
+end