gloo 5.3.9 → 6.0

data/lib/gloo/persist/file_loader.rb

@@ -19,7 +19,7 @@ module Gloo
       #
       def initialize( engine, pn )
         @engine = engine
-        @mech = @engine.platform.getFileMech( @engine )
+        @mech = @engine.platform.get_file_mech( @engine )
         @pn = pn
         @tabs = 0
         @obj = nil

data/lib/gloo/persist/file_saver.rb

@@ -1,7 +1,7 @@
 # Author::    Eric Crane  (mailto:eric.crane@mac.com)
 # Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
 #
-# Helper class used to save an object to a file..
+# Helper class used to save an object to a file.
 #
 
 module Gloo
@@ -13,7 +13,7 @@ module Gloo
       #
       def initialize( engine, pn, obj )
         @engine = engine
-        @mech = @engine.platform.getFileMech( @engine )
+        @mech = @engine.platform.get_file_mech( @engine )
         @pn = pn
         @obj = obj
       end

data/lib/gloo/persist/persist_man.rb

@@ -1,7 +1,7 @@
 # Author::    Eric Crane  (mailto:eric.crane@mac.com)
 # Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
 #
-# The persistance manager.
+# The persistence manager.
 # Keeps a collection of object-file mappings, and then
 # uses mappings to know how/where to save updated objects.
 #
@@ -13,12 +13,12 @@ module Gloo
       attr_reader :maps, :mech
 
       #
-      # Contructor for the persistence manager.
+      # Constructor for the persistence manager.
       #
       def initialize( engine )
         @engine = engine
         @maps = []
-        @mech = @engine.platform.getFileMech( @engine )
+        @mech = @engine.platform.get_file_mech( @engine )
       end
 
       #
@@ -58,10 +58,14 @@ module Gloo
 
         pns.each do |pn|
           @engine.log.debug "Load file(s) at: #{pn}"
-          fs = Gloo::Persist::FileStorage.new( @engine, pn )
-          fs.load
-          @maps << fs
-          @engine.event_manager.on_load fs.obj
+          begin
+            fs = Gloo::Persist::FileStorage.new( @engine, pn )
+            fs.load
+            @maps << fs
+            @engine.event_manager.on_load fs.obj
+          rescue => ex
+            @engine.handle_exception( ex )
+          end
         end
       end
 
@@ -104,7 +108,7 @@ module Gloo
           @engine.event_manager.on_reload fs.obj
         end
 
-        # Acutal unloading is done in the engine.restart.
+        # Actual unloading is done in the engine.restart.
         @engine.restart
       end
 

data/lib/gloo/plugin/callback.rb

@@ -16,7 +16,7 @@ module Gloo
       # Register a verb.
       # 
       def register_verb( verb_class )
-        @engine.log.debug "Registering verb: #{verb_class} from callbackup helper"
+        @engine.log.debug "Registering verb: #{verb_class} from callback helper"
         @engine.dictionary.register_verb_post_start( verb_class )
       end
 

data/lib/gloo/plugin/ext_manager.rb

@@ -18,7 +18,7 @@ module Gloo
       def initialize( engine )
         @engine = engine
         @extensions = {}
-        @engine.log.debug 'extension manager intialized...'
+        @engine.log.debug 'extension manager initialized...'
       end
 
       # 

data/lib/gloo/plugin/lib_manager.rb

@@ -19,7 +19,7 @@ module Gloo
       def initialize( engine )
         @engine = engine
         @libraries = {}
-        @engine.log.debug 'library manager intialized...'
+        @engine.log.debug 'library manager initialized...'
       end
 
       # 

data/lib/gloo/verbs/execute.rb

@@ -32,13 +32,7 @@ module Gloo
           exec cmd
         end
 
-        # pid = spawn cmd
-        # Process.wait pid
         @engine.log.debug "done executing cmd: #{cmd}"
-
-        # system expr.evaluate  #, chdir: Dir.pwd
-        # `#{expr.evaluate}`
-        # exec expr.evaluate
       end
 
       #

data/lib/gloo/verbs/files.rb

@@ -18,7 +18,6 @@ module Gloo
         return unless @engine.persist_man.maps
         
         @engine.persist_man.maps.each do |map|
-          # puts "#{map.obj.name} - #{map.pn}"
           @engine.log.show "#{map.obj.name} - #{map.pn}"
         end
         @engine.heap.it.set_to @engine.persist_man.maps.count

data/lib/gloo/verbs/help.rb

@@ -84,13 +84,6 @@ module Gloo
       end
 
       #
-      # Show all keywords: verbs and objects.
-      #
-      def show_keywords
-        @engine.dictionary.show_keywords
-      end
-
-      # 
       # Show default help.
       # No parameters were given.
       # 
@@ -111,8 +104,6 @@ module Gloo
       # Dispatch the help to the right place.
       #
       def dispatch( opts )
-      #   return if dispatch_help_page( opts )
-
         @engine.log.debug 'looking for help topic'
         cmd = DISPATCH[ opts.to_sym ]
         if cmd
@@ -123,13 +114,6 @@ module Gloo
         end
       end
 
-      #
-      # Show application settings.
-      #
-      def show_settings
-        @engine.settings.show
-      end
-
       #
       # Report an error with the inline help.
       #

data/lib/gloo/verbs/list.rb

@@ -111,7 +111,7 @@ module Gloo
         end
 
         # Last chance: use the default
-        return 2
+        return '  '
       end
 
     end

data/lib/gloo/verbs/load.rb

@@ -1,7 +1,7 @@
 # Author::    Eric Crane  (mailto:eric.crane@mac.com)
 # Copyright:: Copyright (c) 2019 Eric Crane.  All rights reserved.
 #
-# Save an object to a file or other persistance mechcanism.
+# Load an object from a file or other persistence mechanism.
 #
 
 module Gloo

data/lib/gloo/verbs/show.rb

@@ -53,7 +53,7 @@ module Gloo
           expr = Gloo::Expr::Expression.new( @engine, @params.tokens )
           val = expr.evaluate
           color = val.to_sym
-          return @engine.platform.getColorizedString( str, color )
+          return @engine.platform.get_colorized_string( str, color )
         end
         return str
       end

data/lib/gloo/verbs/throw.rb

@@ -0,0 +1,55 @@
+# Author::    Eric Crane  (mailto:eric.crane@mac.com)
+# Copyright:: Copyright (c) 2026 Eric Crane.  All rights reserved.
+#
+# Deliberately raise a Ruby exception, to exercise the on_exception
+# handling pipeline (eg. for testing).
+#
+
+module Gloo
+  module Verbs
+    class Throw < Gloo::Core::Verb
+
+      KEYWORD = 'throw'.freeze
+      KEYWORD_SHORT = 'throw'.freeze
+      DEFAULT_MSG = 'Thrown by throw verb'.freeze
+
+      #
+      # Run the verb.
+      #
+      def run
+        raise message
+      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
+
+      #
+      # Get the message to throw, evaluating an expression if one is given.
+      #
+      def message
+        return DEFAULT_MSG unless @tokens.params&.any?
+
+        expr = Gloo::Expr::Expression.new( @engine, @tokens.params )
+        return expr.evaluate
+      end
+
+    end
+  end
+end

data/test.gloo/ctrl/each.test.gloo

@@ -0,0 +1,39 @@
+#
+# Each and repeat control object tests
+#
+
+tests [can] :
+  ctrl [can] :
+    each [can] :
+
+      count [int] : 0
+
+      wrd [each] :
+        word [string] :
+        IN [string] : one two three
+        do [script] :
+          eval ^^.count + 1
+          put it into ^^.count
+
+      rpt [repeat] :
+        times [int] : 3
+        index [int] : 0
+        do [script] :
+          eval ^^.count + 1
+          put it into ^^.count
+
+      each_word [test] :
+        description [string] : Count words with each word
+        on_test [script] :
+          put 0 into ^^.count
+          tell ^^.wrd to run
+          eval ^^.count = 3
+          assert "expected 3 words counted"
+
+      repeat_n_times [test] :
+        description [string] : Repeat a script n times
+        on_test [script] :
+          put 0 into ^^.count
+          tell ^^.rpt to run
+          eval ^^.count = 3
+          assert "expected repeat to run 3 times"

data/test.gloo/dt/date.test.gloo

@@ -1,5 +1,5 @@
 #
-# Boolean tests
+# Date tests
 #
 
 tests [can] :

data/test.gloo/dt/datetime.test.gloo

@@ -0,0 +1,61 @@
+#
+# Datetime tests
+#
+
+tests [can] :
+  dt [can] :
+    datetime [can] :
+
+      d [dt] :
+
+      now [test] :
+        description [string] : Get the current datetime
+        on_test [script] :
+          check ^^.d for blank?
+          assert "expected new datetime to be blank"
+
+          tell ^^.d to now
+          check ^^.d for blank?
+          refute "expected datetime to not be blank after now"
+
+      is_today [test] :
+        description [string] : Check if datetime is today
+        on_test [script] :
+          tell ^^.d to now
+          tell ^^.d to is_today
+          assert "expected current datetime to be today"
+
+      is_past [test] :
+        description [string] : Check if datetime is in the past
+        on_test [script] :
+          tell ^^.d to now
+          tell ^^.d to is_past
+          refute "expected current datetime to not be in the past"
+
+          put 'yesterday' into ^^.d
+          tell ^^.d to is_past
+          assert "expected yesterday to be in the past"
+
+      is_future [test] :
+        description [string] : Check if datetime is in the future
+        on_test [script] :
+          tell ^^.d to now
+          tell ^^.d to is_future
+          refute "expected current datetime to not be in the future"
+
+          put 'tomorrow' into ^^.d
+          tell ^^.d to is_future
+          assert "expected tomorrow to be in the future"
+
+      format [test] :
+        description [string] : Format a datetime
+        f [dt] :
+        on_test [script] :
+          put '2025.10.15 2:30:00 PM' into ^.f
+          tell ^.f to format
+          eval it = '2025-10-15 14:30:00'
+          assert "expected formatted datetime to match"
+
+          tell ^.f to format ('%m/%d/%Y')
+          eval it = '10/15/2025'
+          assert "expected formatted datetime to match"

data/test.gloo/dt/time.test.gloo

@@ -1,5 +1,5 @@
 #
-# Boolean tests
+# Time tests
 #
 
 tests [can] :
@@ -74,3 +74,16 @@ tests [can] :
           eval it = ^^.t
           refute "expected am/pm to not be the same as the time"
 
+      format [test] :
+        description [string] : Format a time
+        f [time] :
+        on_test [script] :
+          put '2:30:00 PM' into ^.f
+          tell ^.f to format
+          eval it = '14:30:00'
+          assert "expected formatted time to match"
+
+          tell ^.f to format ('%I:%M %p')
+          eval it = '02:30 PM'
+          assert "expected formatted time to match"
+

data/test.gloo/lang/dt_comparisons.test.gloo

@@ -0,0 +1,124 @@
+#
+# Date/time/datetime comparison operator tests
+#
+
+tests [can] :
+  lang [can] :
+    dt_comparisons [can] :
+
+      early_date [date] :
+      late_date [date] :
+      early_time [time] :
+      late_time [time] :
+      early_dt [datetime] :
+      late_dt [datetime] :
+
+      confirm_date_ops [test] :
+        description [string] : Confirm comparisons between two dates.
+        on_test [script] :
+          put '2025.01.01' into ^^.early_date
+          put '2025.06.01' into ^^.late_date
+
+          eval ^^.late_date > ^^.early_date
+          assert "expected late date to be greater than early date"
+
+          eval ^^.early_date < ^^.late_date
+          assert "expected early date to be less than late date"
+
+          eval ^^.early_date = ^^.early_date
+          assert "expected a date to equal itself"
+
+          eval ^^.early_date != ^^.late_date
+          assert "expected different dates to not be equal"
+
+          eval ^^.early_date >= ^^.early_date
+          assert "expected a date to be >= itself"
+
+          eval ^^.late_date <= ^^.early_date
+          refute "expected late date to not be <= early date"
+
+      confirm_time_ops [test] :
+        description [string] : Confirm comparisons between two times.
+        on_test [script] :
+          put '09:00:00 am' into ^^.early_time
+          put '05:00:00 pm' into ^^.late_time
+
+          eval ^^.late_time > ^^.early_time
+          assert "expected late time to be greater than early time"
+
+          eval ^^.early_time < ^^.late_time
+          assert "expected early time to be less than late time"
+
+          eval ^^.early_time = ^^.early_time
+          assert "expected a time to equal itself"
+
+          eval ^^.early_time != ^^.late_time
+          assert "expected different times to not be equal"
+
+      confirm_datetime_ops [test] :
+        description [string] : Confirm comparisons between two datetimes.
+        on_test [script] :
+          put '2025.01.01 09:00:00 am' into ^^.early_dt
+          put '2025.01.01 05:00:00 pm' into ^^.late_dt
+
+          eval ^^.late_dt > ^^.early_dt
+          assert "expected late datetime to be greater than early datetime"
+
+          eval ^^.early_dt < ^^.late_dt
+          assert "expected early datetime to be less than late datetime"
+
+          eval ^^.early_dt = ^^.early_dt
+          assert "expected a datetime to equal itself"
+
+          eval ^^.early_dt != ^^.late_dt
+          assert "expected different datetimes to not be equal"
+
+      confirm_date_vs_datetime [test] :
+        description [string] : Confirm a date coerces to midnight when compared to a datetime.
+        on_test [script] :
+          put '2025.06.01' into ^^.early_date
+          put '2025.06.01 12:00:00 am' into ^^.early_dt
+          put '2025.06.01 09:00:00 am' into ^^.late_dt
+
+          eval ^^.early_date = ^^.early_dt
+          assert "expected date to equal midnight of the same day"
+
+          eval ^^.late_dt > ^^.early_date
+          assert "expected later datetime to be greater than the date"
+
+      confirm_date_vs_time_is_false [test] :
+        description [string] : Confirm dates and times never compare as equal or ordered.
+        on_test [script] :
+          put '2025.06.01' into ^^.early_date
+          put '09:00:00 am' into ^^.early_time
+
+          eval ^^.early_date > ^^.early_time
+          refute "expected date > time to be false"
+
+          eval ^^.early_date = ^^.early_time
+          refute "expected date = time to be false"
+
+          eval ^^.early_date != ^^.early_time
+          refute "expected date != time to be false, since they can't be compared"
+
+      confirm_date_vs_loose_string [test] :
+        description [string] : Confirm a date can compare against a loosely formatted string.
+        on_test [script] :
+          put '2025.06.01' into ^^.late_date
+
+          eval ^^.late_date > "2025-01-01"
+          assert "expected date to be greater than a loosely parsed earlier date string"
+
+          eval ^^.late_date > "not a date"
+          refute "expected comparison against an unparseable string to be false"
+
+      confirm_date_vs_integer_is_false [test] :
+        description [string] : Confirm a date never compares as equal or ordered against an integer.
+        on_test [script] :
+          put '2025.06.01' into ^^.late_date
+
+          eval ^^.late_date > 5
+          refute "expected date > integer to be false"
+
+          eval ^^.late_date = 5
+          refute "expected date = integer to be false"

data/test.gloo/lang/exceptions.test.gloo

@@ -0,0 +1,63 @@
+#
+# Exception handling tests (on_exception / throw)
+#
+
+tests [can] :
+  lang [can] :
+    exceptions [can] :
+
+      exc_fired [bool] : false
+      err_fired [bool] : false
+
+      on_exception [script] :
+        put true into ^.exc_fired
+
+      on_error [script] :
+        put true into ^.err_fired
+
+      exception_data [can] :
+        message [string] :
+        backtrace [string] :
+
+      error_data [can] :
+        message [string] :
+        backtrace [string] :
+
+      confirm_throw_fires_on_exception [test] :
+        description [string] : Confirm throw fires on_exception and populates exception_data, but does not fire on_error.
+        on_test [script] :
+          put false into ^^.exc_fired
+          put false into ^^.err_fired
+
+          throw "test message"
+
+          eval ^^.exc_fired = true
+          assert "expected on_exception to have fired"
+
+          eval ^^.err_fired = false
+          assert "expected on_error to NOT have fired for a thrown exception"
+
+          eval ^^.exception_data.message = "test message"
+          assert "expected exception_data.message to be populated"
+
+      confirm_execution_continues_after_throw [test] :
+        description [string] : Confirm execution continues with the next line after a throw.
+        on_test [script] :
+          throw "boom"
+          eval 2 + 2
+          eval it = 4
+          assert "expected execution to continue after throw"
+
+      confirm_on_error_still_works [test] :
+        description [string] : Confirm on_error still fires for a genuine gloo-level error, independent of on_exception.
+        on_test [script] :
+          put false into ^^.exc_fired
+          put false into ^^.err_fired
+
+          tell no_such_object_anywhere to run
+
+          eval ^^.err_fired = true
+          assert "expected on_error to have fired for a bad path"
+
+          eval ^^.exc_fired = false
+          assert "expected on_exception to NOT have fired for a gloo-level error"

data/test.gloo/objs/alias.test.gloo

@@ -0,0 +1,24 @@
+#
+# Alias tests
+#
+
+tests [can] :
+  objs [can] :
+    alias [can] :
+
+      s [string] : hello
+      ln [alias] : tests.objs.alias.s
+
+      follow_alias [test] :
+        description [string] : Follow an alias to the target value
+        on_test [script] :
+          put 'hello' into ^^.s
+          eval ^^.ln = 'hello'
+          assert "expected alias to resolve to 'hello'"
+
+      put_via_alias [test] :
+        description [string] : Put a value via an alias
+        on_test [script] :
+          put 'world' into ^^.ln
+          eval ^^.s = 'world'
+          assert "expected s to be updated via alias"

data/test.gloo/objs/decimal.test.gloo

@@ -0,0 +1,38 @@
+#
+# Decimal tests
+#
+
+tests [can] :
+  objs [can] :
+    decimal [can] :
+
+      a [decimal] :
+
+      set_value [test] :
+        description [string] : Set a decimal value
+        on_test [script] :
+          put 3.14 into ^^.a
+          eval ^^.a = 3.14
+          assert "expected a to be 3.14"
+
+      round_decimal [test] :
+        description [string] : Round a decimal value
+        on_test [script] :
+          put 3.7 into ^^.a
+          tell ^^.a to round
+          eval ^^.a = 4.0
+          assert "expected a to be rounded to 4.0"
+
+      format_decimal [test] :
+        description [string] : Format a decimal
+        f [decimal] :
+        on_test [script] :
+          put 1234567.891 into ^.f
+          tell ^.f to format
+          eval it = '1,234,567.891'
+          assert "expected formatted decimal to match"
+
+          put 3.14159 into ^.f
+          tell ^.f to format ('%.2f')
+          eval it = '3.14'
+          assert "expected formatted decimal to match"

data/test.gloo/objs/erb.test.gloo

@@ -0,0 +1,35 @@
+#
+# ERB tests
+#
+
+tests [can] :
+  objs [can] :
+    erb [can] :
+
+      greeting [string] : <%= name %>!!
+
+      basic [erb] :
+        template [text] : <%= name %>
+        params [can] :
+          name [string] : world
+        result [text] :
+
+      aliased_template [erb] :
+        template [alias] : tests.objs.erb.greeting
+        params [can] :
+          name [string] : gloo
+        result [text] :
+
+      run_basic [test] :
+        description [string] : Render a template with a param
+        on_test [script] :
+          tell ^^.basic to run
+          eval ^^.basic.result = 'world'
+          assert "expected template to render with the param value"
+
+      run_with_aliased_template [test] :
+        description [string] : Render a template whose 'template' child is an alias to another object
+        on_test [script] :
+          tell ^^.aliased_template to run
+          eval ^^.aliased_template.result = 'gloo!!'
+          assert "expected alias to be resolved before rendering the template"