gloo 0.7.6 → 1.0.0

data/lib/gloo/utils/words.rb

@@ -1,19 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Utilities related to words (strings).
-#
-
-require 'active_support/inflector'
-
-module Gloo
-  module Utils
-    class Words
-
-      def self.pluralize( word )
-        return word.pluralize
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/context.rb

@@ -1,62 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# Set the current context pointer.
-# Alternatively if no value is provided, just show the context.
-#
-
-module Gloo
-  module Verbs
-    class Context < Gloo::Core::Verb
-
-      KEYWORD = 'context'.freeze
-      KEYWORD_SHORT = '@'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        set_context if @tokens.token_count > 1
-        show_context
-      end
-
-      #
-      # Show the current context.
-      #
-      def show_context
-        $log.show "Context:  #{$engine.heap.context}"
-      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
-
-      #
-      # Set the context to the given path.
-      #
-      def set_context
-        path = @tokens.second
-        $engine.heap.context.set_to path
-        $engine.heap.it.set_to path
-        $log.debug "Context set to #{$engine.heap.context}"
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/create.rb

@@ -1,68 +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 Create < Gloo::Core::Verb
-
-      KEYWORD = 'create'.freeze
-      KEYWORD_SHORT = '`'.freeze
-      AS = 'as'.freeze
-      VAL = ':'.freeze
-      NO_NAME_ERR = 'Object name is missing!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        name = @tokens.second
-        type = @tokens.after_token( AS )
-        value = @tokens.after_token( VAL )
-
-        unless name
-          $engine.err NO_NAME_ERR
-          return
-        end
-        create name, type, 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
-
-      #
-      # Create an object with given name of given type with
-      # the given initial value.
-      #
-      def create( name, type, value )
-        if Gloo::Expr::LString.string?( value )
-          value = Gloo::Expr::LString.strip_quotes( value )
-        end
-        obj = $engine.factory.create( { name: name, type: type, value: value } )
-
-        obj.add_default_children if obj&.add_children_on_create?
-        $engine.heap.it.set_to value
-      end
-
-    end
-  end
-end

data/lib/gloo/verbs/execute.rb

@@ -1,56 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
-#
-# Execute a shell command.
-#
-
-module Gloo
-  module Verbs
-    class Execute < Gloo::Core::Verb
-
-      KEYWORD = 'execute'.freeze
-      KEYWORD_SHORT = 'exec'.freeze
-      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        if @tokens.token_count < 2
-          $engine.err MISSING_EXPR_ERR
-          return
-        end
-
-        expr = Gloo::Expr::Expression.new( @tokens.params )
-        cmd = expr.evaluate
-        $log.debug "starting cmd: #{cmd}"
-
-        pid = fork { exec( cmd ) }
-        Process.wait pid
-
-        # pid = spawn cmd
-        # Process.wait pid
-        $log.debug "done executing cmd: #{cmd}"
-
-        # system expr.evaluate  #, chdir: Dir.pwd
-        # `#{expr.evaluate}`
-        # exec expr.evaluate
-      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

@@ -1,264 +0,0 @@
-# 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'.freeze
-      KEYWORD_SHORT = '?'.freeze
-      DEFAULT_HELP = 'default_help'.freeze
-      HELP_NOT_FOUND_ERR = 'Help command could not be found:'.freeze
-
-      DISPATCH = {
-        settings: 'show_settings',
-        keywords: 'show_keywords',
-        verb: 'show_verbs',
-        verbs: 'show_verbs',
-        v: 'show_verbs',
-        obj: 'show_objs',
-        object: 'show_objs',
-        objects: 'show_objs',
-        o: 'show_objs',
-        topics: 'show_topics'
-      }.freeze
-
-      #
-      # Run the verb.
-      #
-      def run
-        opts = @tokens.second if @tokens
-        opts = opts.strip.downcase if opts
-
-        if opts
-          dispatch opts
-        else
-          $engine.help.page_topic DEFAULT_HELP
-        end
-      end
-
-      #
-      # Get the text for the list of verbs.
-      #
-      def get_verb_list
-        out = "Verbs:\n"
-        str = ''
-        verbs = $engine.dictionary.get_verbs.sort_by( &:keyword )
-        verbs.each_with_index do |v, i|
-          cut = v.keyword_shortcut.ljust( 5, ' ' )
-          str << " #{cut} #{v.keyword.ljust( 20, ' ' )}"
-          if ( ( i + 1 ) % 3 ).zero?
-            out << "#{str}\n"
-            str = ''
-          end
-        end
-
-        return out
-      end
-
-      #
-      # Lookup the opts in the dispatch table.
-      #
-      def lookup_opts( opts )
-        return DISPATCH[ opts.to_sym ]
-      end
-
-      #
-      # Get the text for the list of verbs.
-      #
-      def get_obj_list
-        out = "Object Types:\n"
-        str = ''
-        objs = $engine.dictionary.get_obj_types.sort_by( &:typename )
-        objs.each_with_index do |o, i|
-          name = o.typename
-          if o.short_typename != o.typename
-            name = "#{name} (#{o.short_typename})"
-          end
-          str << " #{name.ljust( 30, ' ' )}"
-          if ( ( i + 1 ) % 4 ).zero?
-            out << "#{str}\n"
-            str = ''
-          end
-        end
-
-        return out
-      end
-
-      #
-      # Get the list of help topics.
-      #
-      def get_topics
-        out = "Help Topics:\n"
-        str = ''
-        objs = $engine.help.topics.keys.sort
-        objs.each_with_index do |o, i|
-          str << " #{o.ljust( 30, ' ' )}"
-          if ( ( i + 1 ) % 4 ).zero?
-            out << "#{str}\n"
-            str = ''
-          end
-        end
-
-        return out
-      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
-
-      #
-      # Report an error with the inline help.
-      #
-      def report_help_error( opts )
-        $engine.err "#{HELP_NOT_FOUND_ERR} '#{opts}'"
-      end
-
-      #
-      # Dispatch the help to the right place.
-      #
-      def dispatch( opts )
-        return if dispatch_help_page( opts )
-
-        $log.debug 'looking for built in help topic'
-        cmd = DISPATCH[ opts.to_sym ]
-        if cmd
-          $log.debug 'found help index'
-          send cmd
-        else
-          $log.debug 'looking for entity help'
-          entity_help opts
-        end
-      rescue
-        report_help_error opts
-      end
-
-      #
-      # Dispatch to a help page if we can find one.
-      #
-      def dispatch_help_page( opts )
-        if $engine.help.topic? opts
-          $log.debug 'found expanded help topic'
-          $engine.help.page_topic opts
-          return true
-        end
-
-        key = $engine.dictionary.lookup_keyword opts
-        if $engine.help.topic? key
-          $log.debug 'found expanded help topic'
-          $engine.help.page_topic key
-          return true
-        end
-
-        return false
-      end
-
-      #
-      # Write output to it and show it unless we are in
-      # silent mode.
-      #
-      def show_output( out )
-        $engine.heap.it.set_to out
-        puts out unless $engine.args.quiet?
-      end
-
-      #
-      # List all help topics (articles)
-      #
-      def show_topics
-        out = self.get_topics
-        show_output out
-      end
-
-      #
-      # Dispatch the help command to a verb or object
-      # if we can find one matching the request.
-      #
-      def entity_help( opts )
-        return if try_verb_help opts
-        return if try_object_help opts
-
-        report_help_error opts
-      end
-
-      #
-      # See if there is a verb we can show help
-      # information about.
-      #
-      def try_verb_help( opts )
-        if $engine.dictionary.verb?( opts )
-          t = $engine.dictionary.find_verb( opts )
-          out = t.send 'help'
-          show_output out
-          return true
-        end
-
-        return false
-      end
-
-      #
-      # See if there is a verb we can show help
-      # information about.
-      #
-      def try_object_help( opts )
-        if $engine.dictionary.obj?( opts )
-          t = $engine.dictionary.find_obj( opts )
-          out = t.send 'help'
-          show_output out
-          return true
-        end
-
-        return false
-      end
-
-      #
-      # Show application settings.
-      #
-      def show_settings
-        $settings.show
-      end
-
-      #
-      # Show all keywords: verbs and objects.
-      #
-      def show_keywords
-        $engine.dictionary.show_keywords
-      end
-
-      #
-      # List the verbs
-      #
-      def show_verbs
-        show_output get_verb_list
-      end
-
-      #
-      # List the object types
-      #
-      def show_objs
-        out = self.get_obj_list
-        show_output out
-      end
-
-    end
-  end
-end

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