gloo-lang 0.9.2 → 0.9.5

data/lib/gloo_lang/objs/web/slack.rb

@@ -0,0 +1,130 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object that can send a message to a slack channel.
+#
+require 'net/http'
+require 'uri'
+require 'json'
+
+module GlooLang
+  module Objs
+    class Slack < GlooLang::Core::Obj
+
+      KEYWORD = 'slack'.freeze
+      KEYWORD_SHORT = 'slack'.freeze
+      URL = 'uri'.freeze
+      MSG = 'message'.freeze
+      USER = 'username'.freeze
+      CHANNEL = 'channel'.freeze
+      ICON = 'icon_emoji'.freeze
+
+      ATTACHMENT = 'attachment'.freeze
+      TITLE = 'title'.freeze
+      TEXT = 'text'.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 uri_value
+        uri = find_child URL
+        return nil unless uri
+
+        return uri.value
+      end
+
+      #
+      # Get the URI from the child object.
+      # Returns nil if there is none.
+      #
+      def attachment_value
+        o = find_child ATTACHMENT
+        return nil unless o
+
+        title = o.find_child TITLE
+        text = o.find_child TEXT
+        return [ { 'title' => title.value,
+                   'text' => text.value } ]
+      end
+
+      #
+      # Get all the children of the body container and
+      # convert to JSON that will be sent in the HTTP body.
+      #
+      def body_as_json
+        h = { 'text' => find_child( MSG ).value,
+              'username' => find_child( USER ).value,
+              'channel' => find_child( CHANNEL ).value,
+              'icon_emoji' => find_child( ICON ).value }
+
+        o = attachment_value
+        h[ 'attachments' ] = o if o
+        return h.to_json
+      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 URL, 'https://hooks.slack.com/services/...', self
+        fac.create_string MSG, 'textual message', self
+        fac.create_string USER, 'Slack Bot', self
+        fac.create_string CHANNEL, 'general', self
+        fac.create_string ICON, ':ghost:', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Post the content to the Slack channel.
+      #
+      def msg_run
+        uri = uri_value
+        return unless uri
+
+        GlooLang::Objs::HttpPost.post_json uri, body_as_json
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/web/teams.rb

@@ -0,0 +1,117 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object that can send a message to a Teams webhook.
+#
+require 'net/http'
+require 'uri'
+require 'json'
+
+module GlooLang
+  module Objs
+    class Teams < GlooLang::Core::Obj
+
+      KEYWORD = 'teams'.freeze
+      KEYWORD_SHORT = 'team'.freeze
+      URL = 'uri'.freeze
+      DEFAULT_URL = 'https://outlook.office.com/webhook/...'.freeze
+      MSG = 'message'.freeze
+      TITLE = 'title'.freeze
+      COLOR = 'color'.freeze
+      DEFAULT_COLOR = '008000'.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 uri_value
+        uri = find_child URL
+        return nil unless uri
+
+        return uri.value
+      end
+
+      # Get the color value.
+      def color_value
+        c = find_child COLOR
+        return nil unless c
+
+        return c.value
+      end
+
+      #
+      # Get all the children of the body container and
+      # convert to JSON that will be sent in the HTTP body.
+      #
+      def body_as_json
+        h = { 'title' => find_child( TITLE ).value,
+              'text' => find_child( MSG ).value }
+        color = color_value
+        h[ 'themeColor' ] = color if color
+        return h.to_json
+      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 URL, DEFAULT_URL, self
+        fac.create_string TITLE, '', self
+        fac.create_string COLOR, DEFAULT_COLOR, self
+        fac.create_string MSG, '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Post the content to Microsoft Teams.
+      #
+      def msg_run
+        uri = uri_value
+        return unless uri
+
+        GlooLang::Objs::HttpPost.post_json uri, body_as_json
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/web/uri.rb

@@ -0,0 +1,148 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A URI (URL).
+#
+require 'uri'
+require 'net/http'
+require 'openssl'
+
+module GlooLang
+  module Objs
+    class Uri < GlooLang::Core::Obj
+
+      KEYWORD = 'uri'.freeze
+      KEYWORD_SHORT = 'url'.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
+
+      #
+      # Set the value with any necessary type conversions.
+      #
+      def set_value( new_value )
+        self.value = new_value.to_s
+      end
+
+      #
+      # Does this object support multi-line values?
+      # Initially only true for scripts.
+      #
+      def multiline_value?
+        return false
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        basic = %w[open]
+        gets = %w[get_scheme get_host get_path]
+        more = %w[get_query get_fragment get_cert_expires]
+        return super + basic + gets + more
+      end
+
+      #
+      # Get the expiration date for the certificate.
+      #
+      def msg_get_cert_expires
+        return unless value
+        o = value
+        uri = URI( value )
+        response = Net::HTTP.start( uri.host, uri.port, :use_ssl => true )
+        cert = response.peer_cert
+        o = cert.not_after
+
+        $engine.heap.it.set_to o
+        return o
+      end
+
+      #
+      # Get the URI fragment that comes after the '#'
+      # in the URL.  Might be used to scroll down in the page.
+      #
+      def msg_get_fragment
+        return unless value
+
+        o = URI( value ).fragment
+        $engine.heap.it.set_to o
+        return o
+      end
+
+      #
+      # Get the URI query parameters.
+      # Example:  id=121
+      #
+      def msg_get_query
+        return unless value
+
+        o = URI( value ).query
+        $engine.heap.it.set_to o
+        return o
+      end
+
+      #
+      # Get the URI path.
+      # Example:  /posts
+      #
+      def msg_get_path
+        return unless value
+
+        o = URI( value ).path
+        $engine.heap.it.set_to o
+        return o
+      end
+
+      #
+      # Get the URI host.
+      # Example:  google.com
+      #
+      def msg_get_host
+        return unless value
+
+        o = URI( value ).host
+        $engine.heap.it.set_to o
+        return o
+      end
+
+      #
+      # Get the URI Scheme.
+      # Example:  http
+      #
+      def msg_get_scheme
+        return unless value
+
+        o = URI( value ).scheme
+        $engine.heap.it.set_to o
+        return o
+      end
+
+      #
+      # Open the URI in the default browser.
+      #
+      def msg_open
+        return unless value
+
+        cmd = GlooLang::Core::GlooSystem.open_for_platform
+        cmd_with_param = "#{cmd} \"#{value}\""
+        `#{cmd_with_param}`
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/persist/file_loader.rb

@@ -0,0 +1,191 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Helper class used to load a file and create objects in the heap.
+#
+
+module GlooLang
+  module Persist
+    class FileLoader
+
+      BEGIN_BLOCK = 'BEGIN'.freeze
+      END_BLOCK = 'END'.freeze
+      SPACE_CNT = 2
+
+      attr_reader :obj
+
+      #
+      # Set up a file storage for an object.
+      #
+      def initialize( pn )
+        @pn = pn
+        @tabs = 0
+        @obj = nil
+        @in_multiline = false
+        @exiting_multiline = false
+        @in_block = false
+        @block_value = ''
+        @debug = false
+      end
+
+      #
+      # Load the objects from the file.
+      #
+      def load
+        unless File.exist?( @pn )
+          $log.error "File '#{@pn}' does not exist."
+          return
+        end
+
+        $log.debug "Loading file '#{@pn}'"
+        @tabs = 0
+        @parent_stack = []
+        @parent = $engine.heap.root
+        @parent_stack.push @parent
+        f = File.open( @pn, 'r' )
+        f.each_line do |line|
+          next if skip_line? line
+
+          handle_one_line line
+        end
+      end
+
+      #
+      # Process one one of the file we're loading.
+      #
+      def handle_one_line( line )
+        if line.strip.end_with? BEGIN_BLOCK
+          @in_block = true
+          @save_line = line
+        elsif @in_block
+          if line.strip == END_BLOCK
+            @in_block = false
+            determine_indent @save_line
+            process_line @save_line
+          else
+            @block_value << line
+          end
+        else
+          determine_indent line
+          process_line line
+        end
+      end
+
+      #
+      # Is this line a comment or a blank line?
+      # If so we'll skip it.
+      #
+      def skip_line?( line )
+        line = line.strip
+        return true if line.empty?
+        return true if line[ 0 ] == '#'
+
+        return false
+      end
+
+      #
+      # Determine the relative indent level for the line.
+      #
+      def determine_indent( line )
+        tabs = tab_count( line )
+        @indent = 0 # same level as prior line
+        if tabs > @tabs # indent
+          # TODO:  What if indent is more than one more level?
+          @tabs = tabs
+          @indent = 1
+        elsif tabs < @tabs # outdent
+          diff = @tabs - tabs
+          @tabs -= diff
+          @indent -= diff
+        end
+        puts "tabs: #{@tabs}, indent: #{@indent}, line: #{line}" if @debug
+      end
+
+      #
+      # Process one line and add objects.
+      #
+      def process_line( line )
+        # reset multiline unless we're actually indented
+        if @in_multiline && @multi_indent > @indent
+          puts "Done multiline mi: #{@multi_indent}, i: #{@indent}" if @debug
+          @in_multiline = false
+          @exiting_multiline = true
+        end
+
+        if @in_multiline
+          @last.add_line line
+        else
+          setup_process_obj_line
+          process_obj_line line
+        end
+      end
+
+      #
+      # Setup and get ready to process an object line.
+      #
+      def setup_process_obj_line
+        if @exiting_multiline
+          @exiting_multiline = false
+          @indent += 1
+        end
+
+        if @indent.positive?
+          @parent = @last
+          @parent_stack.push @parent
+        elsif @indent.negative?
+          @indent.abs.times do
+            @parent_stack.pop
+            @parent = @parent_stack.last
+          end
+        end
+      end
+
+      #
+      # Process one line and add objects.
+      #
+      def process_obj_line( line )
+        name, type, value = split_line( line )
+        unless @block_value == ''
+          value = @block_value
+          @block_value = ''
+        end
+        params = { name: name, type: type, value: value, parent: @parent }
+        @last = $engine.factory.create( params )
+
+        if value.empty? && @last&.multiline_value?
+          @multi_indent = 0
+          @in_multiline = true
+          puts "*** Start multiline. multi_indent: #{@multi_indent}" if @debug
+        end
+
+        @obj = @last if @obj.nil?
+      end
+
+      #
+      # Get the number of leading tabs.
+      #
+      def tab_count( line )
+        i = 0
+
+        if line[ i ] == ' '
+          i += 1 while line[ i ] == ' '
+          tab_equiv = ( i / SPACE_CNT ).to_i
+          puts "Found #{i} spaces => #{tab_equiv}" if @debug
+          return tab_equiv
+        end
+
+        i += 1 while line[ i ] == "\t"
+        return i
+      end
+
+      #
+      # Split the line into 3 parts.
+      #
+      def split_line( line )
+        o = LineSplitter.new( line, @tabs )
+        return o.split
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/persist/file_saver.rb

@@ -0,0 +1,49 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Helper class used to save an object to a file..
+#
+
+module GlooLang
+  module Persist
+    class FileSaver
+
+      #
+      # Set up a file storage for an object.
+      #
+      def initialize( pn, obj )
+        @pn = pn
+        @obj = obj
+      end
+
+      #
+      # Save the object to the file.
+      #
+      def save
+        data = get_obj( @obj )
+        File.write( @pn, data )
+      end
+
+      #
+      # Get string of tabs for indentation.
+      #
+      def tabs( indent = 0 )
+        return "\t" * indent
+      end
+
+      #
+      # Convert an object to textual representation.
+      # This is a recursive function.
+      #
+      def get_obj( obj, indent = 0 )
+        t = tabs( indent )
+        str = "#{t}#{obj.name} [#{obj.type_display}] : #{obj.value_display}\n"
+        obj.children.each do |child|
+          str << get_obj( child, indent + 1 )
+        end
+        return str
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/persist/file_storage.rb

@@ -0,0 +1,45 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Helper class takes an object and writes it to a file.
+#
+
+module GlooLang
+  module Persist
+    class FileStorage
+
+      attr_reader :obj, :pn
+
+      #
+      # Set up a file storage for an object.
+      #
+      def initialize( pn, obj = nil )
+        @obj = obj
+        @pn = pn
+      end
+
+      #
+      # Save the object to the file.
+      #
+      def save
+        fs = FileSaver.new @pn, @obj
+        fs.save
+      end
+
+      #
+      # Load the object from the file.
+      #
+      def load
+        fl = FileLoader.new @pn
+        fl.load
+        @obj = fl.obj
+        if @obj
+          $log.debug "Loaded object: #{@obj.name}"
+        else
+          $log.error "Error loading file at #{@pn}"
+        end
+      end
+
+    end
+  end
+end