gloo 0.3.0 → 0.5.3

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

@@ -0,0 +1,71 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Play an audio file (MP3).
+#
+
+module Gloo
+  module Objs
+    class Play < Gloo::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
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          PLAY OBJECT TYPE
+            NAME: play
+            SHORTCUT: play
+
+          DESCRIPTION
+            Play an audio file, an MP3 for example.
+            The value of the play object is the path to the audio file.
+
+          CHILDREN
+            None.
+
+          MESSAGES
+            run - Play the audio file.
+        TEXT
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,120 @@
+# 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 Gloo
+  module Objs
+    class Say < Gloo::Core::Obj
+
+      KEYWORD = 'say'.freeze
+      KEYWORD_SHORT = 'say'.freeze
+      VOICE = 'voice'.freeze
+      MSG = 'message'.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, 'talk to me', 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
+        v = voice_value.empty? ? '' : "-v '#{voice_value}'"
+        cmd = "say #{v} '#{msg_value}'"
+        system cmd
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          SAY OBJECT TYPE
+            NAME: say
+            SHORTCUT: say
+
+          DESCRIPTION
+            Use the Mac text to speach function to say the .
+            From the Mac CLI, run this to get a list of voices:
+              say -v '?'
+
+          CHILDREN
+            voice - string
+              The Voice to use.  If left blank, the default voice will be used.
+            message - string - 'talk to me'
+              The message to speak.
+
+          MESSAGES
+            run - Speak the message, optionally in the voice specified.
+        TEXT
+      end
+
+    end
+  end
+end

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

@@ -1,84 +1,165 @@
 # 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.
+# An object that points to a file in the system.
 #
+require 'tty-pager'
 
 module Gloo
   module Objs
     class FileHandle < Gloo::Core::Obj
-      
-      KEYWORD = 'file'
-      KEYWORD_SHORT = 'dir'
 
-      # 
+      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
-        return super + [ "read", "write",
-					"check_exists", "check_is_file", "check_is_dir" ]
+        basic = %w[read write]
+        checks = %w[check_exists check_is_file check_is_dir]
+        show = %w[show page open]
+        return super + basic + show + checks
+      end
+
+      #
+      # Open the file in the default application for the file type.
+      #
+      def msg_open
+        return unless value && File.exist?( value )
+
+        cmd = Gloo::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 = Gloo::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 = Gloo::Expr::Expression.new( @params.tokens )
+          data = expr.evaluate
+        end
+        File.write( value, data )
       end
-      
-			def msg_read
-				data = ""
-        if value && File.file?( value )
-					data = File.read( value )
-					if @params && @params.token_count > 0
-						pn = Gloo::Core::Pn.new @params.first
-		        o = pn.resolve
-						o.set_value data
-					else
-						$engine.heap.it.set_to data
-					end
-				end
-			end
-			
-			def msg_write
-				data = ""
-        if value
-					if @params && @params.token_count > 0
-						expr = Gloo::Expr::Expression.new( @params.tokens )
-						data = expr.evaluate
-	        end
-					File.write( value, data )
-				end
-			end
-			
+
+      #
       # Check to see if the file exists.
+      #
       def msg_check_exists
-				result = File.exists? value
-				$engine.heap.it.set_to result        
+        result = File.exist? value
+        $engine.heap.it.set_to result
       end
 
-			# Check to see if the file is a file.
+      #
+      # Check to see if the file is a file.
+      #
       def msg_check_is_file
-				result = File.file? value
-				$engine.heap.it.set_to result        
+        result = File.file? value
+        $engine.heap.it.set_to result
       end
 
-			# Check to see if the file is a directory.
+      #
+      # Check to see if the file is a directory.
+      #
       def msg_check_is_dir
-				result = File.directory? value
-				$engine.heap.it.set_to result        
+        result = File.directory? value
+        $engine.heap.it.set_to result
+      end
+
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          FILE OBJECT TYPE
+            NAME: file
+            SHORTCUT: dir
+
+          DESCRIPTION
+            Reference to a file or folder (directory) on disk.
+            The string value of the file object is the path and name
+            of the file.
+
+          CHILDREN
+            None.
+
+          MESSAGES
+            read <into.obj> - Read file and put data in the specified object.
+              If the <into.obj> is not specified, the data will be in <it>.
+            write <from.obj> - Write the data in the <from.object> into
+              the file.
+            show - Show the contents of the file.
+            page - Show the contents of the file, paginated
+            open - Open the file with the default application for the type.
+            check_exists - Check to see if the file exists.
+              <It> will be true or false.
+            check_is_file - Check to see if the file specified is a
+              regular file.  <It> will be true or false.
+            check_is_dir - Check to see if the file specified is a
+              diretory.  <It> will be true or false.
+        TEXT
       end
 
     end

data/lib/gloo/objs/system/system.rb

@@ -7,57 +7,59 @@
 module Gloo
   module Objs
     class System < Gloo::Core::Obj
-      
-      KEYWORD = 'system'
-      KEYWORD_SHORT = 'sys'
-      CMD = 'command'
-      RESULT = 'result'
-      GET_OUTPUT = 'get_output'
-
-      # 
+
+      KEYWORD = 'system'.freeze
+      KEYWORD_SHORT = 'sys'.freeze
+      CMD = 'command'.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 get_cmd
+      #
+      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
+      #
+      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 has_output?
+      #
+      def output?
         o = find_child GET_OUTPUT
         return false unless o
+
         return o.value
       end
-      
 
       # ---------------------------------------------------------------------
       #    Children
@@ -69,52 +71,96 @@ module Gloo
       def add_children_on_create?
         return true
       end
-      
+
       # Add children to this object.
-      # This is used by containers to add children needed 
+      # This is used by containers to add children needed
       # for default configurations.
       def add_default_children
         fac = $engine.factory
-        fac.create "command", "string", "date", self
-        fac.create "get_output", "boolean", true, self
-        fac.create "result", "string", nil, self
+        fac.create( { :name => 'command',
+                      :type => 'string',
+                      :value => 'date',
+                      :parent => self } )
+        fac.create( { :name => 'get_output',
+                      :type => 'boolean',
+                      :value => true,
+                      :parent => self } )
+        fac.create( { :name => 'result',
+                      :type => 'string',
+                      :value => nil,
+                      :parent => self } )
       end
 
-      
       # ---------------------------------------------------------------------
       #    Messages
       # ---------------------------------------------------------------------
 
-      # 
+      #
       # Get a list of message names that this object receives.
-      # 
+      #
       def self.messages
-        return super + [ "run" ]
+        return super + [ 'run' ]
       end
-      
+
       # Run the system command.
       def msg_run
-        if has_output?
+        if output?
           run_with_output
         else
           run_with_result
         end
       end
-      
+
       def run_with_output
-        cmd = get_cmd
+        cmd = cmd_value
         return unless cmd
+
         result = `#{cmd}`
         set_result result
       end
 
       def run_with_result
-        cmd = get_cmd
+        cmd = cmd_value
         return unless cmd
+
         result = system cmd
         set_result result
       end
 
+      # ---------------------------------------------------------------------
+      #    Help
+      # ---------------------------------------------------------------------
+
+      #
+      # Get help for this object type.
+      #
+      def self.help
+        return <<~TEXT
+          SYSTEM OBJECT TYPE
+            NAME: system
+            SHORTCUT: sys
+
+          DESCRIPTION
+            Execute a system command.
+
+          CHILDREN
+            command - string - 'date'
+              The command that will be sent to the system.
+            get_output - boolean - true
+              Should executing the command get the output and put it
+              in the result object?
+            result - string
+              The result of running the command.
+              The result will only be set if the 'get_output' child
+              is set to true.
+
+          MESSAGES
+            run - Run the system level command.
+              Set the result value to the output of the command if the
+              'get_output' child is marked as true.
+        TEXT
+      end
+
     end
   end
 end