lizarb 1.0.5 → 1.0.6

data/lib/dev_system/generators/system_generator.rb.section_system_box_test.rb.erb

@@ -0,0 +1,12 @@
+# view section_system_box_test.rb.erb
+
+  test :subject_class do
+    assert_equality subject_class, <%= @class_name[0..-5] %>
+  end
+
+  test_sections(
+  )
+
+  test :settings do
+    assert_equality subject_class.log_level, 4
+  end

data/lib/dev_system/generators/system_generator.rb.section_system_default.rb.erb

@@ -0,0 +1,3 @@
+# view section_system_default.rb.erb
+
+  color :<%= color %>

data/lib/dev_system/generators/system_generator.rb.section_system_info.rb.erb

@@ -0,0 +1,3 @@
+# view section_system_info.rb.erb
+
+  #

data/lib/dev_system/generators/system_generator.rb.system_test.rb.erb

@@ -0,0 +1,5 @@
+# view section_system_test.rb.erb
+
+  test :subject_class do
+    assert_equality subject_class, <%= @class_name[0..-5] %>
+  end

data/lib/dev_system/generators/system_generator.rb.unit.rb.erb

@@ -0,0 +1,7 @@
+# view unit.rb.erb
+class <%= @class_names[0] %> < <%= @class_names[1] %>
+<% @current_unit.sections.each do |section| %>
+<%= "  section #{section[:name].inspect}" %>
+<%= section[:content] -%>
+<% end %>
+end

data/lib/dev_system/generators/system_generator_test.rb

@@ -4,8 +4,15 @@ class DevSystem::SystemGeneratorTest < DevSystem::SimpleGeneratorTest
     assert subject_class == DevSystem::SystemGenerator
   end
 
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
+  test_erbs_defined(
+    "gemspec.rb.erb",
+    "section_app_box_settings.rb.erb",
+    "section_system_box_settings.rb.erb",
+    "section_system_box_test.rb.erb",
+    "section_system_default.rb.erb",
+    "section_system_info.rb.erb",
+    "section_system_test.rb.erb",
+    "unit.rb.erb"
+  )
 
 end

data/lib/dev_system/shells/unit_shell.rb

@@ -0,0 +1,40 @@
+class DevSystem::UnitShell < DevSystem::Shell
+
+  # Returns a flattened array of all subunits for a given unit.
+  # 
+  # @param unit [Object] The unit to retrieve subunits for.
+  # @return [Array] A flattened array of subunits.
+  def self.subunits_flat(unit)
+    ret = []
+    
+    rec = get_subunits_recursive(unit)
+    while rec.is_a? Hash
+      rec.each do |subunit, next_subs|
+        ret << subunit
+        rec = next_subs
+      end
+    end
+    ret += rec
+
+    ret
+  end
+
+  # Recursively retrieves subunits for a given unit and caches the result.
+  # 
+  # @param unit [Object] The unit to retrieve subunits for.
+  # @return [Array, Hash] An array or hash of subunits.
+  def self.get_subunits_recursive(unit)
+    subs = unit.subunits
+    return [] if subs.empty?
+    h = subs.map do |subunit|
+      next_subs = get_subunits_recursive(subunit)
+      [subunit, next_subs]
+    end.to_h
+    if h.values.all?(&:empty?)
+      h.keys
+    else
+      h
+    end
+  end
+
+end

data/lib/dev_system/shells/unit_shell_test.rb

@@ -0,0 +1,24 @@
+class DevSystem::UnitShellTest < DevSystem::ShellTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, DevSystem::UnitShell
+    assert_equality subject.class, DevSystem::UnitShell
+  end
+
+  test :get_subunits_recursive do
+    actual = subject_class.get_subunits_recursive(Unit).keys.map(&:to_s).sort
+    expected = %w[Liza::System Liza::Box Liza::Panel Liza::Test Liza::Controller Liza::Part].sort
+    assert_equality actual, expected
+
+    actual = subject_class.get_subunits_recursive(Liza::System).map(&:to_s).sort
+    expected = %w[DevSystem HappySystem NetSystem WebSystem WorkSystem MicroSystem DeskSystem CryptoSystem MediaSystem ArtSystem DeepSystem PrimeSystem LabSystem EcoSystem].sort
+    assert_equality actual, expected
+
+    actual = subject_class.get_subunits_recursive(DevSystem::DevBox).map(&:to_s).sort
+    expected = %w[DevBox].sort
+    assert_equality actual, expected
+  end
+
+end

data/lib/dev_system/shells/zeitwerk_shell.rb

@@ -0,0 +1,94 @@
+class DevSystem::ZeitwerkShell < DevSystem::Shell
+
+  def self.get_units_in_core
+    get_core_mappings.values.map(&:get)
+  end
+
+  def self.get_units_in_systems
+    ret = {}
+
+    App.systems.each do |key, system|
+      ret[key] = get_units_in_system(system)
+    end
+    
+    ret
+  end
+
+  def self.get_units_in_system(system)
+    s = system.source_location_radical
+    ret = get_main_mappings
+    ret = ret.select { _1.start_with? s }
+    ret.values.map(&:get)
+  end
+
+  def self.get_units_in_app
+    s = App.directory.to_s
+    ret = get_main_mappings
+    ret = ret.select { _1.start_with? s }
+    ret.values.map(&:get)
+  end
+
+  def self.get_core_mappings
+    ret = {}
+
+    core_loader.__autoloads.each do |path, reference|
+      ret[path] = reference
+    end
+    core_loader.__to_unload.each do |name, (path, reference)|
+      ret[path] = reference
+    end
+
+    ret
+  end
+
+  def self.get_main_mappings
+    ret = {}
+
+    main_loader.__autoloads.each do |path, reference|
+      ret[path] = reference
+    end
+    main_loader.__to_unload.each do |name, (path, reference)|
+      ret[path] = reference
+    end
+
+    ret
+  end
+
+  def self.get_unit_in_system(system, name)
+    cname = name.to_s.camelcase.to_sym
+    mappings = get_mappings_in_system(system)
+    references = mappings.values.select { _1.cname == cname }
+    references.first.get
+  rescue NoMethodError
+    nil
+  end
+
+  def self.get_unit_in_app(name)
+    cname = name.to_s.camelcase.to_sym
+    mappings = get_mappings_in_app
+    references = mappings.values.select { _1.cname == cname }
+    references.first.get
+  rescue NoMethodError
+    nil
+  end
+
+
+  def self.get_mappings_in_system(system)
+    s = system.source_location_radical
+    ret = get_main_mappings
+    ret = ret.select { _1.start_with? s }
+    ret
+  end
+
+  def self.get_mappings_in_app
+    s = App.directory.to_s
+    ret = get_main_mappings
+    ret = ret.select { _1.start_with? s }
+    ret
+  end
+
+  def self.core_loader() = Lizarb.loaders[0]
+  
+  def self.main_loader() = Lizarb.loaders[1]
+  
+end

data/lib/dev_system/shells/zeitwerk_shell_test.rb

@@ -0,0 +1,14 @@
+class DevSystem::ZeitwerkShellTest < DevSystem::ShellTest
+
+  section :subject
+
+  test :subject_class, :subject do
+    assert_equality subject_class, DevSystem::ZeitwerkShell
+    assert_equality subject.class, DevSystem::ZeitwerkShell
+  end
+
+  test :get_units_in_core do
+    assert_equality subject_class.get_units_in_core.count, 22
+  end
+
+end

data/lib/dev_system/{sub → subsystems}/bench/bench.rb

@@ -4,4 +4,6 @@ class DevSystem::Bench < Liza::Controller
 
   set :plural,   :benches
 
+  part :command_shortcut, :controller
+
 end

data/lib/dev_system/subsystems/bench/bench_panel.rb

@@ -0,0 +1,31 @@
+class DevSystem::BenchPanel < Liza::Panel
+
+  define_error(:not_found) do |args|
+    "bench not found: #{args[0].inspect}"
+  end
+
+  part :command_shortcut, :panel
+
+  section :default
+
+  def call(command_env)
+    env = forge command_env
+    forge_shortcut env
+    find env
+    find_shortcut env
+    forward env
+  end
+
+  #
+  
+  def forge(command_env)
+    command = command_env[:command]
+    bench_name_original, bench_action_original = command.args.first.to_s.split(":")
+
+    env = { controller: :bench, command:, bench_name_original:, bench_action_original: }
+
+    log :high, "bench_name:bench_action_original is                  #{bench_name_original}:#{bench_action_original}"
+    env
+  end
+
+end

data/lib/dev_system/subsystems/bench/bench_panel_test.rb

@@ -0,0 +1,55 @@
+class DevSystem::BenchPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::BenchPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance \
+      :call,
+      :find,
+      :forward,
+      :forge
+  end
+
+  section :forge
+  
+  def forge_with(args)
+    command = SimpleCommand.new
+    command_menv = {command: , args: }
+    command.instance_variable_set :@menv, command_menv
+    menv = subject.forge command_menv
+    subject.forge_shortcut menv
+    menv
+  end
+  
+  test :forge, true do
+    menv = forge_with ["objects"]
+    assert_equality menv[:bench_name_original], "objects"
+    assert_equality menv[:bench_name], "objects"
+    assert_equality menv[:bench_action_original], nil
+  end
+  
+  test :forge, true, :action do
+    menv = forge_with ["objects:quadratic"]
+    assert_equality menv[:bench_name_original], "objects"
+    assert_equality menv[:bench_name], "objects"
+    assert_equality menv[:bench_action_original], "quadratic"
+  end
+  
+  test :forge, false do
+    menv = forge_with ["x"]
+    assert_equality menv[:bench_name_original], "x"
+    assert_equality menv[:bench_name], "x"
+    assert_equality menv[:bench_action_original], nil
+  end
+  
+  test :forge, false, :action do
+    menv = forge_with ["x:y"]
+    assert_equality menv[:bench_name_original], "x"
+    assert_equality menv[:bench_name], "x"
+    assert_equality menv[:bench_action_original], "y"
+  end
+
+end

data/lib/dev_system/{sub → subsystems}/bench/bench_test.rb

@@ -10,8 +10,6 @@ class DevSystem::BenchTest < Liza::ControllerTest
   end
 
   test :settings do
-    assert_equality subject_class.log_level, 0
-
     assert_equality subject_class.token, nil
     assert_equality subject_class.singular, :bench
     assert_equality subject_class.plural, :benches

data/lib/dev_system/subsystems/bench/benches/not_found_bench.rb

@@ -0,0 +1,73 @@
+class DevSystem::NotFoundBench < DevSystem::Bench
+
+  def self.call env
+    new.call env
+  end
+
+  def call env
+    app_shell = AppShell.new
+    app_shell.filter_by_unit Bench
+
+    app_shell.filter_out_units SortedBench if defined? SortedBench
+    failed_name = env[:bench_name_original]
+    app_shell.filter_by_name_including failed_name if failed_name
+
+    outputs(app_shell, failed_name)
+  end
+
+  section :helpers
+
+  def outputs(app_shell, failed_name)
+    domains = app_shell.get_domains.reject(&:empty?)
+    log "domains: #{domains.count}"
+    puts
+
+    if domains.empty?
+      log stick :black, :green, "No results found for '#{failed_name}'"
+      app_shell.undo_filter!
+      domains = app_shell.get_domains
+    end
+
+    domains.each do |domain|
+      next if domain.empty?
+
+      if log? :normal
+        puts typo.h1 domain.name.snakecase.upcase, domain.color
+      end
+
+      puts
+      domain.layers.each do |layer|
+        next if layer.objects.empty?
+
+        if log? :normal
+          m = "h#{layer.level}"
+          name = layer.level==1 ? domain.name.to_s.upcase : layer.name.to_s
+          puts typo.send m, name, layer.color unless layer.level==3
+
+          puts stick layer.color, layer.path
+          puts
+        end
+
+        layer.objects.each { print_class _1 }
+        puts
+      end
+    end
+  end
+
+  def print_class klass, description: nil
+    return if [NotFoundBench].include? klass
+
+    sidebar_length = Log.panel.sidebar_size
+    signature = {}
+    signature[:name] = klass.token.to_s
+    signature[:description] = "no description"
+
+    puts [
+      "liza bench #{signature[:name]}".ljust(sidebar_length),
+      (description or signature[:description])
+    ].join ""
+  end
+
+  def typo () = TypographyShell
+
+end

data/lib/dev_system/subsystems/bench/benches/not_found_bench_test.rb

@@ -0,0 +1,7 @@
+class DevSystem::NotFoundBenchTest < DevSystem::BenchTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::NotFoundBench
+  end
+
+end

data/lib/dev_system/subsystems/bench/commands/bench_command.rb

@@ -0,0 +1,21 @@
+class DevSystem::BenchCommand < DevSystem::SimpleCommand
+
+  def before
+    super
+    log "simple_args     #{ simple_args }"
+    log "simple_booleans #{ simple_booleans }"
+    log "simple_strings  #{ simple_strings }"
+  end
+
+  # liza bench NAME
+  def call_default
+    log :higher, "env.count is #{env.count}"
+    DevBox.bench env
+  end
+
+  # liza bench:controllers
+  def call_controllers
+    log "not implemented yet"
+  end
+
+end

data/lib/dev_system/subsystems/bench/commands/bench_command_test.rb

@@ -0,0 +1,7 @@
+class DevSystem::BenchCommandTest < DevSystem::SimpleCommandTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::BenchCommand
+  end
+
+end

data/lib/dev_system/subsystems/bench/generators/bench_generator.rb

@@ -0,0 +1,34 @@
+class DevSystem::BenchGenerator < DevSystem::ControllerGenerator
+  
+  section :actions
+  
+  # liza g bench name place=app +sorted
+  
+  def call_default
+    if FileShell.exist? "#{App.directory}/dev/benches/sorted_bench.rb"
+      log "sorted_bench.rb detected!"
+
+      set_default_boolean :sorted, true
+      set_input_boolean :sorted do |default|
+        InputShell.yes? "Use SortedBench?", default: !!default
+      end
+      
+      sorted = command.simple_boolean :sorted
+      set_default_super "sorted" if sorted
+    end
+
+    create_controller do |unit, test|
+      unit.section name: :setup
+      unit.section name: :marks
+      test.section name: :subject
+    end
+  end
+
+  # liza g bench:examples
+
+  def call_examples
+    copy_examples Bench
+  end
+
+end
+

data/lib/dev_system/subsystems/bench/generators/bench_generator.rb.marks.rb.erb

@@ -0,0 +1,18 @@
+# view marks.rb.erb
+
+<% if arg_action_names.any? -%>
+<% arg_action_names.each do |arg| -%>
+  mark "<%= arg %>" do
+    a = 1.to_s.to_sym
+  end
+
+<% end -%>
+<% else -%>
+  mark "alternative 1" do
+    a = "1".to_sym
+  end
+
+  mark "alternative 2" do
+    a = :"1"
+  end
+<% end -%>

data/lib/dev_system/subsystems/bench/generators/bench_generator.rb.setup.rb.erb

@@ -0,0 +1,9 @@
+# view setup.rb.erb
+
+  repetitions 1_000_000
+  # repetitions 10_000_000
+  # repetitions 100_000_000
+
+  setup do
+    log "repetitions: #{repetitions}"
+  end

data/lib/dev_system/subsystems/bench/generators/bench_generator_test.rb

@@ -0,0 +1,15 @@
+class DevSystem::BenchGeneratorTest < DevSystem::SimpleGeneratorTest
+
+  #
+  
+  test :subject do
+    assert_equality subject_class, DevSystem::BenchGenerator
+    assert_equality subject.class, DevSystem::BenchGenerator
+  end
+
+  test_erbs_defined(
+    "marks.rb.erb",
+    "setup.rb.erb"
+  )
+
+end

data/lib/dev_system/subsystems/command/command.rb

@@ -0,0 +1,7 @@
+class DevSystem::Command < Liza::Controller
+
+  def self.get_command_signatures()= []
+
+  part :command_shortcut, :controller
+
+end

data/lib/dev_system/subsystems/command/command_panel.rb

@@ -0,0 +1,30 @@
+class DevSystem::CommandPanel < Liza::Panel
+  
+  part :command_shortcut, :panel
+
+  section :default
+
+  def call args
+    log :higher, "args = #{args.inspect}"
+
+    env = forge args
+    forge_shortcut env
+    find env
+    find_shortcut env
+    forward env
+  end
+
+  #
+
+  def forge args
+    args = [""] if args.empty?
+    command_arg, *args = args
+    command_name_original, command_action_original = command_arg.split(":")
+    
+    env = { controller: :command, command_arg:, args:, command_name_original:, command_action_original: }
+    
+    log :high, "command_name_original:command_action_original is     #{command_name_original}:#{command_action_original}"
+    env
+  end
+
+end