lizarb 1.0.5 → 1.0.6

data/examples/log/app/dev/logs/logger_log_test.rb

@@ -1,16 +0,0 @@
-class LoggerLogTest < DevSystem::LogTest
-
-  test :subject_class do
-    assert subject_class == LoggerLog
-  end
-
-  test_methods_defined do
-    on_self :call
-    on_instance
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-  
-end

data/lib/dev_system/generators/env_generator_test.rb

@@ -1,11 +0,0 @@
-class DevSystem::EnvGeneratorTest < DevSystem::GeneratorTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::EnvGenerator
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
-end

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

@@ -1,3 +0,0 @@
-class DevSystem::BenchPanel < Liza::Panel
-
-end

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

@@ -1,16 +0,0 @@
-class DevSystem::BenchPanelTest < Liza::PanelTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::BenchPanel
-  end
-
-  test_methods_defined do
-    on_self
-    on_instance
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
-end

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

@@ -1,33 +0,0 @@
-class DevSystem::NotFoundBench < DevSystem::Bench
-
-  def self.call args
-    # 1. LOG
-
-    log "args = #{args.inspect}"
-    puts
-
-    # 2. FIND generators
-
-    benches = Liza::Bench.descendants
-    benches -= ignored_benches
-
-    # 3. LIST benches
-
-    keys = benches.map { _1.last_namespace.snakecase[0..-7] }.uniq.sort
-
-    log "This app has #{keys.count} benches you can use."
-    log "Here they are:"
-    puts
-
-    keys.each { |s| log "liza bench #{s}" }
-  end
-
-  def self.ignored_benches
-    [
-      self,
-      DevSystem::NotFoundBench,
-      (DevSystem::SortedBench if defined? SortedBench),
-    ].uniq.compact
-  end
-
-end

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

@@ -1,11 +0,0 @@
-class DevSystem::NotFoundBenchTest < DevSystem::BenchTest
-
-  test :subject_class do
-      assert subject_class == DevSystem::NotFoundBench
-    end
-
-    test :settings do
-      assert_equality subject_class.log_level, 0
-    end
-
-end

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

@@ -1,27 +0,0 @@
-class DevSystem::BenchCommand < DevSystem::Command
-
-  def self.call args
-    # 1. LOG
-
-    log "args = #{args.inspect}"
-
-    # 2. FIND bench
-
-    return NotFoundBench.call args if args.none?
-
-    bench = args[0]
-
-    log({bench:})
-
-    begin
-      bench_klass = Liza.const "#{bench}_bench"
-    rescue Liza::ConstNotFound
-      bench_klass = NotFoundBench
-    end
-
-    # 3. CALL
-
-    bench_klass.call args[1..-1]
-  end
-
-end

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

@@ -1,11 +0,0 @@
-class DevSystem::BenchCommandTest < DevSystem::CommandTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::BenchCommand
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
-end

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

@@ -1,70 +0,0 @@
-class DevSystem::BenchGenerator < DevSystem::SimpleGenerator
-  
-  # liza g bench name place=app +sorted
-
-  def call_default
-    @controller_class = Bench
-
-    name!
-    place!
-
-    @args = Array command.simple_args[1..-1]
-    ancestor = @controller_class
-
-    # THIS IS A HACK! WILL BE FIXED SOON!
-    if File.exist? "app/dev/benches/sorted_bench.rb"
-      @sorted = command.simple_boolean_yes :sorted, "Use SortedBench?"
-      log "@sorted = #{@sorted.inspect}"
-      ancestor = "SortedBench" if @sorted
-    end
-    
-    create_controller @name, @controller_class, @place, @path, ancestor: ancestor do |unit, test|
-      unit.section :controller_section_1, caption: "liza bench #{ @name }"
-      test.section :controller_test_section_1
-    end
-  end
-
-  # liza g bench:examples
-
-  def call_examples
-    copy_examples Bench
-  end
-
-end
-
-__END__
-
-# view controller_section_1.rb.erb
-
-  repetitions 1_000_000
-  # repetitions 10_000_000
-  # repetitions 100_000_000
-
-  setup do
-    log "repetitions: #{repetitions}"
-  end
-
-  #
-
-<% if @args.any? -%>
-<%   @args.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 -%>
-# view controller_test_section_1.rb.erb
-
-  test :subject_class, :subject do
-    assert_equality <%= @class_name %>, subject_class
-    assert_equality <%= @class_name %>, subject.class
-  end

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

@@ -1,10 +0,0 @@
-class DevSystem::BenchGeneratorTest < DevSystem::SimpleGeneratorTest
-
-  #
-  
-  test :subject do
-    assert_equality DevSystem::BenchGenerator, subject_class
-    assert_equality DevSystem::BenchGenerator, subject.class
-  end
-  
-end

data/lib/dev_system/sub/command/command.rb

@@ -1,28 +0,0 @@
-class DevSystem::Command < Liza::Controller
-
-  def self.call args
-    log "args = #{args}"
-    new.call args
-  end
-
-  def call args
-    log "args = #{args}"
-    raise NotImplementedError
-  end
-
-  def self.get_command_signatures
-    signatures = []
-    ancestors_until(Command).each do |c|
-      signatures +=
-        c.methods_defined.select do |name|
-          c.method(name).parameters == [[:req, :args]]
-        end.map do |name|
-          OpenStruct.new({
-            name: ( name == :call ? "" : name.to_s ),
-            description: "# no description",
-          })
-        end
-    end
-    signatures
-  end
-end

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

@@ -1,151 +0,0 @@
-class DevSystem::CommandPanel < Liza::Panel
-  class Error < StandardError; end
-  class ParseError < Error; end
-  class NotFoundError < Error; end
-  class AlreadySet < Error; end
-
-  def call args
-    log :lower, "args = #{args.inspect}"
-
-    return call_not_found args if args.none?
-
-    env = build_env args
-    find env
-    forward env
-    inform env
-  # rescue Exception => e
-  rescue Error => e
-    rescue_from_panel(e, with: env)
-  end
-
-  #
-
-  PARSE_REGEX = /(?<command_given>[A-Za-z0-9_]+)(?::(?<command_class_method>[a-z0-9_]+))?(?:#(?<command_instance_method>[a-z0-9_]+))?(?:\.(?<command_method>[a-z0-9_]+))?/
-
-  # Hash command_name class_method instance_method method
-  def parse string
-    md = string.to_s.match PARSE_REGEX
-    raise ParseError if md.nil?
-
-    env = md.named_captures.map { [_1.to_sym, _2] }.to_h
-    env[:command_arg] = string
-    log :lower, "{#{env.map { ":#{_1}=>#{_2.to_s.inspect}" }.join(", ") }}"
-    env
-  end
-
-  def build_env args
-    env = parse args[0]
-    env[:args] = Array(args[1..-1])
-    env[:command_args] = env[:args].dup
-    env[:command_name] = short env[:command_given]
-    env
-  end
-
-  #
-
-  def find env
-    raise "env[:command_name] is empty #{env}" if env[:command_name].empty?
-    env[:command_class] = Liza.const "#{env[:command_name]}_command"
-  rescue Liza::ConstNotFound
-    raise NotFoundError, "command not found: #{env[:command_name].inspect}"
-  end
-
-  def _find string
-    k = Liza.const "#{string}_command"
-    log :lower, k
-    k
-  rescue Liza::ConstNotFound
-    raise NotFoundError, "command not found: #{string.inspect}"
-  end
-
-  #
-
-  def forward env
-    command_class = env[:command_class]
-    
-    return forward_base_command env if command_class < BaseCommand
-    return forward_command env if command_class < Command
-  end
-
-  def forward_base_command env
-    log :lower,  "forwarding"
-    env[:command_class].call env
-  end
-
-  def forward_command env
-    case
-    when env[:command_class_method]
-      log :lower,  "#{env[:command_class]}.#{env[:command_class_method]}(#{env[:args]})"
-      env[:command_class].public_send env[:command_class_method], env[:args]
-    when env[:command_instance_method]
-      log :lower,  "#{env[:command_class]}.new.#{env[:command_instance_method]}(#{env[:args]})"
-      env[:command_class].new.public_send env[:command_instance_method], env[:args]
-    when env[:command_method]
-      if env[:command_class].respond_to?(env[:command_method])
-        log :lower,  "#{env[:command_class]}.#{env[:command_method]}(#{env[:args]})"
-        env[:command_class].public_send env[:command_method], env[:args]
-      else
-        log :lower,  "#{env[:command_class]}.new.#{env[:command_method]}(#{env[:args]})"
-        env[:command_class].new.public_send env[:command_method], env[:args]
-      end
-    else
-      log :lower,  "#{env[:command_class]}.call(#{env[:args]})"
-      env[:command_class].call env[:args]
-    end
-  end
-
-  #
-
-  def inform env
-    return if env[:simple] == nil
-    return if env[:simple] == [""]
-
-    env[:simple].shift if env[:simple][0] == ""
-
-    puts if log? :higher
-
-    args = [*env[:command_args], *env[:simple]].join(" ")
-
-    log sticks :black, system.color, :b,
-      ["LIZA"],
-      ["HELPS",    :u],
-      ["YOU",      :u, :i],
-      ["REMEMBER", :i] \
-        if log? :higher
-    
-    log stick system.color, "#{ $0.split("/").last } #{ env[:command_arg] } #{ args }" if log? :higher
-  end
-
-  #
-
-  def call_not_found args
-    Liza[:NotFoundCommand].call args
-  end
-
-  #
-
-  def input name = nil
-    return (@input || InputCommand) if name.nil?
-    raise AlreadySet, "input already set to #{@input.inspect}, but trying to set to #{name.inspect}", caller if @input
-    @input = _find "#{name}_input"
-  end
-
-  def pick_one title, options = ["Yes", "No"]
-    if log_level? :highest
-      puts
-      log "Pick One"
-    end
-    # input.pick_one title, options
-    TtyInputCommand.pick_one title, options
-  end
-
-  def pick_many title, options
-    if log_level? :highest
-      puts
-      log "Pick Many"
-    end
-    # input.pick_many title, options
-    TtyInputCommand.multi_select title, options
-  end
-
-end

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

@@ -1,78 +0,0 @@
-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, :forward_base_command, :forward_command,
-      :inform,
-      :input,
-      :parse,
-      :pick_many, :pick_one
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
-  test :parse do
-    def parse string
-      OpenStruct.new subject.parse(string)
-    end
-
-    struct = parse "generate"
-    assert_equality struct.command_given, "generate"
-    assert_equality struct.command_class_method, nil
-    assert_equality struct.command_instance_method, nil
-    assert_equality struct.command_method, nil
-
-    struct = parse "generate:install"
-    assert_equality struct.command_given, "generate"
-    assert_equality struct.command_class_method, "install"
-    assert_equality struct.command_instance_method, nil
-    assert_equality struct.command_method, nil
-
-    struct = parse "generate#install"
-    assert_equality struct.command_given, "generate"
-    assert_equality struct.command_class_method, nil
-    assert_equality struct.command_instance_method, "install"
-    assert_equality struct.command_method, nil
-
-    struct = parse "generate.install"
-    assert_equality struct.command_given, "generate"
-    assert_equality struct.command_class_method, nil
-    assert_equality struct.command_instance_method, nil
-    assert_equality struct.command_method, "install"
-
-    struct = parse "two_words"
-    assert_equality struct.command_given, "two_words"
-    assert_equality struct.command_class_method, nil
-    assert_equality struct.command_instance_method, nil
-    assert_equality struct.command_method, nil
-
-    struct = parse "word10"
-    assert_equality struct.command_given, "word10"
-    assert_equality struct.command_class_method, nil
-    assert_equality struct.command_instance_method, nil
-    assert_equality struct.command_method, nil
-  end
-
-  test :find do
-    klass = subject._find "generate"
-    assert_equality DevSystem::GenerateCommand, klass
-
-    begin
-      klass = subject._find "g"
-      assert false
-    rescue CommandPanel::NotFoundError
-      assert true
-    end
-  end
-
-end

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

@@ -1,48 +0,0 @@
-class DevSystem::BaseCommand < DevSystem::Command
-
-  #
-
-  def self.call(env)
-    log :lower, "env.count is #{env.count}"
-    
-    command = env[:command] = new
-    command.call env
-  end
-
-  #
-
-  attr_reader :env
-
-  def call(env)
-    log :lower, "env.count is #{env.count}"
-    @env = env
-    
-    method_name = env[:command_arg]
-    method_name = method_name.split(":")[1] || :default
-    method_name = "call_#{method_name}"
-    return public_send method_name if respond_to? method_name
-
-    log "method not found: #{method_name.inspect}"
-    raise NoMethodError, "method not found: #{method_name.inspect}"
-  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|
-          OpenStruct.new({
-            name: ( name.to_s.sub("call_", "").sub("default", "") ),
-            description: "# no description",
-          })
-        end
-    end
-    signatures
-  end
-
-end

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

@@ -1,19 +0,0 @@
-class DevSystem::IrbCommand < DevSystem::Command
-
-  def self.call args
-    log "args = #{args.inspect}"
-
-    # https://github.com/ruby/ruby/blob/master/lib/irb.rb
-    require "irb"
-
-    IRB.setup(nil)
-    workspace = IRB::WorkSpace.new(binding)
-    irb = IRB::Irb.new(workspace)
-    IRB.conf[:MAIN_CONTEXT] = irb.context
-
-    irb.eval_input
-  rescue Interrupt
-    log "Control-C"
-  end
-
-end

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

@@ -1,11 +0,0 @@
-class DevSystem::IrbCommandTest < DevSystem::CommandTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::IrbCommand
-  end
-
-  test :settings do
-    assert_equality subject_class.log_level, 0
-  end
-
-end