gloo-lang 0.9.1 → 0.9.4

data/lib/gloo_lang/utils/stats.rb

@@ -0,0 +1,205 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Utilities related to words (strings).
+#
+
+module GlooLang
+  module Utils
+    class Stats
+
+      DIR_NOT_FOUND_ERR = 'The folder was not found!'.freeze
+
+      # ---------------------------------------------------------------------
+      #    Setup
+      # ---------------------------------------------------------------------
+
+      #
+      # Create a stats utility class for the given directory.
+      #
+      def initialize( dir, types, skip = [] )
+        @dir = dir
+        setup_loc types
+        @skip = skip
+      end
+
+      # ---------------------------------------------------------------------
+      #    Public Functions
+      # ---------------------------------------------------------------------
+
+      #
+      # Is the stats utility valid?
+      # Does it have a valid root directory.
+      #
+      def valid?
+        return true if @dir && File.directory?( @dir )
+
+        $engine.err DIR_NOT_FOUND_ERR
+        $engine.heap.it.set_to false
+
+        return false
+      end
+
+      #
+      # Show all stat data for the project.
+      #
+      def show_all
+        return unless valid?
+
+        generate
+        puts "Showing All stats for #{@dir}".white
+        puts "\n ** #{@dir_cnt} Total Folders ** "
+        puts " ** #{@file_cnt} Total Files ** "
+
+        busy_folders( 7 )
+        file_types
+        loc
+      end
+
+      #
+      # Get a list of the busiest folders.
+      # Count is how many results we want.
+      #
+      def busy_folders( count = 17 )
+        return unless valid?
+
+        generate
+        puts "\nBusy Folders:".yellow
+
+        @folders.sort! { |a, b| a[ :cnt ] <=> b[ :cnt ] }
+        @folders.reverse!
+        @folders[ 0..count ].each do |f|
+          puts "  #{f[ :cnt ]} - #{f[ :name ]}"
+        end
+      end
+
+      #
+      # Show file types and how many of each there are.
+      #
+      def file_types
+        return unless valid?
+
+        generate
+        puts "\nFiles by Type:".yellow
+
+        @types = @types.sort_by( &:last )
+        @types.reverse!
+        @types.each do |o|
+          puts "  #{o[ 1 ]} - #{o[ 0 ]}" unless o[ 0 ].empty?
+        end
+      end
+
+      #
+      # Show Lines of Code
+      #
+      def loc
+        return unless valid?
+
+        generate
+        total = 0
+
+        @loc.each do |k, v|
+          puts "\n #{k} Lines of Code".yellow
+          total += v[ :lines ]
+          formatted = GlooLang::Utils::Format.number( v[ :lines ] )
+          puts " ** #{formatted} in #{v[ :files ].count} #{k} files ** "
+
+          puts "\n Busy #{k} files:".yellow
+          files = v[ :files ].sort! { |a, b| a[ :lines ] <=> b[ :lines ] }
+          files.reverse!
+          files[ 0..12 ].each do |f|
+            puts "  #{f[ :lines ]} - #{f[ :file ]}"
+          end
+        end
+
+        formatted = GlooLang::Utils::Format.number( total )
+        puts "\n #{formatted} Total Lines of Code".white
+      end
+
+      # ---------------------------------------------------------------------
+      #    Private Functions
+      # ---------------------------------------------------------------------
+
+      #
+      # Setup counters for lines of code by file type.
+      def setup_loc( types )
+        @loc = {}
+
+        types.split( ' ' ).each do |t|
+          @loc[ t ] = { lines: 0, files: [] }
+        end
+      end
+
+      #
+      # Generate stat data unless we've already done so.
+      #
+      def generate
+        return if @folders
+
+        $log.debug 'Generating...'
+        @folders = []
+        @types = {}
+        @file_cnt = 0
+        @dir_cnt = 0
+
+        generate_for Pathname.new( @dir )
+      end
+
+      #
+      # Generate data for the given path.
+      # NOTE: this is a recursive function.
+      # It traverses all sub-direcctories.
+      #
+      def generate_for( path )
+        return if @skip.include?( File.basename( path ) )
+
+        cnt = 0
+        path.children.each do |f|
+          if f.directory?
+            @dir_cnt += 1
+            generate_for( f )
+          else
+            @file_cnt += 1
+            cnt += 1
+            handle_file( f )
+            inc_type( File.extname( f ) )
+          end
+        end
+        @folders << { name: path, cnt: cnt }
+      end
+
+      #
+      # Increment the file count.
+      #
+      def inc_type( type )
+        if @types[ type ]
+          @types[ type ] += 1
+        else
+          @types[ type ] = 1
+        end
+      end
+
+      #
+      # Consider code file types.
+      #
+      def handle_file( file )
+        ext = File.extname( file )
+        return unless ext
+
+        ext = ext[ 1..-1 ]
+        return unless @loc.key?( ext )
+
+        lines = count_lines( file )
+        @loc[ ext ][ :lines ] += lines
+        @loc[ ext ][ :files ] << { lines: lines, file: file }
+      end
+
+      #
+      # Count lines of code in file.
+      def count_lines( file )
+        return `wc -l #{file}`.split.first.to_i
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/utils/words.rb

@@ -0,0 +1,19 @@
+# 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 GlooLang
+  module Utils
+    class Words
+
+      def self.pluralize( word )
+        return word.pluralize
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/verbs/alert.rb

@@ -0,0 +1,79 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Show a system notification.
+#
+
+module GlooLang
+  module Verbs
+    class Alert < GlooLang::Core::Verb
+
+      KEYWORD = 'alert'.freeze
+      KEYWORD_SHORT = '!'.freeze
+
+      MISSING_EXPR_ERR = 'Missing Expression!'.freeze
+      NO_RESULT_ERR = 'Expression evaluated with no result!'.freeze
+
+      #
+      # Run the verb.
+      #
+      def run
+        unless @tokens.token_count > 1
+          $engine.err MISSING_EXPR_ERR
+          return
+        end
+
+        expr = GlooLang::Expr::Expression.new( @tokens.params )
+        result = expr.evaluate
+
+        if result
+          $engine.heap.it.set_to result
+          post_alert result
+        else
+          $engine.err NO_RESULT_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
+
+      # ---------------------------------------------------------------------
+      #    Private functions
+      # ---------------------------------------------------------------------
+
+      private
+
+      #
+      # Post the alert for the specific platform.
+      # Notice is not posted if we're in quiet mode.
+      #
+      def post_alert( msg )
+        $log.info msg
+        return if $engine.args.quiet?
+
+        post_osx msg
+      end
+
+      #
+      # Post the alert on the Mac OSX.
+      #
+      def post_osx( msg )
+        cmd1 = '/usr/bin/osascript -e "display notification \"'
+        cmd2 = '\" with title \"Gloo\" "'
+        system( cmd1 + msg.to_s + cmd2 )
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/verbs/beep.rb

@@ -0,0 +1,40 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Play a standard system beep sound.
+#
+
+module GlooLang
+  module Verbs
+    class Beep < GlooLang::Core::Verb
+
+      KEYWORD = 'beep'.freeze
+      KEYWORD_SHORT = 'b'.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
+        print 7.chr
+      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_lang/verbs/cls.rb

@@ -0,0 +1,37 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Clear the screen.
+#
+
+module GlooLang
+  module Verbs
+    class Cls < GlooLang::Core::Verb
+
+      KEYWORD = 'cls'.freeze
+      KEYWORD_SHORT = 'cls'.freeze
+
+      #
+      # Run the verb.
+      #
+      def run
+        $engine&.clear_screen
+      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_lang/verbs/context.rb

@@ -0,0 +1,62 @@
+# 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 GlooLang
+  module Verbs
+    class Context < GlooLang::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_lang/verbs/create.rb

@@ -0,0 +1,68 @@
+# 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 GlooLang
+  module Verbs
+    class Create < GlooLang::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 GlooLang::Expr::LString.string?( value )
+          value = GlooLang::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_lang/verbs/execute.rb

@@ -0,0 +1,56 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Execute a shell command.
+#
+
+module GlooLang
+  module Verbs
+    class Execute < GlooLang::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 = GlooLang::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