gloo 0.5.4 → 0.6.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 20f45224b6b8b6007e5f99d8552be6ba63b8f2295c0ad348442a24cf7fe22d03
-  data.tar.gz: be35cae08d277dc082f450ac3d3bab101e1a4b027ac74288a3a828e5f3608430
+  metadata.gz: d78e3893a4d68e8c47bfa5eadaf88b540eb1370eba87883cdb4280bc2b707af3
+  data.tar.gz: a4eca4c6ab8df0554b17b5ccedd2efb62357be12c03abe3e3301a993a0599847
 SHA512:
-  metadata.gz: 992d33279fa29545b34c0b5218dd92a8ef51db57863ead34aaf16161aeae53731586eff1d9b62a361f09572949309a6158a096c88122aa85afd79f5cef688d33
-  data.tar.gz: 52f91ea8a7966e1a00f21abf8fa6de471540e63ea6199ed07def348b18e98b610ecf9acb0ac2008ca746116dadedd168015fdcf3bec91de74bae4a65c498ed42
+  metadata.gz: 649c9ae168c9933cf139cb6526697b6960f37570edc027840e9a40c51f5e3995d87f575812af918f2463965caa878825c6c554011f969063407ee8cf96fd73d7
+  data.tar.gz: 7c2ba8c60a18b36425b8cc436b3fcf40fa6e3a3da437559669e56efc73e3ca891731405bb5e53a672be5fc7ceeff2b22b4db2062dfb03e766264e53d4417d959

data/.gitignore

@@ -8,3 +8,4 @@
 /tmp/
 *.gem
 *.log
+test/gloo/debug/*

data/lib/gloo/app/engine.rb

@@ -15,6 +15,7 @@ module Gloo
       attr_reader :args, :mode, :running
       attr_reader :dictionary, :parser, :heap, :factory
       attr_accessor :last_cmd, :persist_man, :event_manager
+      attr_accessor :exec_env
 
       # Set up the engine with basic elements.
       def initialize( params = [] )
@@ -41,6 +42,8 @@ module Gloo
         @persist_man = Gloo::Persist::PersistMan.new
         @event_manager = Gloo::Core::EventManager.new
 
+        @exec_env = Gloo::Exec::ExecEnv.new
+
         run_mode
       end
 

data/lib/gloo/app/info.rb

@@ -8,7 +8,7 @@ module Gloo
   module App
     class Info
 
-      VERSION = '0.5.4'.freeze
+      VERSION = '0.6.0'.freeze
       APP_NAME = 'Gloo'.freeze
 
       # Get the application display title.

data/lib/gloo/app/settings.rb

@@ -14,8 +14,11 @@ module Gloo
 
       attr_reader :user_root, :log_path, :config_path, :project_path
       attr_reader :start_with, :list_indent, :tmp_path
+      attr_reader :debug_path, :debug
 
+      #
       # Load setting from the yml file.
+      #
       def initialize( mode )
         @mode = mode
         init_root
@@ -23,6 +26,9 @@ module Gloo
         init_user_settings
       end
 
+      #
+      # Initialize gloo's root path.
+      #
       def init_root
         if in_test_mode?
           path = File.dirname( File.dirname( File.absolute_path( __FILE__ ) ) )
@@ -34,19 +40,25 @@ module Gloo
         end
       end
 
+      #
       # Are we in test mode?
+      #
       def in_test_mode?
         return @mode == 'TEST'
       end
 
+      #
       # Get the project path for the current mode.
+      #
       def project_path_for_mode( settings )
         return File.join( @user_root, 'projects' ) if in_test_mode?
 
         return settings[ 'gloo' ][ 'project_path' ]
       end
 
+      #
       # Get the app's required directories.
+      #
       def init_path_settings
         Dir.mkdir( @user_root ) unless File.exist?( @user_root )
 
@@ -58,31 +70,44 @@ module Gloo
 
         @tmp_path = File.join( @user_root, 'tmp' )
         Dir.mkdir( @tmp_path ) unless File.exist?( @tmp_path )
+
+        @debug_path = File.join( @user_root, 'debug' )
+        Dir.mkdir( @debug_path ) unless File.exist?( @debug_path )
       end
 
+      #
       # Initialize the user settings for the currently
       # running environment.
+      #
       def init_user_settings
         settings = get_settings
 
         @project_path = project_path_for_mode settings
         @start_with = settings[ 'gloo' ][ 'start_with' ]
         @list_indent = settings[ 'gloo' ][ 'list_indent' ]
+
+        @debug = settings[ 'gloo' ][ 'debug' ]
       end
 
+      #
       # Get the app's required directories.
+      #
       def get_settings
         f = File.join( @config_path, 'gloo.yml' )
         create_settings( f ) unless File.exist?( f )
         return YAML.load_file f
       end
 
+      #
       # Create settings file.
+      #
       def create_settings( file )
         IO.write( file, get_default_settings )
       end
 
+      #
       # Get the value for default settings.
+      #
       def get_default_settings
         projects = File.join( @user_root, 'projects' )
         str = <<~TEXT
@@ -90,6 +115,7 @@ module Gloo
             project_path: #{projects}
             start_with:
             list_indent: 1
+            debug: false
         TEXT
         return str
       end
@@ -100,32 +126,50 @@ module Gloo
       #
       def show
         puts "\nApplication Settings:".blue
-        puts '  User Root Path is here:  '.yellow + @user_root.white
-        puts '  Projects directory:  '.yellow + @project_path.white
-        puts '  Tmp directory:  '.yellow + @tmp_path.white
         puts '  Startup with:  '.yellow + @start_with.white
         puts '  Indent in Listing:  '.yellow + @list_indent.to_s.white
-        puts ''
         puts '  Screen Lines:  '.yellow + Gloo::App::Settings.lines.to_s.white
         puts '  Page Size:  '.yellow + Gloo::App::Settings.page_size.to_s.white
         puts ''
+        self.show_paths
+        puts ''
+      end
+
+      #
+      # Show path settings
+      #
+      def show_paths
+        puts '  User Root Path is here:  '.yellow + @user_root.white
+        puts '  Projects Path:  '.yellow + @project_path.white
+        puts '  Tmp Path:  '.yellow + @tmp_path.white
+        puts '  Debug Path:  '.yellow + @debug_path.white
       end
 
-      # Get the number of lines on screen.
+      #
+      # Get the number of vertical lines on screen.
+      #
       def self.lines
         TTY::Screen.rows
       end
 
+      #
+      # Get the number of horizontal columns on screen.
+      #
       def self.cols
         TTY::Screen.cols
       end
 
+      #
       # Get the default page size.
+      # This is the number of lines of text we can show.
+      #
       def self.page_size
         Settings.lines - 3
       end
 
+      #
       # How many lines should we use for a preview?
+      #
       def self.preview_lines
         return 7
       end

data/lib/gloo/core/here.rb

@@ -0,0 +1,36 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Here helper class,
+# used to resolve relative referencing.
+#
+
+module Gloo
+  module Core
+    class Here
+
+      HERE = '^'.freeze
+
+      #
+      # Does the pathname start with here reference?
+      #
+      def self.includes_here_ref?( elements )
+        return elements.first.start_with?( HERE )
+      end
+
+      #
+      # Expand here reference if present.
+      #
+      def self.expand_here( pn )
+        target = $engine.exec_env.here_obj
+
+        here = pn.elements.first
+        remainder = pn.elements[ 1..-1 ].join( '.' )
+
+        here.length.times { target = target.parent }
+        pn.set_to "#{target.pn}.#{remainder}"
+      end
+
+    end
+  end
+end

data/lib/gloo/core/obj.rb

@@ -73,6 +73,14 @@ module Gloo
         return str
       end
 
+      #
+      # Generic function to get display value.
+      # Can be used for debugging, etc.
+      #
+      def display_value
+        return self.pn
+      end
+
       # ---------------------------------------------------------------------
       #    Value
       # ---------------------------------------------------------------------

data/lib/gloo/core/pn.rb

@@ -138,6 +138,8 @@ module Gloo
         return $engine.heap.error if self.error?
         return Gloo::Core::GlooSystem.new( self ) if self.gloo_sys?
 
+        Here.expand_here( self ) if Here.includes_here_ref?( @elements )
+
         parent = self.get_parent
         return nil unless parent
 

data/lib/gloo/core/verb.rb

@@ -58,6 +58,14 @@ module Gloo
         return self.class.keyword
       end
 
+      #
+      # Generic function to get display value.
+      # Can be used for debugging, etc.
+      #
+      def display_value
+        return self.class.keyword
+      end
+
       # ---------------------------------------------------------------------
       #    Help
       # ---------------------------------------------------------------------

data/lib/gloo/exec/action.rb

@@ -0,0 +1,48 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# An action is a message sent to an object with optional parameters.
+#
+
+module Gloo
+  module Exec
+    class Action
+
+      attr_accessor :msg, :to, :params
+
+      #
+      # Set up the action.
+      #
+      def initialize( msg, to, params = nil )
+        @msg = msg
+        @to = to
+        @params = params
+      end
+
+      #
+      # The action is valid if the object can receive
+      # the message specified.
+      #
+      def valid?
+        return @to.can_receive_message?( @msg )
+      end
+
+      #
+      # Execute the action.
+      # Dispatch the message to the object.
+      #
+      def dispatch
+        @to.send_message @msg, @params
+      end
+
+      #
+      # Generic function to get display value.
+      # Can be used for debugging, etc.
+      #
+      def display_value
+        return "#{@msg} -> #{@to.pn}"
+      end
+
+    end
+  end
+end

data/lib/gloo/exec/dispatch.rb

@@ -16,13 +16,23 @@ module Gloo
       # Dispatch the given message to the given object.
       #
       def self.message( msg, to_obj, params = nil )
-        $log.debug "----- Sending message #{msg} to #{to_obj.name}"
+        $log.debug "Dispatch message #{msg} to #{to_obj.name}"
+        a = Gloo::Exec::Action.new msg, to_obj, params
+        Gloo::Exec::Dispatch.action a
+      end
 
-        if to_obj.can_receive_message? msg
-          to_obj.send_message msg, params
-        else
-          $log.warn "Object #{to_obj.name} does not respond to #{msg}"
+      #
+      # Dispatch an action.
+      #
+      def self.action( action )
+        unless action.valid?
+          $log.warn "Object #{action.to.name} does not respond to #{action.msg}"
         end
+
+        $engine.exec_env.push_action action
+        $log.debug "Sending message #{action.msg} to #{action.to.name}"
+        action.dispatch
+        $engine.exec_env.pop_action
       end
 
     end

data/lib/gloo/exec/exec_env.rb

@@ -0,0 +1,62 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# The execution environment.
+# The current state of running scripts and messaging.
+#
+
+module Gloo
+  module Exec
+    class ExecEnv
+
+      attr_accessor :verbs, :actions, :scripts, :here
+
+      VERB_STACK = 'verbs'.freeze
+      ACTION_STACK = 'actions'.freeze
+      SCRIPT_STACK = 'scripts'.freeze
+      HERE_STACK = 'here'.freeze
+
+      #
+      # Set up the stack.
+      #
+      def initialize
+        $log.debug 'exec env intialized...'
+
+        @verbs = Gloo::Exec::Stack.new VERB_STACK
+        @actions = Gloo::Exec::Stack.new ACTION_STACK
+        @scripts = Gloo::Exec::Stack.new SCRIPT_STACK
+        @here = Gloo::Exec::Stack.new HERE_STACK
+      end
+
+      #
+      # Get the here object.
+      #
+      def here_obj
+        return nil if @here.stack.empty?
+
+        return @here.stack.last
+      end
+
+      def push_script( script )
+        @scripts.push script
+        @here.push script.obj
+      end
+
+      def pop_script
+        @scripts.pop
+        @here.pop
+      end
+
+      def push_action( action )
+        @actions.push action
+        # @here.push action.to
+      end
+
+      def pop_action
+        @actions.pop
+        # @here.pop
+      end
+
+    end
+  end
+end

data/lib/gloo/exec/runner.rb

@@ -16,9 +16,11 @@ module Gloo
       # is done running.
       #
       def self.go( verb )
-        $log.debug "**** Running verb #{verb.type_display}"
+        $log.debug "running verb #{verb.type_display}"
         $engine.heap.error.start_tracking
+        $engine.exec_env.verbs.push verb
         verb&.run
+        $engine.exec_env.verbs.pop
         $engine.heap.error.clear_if_no_errors
       end
 
@@ -27,7 +29,7 @@ module Gloo
       # Resolve the path_name and then send the run message.
       #
       def self.run( path_name )
-        $log.debug "**** Running script at #{path_name}"
+        $log.debug "running script at #{path_name}"
         pn = Gloo::Core::Pn.new path_name
         o = pn.resolve
 

data/lib/gloo/{core → exec}/script.rb

@@ -5,31 +5,43 @@
 #
 
 module Gloo
-  module Core
+  module Exec
     class Script
 
+      attr_accessor :obj
+
+      #
       # Set up the script.
+      #
       def initialize( obj )
         @obj = obj
       end
 
+      #
       # Run the script.
+      # The script might be a single string or an array
+      # of lines.
+      #
       def run
+        $engine.exec_env.push_script self
+
         if @obj.value.is_a? String
-          run_line @obj.value
+          $engine.parser.run @obj.value
         elsif @obj.value.is_a? Array
           @obj.value.each do |line|
-            run_line line
+            $engine.parser.run line
           end
         end
-      end
 
-      # Run a single line of the script.
-      def run_line( line )
-        i = $engine.parser.parse_immediate line
-        return unless i
+        $engine.exec_env.pop_script
+      end
 
-        i.run
+      #
+      # Generic function to get display value.
+      # Can be used for debugging, etc.
+      #
+      def display_value
+        return @obj.pn
       end
 
     end

data/lib/gloo/exec/stack.rb

@@ -0,0 +1,78 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A stack of items, a call stack.
+#
+
+module Gloo
+  module Exec
+    class Stack
+
+      attr_accessor :stack
+
+      #
+      # Set up the stack.
+      #
+      def initialize( name )
+        @name = name
+        clear_stack
+        $log.debug "#{name} stack intialized..."
+      end
+
+      #
+      # Push an item onto the stack.
+      #
+      def push( obj )
+        $log.debug "#{@name}:push #{obj.display_value}"
+        @stack.push obj
+        self.update_out_file if $settings.debug
+      end
+
+      #
+      # Pop an item from the stack.
+      #
+      def pop
+        o = @stack.pop
+        $log.debug "#{@name}:pop #{o.display_value}"
+        self.update_out_file if $settings.debug
+      end
+
+      #
+      # Get the current size of the call stack.
+      #
+      def size
+        return @stack.size
+      end
+
+      #
+      # Get stack data for output.
+      #
+      def out_data
+        return @stack.map( &:display_value ).join( "\n" )
+      end
+
+      #
+      # Get the file we'll write debug information for the stack.
+      #
+      def out_file
+        return File.join( $settings.debug_path, @name )
+      end
+
+      #
+      # Update the stack trace file.
+      #
+      def update_out_file
+        File.write( self.out_file, self.out_data )
+      end
+
+      #
+      # Clear the stack and the output file.
+      #
+      def clear_stack
+        @stack = []
+        self.update_out_file
+      end
+
+    end
+  end
+end

data/lib/gloo/objs/basic/script.rb

@@ -90,7 +90,7 @@ module Gloo
       # Send the object the unload message.
       #
       def msg_run
-        s = Gloo::Core::Script.new self
+        s = Gloo::Exec::Script.new self
         s.run
       end
 

data/lib/gloo/objs/cli/menu.rb

@@ -171,7 +171,7 @@ module Gloo
         obj = find_child DEFAULT
         return unless obj
 
-        s = Gloo::Core::Script.new obj
+        s = Gloo::Exec::Script.new obj
         s.run
       end
 
@@ -193,7 +193,7 @@ module Gloo
         script = obj.do_script
         return unless script
 
-        s = Gloo::Core::Script.new script
+        s = Gloo::Exec::Script.new script
         s.run
       end
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: gloo
 version: !ruby/object:Gem::Version
-  version: 0.5.4
+  version: 0.6.0
 platform: ruby
 authors:
 - Eric Crane
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2020-08-14 00:00:00.000000000 Z
+date: 2020-08-20 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -220,6 +220,7 @@ files:
 - lib/gloo/core/factory.rb
 - lib/gloo/core/gloo_system.rb
 - lib/gloo/core/heap.rb
+- lib/gloo/core/here.rb
 - lib/gloo/core/it.rb
 - lib/gloo/core/literal.rb
 - lib/gloo/core/obj.rb
@@ -227,11 +228,14 @@ files:
 - lib/gloo/core/op.rb
 - lib/gloo/core/parser.rb
 - lib/gloo/core/pn.rb
-- lib/gloo/core/script.rb
 - lib/gloo/core/tokens.rb
 - lib/gloo/core/verb.rb
+- lib/gloo/exec/action.rb
 - lib/gloo/exec/dispatch.rb
+- lib/gloo/exec/exec_env.rb
 - lib/gloo/exec/runner.rb
+- lib/gloo/exec/script.rb
+- lib/gloo/exec/stack.rb
 - lib/gloo/expr/expression.rb
 - lib/gloo/expr/l_boolean.rb
 - lib/gloo/expr/l_decimal.rb