gloo 5.0.1 → 5.2.0

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

@@ -0,0 +1,269 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2026 Eric Crane.  All rights reserved.
+#
+# Some message implementations shared by String and Text objs.
+#
+require 'base64'
+require 'uri'
+
+module Gloo
+  module Objs
+    module StringMsgs
+
+      # 
+      # Does the string start with the given string?
+      # 
+      def msg_starts_with?
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate
+
+          result = self.value.start_with?( data )
+          @engine.heap.it.set_to result
+          return result
+        else
+          # Error
+          @engine.log.error MISSING_PARAM_MSG
+          @engine.heap.it.set_to false
+          return false
+        end
+      end
+
+      # 
+      # Does the string end with the given string?
+      # 
+      def msg_ends_with?
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate
+
+          result = value.end_with?( data )
+          @engine.heap.it.set_to result
+          return result
+        else
+          # Error
+          @engine.log.error MISSING_PARAM_MSG
+          @engine.heap.it.set_to false
+          return false
+        end
+      end
+
+      # 
+      # Does the string contain the given string?
+      #
+      # This was formerly an overload of obj.contains?
+      # Contains? for the Obj checks for the presense of children.
+      #
+      def msg_substring?
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate
+
+          result = value.include?( data )
+          @engine.heap.it.set_to result
+          return result
+        else
+          @engine.heap.it.set_to false
+          return false
+        end
+      end
+
+      #
+      # Get the size of the string.
+      #
+      def msg_size
+        s = value.size
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Get the number of characters in the string.
+      #
+      def msg_count_chars
+        s = value.chars.count
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Get the number of words in the string.
+      #
+      def msg_count_words
+        s = value.split( " " ).count
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Get the number of lines in the string.
+      #
+      def msg_count_lines
+        s = value.split( "\n" ).count
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      # 
+      # Convert whitespace to HTML friendly spaces.
+      # 
+      def msg_format_for_html
+        text = self.value
+        out = ""
+        return out unless text
+
+        # indentation
+        text.each_line do |line|
+          i = 0
+          while line[i] == ' '
+            i += 1
+            out << "&nbsp;"
+          end
+    
+          i = 0
+          while line[i] == "\t"
+            i += 1
+            out << "&nbsp;&nbsp;&nbsp;&nbsp;"
+          end
+          out << line
+        end
+    
+        self.value = out.gsub( "\n", "<br/>" )
+      end
+
+      # 
+      # Escape the string.
+      # Make it URL safe.
+      # The value of the string is changed.
+      # 
+      def msg_escape
+        s = URI::DEFAULT_PARSER.escape( value )
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      # 
+      # Unescape the string.
+      # The value of the string is changed.
+      # 
+      def msg_unescape
+        s = URI::DEFAULT_PARSER.unescape( value )
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      # 
+      # Encode the string as base64.
+      # Changes the value of the string.
+      # 
+      def msg_encode64
+        s = Base64.encode64( value )
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      # 
+      # Decode the string from base64.
+      # Changes the value of the string.
+      # 
+      def msg_decode64
+        s = Base64.decode64( value )
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Generate a new UUID in the string.
+      #
+      def msg_gen_uuid
+        s = StringGenerator.uuid
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Generate a random alphanumeric string.
+      # By default the length is 10 characters.
+      # Set the length with an optional parameter.
+      #
+      def msg_gen_alphanumeric
+        len = 10
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate
+          len = data.to_i
+        end
+
+        s = StringGenerator.alphanumeric( len )
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Generate a random hex string.
+      # By default the length is 10 hex characters.
+      # Set the length with an optional parameter.
+      #
+      def msg_gen_hex
+        len = 10
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate
+          len = data.to_i
+        end
+
+        s = StringGenerator.hex( len )
+        set_value s
+        @engine.heap.it.set_to s
+        return s
+      end
+
+      #
+      # Generate a random base64 string.
+      # By default the length is 12 characters.
+      # Set the length with an optional parameter.
+      #
+      def msg_gen_base64
+        len = 12
+        if @params&.token_count&.positive?
+          expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
+          data = expr.evaluate
+          len = data.to_i
+        end
+
+        s = StringGenerator.base64( len )
+        set_value s
+        @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

@@ -3,11 +3,14 @@
 #
 # A [multiline] block of text.
 #
+require_relative 'string_msgs'
 
 module Gloo
   module Objs
     class Text < Gloo::Core::Obj
 
+      include StringMsgs
+
       KEYWORD = 'text'.freeze
       KEYWORD_SHORT = 'txt'.freeze
 
@@ -55,7 +58,10 @@ module Gloo
       # Get a list of message names that this object receives.
       #
       def self.messages
-        return super
+        return super + %w[up down size starts_with? ends_with? substring? 
+          count_lines count_words count_chars
+          format_for_html encode64 decode64 escape unescape
+          gen_alphanumeric gen_uuid gen_hex gen_base64]
       end
 
     end

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

@@ -100,6 +100,8 @@ module Gloo
           EachLine.new( @engine, self ).run
         elsif EachFile.use_for?( self )
           EachFile.new( @engine, self ).run
+        elsif EachDir.use_for?( self )
+          EachDir.new( @engine, self ).run
         # elsif EachRepo.use_for?( self )
         #   EachRepo.new( @engine, self ).run
         else 

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

@@ -0,0 +1,72 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2026 Eric Crane.  All rights reserved.
+#
+# Iterate over each directory in a folder.
+# 
+
+module Gloo
+  module Objs
+    class EachDir
+
+      DIR = 'dir'.freeze
+      
+      # ---------------------------------------------------------------------
+      #    Create Iterator
+      # ---------------------------------------------------------------------
+
+      def initialize( engine, iterator_obj )
+        @engine = engine
+        @iterator_obj = iterator_obj
+      end
+
+
+      # ---------------------------------------------------------------------
+      #    Check if this is the right iterator
+      # ---------------------------------------------------------------------
+
+      #
+      # Use this iterator for each loop?
+      #
+      def self.use_for?( iterator_obj )
+        return true if iterator_obj.find_child DIR
+
+        return false
+      end 
+
+
+      # ---------------------------------------------------------------------
+      #    Iterate
+      # ---------------------------------------------------------------------
+
+      #
+      # Run for each directory.
+      #
+      def run
+        folder = @iterator_obj.in_value
+        return unless folder
+
+        unless Dir.exist?( folder )
+          @engine.err "Folder does not exist: #{folder}"
+        end
+
+        Dir.glob( "#{folder}*" ).each do |f|
+          if Dir.exist?( f )
+            set_dir f
+            @iterator_obj.run_do
+          end
+        end
+      end
+
+      #
+      # Set the value of the dir.
+      #
+      def set_dir( f )
+        o = @iterator_obj.find_child DIR
+        return unless o
+
+        o.set_value f
+      end
+      
+    end
+  end
+end

data/lib/gloo/persist/disc_mech.rb

@@ -69,11 +69,20 @@ module Gloo
       # Expand a single file path.
       # 
       def expand( name )
+        # Try full path
         ext_path = File.expand_path( name )
         return [ ext_path ] if self.valid?( ext_path )
 
+        # Try in user root, projects
         full_name = "#{name}#{file_ext}"
-        return [ File.join( @engine.settings.project_path, full_name ) ]
+        pn = File.join( @engine.settings.project_path, full_name )
+        return [ pn ] if self.valid?( pn )
+        
+        # Try in user root
+        pn = File.join( @engine.settings.user_root, full_name )
+        return [ pn ] if self.valid?( pn )
+        
+        return nil
       end
 
       # 

data/lib/gloo/persist/persist_man.rb

@@ -67,15 +67,19 @@ module Gloo
 
       # 
       # Unload all loaded objects.
+      # The engine  is reset to a clean state.
       # 
       def unload_all
         objs = self.maps.map { |fs| fs.obj }
         objs.each { |o| o.msg_unload }
+        @engine.reset_state
       end
 
       # 
       # The given object is unloading.
       # Do any necessary clean up here.
+      # This is used to unload a single object and comes from a
+      # message sent to the object.
       # 
       def unload( obj )
         @engine.event_manager.on_unload obj
@@ -90,19 +94,24 @@ module Gloo
 
       # 
       # Reload all objects.
+      # First send a message to each object to let it know it is being reloaded.
+      # Then let the engine restart to reload the files.
       # 
       def reload_all
         return unless @maps
         
         @maps.each do |fs|
           @engine.event_manager.on_reload fs.obj
-          @engine.heap.unload fs.obj
-          fs.load
         end
+
+        # Acutal unloading is done in the engine.restart.
+        @engine.restart
       end
 
       # 
       # Re-load the given object from file.
+      # This is used to reload a single object and comes from a
+      # message sent to the object.
       # 
       def reload( obj )
         fs = find_file_storage( obj )

data/lib/gloo/plugin/ext_manager.rb

@@ -54,6 +54,11 @@ module Gloo
       # within the gloo extensions directory.
       #
       def load_ext( name )
+        if @extensions.key?( name )
+          @engine.log.info "Extension #{name} is already loaded."
+          return
+        end
+        
         @engine.log.debug "Loading extension: #{name}"
         fn = ext_start_file name
 
@@ -80,8 +85,9 @@ module Gloo
           inst = plugin_class.new
           ext_cb = Callback.new( @engine )
           inst.register( ext_cb )
-        rescue NameError
-          @engine.log.error "Warning: Could not find class #{class_name} in file #{full_path}"
+        rescue NameError => ex
+          @engine.log_exception ex
+          @engine.log.error "Could not find class #{class_name} in file #{full_path}"
         end
       end
 

data/lib/gloo/plugin/lib_manager.rb

@@ -49,6 +49,12 @@ module Gloo
       # within the gloo libraries directory.
       #
       def load_lib( name )
+        # Check to see if the library is already loaded.
+        if @libraries.key?( name )
+          @engine.log.info "Library #{name} is already loaded."
+          return
+        end
+
         @engine.log.debug "Loading core library: #{name}"
         gem_name = core_lib_name name
         
@@ -87,8 +93,8 @@ module Gloo
           inst = plugin_class.new
           lib_cb = Callback.new( @engine )
           inst.register( lib_cb )
-        rescue NameError
-          @engine.log.error "Warning: Could not find class #{class_name}"
+        rescue NameError => ex
+          @engine.log.error "Warning: Could not find class #{class_name}", ex
         end
       end
 

data/lib/gloo/verbs/eval.rb

@@ -0,0 +1,43 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2026 Eric Crane.  All rights reserved.
+#
+# Evaluate an expression and put the result into [it].
+#
+
+module Gloo
+  module Verbs
+    class Eval < Gloo::Core::Verb
+
+      KEYWORD = 'eval'.freeze
+      KEYWORD_SHORT = 'noop'.freeze
+
+      #
+      # 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
+
+      #
+      # Run the verb.
+      #
+      def run
+        if @tokens.token_count > 1
+          expr = Gloo::Expr::Expression.new( @engine, @tokens.params )
+          result = expr.evaluate
+          @engine.heap.it.set_to result
+        else
+          @engine.heap.it.set_to true
+        end
+      end
+
+    end
+  end
+end

data/lib/gloo/verbs/exists.rb

@@ -13,6 +13,7 @@ module Gloo
       VERB_TYPE = 'verb'.freeze
       OBJ_TYPE = 'object'.freeze
       ANY_TYPE = 'any'.freeze
+      INSTANCE = 'instance'.freeze
       WRONG_NUM_ARGS_ERR = 'Wrong number of arguments! 1 or 2 expected.'.freeze
 
       #
@@ -64,11 +65,23 @@ module Gloo
           return @engine.dictionary.obj?(keyword)
         elsif type == ANY_TYPE
           return @engine.dictionary.verb?(keyword) || @engine.dictionary.obj?(keyword)
+        elsif type == INSTANCE
+          return instance_exists?(keyword)
         end
 
         return false
       end
 
+      # 
+      # Check to see if an instance of an object exists.
+      # 
+      def instance_exists?( pn )
+        pn = Gloo::Core::Pn.new( @engine, pn )
+        o = pn.resolve
+        return false if o.nil?
+        return true
+      end
+
     end
   end
 end

data/lib/gloo/verbs/reload.rb

@@ -13,6 +13,8 @@ module Gloo
 
       #
       # Run the verb.
+      # First all objects will be notified of the event.
+      # Then the engine will restart with the original parameters.
       #
       def run
         @engine.persist_man.reload_all

data/lib/gloo/verbs/unload.rb

@@ -13,6 +13,7 @@ module Gloo
 
       #
       # Run the verb.
+      # This will unload all loaded objects and reset the engine state.
       #
       def run
         return unless @engine.persist_man.maps

data/test.gloo/basic.test.gloo

@@ -0,0 +1,53 @@
+#
+# Basic tests
+#
+
+tests [can] :
+  basic [can] :
+
+    on_load [script] :
+      log 'Include functionality for all test in on_load' (debug)
+
+    # show_message [test] :
+    #   description [string] : Show a message
+    #   on_test [script] :
+    #     show 'hello'
+    #     eval it = 'hello'
+    #     assert "expected it to be 'hello'"
+    #     eval it = 'not hello'
+    #     refute "expected it to not be 'not hello'"
+
+    assert_noop [test] :
+      description [string] : Assert no operation
+      on_test [script] :
+        noop
+        assert 'noop should be true'
+
+    refute [test] :
+      description [string] : Refute an operation
+      on_test [script] :
+        eval false
+        refute 'false should be false'
+
+    # 
+    # Use this test to verify that errors cause the test to fail.
+    # 
+    # refute_true [test] :
+    #   description [string] : Refute true
+    #   on_test [script] :
+    #     noop
+    #     refute 'expected this to fail!'
+    #     refute 'also this'
+
+    #     eval false
+    #     assert
+
+    #     eval true
+    #     refute
+
+    write_log [test] :
+      description [string] : Write a debug log message
+      on_test [script] :
+        log 'Test debug log' (debug)
+        eval it = 'Test debug log'
+        assert "expected it to be 'Test debug log'"