pantheios-ruby 0.13.4 → 0.20.3.1

data/lib/pantheios/util/process_util.rb

@@ -4,13 +4,41 @@ module Util
 
 module ProcessUtil
 
-	def self.derive_process_name dollar0 = nil
+	#
+	# * *Options:*
+	#   - +:style+:: (:script, :script_basename, :script_dirname,
+	#   :script_realpath, :script_stem) directs the inference of the process
+	#   name. If none specified, :script_stem is assumed
+	def self.derive_process_name dollar0 = nil, **options
 
-		dollar0 ||= $0
+		dollar0	||=	$0
 
-		bn = File.basename dollar0
+		style	=	options[:style] || :script_stem
 
-		bn =~ /\.rb$/ ? $` : bn
+		case style
+		when :script
+
+			dollar0
+		when :script_basename
+
+			File.basename(dollar0)
+		when :script_dirname
+
+			File.basename(File.realpath(File.dirname(dollar0)))
+		when :script_realpath
+
+			File.realpath(File.dirname(dollar0))
+		when :script_stem
+
+			bn = File.basename(dollar0)
+
+			bn =~ /\.rb$/ ? $` : bn
+		else
+
+			warn "#{self.class}##{__method__}: ignoring unrecognised type/value for ':style': '#{style}' (#{style.class})"
+
+			dollar0
+		end
 	end
 
 end # module ProcessUtil

data/lib/pantheios/util/reflection_util.rb

@@ -0,0 +1,34 @@
+
+module Pantheios
+module Util
+
+module ReflectionUtil
+
+	module ReflectionUtil_Constants
+
+		ROOT_CLASSES = [ ::Object, ::BasicObject ]
+	end
+
+	def self.non_root_classes o
+
+		return [] if o.nil?
+
+		return self.non_root_classes o.class unless ::Class === o
+
+		return [] if ReflectionUtil_Constants::ROOT_CLASSES.any? { |c| c == o }
+
+		s = o.superclass
+
+		return [ o ] if ::Object == s
+
+		[ o ] + self.non_root_classes(s)
+	end
+
+end # module ProcessUtil
+
+end # module Util
+end # module Pantheios
+
+# ############################## end of file ############################# #
+
+

data/lib/pantheios/version.rb

@@ -5,13 +5,13 @@
 # Purpose:      Version for Pantheios.Ruby library
 #
 # Created:      2nd April 2011
-# Updated:      23rd January 2018
+# Updated:      5th June 2019
 #
 # Home:         http://github.com/synesissoftware/Pantheios-Ruby
 #
 # Author:       Matthew Wilson
 #
-# Copyright (c) 2011-2018, Matthew Wilson and Synesis Software
+# Copyright (c) 2011-2019, Matthew Wilson and Synesis Software
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
@@ -50,7 +50,7 @@
 module Pantheios
 
 	# Current version of the Pantheios.Ruby library
-	VERSION				=	'0.13.4'
+	VERSION				=	'0.20.3.1'
 
 	private
 	VERSION_PARTS_		=	VERSION.split(/[.]/).collect { |n| n.to_i } # :nodoc:

data/test/performance/test_perf_simple_statements.rb

@@ -37,7 +37,9 @@ end
 
 Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:') do |r|
 
-	at_0 = r.report("arguments (1-arg)") do
+	totals	=	[]
+
+	totals << r.report("arguments (1-arg)") do
 
 		for i in (0...N) do
 
@@ -45,7 +47,7 @@ Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:')
 		end
 	end
 
-	bt_0 = r.report("blocks (1-arg)") do
+	totals << r.report("blocks (1-arg)") do
 
 		for i in (0...N) do
 
@@ -53,7 +55,16 @@ Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:')
 		end
 	end
 
-	at_1 = r.report("arguments (simple)") do
+	totals << r.report("args-if (1-arg)") do
+
+		for i in (0...N) do
+
+			log :notice, 'the cat in the hat.' if severity_logged? :notice
+		end
+	end
+
+
+	totals << r.report("arguments (simple)") do
 
 		for i in (0...N) do
 
@@ -61,7 +72,7 @@ Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:')
 		end
 	end
 
-	bt_1 = r.report("blocks (simple)") do
+	totals << r.report("blocks (simple)") do
 
 		for i in (0...N) do
 
@@ -69,7 +80,16 @@ Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:')
 		end
 	end
 
-	at_2 = r.report("arguments (complex)") do
+	totals << r.report("args-if (simple)") do
+
+		for i in (0...N) do
+
+			log :notice, 'the ', 'cat ', 'in ', 'the ', 'hat.' if severity_logged? :notice
+		end
+	end
+
+
+	totals << r.report("arguments (complex)") do
 
 		cat	=	'cat'
 		hat	=	:hat
@@ -81,7 +101,7 @@ Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:')
 		end
 	end
 
-	bt_2 = r.report("blocks (complex)") do
+	totals << r.report("blocks (complex)") do
 
 		cat	=	'cat'
 		hat	=	:hat
@@ -93,7 +113,20 @@ Benchmark.benchmark(Benchmark::CAPTION, 24, Benchmark::FORMAT, 'total:', 'avg:')
 		end
 	end
 
-	[ at_0 + at_1 + at_2 + bt_0 + bt_1 + bt_2, (at_0 + at_1 + at_2 + bt_0 + bt_1 + bt_2) / 2 ]
+	totals << r.report("args-if (complex)") do
+
+		cat	=	'cat'
+		hat	=	:hat
+		t	=	Time.now
+
+		for i in (0...N) do
+
+			log :notice, "the #{cat} in the #{hat} (#{t})" if severity_logged? :notice
+		end
+	end
+
+
+	[ totals.inject(:+), totals.inject(:+) / totals.size ]
 end
 
 

data/test/scratch/log_rolling_by_period_daily.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+# File:         test/scratch/log_rolling_by_period_daily.rb
+#
+# Purpose:      Tests the log-rolling functionality of SimpleFileLogService
+#
+# Created:      4th February 2018
+# Updated:      4th February 2018
+#
+# Author:       Matthew Wilson
+#
+# Copyright:    <<TBD>>
+#
+#############################################################################
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 2), 'lib')
+
+require 'pantheios/globals'
+require 'pantheios/services/simple_file_log_service'
+
+log_path_base = File.join(File.dirname(__FILE__), 'log_files', 'log_rolling_by_period_daily')
+
+Pantheios::Globals.INITIAL_SERVICE_INSTANCES = Pantheios::Services::SimpleFileLogService.new log_path_base, roll_period: :daily
+
+require 'pantheios'
+
+include Pantheios
+
+log :notice, 'program starting ...'
+
+log(:notice) { 'program started' }
+
+(0..1000).each do |n|
+
+	log :informational, "increment #{n}: '#{'*' * 10 * n}'"
+
+	sleep 100
+end
+
+at_exit { log :notice, 'program ending ...' }
+
+

data/test/scratch/log_rolling_by_size_and_depth.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+# File:         test/scratch/log_rolling_by_size_and_depth.rb
+#
+# Purpose:      Tests the log-rolling functionality of SimpleFileLogService
+#
+# Created:      4th February 2018
+# Updated:      4th February 2018
+#
+# Author:       Matthew Wilson
+#
+# Copyright:    <<TBD>>
+#
+#############################################################################
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 2), 'lib')
+
+require 'pantheios/globals'
+require 'pantheios/services/simple_file_log_service'
+
+log_path_base = File.join(File.dirname(__FILE__), 'log_files', 'log_rolling_by_size_and_depth')
+
+Pantheios::Globals.INITIAL_SERVICE_INSTANCES = Pantheios::Services::SimpleFileLogService.new log_path_base, roll_size: [ 1000, 10 ]
+
+require 'pantheios'
+
+include Pantheios
+
+log :notice, 'program starting ...'
+
+log(:notice) { 'program started' }
+
+(0..1000).each do |n|
+
+	log :informational, "increment #{n}: '#{'*' * 10 * n}'"
+
+	sleep 1
+end
+
+at_exit { log :notice, 'program ending ...' }
+
+

data/test/scratch/log_using_blocks.rb

@@ -6,7 +6,7 @@
 # Purpose:      COMPLETE_ME
 #
 # Created:      22nd January 2018
-# Updated:      22nd January 2018
+# Updated:      5th February 2018
 #
 # Author:       Matthew Wilson
 #
@@ -16,6 +16,12 @@
 
 $:.unshift File.join(File.dirname(__FILE__), *(['..'] * 2), 'lib')
 
+require 'pantheios/globals'
+
+Pantheios::Globals.MAIN_THREAD_NAME = [ Thread.current, 'main' ]
+Pantheios::Globals.PROCESS_NAME = :script_stem
+
+
 require 'pantheios'
 
 include Pantheios
@@ -66,3 +72,4 @@ puts
 
 h 'lmnop', :q, :rst
 
+

data/test/scratch/multiplexing_log_service.rb

@@ -0,0 +1,109 @@
+#!/usr/bin/env ruby
+
+#############################################################################
+# File:         test/scratch/multiplexing_log_service.rb
+#
+# Purpose:      COMPLETE_ME
+#
+# Created:      7th February 2018
+# Updated:      7th February 2018
+#
+# Author:       Matthew Wilson
+#
+# Copyright:    <<TBD>>
+#
+#############################################################################
+
+$:.unshift File.join(File.dirname(__FILE__), *(['..'] * 2), 'lib')
+
+require 'pantheios'
+require 'pantheios/application_layer/stock_severity_levels'
+require 'pantheios/services'
+
+$num_BLS_sls	=	0
+$num_ELS_sls	=	0
+
+class BenchmarkLogService
+
+	def severity_logged? severity
+
+		$num_BLS_sls	+=	1
+
+		(0..100).each { |n| n ** n  }
+
+		:benchmark == severity.to_s.to_sym
+	end
+
+	def log sev, t, pref, msg
+
+		puts "BENCHMARK: #{pref}#{msg}\n"
+	end
+end
+
+class EventLogService
+
+	def severity_logged? severity
+
+		$num_ELS_sls	+=	1
+
+		case severity.to_s.to_sym
+		when :notice, :warning, :failure, :critical, :alert, :violation
+
+			true
+		when :warn, :error, :emergency
+
+			true
+		else
+
+			false
+		end
+	end
+
+	def log sev, t, pref, msg
+
+		puts "EVENTLOG: #{pref}#{msg}\n"
+	end
+end
+
+scls		=	Pantheios::Services::SimpleConsoleLogService.new
+
+def scls.severity_logged? severity; ![ :benchmark, :trace, :violation ].include? severity; end
+
+services	=	[
+
+	BenchmarkLogService.new,
+	EventLogService.new,
+	scls,
+]
+
+lcm = :none
+#lcm = :thread_fixed
+#lcm = :process_fixed
+unsync = false
+#unsync = true
+
+Pantheios::Core.set_service Pantheios::Services::MultiplexingLogService.new(services, level_cache_mode: lcm, unsyc_process_lcm: unsync)
+
+include Pantheios
+
+t_b	=	Time.now
+
+log :benchmark, 'statement at benchmark'
+(0..100000).each { log :trace, 'statement at trace' }
+log :debug4, 'statement at debug-4'
+log :debug3, 'statement at debug-3'
+log :debug2, 'statement at debug-2'
+log :debug1, 'statement at debug-1'
+log :debug0, 'statement at debug-0'
+log :informational, 'statement at informational'
+log :notice, 'statement at notice'
+log :warning, 'statement at warning'
+log :failure, 'statement at failure'
+log :critical, 'statement at critical'
+log :alert, 'statement at alert'
+log :violation, 'statement at violation'
+
+t_a	=	Time.now
+
+$stderr.puts "mode= :#{lcm}; t=#{t_a - t_b}; #BLS=#{$num_BLS_sls}; #ELS=#{$num_ELS_sls}"
+

data/test/unit/core/tc_core_1.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+
+$:.unshift File.join(File.dirname(__FILE__), '../../..', 'lib')
+
+require 'pantheios/core'
+
+require 'xqsr3/extensions/test/unit'
+
+require 'test/unit'
+
+class Test_Core_set_process_name < Test::Unit::TestCase
+
+	Core = ::Pantheios::Core
+
+	def test_derive_process_name_obtains_the_same_results_but_different_instances
+
+		begin
+
+			Core.process_name = nil
+
+			n_1 = Core.process_name
+			n_2 = Core.process_name
+
+			assert_equal n_1, n_2
+			assert_same n_1, n_2
+
+
+			Core.process_name = nil
+
+			n_3 = Core.process_name
+
+			assert_equal n_1, n_3
+			assert_not_same n_1, n_3
+
+		ensure
+
+			Core.process_name = nil
+		end
+	end
+
+	def test_derive_process_name_accepts_custom_value
+
+		begin
+
+			Core.process_name = 'abc'
+
+			assert_equal 'abc', Core.process_name
+		ensure
+
+			Core.process_name = nil
+		end
+	end
+end
+