gloo-lang 0.9.0 → 0.9.3

data/lib/gloo_lang/objs/ror/eval.rb

@@ -0,0 +1,107 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object that evaluate a ruby statement.
+#
+
+module GlooLang
+  module Objs
+    class Eval < GlooLang::Core::Obj
+
+      KEYWORD = 'eval'.freeze
+      KEYWORD_SHORT = 'ruby'.freeze
+      CMD = 'command'.freeze
+      DEFAULT_CMD = '1+2'.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 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
+
+      # ---------------------------------------------------------------------
+      #    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_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 command and evaluate the expression.
+      #
+      def msg_run
+        cmd = cmd_value
+        return unless cmd
+
+        begin
+          # rubocop:disable Security/Eval
+          result = eval cmd
+          # rubocop:enable Security/Eval
+          set_result result
+          $engine.heap.it.set_to result
+        rescue => e
+          $engine.err e.message
+        end
+      end
+
+    end
+  end
+end

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

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

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

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

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

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