gloo-lang 0.9.3 → 0.9.6

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

data/lib/gloo_lang/objs/system/file_handle.rb

@@ -1,138 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# An object that points to a file in the system.
-#
-require 'tty-pager'
-
-module GlooLang
-  module Objs
-    class FileHandle < GlooLang::Core::Obj
-
-      KEYWORD = 'file'.freeze
-      KEYWORD_SHORT = 'dir'.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
-        basic = %w[read write]
-        checks = %w[check_exists check_is_file check_is_dir]
-        search = %w[find_match]
-        show = %w[show page open]
-        return super + basic + show + checks + search
-      end
-
-      #
-      # Open the file in the default application for the file type.
-      #
-      def msg_open
-        return unless value && File.exist?( value )
-
-        cmd = GlooLang::Core::GlooSystem.open_for_platform
-        cmd_with_param = "#{cmd} \"#{value}\""
-        `#{cmd_with_param}`
-      end
-
-      #
-      # Show the contents of the file, paginated.
-      #
-      def msg_page
-        return unless value && File.file?( value )
-
-        pager = TTY::Pager.new
-        pager.page( path: value )
-      end
-
-      #
-      # Show the contents of the file.
-      #
-      def msg_show
-        return unless value && File.file?( value )
-
-        puts File.read( value )
-      end
-
-      #
-      # Read the contents of the file into the object.
-      #
-      def msg_read
-        return unless value && File.file?( value )
-
-        data = File.read( value )
-        if @params&.token_count&.positive?
-          pn = GlooLang::Core::Pn.new @params.first
-          o = pn.resolve
-          o.set_value data
-        else
-          $engine.heap.it.set_to data
-        end
-      end
-
-      #
-      # Write the given data out to the file.
-      #
-      def msg_write
-        data = ''
-        return unless value
-
-        if @params&.token_count&.positive?
-          expr = GlooLang::Expr::Expression.new( @params.tokens )
-          data = expr.evaluate
-        end
-        File.write( value, data )
-      end
-
-      #
-      # Check to see if the file exists.
-      #
-      def msg_check_exists
-        result = File.exist? value
-        $engine.heap.it.set_to result
-      end
-
-      #
-      # Check to see if the file is a file.
-      #
-      def msg_check_is_file
-        result = File.file? value
-        $engine.heap.it.set_to result
-      end
-
-      #
-      # Check to see if the file is a directory.
-      #
-      def msg_check_is_dir
-        result = File.directory? value
-        $engine.heap.it.set_to result
-      end
-
-      #
-      # Look for any file matching pattern.
-      #
-      def msg_find_match
-        result = !Dir.glob( value ).empty?
-        $engine.heap.it.set_to result
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/objs/system/ssh_exec.rb

@@ -1,126 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# An object that can post JSON to a URI.
-#
-require 'net/ssh'
-
-module GlooLang
-  module Objs
-    class SshExec < GlooLang::Core::Obj
-
-      KEYWORD = 'ssh_exec'.freeze
-      KEYWORD_SHORT = 'ssh'.freeze
-      HOST = 'host'.freeze
-      DEFAULT_HOST = 'localhost'.freeze
-      CMD = 'cmd'.freeze
-      RESULT = 'result'.freeze
-      HOST_REQUIRED_ERR = 'The host is required!'.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 HOST, DEFAULT_HOST, self
-        fac.create_string CMD, nil, self
-        fac.create_string RESULT, nil, self
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + [ 'run' ]
-      end
-
-      #
-      # SSH to the host and execute the command, then update result.
-      #
-      def msg_run
-        h = host_value
-        unless h
-          $engine.err HOST_REQUIRED_ERR
-          return
-        end
-
-        Net::SSH.start( h ) do |ssh|
-          result = ssh.exec!( cmd_value )
-          update_result result
-        end
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Get the host from the child object.
-      # Returns nil if there is none.
-      #
-      def host_value
-        o = find_child HOST
-        return nil unless o
-
-        return o.value
-      end
-
-      #
-      # Get the command from the child object.
-      # Returns nil if there is none.
-      #
-      def cmd_value
-        o = find_child CMD
-        return nil unless o
-
-        return o.value
-      end
-
-      #
-      # Set the result of the API call.
-      #
-      def update_result( data )
-        r = find_child RESULT
-        return nil unless r
-
-        r.set_value data
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/objs/system/system.rb

@@ -1,136 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# An object that can make a system call.
-#
-
-module GlooLang
-  module Objs
-    class System < GlooLang::Core::Obj
-
-      KEYWORD = 'system'.freeze
-      KEYWORD_SHORT = 'sys'.freeze
-      CMD = 'command'.freeze
-      DEFAULT_CMD = 'date'.freeze
-      RESULT = 'result'.freeze
-      GET_OUTPUT = 'get_output'.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 cmd_value
-        cmd = find_child CMD
-        return nil unless cmd
-
-        return cmd.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
-
-      #
-      # Should the system call get output?
-      # If so, the system call will run and get output,
-      # otherwise it will just get the result of the call.
-      #
-      def output?
-        o = find_child GET_OUTPUT
-        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 CMD, DEFAULT_CMD, self
-        fac.create_bool GET_OUTPUT, true, self
-        fac.create_string RESULT, nil, 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 output?
-          run_with_output
-        else
-          run_with_result
-        end
-      end
-
-      #
-      # Run the command and collect output.
-      #
-      def run_with_output
-        cmd = cmd_value
-        return unless cmd
-
-        result = `#{cmd}`
-        set_result result
-      end
-
-      #
-      # Run the command and set the result.
-      #
-      def run_with_result
-        cmd = cmd_value
-        return unless cmd
-
-        result = system cmd
-        set_result result
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/verbs/alert.rb

@@ -1,79 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Show a system notification.
-#
-
-module GlooLang
-  module Verbs
-    class Alert < GlooLang::Core::Verb
-
-      KEYWORD = 'alert'.freeze
-      KEYWORD_SHORT = '!'.freeze
-
-      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
-      NO_RESULT_ERR = 'Expression evaluated with no result!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        unless @tokens.token_count > 1
-          $engine.err MISSING_EXPR_ERR
-          return
-        end
-
-        expr = GlooLang::Expr::Expression.new( @tokens.params )
-        result = expr.evaluate
-
-        if result
-          $engine.heap.it.set_to result
-          post_alert result
-        else
-          $engine.err NO_RESULT_ERR
-        end
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Post the alert for the specific platform.
-      # Notice is not posted if we're in quiet mode.
-      #
-      def post_alert( msg )
-        $log.info msg
-        return if $engine.args.quiet?
-
-        post_osx msg
-      end
-
-      #
-      # Post the alert on the Mac OSX.
-      #
-      def post_osx( msg )
-        cmd1 = '/usr/bin/osascript -e "display notification \"'
-        cmd2 = '\" with title \"Gloo\" "'
-        system( cmd1 + msg.to_s + cmd2 )
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/verbs/beep.rb

@@ -1,40 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Play a standard system beep sound.
-#
-
-module GlooLang
-  module Verbs
-    class Beep < GlooLang::Core::Verb
-
-      KEYWORD = 'beep'.freeze
-      KEYWORD_SHORT = 'b'.freeze
-
-      #
-      # Run the verb.
-      #
-      # We'll mark the application as not running and let the
-      # engine stop gracefully next time through the loop.
-      #
-      def run
-        print 7.chr
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-    end
-  end
-end

data/lib/gloo_lang/verbs/cls.rb

@@ -1,37 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Clear the screen.
-#
-
-module GlooLang
-  module Verbs
-    class Cls < GlooLang::Core::Verb
-
-      KEYWORD = 'cls'.freeze
-      KEYWORD_SHORT = 'cls'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        $engine&.clear_screen
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-    end
-  end
-end