gloo 5.3.8 → 6.0

data/lib/gloo/objs/web/http_post.rb

@@ -37,10 +37,7 @@ module Gloo
       # Returns nil if there is none.
       #
       def uri_value
-        uri = find_child URL
-        return nil unless uri
-
-        return uri.value
+        return find_child_value URL
       end
 
       #
@@ -50,7 +47,7 @@ module Gloo
       def body_as_json
         h = {}
 
-        body = find_child BODY
+        body = find_child_resolve_alias BODY
         body.children.each do |child|
           child_val = Gloo::Objs::Alias.resolve_alias( @engine, child )
           h[ child.name ] = child_val.value
@@ -63,8 +60,8 @@ module Gloo
       # Set the result of the API call.
       #
       def update_result( data )
-        r = find_child RESULT
-        return nil unless r
+        r = find_child_resolve_alias RESULT
+        return unless r
 
         r.set_value data
       end
@@ -142,26 +139,6 @@ module Gloo
         end
       end
 
-      # #
-      # # Post the content to the endpoint.
-      # #
-      # def self.post_json_1( url, body, use_ssl = true )
-      #   # Structure the request
-      #   uri = URI.parse( url )
-      #
-      #   request = Net::HTTP::Post.new( uri.path )
-      #   request.content_type = 'application/json'
-      #   request.body = body
-      #   n = Net::HTTP.new( uri.host, uri.port )
-      #   n.use_ssl = use_ssl
-      #
-      #   # Send the payload to the endpoint.
-      #   result = n.start { |http| http.request( request ) }
-      #   @engine.log.debug result.code
-      #   @engine.log.debug result.message
-      #   return result.body
-      # end
-
       # ---------------------------------------------------------------------
       #    Private functions
       # ---------------------------------------------------------------------
@@ -172,10 +149,7 @@ module Gloo
       # Should we skip SSL verification during the request?
       #
       def skip_ssl_verify?
-        skip = find_child SKIP_SSL_VERIFY
-        return false unless skip
-
-        return skip.value
+        return find_child_value( SKIP_SSL_VERIFY ) || false
       end
 
     end

data/lib/gloo/objs/web/json.rb

@@ -106,7 +106,7 @@ module Gloo
         end
         parent = pn.resolve
 
-        h = convert_obj_to_hash( parent )
+        h = Json.convert_obj_to_hash( parent )
         json = JSON.parse( h.to_json )
         json = JSON.pretty_generate( json )
 

data/lib/gloo/objs/web/uri.rb

@@ -62,7 +62,7 @@ module Gloo
       #
       def msg_get_cert_expires
         return unless value
-        o = value
+
         uri = URI( value )
         response = Net::HTTP.start( uri.host, uri.port, :use_ssl => true )
         cert = response.peer_cert
@@ -143,7 +143,7 @@ module Gloo
 
 
       # ---------------------------------------------------------------------
-      #    Helper functiont to open a URL
+      #    Helper function to open a URL
       # ---------------------------------------------------------------------
 
       # 

data/lib/gloo/persist/disc_mech.rb

@@ -2,9 +2,9 @@
 # Copyright:: Copyright (c) 2022 Eric Crane.  All rights reserved.
 #
 # Disc based mechanism for files.
-# Provides interaction between the persistance classes and the OS 
+# Provides interaction between the persistence classes and the OS
 # file and folder system.
-# This class might be overiden elsewhere to provide other mechanism.
+# This class might be overridden elsewhere to provide other mechanism.
 # For example, in gloo-web, there will be a db based mechanism.
 #
 

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"