gloo 0.8.0 → 1.2.0

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

@@ -1,73 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# An object with an integer value.
-#
-
-module Gloo
-  module Objs
-    class Integer < Gloo::Core::Obj
-
-      KEYWORD = 'integer'.freeze
-      KEYWORD_SHORT = 'int'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      #
-      # Set the value with any necessary type conversions.
-      #
-      def set_value( new_value )
-        unless new_value.is_a? Numeric
-          self.value = $engine.converter.convert( new_value, 'Integer', 0 )
-          return
-        end
-
-        self.value = new_value.to_i
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + %w[inc dec]
-      end
-
-      #
-      # Increment the integer
-      #
-      def msg_inc
-        i = value + 1
-        set_value i
-        $engine.heap.it.set_to i
-        return i
-      end
-
-      #
-      # Decrement the integer
-      #
-      def msg_dec
-        i = value - 1
-        set_value i
-        $engine.heap.it.set_to i
-        return i
-      end
-
-    end
-  end
-end

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

@@ -1,99 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# A Script.
-# A set of commands to be run.
-#
-
-module Gloo
-  module Objs
-    class Script < Gloo::Core::Obj
-
-      KEYWORD = 'script'.freeze
-      KEYWORD_SHORT = 'cmd'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      #
-      # Set the value with any necessary type conversions.
-      #
-      def set_value( new_value )
-        self.value = new_value.to_s
-      end
-
-      #
-      # Set the value as an array.
-      #
-      def set_array_value( arr )
-        self.value = arr
-      end
-
-      #
-      # Add a line (cmd) to the script.
-      #
-      def add_line( line )
-        if self.value_string?
-          first = self.value
-          self.set_array_value []
-          self.value << first unless first.empty?
-        elsif self.value_is_blank?
-          self.set_array_value []
-        end
-        self.value << line.strip
-      end
-
-      #
-      # Does this object support multi-line values?
-      # Initially only true for scripts.
-      #
-      def multiline_value?
-        return true
-      end
-
-      #
-      # Get the number of lines in this script.
-      #
-      def line_count
-        return self.value.count if self.value_is_array?
-
-        if self.value_string?
-          return self.value.strip.empty? ? 0 : 1
-        end
-
-        return 0
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + [ 'run' ]
-      end
-
-      #
-      # Send the object the unload message.
-      #
-      def msg_run
-        s = Gloo::Exec::Script.new self
-        s.run
-      end
-
-    end
-  end
-end

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

@@ -1,77 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# A String.
-#
-
-module Gloo
-  module Objs
-    class String < Gloo::Core::Obj
-
-      KEYWORD = 'string'.freeze
-      KEYWORD_SHORT = 'str'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      #
-      # Set the value with any necessary type conversions.
-      #
-      def set_value( new_value )
-        self.value = new_value.to_s
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + %w[up down size]
-      end
-
-      #
-      # Get the size of the string.
-      #
-      def msg_size
-        s = value.size
-        $engine.heap.it.set_to s
-        return s
-      end
-
-      #
-      # Convert string to upper case
-      #
-      def msg_up
-        s = value.upcase
-        set_value s
-        $engine.heap.it.set_to s
-        return s
-      end
-
-      #
-      # Convert string to lower case
-      #
-      def msg_down
-        s = value.downcase
-        set_value s
-        $engine.heap.it.set_to s
-        return s
-      end
-
-    end
-  end
-end

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

@@ -1,87 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# A [multiline] block of text.
-#
-require 'tty-editor'
-require 'tty-pager'
-
-module Gloo
-  module Objs
-    class Text < Gloo::Core::Obj
-
-      KEYWORD = 'text'.freeze
-      KEYWORD_SHORT = 'txt'.freeze
-      DEFAULT_TMP_FILE = 'tmp.txt'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      #
-      # Set the value with any necessary type conversions.
-      #
-      def set_value( new_value )
-        self.value = new_value.to_s
-      end
-
-      #
-      # Does this object support multi-line values?
-      # Initially only true for scripts.
-      #
-      def multiline_value?
-        return false
-      end
-
-      #
-      # Get the number of lines of text.
-      #
-      def line_count
-        return value.split( "\n" ).count
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + %w[edit page]
-      end
-
-      #
-      # Show the contents of the file, paginated.
-      #
-      def msg_page
-        return unless value
-
-        # pager = TTY::Pager::SystemPager.new command: 'less -R'
-        pager = TTY::Pager.new
-        pager.page( value )
-      end
-
-      #
-      # Edit the text in the default editor.
-      #
-      def msg_edit
-        tmp = File.join( $settings.tmp_path, DEFAULT_TMP_FILE )
-        File.open( tmp, 'w' ) { |file| file.write( self.value ) }
-        TTY::Editor.open( tmp )
-        set_value File.read( tmp )
-      end
-
-    end
-  end
-end

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

@@ -1,41 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# An Untyped Object.
-#
-
-module Gloo
-  module Objs
-    class Untyped < Gloo::Core::Obj
-
-      KEYWORD = 'untyped'.freeze
-      KEYWORD_SHORT = 'un'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super # + [ "run" ]
-      end
-
-    end
-  end
-end

data/lib/gloo/objs/ctrl/each.rb

@@ -1,279 +0,0 @@
-# Author::    Eric Crane  (mailto:eric.crane@mac.com)
-# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
-#
-# A looping construct...do something for each whatever in something.
-# This object has several possible uses:
-#   - each word in a string
-#   - each line in a string
-#   - each file in a directory
-#   - each git repo in a directory
-#
-
-module Gloo
-  module Objs
-    class Each < Gloo::Core::Obj
-
-      KEYWORD = 'each'.freeze
-      KEYWORD_SHORT = 'each'.freeze
-      CHILD = 'child'.freeze
-      WORD = 'word'.freeze
-      LINE = 'line'.freeze
-      FILE = 'file'.freeze
-      REPO = 'repo'.freeze
-      IN = 'IN'.freeze
-      DO = 'do'.freeze
-
-      #
-      # The name of the object type.
-      #
-      def self.typename
-        return KEYWORD
-      end
-
-      #
-      # The short name of the object type.
-      #
-      def self.short_typename
-        return KEYWORD_SHORT
-      end
-
-      #
-      # Get the URI from the child object.
-      # Returns nil if there is none.
-      #
-      def in_value
-        o = find_child IN
-        return o ? o.value : nil
-      end
-
-      #
-      # Run the do script once.
-      #
-      def run_do
-        o = find_child DO
-        return unless o
-
-        Gloo::Exec::Dispatch.message 'run', o
-      end
-
-      # ---------------------------------------------------------------------
-      #    Children
-      # ---------------------------------------------------------------------
-
-      #
-      # Does this object have children to add when an object
-      # is created in interactive mode?
-      # This does not apply during obj load, etc.
-      #
-      def add_children_on_create?
-        return true
-      end
-
-      #
-      # Add children to this object.
-      # This is used by containers to add children needed
-      # for default configurations.
-      #
-      def add_default_children
-        fac = $engine.factory
-        fac.create_string WORD, '', self
-        fac.create_string IN, '', self
-        fac.create_script DO, '', self
-      end
-
-      # ---------------------------------------------------------------------
-      #    Messages
-      # ---------------------------------------------------------------------
-
-      #
-      # Get a list of message names that this object receives.
-      #
-      def self.messages
-        return super + [ 'run' ]
-      end
-
-      # Run the system command.
-      def msg_run
-        if each_child?
-          run_each_child
-        elsif each_word?
-          run_each_word
-        elsif each_line?
-          run_each_line
-        elsif each_repo?
-          run_each_repo
-        end
-      end
-
-      # ---------------------------------------------------------------------
-      #    Child Object
-      # ---------------------------------------------------------------------
-
-      #
-      # Is it set up to run for each word?
-      # If there is a child object by the name "word"
-      # then we will loop for each word in the string.
-      #
-      def each_child?
-        return true if contains_child? CHILD
-
-        return false
-      end
-
-      #
-      # Run for each word.
-      #
-      def run_each_child
-        o = find_child IN
-        return unless o
-
-        o = Gloo::Objs::Alias.resolve_alias( o )
-        o.children.each do |child|
-          set_child child
-          run_do
-        end
-      end
-
-      #
-      # Set the child alias.
-      #
-      def set_child( obj )
-        o = find_child CHILD
-        return unless o
-
-        o.set_value obj.pn
-      end
-
-      # ---------------------------------------------------------------------
-      #    Word
-      # ---------------------------------------------------------------------
-
-      #
-      # Is it set up to run for each word?
-      # If there is a child object by the name "word"
-      # then we will loop for each word in the string.
-      #
-      def each_word?
-        return true if find_child WORD
-
-        return false
-      end
-
-      #
-      # Run for each word.
-      #
-      def run_each_word
-        str = in_value
-        return unless str
-
-        str.split( ' ' ).each do |word|
-          set_word word
-          run_do
-        end
-      end
-
-      #
-      # Set the value of the word.
-      #
-      def set_word( word )
-        o = find_child WORD
-        return unless o
-
-        o.set_value word
-      end
-
-      # ---------------------------------------------------------------------
-      #    Line
-      # ---------------------------------------------------------------------
-
-      #
-      # Is it set up to run for each line?
-      # If there is a child object by the name "line"
-      # then we will loop for each line in the string.
-      #
-      def each_line?
-        return true if find_child LINE
-
-        return false
-      end
-
-      #
-      # Run for each line.
-      #
-      def run_each_line
-        str = in_value
-        return unless str
-
-        str.each_line do |line|
-          set_line line
-          run_do
-        end
-      end
-
-      #
-      # Set the value of the word.
-      #
-      def set_line( line )
-        o = find_child LINE
-        return unless o
-
-        o.set_value line
-      end
-
-      # ---------------------------------------------------------------------
-      #    Git Repo
-      # ---------------------------------------------------------------------
-
-      #
-      # Is it set up to run for each git repo?
-      # If there is a child object by the name "repo"
-      # then we will loop for each repo in the directory.
-      #
-      def each_repo?
-        return true if find_child REPO
-
-        return false
-      end
-
-      #
-      # Find all git projects in a path.
-      #
-      def find_all_git_projects( path )
-        path.children.collect do |f|
-          if f.directory? && ( File.basename( f ) == '.git' )
-            File.dirname( f )
-          elsif f.directory?
-            find_all_git_projects( f )
-          end
-        end.flatten.compact
-      end
-
-      #
-      # Run for each line.
-      #
-      def run_each_repo
-        path = in_value
-        return unless path
-
-        path = Pathname.new( path )
-        repos = find_all_git_projects( path )
-        repos.each do |o|
-          set_repo o
-          run_do
-        end
-      end
-
-      #
-      # Set the value of the repo.
-      # This is a path to the repo.
-      #
-      def set_repo( path )
-        o = find_child REPO
-        return unless o
-
-        o.set_value path
-      end
-
-    end
-  end
-end