gloo-lang 0.9.1 → 0.9.4

data/lib/gloo_lang/objs/data/table.rb

@@ -0,0 +1,140 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A data table.
+# The table container headers and data.
+#
+require 'tty-table'
+require 'pastel'
+
+module GlooLang
+  module Objs
+    class Table < GlooLang::Core::Obj
+
+      KEYWORD = 'table'.freeze
+      KEYWORD_SHORT = 'tbl'.freeze
+      HEADERS = 'headers'.freeze
+      DATA = 'data'.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 list of headers.
+      # Returns nil if there is none.
+      #
+      def headers
+        o = find_child HEADERS
+        return [] unless o
+
+        return o.children.map( &:value )
+      end
+
+      #
+      # Get the list of column names.
+      # Returns nil if there is none.
+      #
+      def columns
+        o = find_child HEADERS
+        return [] unless o
+
+        return o.children.map( &:name )
+      end
+
+      #
+      # Get the list of data elements.
+      #
+      def data
+        o = find_child DATA
+        return [] unless o
+
+        o = GlooLang::Objs::Alias.resolve_alias( o )
+        cols = self.columns
+        return o.children.map do |e|
+          cols.map { |h| e.find_child( h ).value }
+        end
+      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_can HEADERS, self
+        fac.create_can DATA, self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[show]
+      end
+
+      #
+      # Show the table in the CLI.
+      #
+      def msg_show
+        title = self.value
+        GlooLang::Objs::Table.show headers, data, title
+      end
+
+      # ---------------------------------------------------------------------
+      #    Static table helper
+      # ---------------------------------------------------------------------
+
+      #
+      # Show the given table data.
+      #
+      def self.show( headers, data, title = nil )
+        pastel = ::Pastel.new
+        table = TTY::Table.new headers, data
+        pad = [ 0, 1, 0, 1 ]
+        rendered = table.render( :ascii, indent: 2, padding: pad ) do |r|
+          r.border.style = :blue
+          r.filter = proc do |val, row_index, _col_index|
+            # col_index % 2 == 1 ? pastel.red.on_green(val) : val
+            if row_index.zero?
+              pastel.blue( val )
+            else
+              row_index.odd? ? pastel.white( val ) : pastel.yellow( val )
+            end
+          end
+        end
+        puts "\n#{title.white}"
+        puts "#{rendered}\n\n"
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/dev/git.rb

@@ -0,0 +1,140 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object that interacts with a git repository
+#
+
+module GlooLang
+  module Objs
+    class Git < GlooLang::Core::Obj
+
+      KEYWORD = 'git_repo'.freeze
+      KEYWORD_SHORT = 'git'.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 path to the git repo (locally).
+      #
+      def path_value
+        return value
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        actions = %w[validate commit get_branch review]
+        changes = %w[check_changes get_changes]
+        return super + changes + actions
+      end
+
+      #
+      # Get the current working branch.
+      #
+      def msg_get_branch
+        branch = ''
+        path = path_value
+        if path_is_dir?( path )
+          branch = `cd #{path}; git rev-parse --abbrev-ref HEAD`
+          branch = branch.strip
+        end
+
+        $engine.heap.it.set_to branch
+      end
+
+      #
+      # Review pending changes.
+      #
+      def msg_review
+        $log.debug 'Reviewing pending changes'
+        cmd = "cd #{path_value}; git diff"
+        $log.debug cmd
+        system cmd
+      end
+
+      #
+      # Commit pending changes.
+      #
+      def msg_commit
+        msg = 'Commit'
+        path = path_value
+        if path_is_dir?( path )
+          if @params&.token_count&.positive?
+            expr = GlooLang::Expr::Expression.new( @params.tokens )
+            msg = expr.evaluate
+          end
+          branch = `cd #{path}; git rev-parse --abbrev-ref HEAD`
+          branch = branch.strip
+          add = 'git add .'
+          cmt = 'git commit -m '
+          psh = 'git push origin '
+          `cd #{path};#{add};#{cmt}"#{msg}";#{psh}#{branch}`
+        end
+        $engine.heap.it.set_to msg
+      end
+
+      #
+      # Get the pending changes.
+      #
+      def msg_get_changes
+        path = path_value
+        result = `cd #{path}; git status -s` if path_is_dir?( path )
+        result ||= ''
+        $engine.heap.it.set_to result
+      end
+
+      #
+      # Is the given path non nil and is it a directory?
+      #
+      def path_is_dir?( path )
+        return path && File.directory?( path )
+      end
+
+      #
+      # Check to see if the repo has changes.
+      #
+      def msg_check_changes
+        result = false
+        path = path_value
+        if path_is_dir?( path )
+          data = `cd #{path}; git status -s`
+          result = true unless data.strip.empty?
+        end
+
+        $engine.heap.it.set_to result
+      end
+
+      #
+      # Check to make sure this is a valide git repo.
+      #
+      def msg_validate
+        result = false
+        path = path_value
+        if path_is_dir?( path )
+          pn = File.join( path, '.git' )
+          result = File.exist? pn
+        end
+
+        $engine.heap.it.set_to result
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/dev/stats.rb

@@ -0,0 +1,120 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Get statistics about a development project.
+#
+
+module GlooLang
+  module Objs
+    class Stats < GlooLang::Core::Obj
+
+      KEYWORD = 'stats'.freeze
+      KEYWORD_SHORT = 'stat'.freeze
+      FOLDER = 'folder'.freeze
+      TYPES = 'types'.freeze
+      SKIP = 'skip'.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 path to the git repo (locally).
+      #
+      def path_value
+        o = find_child FOLDER
+        return o ? o.value : nil
+      end
+
+      #
+      # The code file types to count.
+      #
+      def types_value
+        o = find_child TYPES
+        return o ? o.value : ''
+      end
+
+      #
+      # Get the list of files and folders to skip.
+      #
+      def skip_list
+        o = find_child SKIP
+        val = o ? o.value : ''
+        return val.split ' '
+      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_file FOLDER, '', self
+        fac.create_string TYPES, '', self
+        fac.create_can SKIP, self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        all = %w[show_all]
+        more = %w[show_busy_folders show_types]
+        return super + all + more
+      end
+
+      #
+      # Show all project stats.
+      #
+      def msg_show_all
+        o = GlooLang::Utils::Stats.new( path_value, types_value, skip_list )
+        o.show_all
+      end
+
+      #
+      # Show file types.
+      #
+      def msg_show_types
+        o = GlooLang::Utils::Stats.new( path_value, types_value, skip_list )
+        o.file_types
+      end
+
+      #
+      # Show busy folders: those with the most files.
+      #
+      def msg_show_busy_folders
+        o = GlooLang::Utils::Stats.new( path_value, types_value, skip_list )
+        o.busy_folders
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/dt/date.rb

@@ -0,0 +1,50 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A Date object (does not include a time).
+#
+
+module GlooLang
+  module Objs
+    class Date < GlooLang::Core::Obj
+
+      KEYWORD = 'date'.freeze
+      KEYWORD_SHORT = 'date'.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 + %w[now]
+      end
+
+      #
+      # Set to the current date.
+      #
+      def msg_now
+        t = DateTime.now.strftime( '%Y.%m.%d' )
+        self.value = t
+        $engine.heap.it.set_to t
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/dt/datetime.rb

@@ -0,0 +1,62 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A Date and Time object.
+#
+
+module GlooLang
+  module Objs
+    class Datetime < GlooLang::Core::Obj
+
+      KEYWORD = 'datetime'.freeze
+      KEYWORD_SHORT = 'dt'.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? DateTime
+          self.value = $engine.converter.convert( new_value, 'DateTime', nil )
+          return
+        end
+
+        self.value = new_value
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + %w[now]
+      end
+
+      #
+      # Set to the current date and time.
+      #
+      def msg_now
+        t = DateTime.now.strftime( '%Y.%m.%d %I:%M:%S %P' )
+        self.value = t
+        $engine.heap.it.set_to t
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/dt/time.rb

@@ -0,0 +1,50 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# A Time object (does not include a date).
+#
+
+module GlooLang
+  module Objs
+    class Time < GlooLang::Core::Obj
+
+      KEYWORD = 'time'.freeze
+      KEYWORD_SHORT = 'time'.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 + %w[now]
+      end
+
+      #
+      # Set to the current time.
+      #
+      def msg_now
+        t = DateTime.now.strftime( '%I:%M:%S %P' )
+        self.value = t
+        $engine.heap.it.set_to t
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/objs/ror/erb.rb

@@ -0,0 +1,116 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An object that evaluate a ruby statement.
+#
+require 'erb'
+
+module GlooLang
+  module Objs
+    class Erb < GlooLang::Core::Obj
+
+      KEYWORD = 'erb'.freeze
+      KEYWORD_SHORT = 'erb'.freeze
+      TEMPLATE = 'template'.freeze
+      PARAMS = 'params'.freeze
+      RESULT = 'result'.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 ERB template.
+      #
+      def template_value
+        tmpl = find_child TEMPLATE
+        return nil unless tmpl
+
+        return tmpl.value
+      end
+
+      #
+      # Set the result of the ERB template conversion.
+      #
+      def set_result( data )
+        r = find_child RESULT
+        return nil unless r
+
+        r.set_value data
+      end
+
+      #
+      # Get a hash with parameters for the ERB render.
+      #
+      def param_hash
+        h = {}
+
+        body = find_child PARAMS
+        body.children.each do |child|
+          child = GlooLang::Objs::Alias.resolve_alias( child )
+          h[ child.name ] = child.value
+        end
+
+        return h
+      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_text TEMPLATE, '', self
+        fac.create_can PARAMS, self
+        fac.create_text RESULT, '', self
+      end
+
+      # ---------------------------------------------------------------------
+      #    Messages
+      # ---------------------------------------------------------------------
+
+      #
+      # Get a list of message names that this object receives.
+      #
+      def self.messages
+        return super + [ 'run' ]
+      end
+
+      #
+      # Run the ERB template conversion.
+      #
+      def msg_run
+        tmpl = template_value
+        return unless tmpl
+
+        render = ERB.new( tmpl )
+        set_result render.result_with_hash( param_hash )
+      end
+
+    end
+  end
+end