lizarb 1.0.4 → 1.0.5

data/lib/dev_system/dev/panels/generator_panel.rb

@@ -1,73 +0,0 @@
-class DevSystem::GeneratorPanel < Liza::Panel
-  class Error < StandardError; end
-  class ParseError < Error; end
-
-  #
-
-  def call args
-    log "args = #{args}"
-    
-    return call_not_found args if args.none?
-
-    struct = parse args[0]
-    struct.generator = short struct.generator
-    generator = find struct.generator
-
-    case
-    when struct.class_method
-      _call_log "#{generator}.#{struct.class_method}(#{args[1..-1]})"
-      generator.public_send struct.class_method, args[1..-1]
-    when struct.instance_method
-      _call_log "#{generator}.new.#{struct.instance_method}(#{args[1..-1]})"
-      generator.new.public_send struct.instance_method, args[1..-1]
-    when struct.method
-      if generator.respond_to?(struct.method)
-        _call_log "#{generator}.#{struct.method}(#{args[1..-1]})"
-        generator.public_send struct.method, args[1..-1]
-      else
-        _call_log "#{generator}.new.#{struct.method}(#{args[1..-1]})"
-        generator.new.public_send struct.method, args[1..-1]
-      end
-    else
-      _call_log "#{generator}.call(#{args[1..-1]})"
-      generator.call args[1..-1]
-    end
-  rescue ParseError
-    call_not_found args
-  end
-
-  def _call_log string
-    log "#{string}" if get :log_details
-  end
-
-  #
-
-  PARSE_REGEX = /(?<generator>[a-z_]+)(?::(?<class_method>[a-z_]+))?(?:#(?<instance_method>[a-z_]+))?(?:\.(?<method>[a-z_]+))?/
-
-  # OpenStruct generator class_method instance_method method
-  def parse string
-    md = string.to_s.match PARSE_REGEX
-    raise ParseError if md.nil?
-    hash = md.named_captures
-    log "{#{hash.map { ":#{_1} => #{_2.to_s.inspect}" }.join(", ") }}" if get :log_details
-    OpenStruct.new hash
-  end
-
-  #
-
-  def find string
-    k = Liza.const "#{string}_generator"
-  rescue Liza::ConstNotFound
-    k = Liza::NotFoundGenerator
-  ensure
-    log k.to_s if get :log_details
-    k
-  end
-
-  #
-
-  def call_not_found args
-    Liza[:NotFoundGenerator].call args
-  end
-
-end

data/lib/dev_system/dev/panels/generator_panel_test.rb

@@ -1,46 +0,0 @@
-class DevSystem::GeneratorPanelTest < Liza::PanelTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::GeneratorPanel
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
-  end
-
-  test :parse do
-    struct = subject.parse "system"
-    assert_equality struct.generator, "system"
-    assert_equality struct.class_method, nil
-    assert_equality struct.instance_method, nil
-    assert_equality struct.method, nil
-
-    struct = subject.parse "system:install"
-    assert_equality struct.generator, "system"
-    assert_equality struct.class_method, "install"
-    assert_equality struct.instance_method, nil
-    assert_equality struct.method, nil
-
-    struct = subject.parse "system#install"
-    assert_equality struct.generator, "system"
-    assert_equality struct.class_method, nil
-    assert_equality struct.instance_method, "install"
-    assert_equality struct.method, nil
-
-    struct = subject.parse "system.install"
-    assert_equality struct.generator, "system"
-    assert_equality struct.class_method, nil
-    assert_equality struct.instance_method, nil
-    assert_equality struct.method, "install"
-  end
-
-  test :find do
-    klass = subject.find "command"
-    assert_equality DevSystem::CommandGenerator, klass
-
-    klass = subject.find "c"
-    assert_equality DevSystem::NotFoundGenerator, klass
-  end
-
-end

data/lib/dev_system/dev/panels/log_panel.rb

@@ -1,13 +0,0 @@
-class DevSystem::LogPanel < Liza::Panel
-
-  # https://rubyapi.org/3.1/o/logger
-  def call string
-    unless App.mode == :code
-      pid = Process.pid
-      tid = Lizarb.thread_id.to_s.rjust_zeroes 3
-      string = "#{pid} #{tid} #{string}"
-    end
-    puts string
-  end
-
-end

data/lib/dev_system/dev/panels/log_panel_test.rb

@@ -1,16 +0,0 @@
-class DevSystem::LogPanelTest < Liza::PanelTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::LogPanel
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
-  end
-
-  # test :call do
-  #   todo "write this"
-  # end
-
-end

data/lib/dev_system/dev/panels/shell_panel.rb

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

data/lib/dev_system/dev/panels/shell_panel_test.rb

@@ -1,12 +0,0 @@
-class DevSystem::ShellPanelTest < Liza::PanelTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::ShellPanel
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
-  end
-
-end

data/lib/dev_system/dev/panels/terminal_panel.rb

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

data/lib/dev_system/dev/panels/terminal_panel_test.rb

@@ -1,12 +0,0 @@
-class DevSystem::TerminalPanelTest < Liza::PanelTest
-
-  test :subject_class do
-    assert subject_class == DevSystem::TerminalPanel
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :green
-  end
-
-end

data/lib/happy_system/dev/happy_command.rb

@@ -1,11 +0,0 @@
-class HappySystem::HappyCommand < Liza::Command
-
-  def self.call args
-    if args[0] == "axo"
-      Axo.call args[1..-1]
-    else
-      log "unrecognized game: #{args[0]}. Try `liza happy axo` instead"
-    end
-  end
-
-end

data/lib/happy_system/happy/controllers/axo.rb

@@ -1,7 +0,0 @@
-class HappySystem::Axo < Liza::Controller
-
-  def self.call args
-    #
-  end
-  
-end

data/lib/happy_system/happy/happy_box.rb

@@ -1,8 +0,0 @@
-class HappySystem::HappyBox < Liza::Box
-
-  # Configure your axo panel per the DSL in http://guides.lizarb.org/panels/axo.html
-  configure :axo do
-    # set :log_level, ENV["happy.axo.log_level"]
-  end
-
-end

data/lib/happy_system/happy/happy_box_test.rb

@@ -1,16 +0,0 @@
-class HappySystem::HappyBoxTest < Liza::BoxTest
-
-  test :subject_class do
-    assert subject_class == HappySystem::HappyBox
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :magenta
-  end
-
-  test :panels do
-    assert subject_class[:axo].is_a? HappySystem::AxoPanel
-  end
-
-end

data/lib/happy_system/happy/panels/axo_panel.rb

@@ -1,3 +0,0 @@
-class HappySystem::AxoPanel < Liza::Panel
-
-end

data/lib/liza/base/box.rb

@@ -1,90 +0,0 @@
-class Liza::Box < Liza::Unit
-  inherited_explicitly_sets_system
-
-  # def self.has_panel symbol, panel_name = symbol
-  #   system_klass = get :system
-  #   panel_class = system_klass.const "#{symbol}_panel"
-
-  #   _has_panel_define panel_name, "get(:panels)[:#{panel_name}]"
-
-  #   panel = panel_class.new panel_name
-  #   add :panels, panel_name, panel
-
-  #   panel_class.on_connected self
-  # end
-
-  # def self.has_controller symbol, panel_name = symbol
-  #   system_klass = get :system
-  #   controller_class = system_klass.const symbol
-
-  #   panel = public_send panel_name
-
-  #   controller_class.on_connected self, panel
-  # end
-
-  # def self.method_missing symbol, *args, &block
-  #   if panels.has_key? symbol
-  #     panels[symbol]
-  #   else
-  #     super
-  #   end
-  # end
-
-  # def self.respond_to_missing? symbol, include_private = false
-  #   get(:panels).keys.include?(symbol) || super
-  # end
-
-#     def self._has_panel_define name, resource
-#       class_eval <<-CODE, __FILE__, __LINE__ + 1
-
-# def self.#{name} &block
-#   if block_given?
-#     #{resource}.instance_eval &block
-#   else
-#     #{resource}
-#   end
-# end
-
-#       CODE
-#     end
-
-  def self.panels
-    get :panels
-  end
-
-  def self.[] symbol
-    panels[symbol].started
-  end
-
-  def self.has_panel symbol, panel_class = nil, &block
-    raise ArgumentError, "block required" unless block_given?
-
-    system_class = get :system
-    panel_class ||= system_class.const "#{symbol}_panel"
-
-    if Hash(get :panels).has_key? symbol
-      panel = panels[symbol]
-    else
-      panel_class.on_connected self
-      panel = panel_class.new symbol
-      add :panels, symbol, panel
-    end
-
-    panel.push block
-  end
-
-  def self.has_controller symbol, panel_name = symbol
-    system_klass = get :system
-    controller_class = system_klass.const symbol
-
-    panel = self[panel_name]
-
-    controller_class.on_connected self, panel
-  end
-
-  def self.configure name, &block
-    has_panel name, &block
-    has_controller name, name
-  end
-
-end

data/lib/liza/base/box_test.rb

@@ -1,10 +0,0 @@
-class Liza::BoxTest < Liza::UnitTest
-  test :subject_class do
-    assert subject_class == Liza::Box
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-  end
-end

data/lib/liza/base_parts/controller_renderer_part.rb

@@ -1,140 +0,0 @@
-class Liza::ControllerRendererPart < Liza::Part
-
-  class Error < Liza::Error; end
-  class RendererNotFound < Error; end
-  class EmptyRenderStack < Error; end
-
-  EMPTY_RENDER_STACK_MESSAGE = <<~STRING
-You called render without ERB keys,
-but the render stack is empty.
-Did you forget to add ERB keys?
-  STRING
-
-  insertion do
-    # EXTENSION
-
-    def self.renderer
-      Liza::ControllerRendererPart::Extension
-    end
-
-    def renderer
-      @renderer ||= self.class.renderer.new self
-    end
-
-    # CLASS
-
-    def self.controller_ancestors
-      ancestors.take_while { |k| k != Liza::Controller }
-    end
-
-    def self.render_paths
-      @render_paths ||= controller_ancestors.map &:source_location_radical
-    end
-
-    def render_paths
-      self.class.render_paths
-    end
-
-    def self.renderers
-      @renderers ||=
-        LERB.load(source_location_radical)
-            .map { |lerb| [lerb.key, lerb] }
-            .to_h
-    end
-
-    # INSTANCE
-
-    def render *keys
-      if keys.any?
-        _log_render_in keys
-        renderer.render keys, binding, self
-      elsif renderer.stack.any?
-        renderer.stack.pop
-      else
-        raise EmptyRenderStack, EMPTY_RENDER_STACK_MESSAGE, caller
-      end
-    end
-
-    def _log_render_in keys
-      if renderer.stack.any?
-        log "render ↓ #{keys.join ", "}"
-      else
-        log "render #{"→ " * keys.size}#{keys.join ", "}"
-      end
-    end
-  end
-
-  extension do
-    # CLASS
-
-    def self.log(...)
-      solder.log(...)
-    end
-
-    # INSTANCE
-
-    def log(...)
-      self.class.log(...)
-    end
-
-    def erb_lists
-      @erb_lists ||= []
-    end
-
-    def stack
-      @stack ||= []
-    end
-
-    def render keys, the_binding, receiver
-      erbs = find_erbs_for(keys).to_a
-
-      erbs.reverse.each do |key, erb|
-        t = Time.now
-        s = erb.result the_binding, receiver
-        _log_render_out key, s.length, t.diff
-        s = wrap_comment_tags s, erb if App.mode == :code && erb.tags?
-        stack.push s
-      end
-
-      stack.pop
-    end
-
-    def find_erbs_for keys
-      ret = {}
-      keys.each do |key|
-        key = "#{key}.erb"
-
-        controller = solder.class.controller_ancestors.
-          find { |controller| controller.renderers.has_key? key }
-
-        if controller
-          ret[key] = controller.renderers[key]
-        else
-          raise_renderer_not_found key
-        end
-      end
-
-      ret
-    end
-
-    def raise_renderer_not_found key
-      render_paths = solder.render_paths.map { |s| "  #{s}/#{"#{key}".red}" }.join
-      raise RendererNotFound,  %|Failed to find ERB #{key}
-Failed to find ERB #{"#{key}".red} in #{solder.class}.render_paths
-#{render_paths}|
-    end
-
-    def _log_render_out key, length, t
-      if stack.any?
-        log "render #{"↑ #{key}".ljust_blanks 20} with #{length.to_s.rjust_blanks 4} characters in #{t}s"
-      else
-        log "render #{"← #{key}".ljust_blanks 20} with #{length.to_s.rjust_blanks 4} characters in #{t}s"
-      end
-    end
-
-    def wrap_comment_tags s, erb
-      "<!-- #{erb.filename.split("/").last}:#{erb.lineno} -->\n#{s}\n<!-- #{erb.filename.split("/").last} -->"
-    end
-
-  end
-end

data/lib/liza/base_parts/controller_renderer_part_test.rb

@@ -1,16 +0,0 @@
-class Liza::ControllerRendererPartTest < Liza::Test
-
-  test :subject_class do
-    assert subject_class == Liza::ControllerRendererPart
-  end
-
-  test :settings do
-    assert subject_class.get(:log_level) == :normal
-    assert subject_class.get(:log_color) == :white
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :white
-
-    assert subject_class.settings == {}
-  end
-
-end

data/lib/liza/meta/part_extension.rb

@@ -1,16 +0,0 @@
-class Liza::PartExtension
-  def self.solder
-    @solder ||=
-      if first_namespace == "Liza"
-        Liza.const_get last_namespace[0..-12]
-      else
-        Object.const_get name[0..-12]
-      end
-  end
-
-  def initialize solder
-    @solder = solder
-  end
-
-  attr_reader :solder
-end

data/lib/liza/test_parts/test_tree_part.rb

@@ -1,92 +0,0 @@
-class Liza::TestTreePart < Liza::Part
-
-  insertion do
-
-    @before_stack = []
-    @after_stack = []
-    
-    def self.before_stack; @before_stack ||= superclass.before_stack.dup end
-    def self.after_stack;  @after_stack  ||= superclass.after_stack.dup end
-    
-    def self.test_node; @test_node ||= test_tree end
-    def self.test_tree; @test_tree ||= Liza::TestTreePart::Extension.new nil, before_stack, after_stack end
-    
-    #
-
-    def self.group *words, &block
-      raise ArgumentError, "No block given" unless block_given?
-      previous = test_node
-      @test_node = test_node.branch_out words
-      instance_exec(&block)
-      @test_node = previous
-    end
-
-    def self.test *words, &block
-      raise ArgumentError, "No block given" unless block_given?
-      test_node.add_test words, &block
-    end
-
-    def self.before &block
-      raise ArgumentError, "No block given" unless block_given?
-      test_node.add_before(&block)
-    end
-
-    def self.after &block
-      raise ArgumentError, "No block given" unless block_given?
-      test_node.add_after(&block)
-    end
-
-  end
-
-  extension do
-    
-    def log *args
-      self.class.solder.log(*args)
-    end
-
-    def log_test_building?
-      Liza::Test.log_test_building?
-    end
-
-    attr_reader :tests, :parent, :children, :before_stack, :after_stack
-
-    def initialize parent, before_stack, after_stack
-      @tests = []
-      initialize_parenting parent
-      initialize_filters before_stack, after_stack
-    end
-
-    def initialize_parenting parent
-      @parent = parent || self
-      @children = []
-      @parent.children << self if @parent != self
-    end
-
-    def initialize_filters before_stack, after_stack
-      @before_top, @after_top = [], []
-      @before_stack = before_stack.push @before_top
-      @after_stack  = after_stack.unshift @after_top
-    end
-
-    def add_before &block
-      log "add_before to ##{object_id} #{block}" if log_test_building?
-      @before_top.push block
-    end
-
-    def add_test words, &block
-      log "add_test to ##{object_id} #{words} #{block}" if log_test_building?
-      tests << [words, block]
-    end
-
-    def add_after &block
-      log "add_after to ##{object_id} #{block}" if log_test_building?
-      @after_top.push block
-    end
-
-    def branch_out words, &block
-      self.class.new self, before_stack.dup, after_stack.dup
-    end
-
-  end
-
-end

data/lib/net_system/dev/net_command.rb

@@ -1,22 +0,0 @@
-class NetSystem::NetCommand < Liza::Command
-
-  def self.call args
-    log "args = #{args.inspect}"
-
-    ruby_time   = Time.now
-    redis_time  = NetBox[:database].redis.new.now
-    sqlite_time = NetBox[:database].sqlite.new.now
-    # redis_time  = ::RedisDb.current.now
-    # sqlite_time = ::SqliteDb.current.now
-
-
-    log "Time for Ruby:    #{_red ruby_time}".bold
-    log "Time for Redis:   #{_red redis_time}".bold
-    log "Time for Sqlite:  #{_red sqlite_time}".bold
-  end
-
-  def self._red s
-    s.to_s.light_red
-  end
-
-end

data/lib/net_system/net/net_box.rb

@@ -1,13 +0,0 @@
-class NetSystem::NetBox < Liza::Box
-
-  # Configure your client panel per the DSL in http://guides.lizarb.org/panels/client.html
-  configure :client do
-    # set :log_level, ENV["net.client.log_level"]
-  end
-
-  # Configure your database panel per the DSL in http://guides.lizarb.org/panels/database.html
-  configure :database do
-    # set :log_level, ENV["net.database.log_level"]
-  end
-
-end