lizarb 1.0.4 → 1.0.6

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/subsystems/bench/bench_test.rb

@@ -0,0 +1,22 @@
+class DevSystem::BenchTest < Liza::ControllerTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::Bench
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance
+  end
+
+  test :settings do
+    assert_equality subject_class.token, nil
+    assert_equality subject_class.singular, :bench
+    assert_equality subject_class.plural, :benches
+
+    assert_equality subject_class.system, DevSystem
+    assert_equality subject_class.subsystem, DevSystem::Bench
+    assert_equality subject_class.division, DevSystem::Bench
+  end
+
+end

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

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

@@ -0,0 +1,122 @@
+class DevSystem::CommandPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, DevSystem::CommandPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance \
+      :build_env,
+      :call, :call_not_found,
+      :find,
+      :forward,
+      :input,
+      :forge,
+      :pick_many, :pick_one
+  end
+
+  def forge_with args
+    env = subject.forge args
+    subject.forge_shortcut env
+    env
+  end
+
+  test :forge, "empty" do
+    env = forge_with []
+    assert_equality env[:command_name_original], nil
+    assert_equality env[:command_name], ""
+    assert_equality env[:command_action_original], nil
+  end
+
+  test :forge, true do
+    env = forge_with ["generate"]
+    assert_equality env[:command_name_original], "generate"
+    assert_equality env[:command_name], "generate"
+    assert_equality env[:command_action_original], nil
+  end
+
+  test :forge, true, :action do
+    env = forge_with ["generate:install"]
+    assert_equality env[:command_name_original], "generate"
+    assert_equality env[:command_name], "generate"
+    assert_equality env[:command_action_original], "install"
+  end
+
+  test :forge, false do
+    env = forge_with ["x"]
+    assert_equality env[:command_name_original], "x"
+    assert_equality env[:command_name], "x"
+    assert_equality env[:command_action_original], nil
+  end
+
+  test :forge, false, :action do
+    env = forge_with ["x:y"]
+    assert_equality env[:command_name_original], "x"
+    assert_equality env[:command_name], "x"
+    assert_equality env[:command_action_original], "y"
+  end
+
+  test :forge_shortcut do
+    subject.shortcut :g, :generate
+    env = {controller: :command, command_name_original: "g"}
+    subject.forge_shortcut env
+    assert_equality env[:command_name], "generate"
+
+    env = {controller: :command, command_name_original: "x"}
+    subject.forge_shortcut env
+    assert_equality env[:command_name], "x"
+  end
+
+  test :find do
+    env = {controller: :command, command_name: "generate", command_action_original: ""}
+    subject.find env
+    assert_equality env[:command_class], DevSystem::GenerateCommand
+
+    env = {controller: :command, ommand_name: "x", command_action_original: ""}
+    subject.find env
+    assert_equality env[:command_class], DevSystem::NotFoundCommand
+  end
+
+  test :find_shortcut do
+    env = {controller: :command, command_class: GenerateCommand, command_action_original: "i"}
+    subject.find_shortcut env
+    assert_equality env[:command_action], "install"
+
+    env = {controller: :command, command_class: GenerateCommand, command_action_original: "x"}
+    subject.find_shortcut env
+    assert_equality env[:command_action], "x"
+  end
+
+  test :forward do
+    todo "test this"
+  end
+
+  #
+
+  test :shortcut do
+    assert_equality subject.shortcut("m"), "m"
+    assert_equality subject.shortcut("i"), "i"
+    assert_equality subject.shortcut("n"), "n"
+    assert_equality subject.shortcut("s"), "s"
+    assert_equality subject.shortcut("w"), "w"
+    assert_equality subject.shortcut("a"), "a"
+    assert_equality subject.shortcut("n"), "n"
+
+    subject.shortcut :m, :matz
+    subject.shortcut :i, :is
+    subject.shortcut :n, :nice
+    subject.shortcut :s, :so
+    subject.shortcut :w, :we
+    subject.shortcut :a, :are
+
+    assert_equality subject.shortcut("m"), "matz"
+    assert_equality subject.shortcut("i"), "is"
+    assert_equality subject.shortcut("n"), "nice"
+    assert_equality subject.shortcut("s"), "so"
+    assert_equality subject.shortcut("w"), "we"
+    assert_equality subject.shortcut("a"), "are"
+    assert_equality subject.shortcut("n"), "nice"
+  end
+
+end

data/lib/dev_system/{dev/controllers → subsystems/command}/command_test.rb

@@ -4,9 +4,9 @@ class DevSystem::CommandTest < Liza::ControllerTest
     assert subject_class == DevSystem::Command
   end
 
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
+  test_methods_defined do
+    on_self :get_command_signatures
+    on_instance
   end
 
 end

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

@@ -0,0 +1,79 @@
+class DevSystem::BaseCommand < DevSystem::Command
+
+  #
+
+  def self.call(menv)
+    super
+    command = menv[:command] = new
+    command.call menv
+  end
+
+  #
+
+  def env() = menv
+
+  def call(menv)
+    log :higher, "menv.count is #{menv.count}"
+    self.menv = menv
+
+    if respond_to? action_method_name
+      around
+    else
+      not_found
+    end
+  end
+
+  def around
+    log :high, "."
+    before
+    public_send action_method_name
+    after
+    log :high, "."
+  rescue Exception => e
+    raise unless defined? rescue_from
+    rescue_from e
+  end
+
+  def before
+    # placebolder
+  end
+
+  def after
+    # placebolder
+  end
+
+  def not_found
+    log stick :red, "Not found: #{action_name}, please define method '#{action_method_name}'"
+  end
+
+  #
+
+  def self.get_command_signatures
+    signatures = []
+    ancestors_until(BaseCommand).each do |c|
+      signatures +=
+        c.instance_methods_defined.select do |name|
+          name.start_with? "call_"
+        end.map do |name|
+          {
+            name: ( name.to_s.sub("call_", "").sub("default", "") ),
+            description: "# no description",
+          }
+        end
+    end
+    signatures.uniq { _1[:name] }
+  end
+
+  #
+
+  menv_reader :args
+
+  def action_name() = menv[:command_action]
+
+  def action_method_name() = "call_#{action_name}"
+
+  def self.typo() = TypographyShell
+
+  def typo() = TypographyShell
+
+end

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

@@ -0,0 +1,7 @@
+class DevSystem::BaseCommandTest < DevSystem::CommandTest
+
+  test :subject_class do
+    assert_equality subject_class, DevSystem::BaseCommand
+  end
+
+end

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

@@ -0,0 +1,20 @@
+class DevSystem::IrbCommand < DevSystem::SimpleCommand
+  # https://github.com/ruby/ruby/blob/master/lib/irb.rb
+  require "irb"
+
+  # liza irb
+  def call_default
+    IRB.setup(nil)
+    workspace = IRB::WorkSpace.new(binding)
+    irb = IRB::Irb.new(workspace)
+    IRB.conf[:MAIN_CONTEXT] = irb.context
+
+    catch :IRB_EXIT do
+      irb.eval_input
+    end
+    log "exiting..."
+  rescue Interrupt
+    log "Control-C"
+  end
+
+end

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

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

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

@@ -0,0 +1,83 @@
+class DevSystem::NotFoundCommand < DevSystem::SimpleCommand
+
+  def before
+    super
+    env[:command_action] = "default"
+  end
+
+  def call_default
+    is_global = App.global?
+    self.log_level 1 if is_global
+
+    app_shell = AppShell.new
+    app_shell.filter_by_unit Command
+
+    if is_global
+      app_shell.filter_in_units NewCommand, NotFoundCommand
+    else
+      app_shell.filter_out_units BaseCommand, SimpleCommand, NewCommand
+      failed_name = env[:command_name_original]
+      app_shell.filter_by_name_including failed_name if failed_name
+    end
+
+    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.snakecase.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 [NotFoundCommand].include? klass
+
+    sidebar_length = Log.panel.sidebar_size
+    klass.get_command_signatures.each do |signature|
+      signature[:name] =
+        signature[:name].empty? \
+          ? klass.token.to_s
+          : "#{klass.token}:#{signature[:name]}"
+      #
+    end.sort_by { _1[:name] }.map do |signature|
+      puts [
+        "liza #{signature[:name]}".ljust(sidebar_length),
+        (description or signature[:description])
+      ].join ""
+    end
+  end
+  
+end

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

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