gloo 1.4.2 → 2.0.0

data/lib/gloo/verbs/if.rb

@@ -0,0 +1,92 @@
+# 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( @engine, 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

@@ -0,0 +1,98 @@
+# 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( @engine, @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?
+          @engine.log.show "#{indent}#{obj.name} [#{obj.type_display}] :"
+          obj.value.each do |line|
+            @engine.log.show "#{indent}  #{line}"
+          end
+        else
+          @engine.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 = @engine.settings.list_indent
+        return levels if levels
+
+        # Last chance: use the default
+        return 1
+      end
+
+    end
+  end
+end

data/lib/gloo/verbs/load.rb

@@ -0,0 +1,45 @@
+# 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
+          @engine.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

@@ -0,0 +1,89 @@
+# 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( @engine, 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( @engine, 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

@@ -0,0 +1,94 @@
+# 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( @engine, target )
+        o = pn.resolve
+        if o.nil?
+          @engine.err "#{TARGET_ERR} #{target}"
+        elsif value.count.positive?
+          expr = Gloo::Expr::Expression.new( @engine, 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

@@ -0,0 +1,40 @@
+# 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/reload.rb

@@ -0,0 +1,43 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2022 Eric Crane.  All rights reserved.
+#
+# Reload all files.
+#
+
+module Gloo
+  module Verbs
+    class Reload < Gloo::Core::Verb
+
+      KEYWORD = 'reload'.freeze
+      KEYWORD_SHORT = 'r!'.freeze
+
+      #
+      # Run the verb.
+      #
+      def run
+        @engine.persist_man.reload_all
+      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
+
+    end
+  end
+end

data/lib/gloo/verbs/run.rb

@@ -0,0 +1,75 @@
+# 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( @engine, @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( @engine, @tokens.params[ 1..-1 ] )
+        @engine.parser.run expr.evaluate
+      end
+
+    end
+  end
+end

data/lib/gloo/verbs/save.rb

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

@@ -0,0 +1,63 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Show a single object's value.
+#
+
+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( @engine, @tokens.params )
+          result = expr.evaluate
+          @engine.log.show get_formatted_string( result )
+          @engine.heap.it.set_to result
+        else
+          @engine.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( @engine, @params.tokens )
+          val = expr.evaluate
+          color = val.to_sym
+          return @engine.platform.getColorizedString( str, color )
+        end
+        return str
+      end
+
+    end
+  end
+end