gloo-lang 0.9.1 → 0.9.4

data/lib/gloo_lang/objs/basic/untyped.rb

@@ -0,0 +1,41 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An Untyped Object.
+#
+
+module GlooLang
+  module Objs
+    class Untyped < GlooLang::Core::Obj
+
+      KEYWORD = 'untyped'.freeze
+      KEYWORD_SHORT = 'un'.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 # + [ "run" ]
+      end
+
+    end
+  end
+end

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

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

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

@@ -0,0 +1,133 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Show a CLI progress bar.
+#
+require 'tty-progressbar'
+
+module GlooLang
+  module Objs
+    class Bar < GlooLang::Core::Obj
+
+      KEYWORD = 'bar'.freeze
+      KEYWORD_SHORT = 'bar'.freeze
+      NAME = 'name'.freeze
+      TOTAL = 'total'.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 bar's name from the child object.
+      #
+      def name_value
+        o = find_child NAME
+        return '' unless o
+
+        return o.value
+      end
+
+      #
+      # Get the bar's total from the child object.
+      #
+      def total_value
+        o = find_child TOTAL
+        return 100 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 NAME, '', self
+        fac.create_int TOTAL, 100, self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[start advance stop run]
+      end
+
+      #
+      # Start the progress bar.
+      #
+      def msg_start
+        msg = "#{name_value} [:bar] :percent"
+        @bar = TTY::ProgressBar.new( msg, total: total_value )
+      end
+
+      #
+      # Finish the progress bar.
+      #
+      def msg_stop
+        @bar.finish
+      end
+
+      #
+      # Advance the progress bar.
+      #
+      def msg_advance
+        x = 1
+        if @params&.token_count&.positive?
+          expr = GlooLang::Expr::Expression.new( @params.tokens )
+          x = expr.evaluate.to_i
+        end
+
+        @bar.advance x
+      end
+
+      #
+      # Run for the given number of seconds advancing
+      # the bar to the end.
+      #
+      def msg_run
+        msg_start
+
+        x = 1
+        if @params&.token_count&.positive?
+          expr = GlooLang::Expr::Expression.new( @params.tokens )
+          x = expr.evaluate.to_i
+        end
+
+        100.times do
+          sleep ( 0.0 + x ) / 100.0
+          @bar.advance 1
+        end
+
+        msg_stop
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,73 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Show colorized output.
+#
+require 'colorized_string'
+
+module GlooLang
+  module Objs
+    class Colorize < GlooLang::Core::Obj
+
+      KEYWORD = 'colorize'.freeze
+      KEYWORD_SHORT = '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
+
+      # ---------------------------------------------------------------------
+      #    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 'white', '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Run the colorize command.
+      #
+      def msg_run
+        msg = ''
+        children.each do |o|
+          msg += ColorizedString[ o.value_display ].colorize( o.name.to_sym )
+        end
+        $log.show msg
+        $engine.heap.it.set_to msg.to_s
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,96 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Show a CLI confirmation prompt.
+#
+
+module GlooLang
+  module Objs
+    class Confirm < GlooLang::Core::Obj
+
+      KEYWORD = 'confirm'.freeze
+      KEYWORD_SHORT = 'confirm'.freeze
+      PROMPT = 'prompt'.freeze
+      DEFAULT_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 URI 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, DEFAULT_PROMPT, self
+        fac.create_bool RESULT, nil, self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Run the confirmation command.
+      #
+      def msg_run
+        prompt = prompt_value
+        return unless prompt
+
+        result = $prompt.yes?( prompt )
+        set_result result
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,206 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A CLI menu.
+# The menu contains a collection of menu items, a prompt
+# and an option to loop until done.
+#
+
+module GlooLang
+  module Objs
+    class Menu < GlooLang::Core::Obj
+
+      KEYWORD = 'menu'.freeze
+      KEYWORD_SHORT = 'menu'.freeze
+      PROMPT = 'prompt'.freeze
+      ITEMS = 'items'.freeze
+      LOOP = 'loop'.freeze
+      HIDE_ITEMS = 'hide_items'.freeze
+      BEFORE_MENU = 'before_menu'.freeze
+      DEFAULT = 'default'.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 prompt child object.
+      # Returns nil if there is none.
+      #
+      def prompt_value
+        o = find_child PROMPT
+        return '' unless o
+
+        return o.value
+      end
+
+      #
+      # Get the value of the loop child object.
+      # Should we keep looping or should we stop?
+      #
+      def loop?
+        o = find_child LOOP
+        return false 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 PROMPT, '> ', self
+        fac.create_can ITEMS, self
+        fac.create_bool LOOP, true, self
+        fac.create_script DEFAULT, '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Show the menu options, and prompt for user input.
+      #
+      def msg_run
+        loop do
+          begin_menu
+          if prompt_value.empty?
+            dt = DateTime.now
+            d = dt.strftime( '%Y.%m.%d' )
+            t = dt.strftime( '%I:%M:%S' )
+            cmd = $prompt.ask( "#{d.yellow} #{t.white} >" )
+          else
+            cmd = $prompt.ask( prompt_value )
+          end
+          cmd ? run_command( cmd ) : run_default
+          break unless loop?
+        end
+      end
+
+      # ---------------------------------------------------------------------
+      #    Menu actions
+      # ---------------------------------------------------------------------
+
+      #
+      # Begin the menu execution.
+      # Run the before menu script if there is one,
+      # then show options unless we are hiding them by default.
+      #
+      def begin_menu
+        run_before_menu
+
+        # Check to see if we should show items at all.
+        o = find_child HIDE_ITEMS
+        return if o && o.value == true
+
+        show_options
+      end
+
+      #
+      # If there is a before menu script, run it now.
+      #
+      def run_before_menu
+        o = find_child BEFORE_MENU
+        return unless o
+
+        GlooLang::Exec::Dispatch.message 'run', o
+      end
+
+      #
+      # Show the list of menu options.
+      #
+      def show_options
+        o = find_child ITEMS
+        return unless o
+
+        o.children.each do |mitem|
+          mitem = GlooLang::Objs::Alias.resolve_alias( mitem )
+          puts "  #{mitem.shortcut_value} - #{mitem.description_value}"
+        end
+      end
+
+      #
+      # Find the command matching user input.
+      #
+      def find_cmd( cmd )
+        o = find_child ITEMS
+        return nil unless o
+
+        o.children.each do |mitem|
+          mitem = GlooLang::Objs::Alias.resolve_alias( mitem )
+          return mitem if mitem.shortcut_value.downcase == cmd.downcase
+        end
+
+        return nil
+      end
+
+      #
+      # Run the default option.
+      #
+      def run_default
+        obj = find_child DEFAULT
+        return unless obj
+
+        s = GlooLang::Exec::Script.new obj
+        s.run
+      end
+
+      #
+      # Run the selected command.
+      #
+      def run_command( cmd )
+        obj = find_cmd cmd
+
+        unless obj
+          if cmd == '?'
+            show_options
+          else
+            puts "#{cmd} is not a valid option"
+          end
+          return
+        end
+
+        script = obj.do_script
+        return unless script
+
+        s = GlooLang::Exec::Script.new script
+        s.run
+      end
+
+    end
+  end
+end