gloo-lang 0.9.4 → 0.9.5

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

@@ -1,110 +0,0 @@
-# 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

@@ -1,126 +0,0 @@
-# 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/dev/git.rb

@@ -1,140 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# An object that interacts with a git repository
-#
-
-module GlooLang
-  module Objs
-    class Git < GlooLang::Core::Obj
-
-      KEYWORD = 'git_repo'.freeze
-      KEYWORD_SHORT = 'git'.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 path to the git repo (locally).
-      #
-      def path_value
-        return value
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        actions = %w[validate commit get_branch review]
-        changes = %w[check_changes get_changes]
-        return super + changes + actions
-      end
-
-      #
-      # Get the current working branch.
-      #
-      def msg_get_branch
-        branch = ''
-        path = path_value
-        if path_is_dir?( path )
-          branch = `cd #{path}; git rev-parse --abbrev-ref HEAD`
-          branch = branch.strip
-        end
-
-        $engine.heap.it.set_to branch
-      end
-
-      #
-      # Review pending changes.
-      #
-      def msg_review
-        $log.debug 'Reviewing pending changes'
-        cmd = "cd #{path_value}; git diff"
-        $log.debug cmd
-        system cmd
-      end
-
-      #
-      # Commit pending changes.
-      #
-      def msg_commit
-        msg = 'Commit'
-        path = path_value
-        if path_is_dir?( path )
-          if @params&.token_count&.positive?
-            expr = GlooLang::Expr::Expression.new( @params.tokens )
-            msg = expr.evaluate
-          end
-          branch = `cd #{path}; git rev-parse --abbrev-ref HEAD`
-          branch = branch.strip
-          add = 'git add .'
-          cmt = 'git commit -m '
-          psh = 'git push origin '
-          `cd #{path};#{add};#{cmt}"#{msg}";#{psh}#{branch}`
-        end
-        $engine.heap.it.set_to msg
-      end
-
-      #
-      # Get the pending changes.
-      #
-      def msg_get_changes
-        path = path_value
-        result = `cd #{path}; git status -s` if path_is_dir?( path )
-        result ||= ''
-        $engine.heap.it.set_to result
-      end
-
-      #
-      # Is the given path non nil and is it a directory?
-      #
-      def path_is_dir?( path )
-        return path && File.directory?( path )
-      end
-
-      #
-      # Check to see if the repo has changes.
-      #
-      def msg_check_changes
-        result = false
-        path = path_value
-        if path_is_dir?( path )
-          data = `cd #{path}; git status -s`
-          result = true unless data.strip.empty?
-        end
-
-        $engine.heap.it.set_to result
-      end
-
-      #
-      # Check to make sure this is a valide git repo.
-      #
-      def msg_validate
-        result = false
-        path = path_value
-        if path_is_dir?( path )
-          pn = File.join( path, '.git' )
-          result = File.exist? pn
-        end
-
-        $engine.heap.it.set_to result
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/objs/dev/stats.rb

@@ -1,120 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Get statistics about a development project.
-#
-
-module GlooLang
-  module Objs
-    class Stats < GlooLang::Core::Obj
-
-      KEYWORD = 'stats'.freeze
-      KEYWORD_SHORT = 'stat'.freeze
-      FOLDER = 'folder'.freeze
-      TYPES = 'types'.freeze
-      SKIP = 'skip'.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 path to the git repo (locally).
-      #
-      def path_value
-        o = find_child FOLDER
-        return o ? o.value : nil
-      end
-
-      #
-      # The code file types to count.
-      #
-      def types_value
-        o = find_child TYPES
-        return o ? o.value : ''
-      end
-
-      #
-      # Get the list of files and folders to skip.
-      #
-      def skip_list
-        o = find_child SKIP
-        val = o ? o.value : ''
-        return val.split ' '
-      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_file FOLDER, '', self
-        fac.create_string TYPES, '', self
-        fac.create_can SKIP, self
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        all = %w[show_all]
-        more = %w[show_busy_folders show_types]
-        return super + all + more
-      end
-
-      #
-      # Show all project stats.
-      #
-      def msg_show_all
-        o = GlooLang::Utils::Stats.new( path_value, types_value, skip_list )
-        o.show_all
-      end
-
-      #
-      # Show file types.
-      #
-      def msg_show_types
-        o = GlooLang::Utils::Stats.new( path_value, types_value, skip_list )
-        o.file_types
-      end
-
-      #
-      # Show busy folders: those with the most files.
-      #
-      def msg_show_busy_folders
-        o = GlooLang::Utils::Stats.new( path_value, types_value, skip_list )
-        o.busy_folders
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/objs/snd/play.rb

@@ -1,48 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Play an audio file (MP3).
-#
-
-module GlooLang
-  module Objs
-    class Play < GlooLang::Core::Obj
-
-      KEYWORD = 'play'.freeze
-      KEYWORD_SHORT = 'play'.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
-
-      #
-      # Play the audio file.
-      #
-      def msg_run
-        system "afplay #{value}"
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/objs/snd/say.rb

@@ -1,98 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Wrapper for the 'say something' function on the Mac.
-#
-require 'erb'
-
-module GlooLang
-  module Objs
-    class Say < GlooLang::Core::Obj
-
-      KEYWORD = 'say'.freeze
-      KEYWORD_SHORT = 'say'.freeze
-      VOICE = 'voice'.freeze
-      MSG = 'message'.freeze
-      DEFAULT_MSG = 'talk to me'.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 voice to use.
-      #
-      def voice_value
-        v = find_child VOICE
-        return nil unless v
-
-        return v.value
-      end
-
-      #
-      # Get the message to speak.
-      #
-      def msg_value
-        o = find_child MSG
-        return nil 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 VOICE, '', self
-        fac.create_string MSG, DEFAULT_MSG, self
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + [ 'run' ]
-      end
-
-      #
-      # Have the computer 'speak' the message.
-      #
-      def msg_run
-        v = voice_value.empty? ? '' : "-v '#{voice_value}'"
-        cmd = "say #{v} '#{msg_value}'"
-        system cmd
-      end
-
-    end
-  end
-end