gloo-lang 0.9.2 → 0.9.3

data/lib/gloo_lang/app/settings.rb

@@ -0,0 +1,186 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# Application and user settings.
+#
+
+require 'yaml'
+require 'tty-screen'
+require 'colorize'
+
+module GlooLang
+  module App
+    class Settings
+
+      attr_reader :user_root, :log_path, :config_path, :project_path,
+                  :start_with, :list_indent, :tmp_path,
+                  :debug_path, :debug
+
+      #
+      # Load setting from the yml file.
+      # The mode parameter is used to determine if we are running in TEST.
+      #
+      def initialize( mode )
+        @mode = mode
+        init_root
+        init_path_settings
+        init_user_settings
+      end
+
+      #
+      # Are we in test mode?
+      #
+      def in_test_mode?
+        return @mode == 'TEST'
+      end
+
+      #
+      # Get the project path for the current mode.
+      #
+      def project_path_for_mode( settings )
+        return File.join( @user_root, 'projects' ) if in_test_mode?
+
+        return settings[ 'gloo' ][ 'project_path' ]
+      end
+
+      #
+      # Show the current application settings.
+      # Can be seen in app with 'help settings'
+      #
+      def show
+        puts "\nApplication Settings:".blue
+        puts '  Startup with:  '.yellow + @start_with.white
+        puts '  Indent in Listing:  '.yellow + @list_indent.to_s.white
+        puts '  Screen Lines:  '.yellow + GlooLang::App::Settings.lines.to_s.white
+        puts '  Page Size:  '.yellow + GlooLang::App::Settings.page_size.to_s.white
+        puts ''
+        self.show_paths
+        puts ''
+      end
+
+      #
+      # Show path settings
+      #
+      def show_paths
+        puts '  User Root Path is here:  '.yellow + @user_root.white
+        puts '  Projects Path:  '.yellow + @project_path.white
+        puts '  Tmp Path:  '.yellow + @tmp_path.white
+        puts '  Debug Path:  '.yellow + @debug_path.white
+      end
+
+      #
+      # Get the number of vertical lines on screen.
+      #
+      def self.lines
+        TTY::Screen.rows
+      end
+
+      #
+      # Get the number of horizontal columns on screen.
+      #
+      def self.cols
+        TTY::Screen.cols
+      end
+
+      #
+      # Get the default page size.
+      # This is the number of lines of text we can show.
+      #
+      def self.page_size
+        Settings.lines - 3
+      end
+
+      #
+      # How many lines should we use for a preview?
+      #
+      def self.preview_lines
+        return 7
+      end
+
+      # ---------------------------------------------------------------------
+      #    Private
+      # ---------------------------------------------------------------------
+
+      private
+
+      #
+      # Initialize gloo's root path.
+      #
+      def init_root
+        if in_test_mode?
+          path = File.dirname( File.dirname( File.absolute_path( __FILE__ ) ) )
+          path = File.dirname( File.dirname( path ) )
+          path = File.join( path, 'test', 'gloo' )
+          @user_root = path
+        else
+          @user_root = File.join( Dir.home, 'gloo' )
+        end
+      end
+
+      #
+      # Get the app's required directories.
+      #
+      def init_path_settings
+        Dir.mkdir( @user_root ) unless File.exist?( @user_root )
+
+        @log_path = File.join( @user_root, 'logs' )
+        Dir.mkdir( @log_path ) unless File.exist?( @log_path )
+
+        @config_path = File.join( @user_root, 'config' )
+        Dir.mkdir( @config_path ) unless File.exist?( @config_path )
+
+        @tmp_path = File.join( @user_root, 'tmp' )
+        Dir.mkdir( @tmp_path ) unless File.exist?( @tmp_path )
+
+        @debug_path = File.join( @user_root, 'debug' )
+        Dir.mkdir( @debug_path ) unless File.exist?( @debug_path )
+      end
+
+      #
+      # Initialize the user settings for the currently
+      # running environment.
+      #
+      def init_user_settings
+        settings = get_settings
+
+        @project_path = project_path_for_mode settings
+        @start_with = settings[ 'gloo' ][ 'start_with' ]
+        @list_indent = settings[ 'gloo' ][ 'list_indent' ]
+
+        @debug = settings[ 'gloo' ][ 'debug' ]
+      end
+
+      #
+      # Get the app's required directories.
+      #
+      def get_settings
+        f = File.join( @config_path, 'gloo.yml' )
+        create_settings( f ) unless File.exist?( f )
+        return YAML.load_file f
+      end
+
+      #
+      # Create settings file.
+      #
+      def create_settings( file )
+        IO.write( file, get_default_settings )
+      end
+
+      #
+      # Get the value for default settings.
+      #
+      def get_default_settings
+        projects = File.join( @user_root, 'projects' )
+        str = <<~TEXT
+          gloo:
+            project_path: #{projects}
+            start_with:
+            list_indent: 1
+            debug: false
+        TEXT
+        return str
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/convert/converter.rb

@@ -0,0 +1,35 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Data conversion manager.
+#
+
+module GlooLang
+  module Convert
+    class Converter
+
+      # ---------------------------------------------------------------------
+      #    Convert
+      # ---------------------------------------------------------------------
+
+      #
+      # Convert the given value to the specified type,
+      # or if no conversion is available, revert to default.
+      #
+      def convert( value, to_type, default = nil )
+        begin
+          name = "GlooLang::Convert::#{value.class}To#{to_type}"
+          clazz = name.split( '::' ).inject( Object ) { |o, c| o.const_get c }
+          o = clazz.new
+          return o.convert( value )
+        rescue => e
+          $log.error e.message
+          $engine.heap.error.set_to e.message
+        end
+
+        return default
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/convert/string_to_datetime.rb

@@ -0,0 +1,21 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Conversion tool:  String to Date Time.
+#
+require 'chronic'
+
+module GlooLang
+  module Convert
+    class StringToDateTime
+
+      #
+      # Convert the given string value to a date and time.
+      #
+      def convert( value )
+        return Chronic.parse( value )
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/convert/string_to_decimal.rb

@@ -0,0 +1,20 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Conversion tool:  String to Decimal.
+#
+
+module GlooLang
+  module Convert
+    class StringToDecimal
+
+      #
+      # Convert the given string value to an integer.
+      #
+      def convert( value )
+        return value.to_f
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/convert/string_to_integer.rb

@@ -0,0 +1,20 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# Conversion tool:  String to Integer.
+#
+
+module GlooLang
+  module Convert
+    class StringToInteger
+
+      #
+      # Convert the given string value to an integer.
+      #
+      def convert( value )
+        return value.to_i
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/baseo.rb

@@ -0,0 +1,30 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# An abstract base object.
+# All objects and verbs derive from this.
+#
+
+module GlooLang
+  module Core
+    class Baseo
+
+      attr_accessor :name
+
+      NOT_IMPLEMENTED_ERR = 'Not implemented yet!'.freeze
+
+      # Set up the object.
+      def initialize
+        @name = ''
+      end
+
+      #
+      # The object type, suitable for display.
+      #
+      def type_display
+        raise 'this method should be overriden'
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/dictionary.rb

@@ -0,0 +1,181 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# A dictionary of Objects and Verbs.
+#
+require 'singleton'
+
+module GlooLang
+  module Core
+    class Dictionary
+
+      include Singleton
+
+      attr_reader :verbs, :objs, :keywords
+
+      #
+      # Set up the object dictionary.
+      #
+      def initialize
+        @verbs = {}
+        @objs = {}
+        @verb_references = []
+        @obj_references = []
+        @keywords = []
+      end
+
+      #
+      # Register a verb.
+      #
+      def register_verb( subclass )
+        @verb_references << subclass
+      end
+
+      #
+      # Register an object type.
+      #
+      def register_obj( subclass )
+        @obj_references << subclass
+      end
+
+      #
+      # Initialize verbs and objects in the dictionary.
+      #
+      def init
+        $log.debug 'initializing dictionaries'
+        init_verbs
+        init_objs
+      end
+
+      #
+      # Is the given word an object type?
+      #
+      def obj?( word )
+        return false unless word
+
+        return @objs.key?( word.downcase )
+      end
+
+      #
+      # Find the object type by name.
+      #
+      def find_obj( word )
+        return nil unless word
+        return nil unless obj?( word )
+
+        return @objs[ word.downcase ]
+      end
+
+      #
+      # Is the given word a verb?
+      #
+      def verb?( word )
+        return false unless word
+
+        return @verbs.key?( word.downcase )
+      end
+
+      #
+      # Find the verb by name.
+      #
+      def find_verb( verb )
+        return nil unless verb
+        return nil unless verb?( verb )
+
+        return @verbs[ verb.downcase ]
+      end
+
+      #
+      # Get the list of verbs, sorted.
+      #
+      def get_obj_types
+        return @obj_references.sort { |a, b| a.typename <=> b.typename }
+      end
+
+      #
+      # Get the list of verbs, sorted.
+      #
+      def get_verbs
+        return @verb_references.sort { |a, b| a.keyword <=> b.keyword }
+      end
+
+      #
+      # Lookup the keyword by name or shortcut.
+      # Return the keyword (name) or nil if it is not found.
+      #
+      def lookup_keyword( key )
+        v = find_verb key
+        return v.keyword if v
+
+        o = find_obj key
+        return o.typename if o
+
+        return nil
+      end
+
+      #
+      # Show a list of all keywords.
+      # This includes verbs and objects, names and shortcuts.
+      #
+      def show_keywords
+        str = ''
+        @keywords.sort.each_with_index do |k, i|
+          str << k.ljust( 20, ' ' )
+          if ( ( i + 1 ) % 6 ).zero?
+            puts str
+            str = ''
+          end
+        end
+      end
+
+      # ---------------------------------------------------------------------
+      #    Private
+      # ---------------------------------------------------------------------
+
+      private
+
+      #
+      # Add a keyword to the keyword list.
+      # Report an error if the keyword is already in the list.
+      #
+      def add_key( keyword )
+        if @keywords.include?( keyword )
+          $log.error "duplicate keyword '#{keyword}'"
+          return
+        end
+
+        @keywords << keyword
+      end
+
+      #
+      # Init the list of objects.
+      #
+      def init_objs
+        $log.debug "initializing #{@obj_references.count} objects"
+        @obj_references.each do |o|
+          $log.debug o
+          @objs[ o.typename ] = o
+          @objs[ o.short_typename ] = o
+          add_key o.typename
+          add_key o.short_typename if o.typename != o.short_typename
+        end
+      end
+
+      #
+      # Init the list of verbs.
+      #
+      def init_verbs
+        $log.debug "initializing #{@verb_references.count} verbs"
+        @verb_references.each do |v|
+          $log.debug v
+          @verbs[ v.keyword ] = v
+          @verbs[ v.keyword_shortcut ] = v
+          # v.send( :new ).run
+          add_key v.keyword
+          add_key v.keyword_shortcut if v.keyword != v.keyword_shortcut
+        end
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/error.rb

@@ -0,0 +1,61 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2020 Eric Crane.  All rights reserved.
+#
+# If the last command to run generated an error it will be here.
+#
+
+module GlooLang
+  module Core
+    class Error
+
+      attr_accessor :value, :error_count
+
+      #
+      # Set up the error object.
+      #
+      def initialize
+        clear
+      end
+
+      #
+      # Clear out the error message.
+      #
+      def clear
+        @error_count = 0
+        @value = nil
+      end
+
+      #
+      # Set the value of error.
+      #
+      def set_to( new_value )
+        @error_count += 1
+        @value = new_value
+      end
+
+      #
+      # Start counting errors.
+      # We're looking to see if we get any new ones during
+      # a script or an immediate command.
+      #
+      def start_tracking
+        @error_count = 0
+      end
+
+      #
+      # Clear out error if we didn't add any new ones.
+      #
+      def clear_if_no_errors
+        self.clear if @error_count.zero?
+      end
+
+      #
+      # Get the string representation of the error.
+      #
+      def to_s
+        return @value.to_s
+      end
+
+    end
+  end
+end

data/lib/gloo_lang/core/event_manager.rb

@@ -0,0 +1,44 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
+#
+# The Event Manager.
+# Run scripts in response to pre-defined events.
+#
+
+module GlooLang
+  module Core
+    class EventManager
+
+      #
+      # Set up the event manager.
+      #
+      def initialize
+        $log.debug 'event manager intialized...'
+      end
+
+      #
+      # Run on_load scripts in the recently loaded object
+      # If no obj is given the script will be run in root.
+      #
+      def on_load( obj = nil, in_heap = false )
+        return unless obj || in_heap
+
+        $log.debug 'on_load event'
+        arr = GlooLang::Core::ObjFinder.by_name 'on_load', obj
+        arr.each { |o| GlooLang::Exec::Dispatch.message 'run', o }
+      end
+
+      #
+      # Run on_unload scripts in the object that will be unloaded.
+      #
+      def on_unload( obj )
+        return unless obj
+
+        $log.debug 'on_unload event'
+        arr = GlooLang::Core::ObjFinder.by_name 'on_unload', obj
+        arr.each { |o| GlooLang::Exec::Dispatch.message 'run', o }
+      end
+
+    end
+  end
+end