gloo 0.8.0 → 1.2.0

data/lib/gloo/verbs/if.rb

@@ -1,92 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# If something is true, do something.
-#
-
-module Gloo
-  module Verbs
-    class If < Gloo::Core::Verb
-
-      KEYWORD = 'if'.freeze
-      KEYWORD_SHORT = 'if'.freeze
-      THEN = 'then'.freeze
-      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        value = value_tokens
-        return if value.nil?
-
-        return unless evals_true( value )
-
-        run_then
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Get the list of tokens that represent the parameters
-      # of the if command.
-      #
-      def value_tokens
-        value = @tokens.before_token( THEN )
-        if value && value.count > 1
-          # The first token is the verb, so we drop it.
-          value = value[ 1..-1 ]
-        else
-          $engine.err MISSING_EXPR_ERR
-        end
-
-        return value
-      end
-
-      #
-      # Does the given value evalute to true?
-      #
-      def evals_true( value )
-        eval_result = false
-        if value.count.positive?
-          expr = Gloo::Expr::Expression.new( value )
-          result = expr.evaluate
-          eval_result = true if result == true
-          eval_result = true if result.is_a?( Numeric ) && result != 0
-        end
-
-        return eval_result
-      end
-
-      #
-      # Run the 'then' command.
-      #
-      def run_then
-        cmd = @tokens.expr_after( THEN )
-        i = $engine.parser.parse_immediate cmd
-        return unless i
-
-        i.run
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/list.rb

@@ -1,98 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# List out an object and it's children.
-#
-
-module Gloo
-  module Verbs
-    class List < Gloo::Core::Verb
-
-      KEYWORD = 'list'.freeze
-      KEYWORD_SHORT = '.'.freeze
-      TARGET_MISSING_ERR = 'Object does not exist: '.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        levels = determine_levels
-        target = self.determine_target
-        obj = target.resolve
-        if obj
-          show_target( obj, levels )
-        else
-          $engine.err "#{TARGET_MISSING_ERR} #{target}"
-        end
-      end
-
-      #
-      # Determine the target object for the show command.
-      #
-      def determine_target
-        return $engine.heap.context if @tokens.token_count == 1
-
-        return Gloo::Core::Pn.new( @tokens.second )
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Show the target object.
-      #
-      def show_target( obj, levels, indent = '' )
-        show_obj( obj, indent )
-        return if levels.zero?
-
-        obj.children.each do |o|
-          show_target( o, levels - 1, "#{indent}  " )
-        end
-      end
-
-      #
-      # Show object in standard format.
-      #
-      def show_obj( obj, indent = '  ' )
-        if obj.multiline_value? && obj.value_is_array?
-          $log.show "#{indent}#{obj.name} [#{obj.type_display}] :"
-          obj.value.each do |line|
-            $log.show "#{indent}  #{line}"
-          end
-        else
-          $log.show "#{indent}#{obj.name} [#{obj.type_display}] : #{obj.value}"
-        end
-      end
-
-      #
-      # Determine how many levels to show.
-      #
-      def determine_levels
-        # Check settings for the default value.
-        levels = $settings.list_indent
-        return levels if levels
-
-        # Last chance: use the default
-        return 1
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/load.rb

@@ -1,45 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Save an object to a file or other persistance mechcanism.
-#
-
-module Gloo
-  module Verbs
-    class Load < Gloo::Core::Verb
-
-      KEYWORD = 'load'.freeze
-      KEYWORD_SHORT = '<'.freeze
-      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        fn = @tokens.second
-
-        if fn
-          $log.debug "Getting ready to load file: #{fn}"
-          $engine.persist_man.load fn
-        else
-          $engine.err MISSING_EXPR_ERR
-        end
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/move.rb

@@ -1,89 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Move an object to a new parent.
-#
-
-module Gloo
-  module Verbs
-    class Move < Gloo::Core::Verb
-
-      KEYWORD = 'move'.freeze
-      KEYWORD_SHORT = 'mv'.freeze
-      TO = 'to'.freeze
-      MISSING_SRC_ERR = 'Object to move was not specified!'.freeze
-      MISSING_SRC_OBJ_ERR = 'Could not find object to move: '.freeze
-      MISSING_DST_ERR = "Move' must include 'to' parent object!".freeze
-      MISSING_DST_OBJ_ERR = 'Could not resolve target: '.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        dst = lookup_dst
-        return if dst.nil?
-
-        o = lookup_obj
-        return unless o
-
-        o.parent.remove_child o
-        dst.add_child o
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Lookup the object that we're moving.
-      #
-      def lookup_obj
-        arr = @tokens.before_token( TO )
-        if arr.count == 1
-          $engine.err MISSING_SRC_ERR
-          return
-        end
-
-        name = arr[ 1 ]
-        pn = Gloo::Core::Pn.new name
-        o = pn.resolve
-
-        $engine.err( "#{MISSING_SRC_OBJ_ERR} #{name}" ) unless o
-        return o
-      end
-
-      #
-      # Lookup destination, the new parent object.
-      #
-      def lookup_dst
-        dst = @tokens.after_token( TO )
-        unless dst
-          $engine.err MISSING_DST_ERR
-          return nil
-        end
-
-        pn = Gloo::Core::Pn.new dst
-        o = pn.resolve
-        $engine.err( "#{MISSING_DST_OBJ_ERR} '#{dst}'" ) unless o
-        return o
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/put.rb

@@ -1,94 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Create an object, optionally of a type.
-#
-
-module Gloo
-  module Verbs
-    class Put < Gloo::Core::Verb
-
-      KEYWORD = 'put'.freeze
-      KEYWORD_SHORT = 'p'.freeze
-      INTO = 'into'.freeze
-      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
-      INTO_MISSING_ERR = 'Target (into) missing!'.freeze
-      TARGET_ERR = 'Target could not be resolved: '.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        value = fetch_value_tokens
-        return if value.nil?
-
-        target = lookup_target
-        return if target.nil?
-
-        update_target target, value
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Get the value that is being put.
-      #
-      def fetch_value_tokens
-        value = @tokens.before_token( INTO )
-        if value.nil? || ( value.count <= 1 )
-          $engine.err MISSING_EXPR_ERR
-          return nil
-        end
-
-        # The first token is the verb, so we drop it.
-        return value[ 1..-1 ]
-      end
-
-      #
-      # Lookup the target of the put command.
-      #
-      def lookup_target
-        target = @tokens.after_token( INTO )
-        return target if target
-
-        $engine.err INTO_MISSING_ERR
-        return nil
-      end
-
-      #
-      # Update the target with the new value.
-      #
-      def update_target( target, value )
-        pn = Gloo::Core::Pn.new target
-        o = pn.resolve
-        if o.nil?
-          $engine.err "#{TARGET_ERR} #{target}"
-        elsif value.count.positive?
-          expr = Gloo::Expr::Expression.new( value )
-          result = expr.evaluate
-          o.set_value result
-          $engine.heap.it.set_to result
-        end
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/quit.rb

@@ -1,40 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Quit the running gloo engine.
-#
-
-module Gloo
-  module Verbs
-    class Quit < Gloo::Core::Verb
-
-      KEYWORD = 'quit'.freeze
-      KEYWORD_SHORT = 'q'.freeze
-
-      #
-      # Run the verb.
-      #
-      # We'll mark the application as not running and let the
-      # engine stop gracefully next time through the loop.
-      #
-      def run
-        $engine.stop_running
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/run.rb

@@ -1,75 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Run a script.
-# Shortcut for telling a script to run.
-#
-
-module Gloo
-  module Verbs
-    class Run < Gloo::Core::Verb
-
-      KEYWORD = 'run'.freeze
-      KEYWORD_SHORT = 'r'.freeze
-      EVALUATE_RUN = '~>'.freeze
-      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        if @tokens.token_count < 2
-          $engine.err MISSING_EXPR_ERR
-          return
-        end
-
-        if @tokens.second == EVALUATE_RUN
-          run_expression
-        else
-          run_script
-        end
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Run a script specified by pathname
-      #
-      def run_script
-        Gloo::Exec::Runner.run @tokens.second
-      end
-
-      #
-      # Evaluate an expression and run that.
-      #
-      def run_expression
-        unless @tokens.token_count > 2
-          $engine.err MISSING_EXPR_ERR
-          return
-        end
-
-        expr = Gloo::Expr::Expression.new( @tokens.params[ 1..-1 ] )
-        $engine.parser.run expr.evaluate
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/save.rb

@@ -1,39 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Save an object to a file or other persistance mechcanism.
-#
-
-module Gloo
-  module Verbs
-    class Save < Gloo::Core::Verb
-
-      KEYWORD = 'save'.freeze
-      KEYWORD_SHORT = '>'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        # TODO:  Not currently using folders or keeping
-        # track of where the object was loaded from.
-        $engine.persist_man.save @tokens.second
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/show.rb

@@ -1,64 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Show a single object's value.
-#
-require 'colorized_string'
-
-module Gloo
-  module Verbs
-    class Show < Gloo::Core::Verb
-
-      KEYWORD = 'show'.freeze
-      KEYWORD_SHORT = '='.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        if @tokens.token_count > 1
-          expr = Gloo::Expr::Expression.new( @tokens.params )
-          result = expr.evaluate
-          $log.show get_formatted_string( result )
-          $engine.heap.it.set_to result
-        else
-          $log.show ''
-        end
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Get the formatted string.
-      #
-      def get_formatted_string( str )
-        if @params&.token_count&.positive?
-          expr = Gloo::Expr::Expression.new( @params.tokens )
-          val = expr.evaluate
-          color = val.to_sym
-          return ColorizedString[ str.to_s ].colorize( color )
-        end
-        return str
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/tell.rb

@@ -1,79 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Create an object, optionally of a type.
-#
-
-module Gloo
-  module Verbs
-    class Tell < Gloo::Core::Verb
-
-      KEYWORD = 'tell'.freeze
-      KEYWORD_SHORT = '->'.freeze
-      TO = 'to'.freeze
-      OBJ_NOT_FOUND_ERR = 'Object was not found: '.freeze
-      UNKNOWN_MSG_ERR = 'Missing message!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        setup_msg
-        return unless @msg
-
-        setup_target
-        dispatch_msg
-      end
-
-      #
-      # Get the Verb's keyword.
-      #
-      def self.keyword
-        return KEYWORD
-      end
-
-      #
-      # Get the Verb's keyword shortcut.
-      #
-      def self.keyword_shortcut
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Private functions
-      # ---------------------------------------------------------------------
-
-      private
-
-      #
-      # Lookup the message to send.
-      #
-      def setup_msg
-        @msg = @tokens.after_token( TO )
-
-        $engine.err( UNKNOWN_MSG_ERR ) unless @msg
-      end
-
-      #
-      # Setup the target of the message.
-      #
-      def setup_target
-        @obj_name = @tokens.second
-        pn = Gloo::Core::Pn.new @obj_name
-        @target_obj = pn.resolve
-      end
-
-      #
-      # Dispatch the message to the target object.
-      #
-      def dispatch_msg
-        if @target_obj
-          Gloo::Exec::Dispatch.message @msg, @target_obj, @params
-        else
-          $engine.err "#{OBJ_NOT_FOUND_ERR} #{@obj_name}"
-        end
-      end
-
-    end
-  end
-end