gloo-lang 0.9.0 → 0.9.3

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

data/lib/gloo_lang/persist/line_splitter.rb

@@ -0,0 +1,81 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Helper class used as part of file loading.
+# It is responsible for splitting a line into components.
+#
+
+module GlooLang
+  module Persist
+    class LineSplitter
+
+      BEGIN_BLOCK = 'BEGIN'.freeze
+      END_BLOCK = 'END'.freeze
+
+      attr_reader :obj
+
+      #
+      # Set up a line splitter
+      #
+      def initialize( line, tabs )
+        @line = line
+        @tabs = tabs
+      end
+
+      #
+      # Split the line into 3 parts.
+      #
+      def split
+        detect_name
+        detect_type
+        detect_value
+
+        return @name, @type, @value
+      end
+
+      #
+      # Detect the object name.
+      #
+      def detect_name
+        @line = @line.strip
+        @idx = @line.index( ' ' )
+        @name = @line[ 0..@idx - 1 ]
+      end
+
+      #
+      # Detect the object type.
+      #
+      def detect_type
+        @line = @line[ @idx + 1..-1 ]
+        @idx = @line.index( ' ' )
+
+        if @line[ 0 ] == ':'
+          @type = 'untyped'
+          return
+        end
+
+        @type = @line[ 0..( @idx ? @idx - 1 : -1 ) ]
+        @type = @type[ 1..-1 ] if @type[ 0 ] == '['
+        @type = @type[ 0..-2 ] if @type[ -1 ] == ']'
+      end
+
+      #
+      # Detect the object value.
+      # Use nil if there is no value specified.
+      #
+      def detect_value
+        if @idx
+          @value = @line[ @idx + 1..-1 ]
+          if @value[ 0..1 ] == ': '
+            @value = @value[ 2..-1 ]
+          elsif @value[ 0 ] == ':'
+            @value = @value[ 1..-1 ]
+          end
+        else
+          @value = nil
+        end
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/persist/persist_man.rb

@@ -0,0 +1,120 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The persistance manager.
+# Keeps a collection of object-file mappings, and then
+# uses mappings to know how/where to save updated objects.
+#
+
+module GlooLang
+  module Persist
+    class PersistMan
+
+      attr_reader :maps
+
+      #
+      # Contructor for the persistence manager.
+      #
+      def initialize
+        @maps = []
+      end
+
+      #
+      # Save one object to the file.
+      #
+      def save( name = '' )
+        if name.nil? || name.strip.empty?
+          save_all
+        else
+          save_one name
+        end
+      end
+
+      #
+      # Save one object to the file.
+      #
+      def save_all
+        @maps.each( &:save )
+      end
+
+      #
+      # Save one object to the file.
+      #
+      def save_one( name )
+        ref = GlooLang::Core::Pn.new name
+        obj = ref.resolve
+        pn = get_full_path_name name
+        fs = GlooLang::Persist::FileStorage.new( pn, obj )
+        fs.save
+      end
+
+      #
+      # Load the object from the file.
+      #
+      def load( name )
+        pns = get_full_path_names name
+        return unless pns
+
+        pns.each do |pn|
+          $log.debug "Load file(s) at: #{pn}"
+          fs = GlooLang::Persist::FileStorage.new( pn )
+          fs.load
+          @maps << fs
+          $engine.event_manager.on_load fs.obj
+        end
+      end
+
+      #
+      # Get the full path and name of the file.
+      #
+      def get_full_path_names( name )
+        return nil if name.strip.empty?
+
+        if name.strip[ -1 ] == '*'
+          pns = []
+          dir = File.join( $settings.project_path, name[ 0..-2 ] )
+          Dir.glob( "#{dir}*.gloo" ).each do |f|
+            pns << f
+          end
+          return pns
+        else
+          ext_path = File.expand_path( name )
+          return [ ext_path ] if self.gloo_file?( ext_path )
+
+          full_name = "#{name}#{file_ext}"
+          return [ File.join( $settings.project_path, full_name ) ]
+        end
+      end
+
+      #
+      # Check to see if a given path name refers to a gloo object file.
+      #
+      def gloo_file?( name )
+        return false unless name
+        return false unless File.exist?( name )
+        return false unless File.file?( name )
+        return false unless name.end_with?( self.file_ext )
+
+        return true
+      end
+
+      #
+      # Get the default file extention.
+      #
+      def file_ext
+        return '.gloo'
+      end
+
+      #
+      # Print out all object - persistance mappings.
+      # This is a debugging tool.
+      #
+      def show_maps
+        @maps.each do |o|
+          puts " \t #{o.pn} \t #{o.obj.name}"
+        end
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/utils/format.rb

@@ -0,0 +1,21 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Formatting utilities
+#
+
+module GlooLang
+  module Utils
+    class Format
+
+      #
+      # Format number, adding comma separators.
+      # Ex: 1000 -> 1,000
+      #
+      def self.number( num )
+        return num.to_s.reverse.scan( /.{1,3}/ ).join( ',' ).reverse
+      end
+
+    end
+  end
+end