lizarb 1.0.3 → 1.0.5

data/lib/dev_system/generators/env_generator.rb

@@ -0,0 +1,87 @@
+class DevSystem::EnvGenerator < DevSystem::Generator
+
+  def self.call args
+    log "args = #{args.inspect}"
+
+    new.call args
+  end
+
+  def call args
+    log "args = #{args.inspect}"
+
+    if app_env_exists?
+      log "env files already exist".red.blink
+    else
+      write_env_files
+    end
+
+    puts
+    log "done"
+  end
+
+  private
+
+  def app_env_exists?
+    FileShell.exist? "app.env"
+  end
+
+  def write_env_files
+    # app
+    @env_name = nil
+    content = render :env, format: :env
+    puts "-" * 80
+    puts content.green
+    TextShell.write "app.env",      content
+
+    # app.code
+    @env_name = :code
+    content = render :env, format: :env
+    puts "-" * 80
+    puts content.green
+    TextShell.write "app.code.env", content
+
+    # app.demo
+    @env_name = :demo
+    content = render :env, format: :env
+    puts "-" * 80
+    puts content.green
+    TextShell.write "app.demo.env", content
+  end
+
+end
+
+__END__
+
+# view env.env.erb
+#
+<%= render :"#{@env_name || :blank}", format: :env -%>
+#
+
+# app variables
+
+
+
+<% App.systems.keys.each do |k| -%>
+# <%= k %> variables
+
+
+
+<% end -%>
+
+# view code.env.erb
+# ENV VARIABLES FOR MODE=code (default)
+#
+# MODE=code lizarb commands
+# lizarb commands
+
+# view demo.env.erb
+# ENV VARIABLES FOR MODE=demo
+#
+# MODE=demo lizarb commands
+
+# view blank.env.erb
+# ENV VARIABLES FOR ALL MODES
+#
+# MODE=code lizarb commands
+# MODE=demo lizarb commands
+# lizarb commands

data/lib/dev_system/generators/env_generator_test.rb

@@ -0,0 +1,11 @@
+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/generators/gemfile_generator.rb

@@ -0,0 +1,47 @@
+class DevSystem::GemfileGenerator < DevSystem::SimpleGenerator
+
+  # liza g gemfile
+
+  def call_default
+    @gemspec_name = get_gemspec_name
+
+    create_file "Gemfile", :gemfile, :rb
+  end
+
+  def get_gemspec_name
+    ls = Dir["*.gemspec"]
+    ls.first.split(".").first if ls.any?
+  end
+
+end
+
+__END__
+
+# view gemfile.rb.erb
+
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+<% if @gemspec_name -%>
+
+# Specify your gem's dependencies in <%= @gemspec_name %>.gemspec
+# gemspec path: "../path/to/<%= @gemspec_name %>"
+gemspec :<%= @gemspec_name %>
+<% end -%>
+
+group :default do
+  gem "lizarb", "~> <%= Lizarb::VERSION %>"
+  # gem "lizarb", github: "lizarb/lizarb"
+  # gem "lizarb", path: "../lizarb"
+end
+
+group :dev do
+  # gems you only want to load if DevSystem is loaded
+
+  # Shell
+  # gem "htmlbeautifier", "~> 1.4"
+  # gem "commonmarker", "~> 0.23.9"
+  # gem "haml", "~> 6.1"
+  # gem "sassc", "~> 2.4"
+  # gem "coffee-script", "~> 2.4"
+end

data/lib/dev_system/generators/gemfile_generator_test.rb

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

data/lib/dev_system/generators/system_generator.rb

@@ -0,0 +1,70 @@
+class DevSystem::SystemGenerator < DevSystem::SimpleGenerator
+
+  # liza g system name color=coral
+
+  def call_default
+    @name = command.simple_arg_ask_snakecase 0, "What is the name of the system you want to generate?"
+    log "@name = #{@name}"
+
+    @color = command.simple_color :color, string: "#{@name.camelize}System"
+    log "@color = #{@color}"
+
+    append_system_to_app
+    create_system
+    create_box
+  end
+
+  private
+
+  def append_system_to_app
+    file = TextFileShell.new App.filename
+    
+    lines = LineShell.extract_wall_of file.old_lines, "  system :"
+    lines << "  system :#{@name}\n"
+    file.new_lines = LineShell.replace_wall_of file.old_lines, "  system :", lines
+
+    add_change file
+  end
+
+  def create_system
+    unit    = UnitHelper.new
+    classes = ["#{@name.camelize}System", "Liza::System"]
+    path    = App.root.join("lib/#{@name.snakecase}_system.rb")
+    
+    create_unit unit, classes, path, :system
+  end
+
+  def create_box
+    unit, test = UnitHelper.new, UnitHelper.new
+    unit_classes = ["#{@name.camelize}System::#{@name.camelize}Box", "Liza::Box"]
+    test_classes = ["#{@name.camelize}System::#{@name.camelize}BoxTest", "Liza::BoxTest"]
+    unit_path = App.root.join("lib/#{@name.snakecase}_system/#{@name.snakecase}_box.rb")
+    test_path = App.root.join("lib/#{@name.snakecase}_system/#{@name.snakecase}_box_test.rb")
+
+    @class_name = unit_classes[0]
+    test.section :box_test_section_1, caption: ""
+    
+    create_unit unit, unit_classes, unit_path, :unit
+    create_unit test, test_classes, test_path, :unit
+  end
+
+end
+
+__END__
+
+# view system.rb.erb
+class <%= @class_names[0] %> < <%= @class_names[1] %>
+  class Error < Liza::Error; end
+  
+  #
+
+  color :<%= @color %>
+
+end
+
+# view box_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/generators/system_generator_test.rb

@@ -0,0 +1,11 @@
+class DevSystem::SystemGeneratorTest < DevSystem::SimpleGeneratorTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::SystemGenerator
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

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

@@ -0,0 +1,7 @@
+class DevSystem::Bench < Liza::Controller
+  
+  #
+
+  set :plural,   :benches
+
+end

data/lib/dev_system/{dev/panels → sub/bench}/bench_panel_test.rb

@@ -4,9 +4,13 @@ class DevSystem::BenchPanelTest < Liza::PanelTest
     assert subject_class == DevSystem::BenchPanel
   end
 
+  test_methods_defined do
+    on_self
+    on_instance
+  end
+
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
+    assert_equality subject_class.log_level, 0
   end
 
 end

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

@@ -0,0 +1,24 @@
+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.log_level, 0
+
+    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/sub/bench/benches/not_found_bench.rb

@@ -0,0 +1,33 @@
+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/{dev/controllers/bench → sub/bench/benches}/not_found_bench_test.rb

@@ -5,8 +5,7 @@ class DevSystem::NotFoundBenchTest < DevSystem::BenchTest
     end
 
     test :settings do
-      assert subject_class.log_level == :normal
-      assert subject_class.log_color == :green
+      assert_equality subject_class.log_level, 0
     end
 
 end

data/lib/dev_system/{dev/controllers/command → sub/bench/commands}/bench_command.rb

@@ -3,12 +3,11 @@ class DevSystem::BenchCommand < DevSystem::Command
   def self.call args
     # 1. LOG
 
-    log :higher, "args: #{args}"
-    puts
+    log "args = #{args.inspect}"
 
     # 2. FIND bench
 
-    return call_not_found args if args.none?
+    return NotFoundBench.call args if args.none?
 
     bench = args[0]
 
@@ -25,8 +24,4 @@ class DevSystem::BenchCommand < DevSystem::Command
     bench_klass.call args[1..-1]
   end
 
-  def self.call_not_found args
-    Liza::NotFoundBench.call args
-  end
-
 end

data/lib/dev_system/{dev/controllers/command → sub/bench/commands}/bench_command_test.rb

@@ -5,8 +5,7 @@ class DevSystem::BenchCommandTest < DevSystem::CommandTest
   end
 
   test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
+    assert_equality subject_class.log_level, 0
   end
 
 end

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

@@ -0,0 +1,70 @@
+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

@@ -0,0 +1,10 @@
+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

@@ -0,0 +1,28 @@
+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

@@ -0,0 +1,151 @@
+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