gloo 0.3.0

data/lib/gloo/verbs/create.rb

@@ -0,0 +1,52 @@
+# 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 Create < Gloo::Core::Verb
+      
+      KEYWORD = 'create'
+      KEYWORD_SHORT = '`'
+      AS = 'as'
+      VAL = ':'
+      
+      # 
+      # Run the verb.
+      # 
+      def run
+        name = @tokens.second
+        type = @tokens.after_token( AS )
+        value = @tokens.after_token( VAL )
+        
+        if Gloo::Expr::LString.is_string?( value )
+          value = Gloo::Expr::LString.strip_quotes( value )
+        end
+        obj = $engine.factory.create( name, type, value )
+        
+        if obj && obj.add_children_on_create?
+          obj.add_default_children
+        end
+        
+        $engine.heap.it.set_to 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
+
+    end
+  end
+end

data/lib/gloo/verbs/help.rb

@@ -0,0 +1,69 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Show the help information.
+#
+
+module Gloo
+  module Verbs
+    class Help < Gloo::Core::Verb
+      
+      KEYWORD = 'help'
+      KEYWORD_SHORT = '?'
+
+      # 
+      # Run the verb.
+      # 
+      def run
+        opts = @tokens.second if @tokens
+        
+        if opts && opts.strip.downcase == 'verbs'
+          show_verbs
+        elsif opts && opts.strip.downcase == 'objects'
+          show_objs
+        else
+          $engine.run_help( true )
+        end
+      end
+      
+      # 
+      # List the verbs
+      # 
+      def show_verbs
+        return if $engine.args.quiet?
+
+        puts "Verbs:"
+        $engine.dictionary.get_verbs.each do |v|
+          puts " \t #{v.keyword_shortcut} \t #{v.keyword}"
+        end
+      end
+
+      # 
+      # List the object types
+      # 
+      def show_objs
+        return if $engine.args.quiet?
+
+        puts "Object Types:"
+        $engine.dictionary.get_obj_types.each do |v|
+          puts " \t #{v.short_typename} \t #{v.typename}"
+        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/if.rb

@@ -0,0 +1,56 @@
+# 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'
+      KEYWORD_SHORT = 'if'
+      THEN = 'then'
+      
+      # 
+      # Run the verb.
+      # 
+      def run
+        value = @tokens.before_token( THEN )
+        if value.count > 1
+          # The first token is the verb, so we drop it.
+          value = value[1..-1]
+        end
+
+        evals_true = false
+        if value.count > 0
+          expr = Gloo::Expr::Expression.new( value )
+          result = expr.evaluate
+          evals_true = true if result == true
+        end
+        
+        if evals_true
+          cmd = @tokens.expr_after( THEN )
+          i = $engine.parser.parse_immediate cmd
+          return unless i
+          i.run
+        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/list.rb

@@ -0,0 +1,85 @@
+# 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'
+      KEYWORD_SHORT = '.'
+
+      # 
+      # Run the verb.
+      # 
+      def run
+        levels = determine_levels
+        target = self.determine_target
+        obj = target.resolve
+        if obj
+          self.show_target( obj, levels )
+        else
+          $log.warn "Object #{target} does not exist"
+        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
+      
+      # Determine the target object for the show command.
+      def determine_target
+        if @tokens.token_count == 1
+          return $engine.heap.context
+        else
+          return Gloo::Core::Pn.new( @tokens.second )
+        end
+      end
+
+      # Show the target object.
+      def show_target( obj, levels, indent="" )
+        show_obj( obj, indent )
+        
+        return if levels == 0
+        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.has_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
+      
+      # 
+      # 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/load.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 Load < Gloo::Core::Verb
+      
+      KEYWORD = 'load'
+      KEYWORD_SHORT = '<'
+
+      # 
+      # Run the verb.
+      # 
+      def run
+				fn = @tokens.second
+				$log.debug "Getting ready to load file: #{fn}"
+        $engine.persist_man.load fn
+      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/put.rb

@@ -0,0 +1,62 @@
+# 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'
+      KEYWORD_SHORT = 'p'
+      INTO = 'into'
+      
+      # 
+      # Run the verb.
+      # 
+      def run
+        value = @tokens.before_token( INTO )
+				if value.nil?
+					$log.error "'put' must include 'into'"
+				end
+        if value.count > 1
+          # The first token is the verb, so we drop it.
+          value = value[1..-1]
+        end
+
+        target = @tokens.after_token( INTO )
+				if target.nil?
+					$log.error "'put' must include 'into' target"
+				end
+        pn = Gloo::Core::Pn.new target
+        o = pn.resolve
+				if o.nil?
+					$log.error "could not find target of put: #{target}"
+				else
+	        if value.count > 0
+	          expr = Gloo::Expr::Expression.new( value )
+	          result = expr.evaluate
+	          o.set_value result
+	          $engine.heap.it.set_to result
+	        end
+				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/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'
+      KEYWORD_SHORT = 'q'
+
+      # 
+      # 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

@@ -0,0 +1,46 @@
+# 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'
+      KEYWORD_SHORT = 'r'
+      
+      # 
+      # Run the verb.
+      # 
+      def run
+        name = @tokens.second
+        pn = Gloo::Core::Pn.new name
+        o = pn.resolve
+
+        if o
+          o.send_message 'run'
+        else
+          $log.error "Could not send message to object.  Bad path: #{name}"
+        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