lizarb 0 → 1.0.0

data/lib/app.rb

@@ -0,0 +1,200 @@
+module App
+  class Error < StandardError; end
+  class ModeNotFound < Error; end
+  class SystemNotFound < Error; end
+
+  #
+
+  module_function
+
+  def log s
+    puts s.bold
+  end
+
+  # called from "#{APP_DIR}/app"
+  def call argv, &block
+    instance_exec &block
+
+    setup_env
+    setup_bundle
+    setup_liza
+    bundle_systems_app Lizarb::APP_DIR
+
+    check_mode!
+
+    puts
+    ::DevBox.commands.call argv
+    puts
+  end
+
+  def root
+    Pathname Dir.pwd
+  end
+
+  def setup_env
+    require "dotenv"
+    Dotenv.load "app.#{mode}.env", "app.env"
+  end
+
+  def setup_bundle
+    require "bundler/setup"
+    Bundler.require :default, *@systems.keys
+  end
+
+  def setup_liza
+    require "liza"
+
+    @loaders << loader = Zeitwerk::Loader.new
+    loader.tag = Liza.to_s
+
+    # ORDER MATTERS: IGNORE, COLLAPSE, PUSH
+    loader.collapse "#{fname_for Liza}/**/*"
+    loader.push_dir "#{fname_for Liza}", namespace: Liza
+
+    loader.enable_reloading
+    loader.setup
+  end
+
+  def bundle_systems_app app_dir
+    @systems.keys.each do |k|
+      key = "#{k}_system"
+
+      require_system key
+      klass = Object.const_get key.camelize
+
+      @systems[k] = klass
+    end
+
+    @loaders << loader = Zeitwerk::Loader.new
+
+    @systems.each do |k, klass|
+      # ORDER MATTERS: IGNORE, COLLAPSE, PUSH
+      loader.collapse "#{fname_for klass}/**/*"
+      loader.push_dir "#{fname_for klass}", namespace: klass
+    end
+
+    # ORDER MATTERS: IGNORE, COLLAPSE, PUSH
+    loader.collapse "#{app_dir}/app/**/*"
+    loader.push_dir "#{app_dir}/app" if Dir.exist? "#{app_dir}/app"
+
+    loader.enable_reloading
+    loader.setup
+
+    @systems.each do |k, klass|
+      connect_system k, klass
+    end
+  end
+
+  # loaders
+
+  @loaders = []
+  @mutex = Mutex.new
+
+  def reload &block
+    @mutex.synchronize do
+      @loaders.map &:reload
+      yield if block_given?
+    end
+
+    true
+  end
+
+  def eager_load_all
+    Zeitwerk::Loader.eager_load_all
+  end
+
+  # mode
+
+  @modes = [:code]
+  ENV["LIZA_MODE"] ||= @modes.first.to_s
+  @mode = ENV["LIZA_MODE"].to_sym
+
+  def mode mode = nil
+    return @mode if mode.nil?
+    @modes << mode.to_sym
+  end
+
+  def check_mode!
+    return if @modes.include? @mode
+    raise ModeNotFound, "LIZA_MODE `#{@mode}` not found in #{@modes}", []
+  end
+
+  # systems
+
+  @systems = {}
+
+  def system key
+    raise "locked" if @locked
+    @systems[key] = nil
+  end
+
+  def systems
+    @systems
+  end
+
+  def self.require_system key
+    require key
+  rescue LoadError => e
+    def e.backtrace; []; end
+    raise SystemNotFound, "FILE #{key}.rb not found on $LOAD_PATH", []
+  end
+
+  # parts
+
+  def connect_part part_klass, key, system
+    klass = if system.nil?
+              Liza.const "#{key}_part"
+            else
+              Liza.const("#{system}_system")
+                  .const "#{key}_part"
+            end
+
+    log "CONNECTING PART #{part_klass.to_s.rjust 25}.part :#{key}"
+
+    if klass.insertion
+      part_klass.class_exec &klass.insertion
+    end
+
+    if klass.extension
+      klass.const_set :Extension, Class.new(Liza::PartExtension)
+      klass::Extension.class_exec &klass.extension
+    end
+  end
+
+  # systems
+
+  def connect_system key, system_klass
+    t = Time.now
+
+    color_system_klass = system_klass.to_s.colorize system_klass.log_color
+    color_key = key.to_s.colorize system_klass.log_color
+
+    registrar_index = 0
+    system_klass.registrar.each do |string, target_block|
+      reg_type, _sep, reg_target = string.to_s.lpartition "_"
+
+      registrar_index += 1
+
+      target_klass = Liza.const reg_target
+
+      if reg_type == "insertion"
+        target_klass.class_exec &target_block
+      else
+        raise "TODO: decide and implement system extension"
+      end
+
+      log "CONNECTING SYSTEM PART          #{color_system_klass}.#{reg_type} #{target_klass}"
+
+    end
+    log "CONNECTING SYSTEM - #{t.diff}s for #{color_system_klass} to connect to #{registrar_index} system parts"
+  end
+
+  #
+
+  def fname_for klass
+    # /path/to/liza.rb
+    # /path/to/liza
+    Object.const_source_location(klass.name)[0][0..-4]
+  end
+
+end

data/lib/dev_system/dev/controllers/command/dev_command.rb

@@ -0,0 +1,19 @@
+class DevSystem
+  class DevCommand < Command
+
+    def self.call args
+      log :higher, "Called #{self} with args #{args}"
+
+      # 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
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/dev_command_test.rb

@@ -0,0 +1,14 @@
+class DevSystem
+  class DevCommandTest < CommandTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::DevCommand
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/echo_command.rb

@@ -0,0 +1,11 @@
+class DevSystem
+  class EchoCommand < Command
+
+    def self.call args
+      log :higher, "Called #{self} with args #{args}"
+
+      raise RuntimeError, args.to_s
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/echo_command_test.rb

@@ -0,0 +1,14 @@
+class DevSystem
+  class EchoCommandTest < CommandTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::EchoCommand
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/test_command.rb

@@ -0,0 +1,70 @@
+class DevSystem
+  class TestCommand < Command
+
+    def self.call args
+      log :higher, "Called #{self} with args #{args}"
+
+      App.eager_load_all
+
+      now = Time.now
+      test_classes = Liza::Test.descendants
+
+      test_classes = _call_sort test_classes
+
+      log "Testing #{test_classes}"
+      _call_testing test_classes
+      log "Done Testing (#{now.diff}s)"
+
+      puts
+
+      log "Counting #{test_classes.count} Test Classes"
+      _call_counting test_classes
+      log "Done Counting (#{now.diff}s)"
+    end
+
+    def self._call_sort test_classes
+      test_classes.sort_by! &:name
+
+      proc_namespaced = proc { |tc| tc.name.include? "::" }
+      proc_liza = proc { |tc| tc.name[0..3] == "Liza" }
+
+      tc_app        = test_classes.reject &proc_namespaced
+      tc_namespaced = test_classes.select &proc_namespaced
+
+      tc_liza   = tc_namespaced.select &proc_liza
+      tc_system = tc_namespaced.reject &proc_liza
+
+      tc_app.sort_by! { |tc| Object.const_source_location(tc.name)[0] }
+      tc_liza.sort_by! { |tc| Object.const_source_location(tc.name)[0] }
+
+      [tc_liza, tc_system, tc_app].flatten
+    end
+
+    def self._call_testing test_classes
+      i, count = 0, test_classes.count
+      for test_class in test_classes
+        test_class.call i+=1, count
+      end
+    end
+
+    def self._call_counting test_classes
+      puts
+      totals = Hash.new { 0 }
+      last_namespace = nil
+      test_classes.each do |test_class|
+        namespace = test_class.first_namespace
+        puts if last_namespace != namespace
+        last_namespace = namespace
+
+        test_class.totals.each do |k, v|
+          totals[k] += v.size
+        end
+        Liza.log "  #{"#{test_class}.totals".ljust 60} #{test_class.totals.map { |k, v| [k, v.size] }.to_h}"
+      end
+      puts
+      Liza.log "  #{"Total".ljust 60} #{totals}"
+      puts
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/test_command_test.rb

@@ -0,0 +1,14 @@
+class DevSystem
+  class TestCommandTest < CommandTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::TestCommand
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/version_command.rb

@@ -0,0 +1,9 @@
+class DevSystem
+  class VersionCommand < Command
+
+    def self.call args
+      puts Lizarb::VERSION
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command/version_command_test.rb

@@ -0,0 +1,14 @@
+class DevSystem
+  class VersionCommandTest < CommandTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::VersionCommand
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+  end
+end

data/lib/dev_system/dev/controllers/command.rb

@@ -0,0 +1,19 @@
+class DevSystem
+  class Command < Liza::Controller
+
+    # def self.call args
+    #   new.call args
+    # end
+
+    # def initialize args
+    #   @args = args
+    # end
+
+    # attr_reader :args
+
+    # def call args
+    #
+    # end
+
+  end
+end

data/lib/dev_system/dev/controllers/command_test.rb

@@ -0,0 +1,14 @@
+class DevSystem
+  class CommandTest < Liza::ControllerTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::Command
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+  end
+end

data/lib/dev_system/dev/dev_box.rb

@@ -0,0 +1,19 @@
+class DevSystem
+  class DevBox < Liza::Box
+    has_panel :command, :commands
+    has_controller :command, :commands
+
+    has_panel :log, :logs
+
+    # Set up your command panel per the DSL in http://guides.lizarb.org/panels/command.html
+    commands do
+      # set :log_level, ENV["dev.command.log_level"]
+    end
+
+    # Set up your command panel per the DSL in http://guides.lizarb.org/panels/log.html
+    logs do
+      # set :log_level, ENV["dev.log.log_level"]
+    end
+
+  end
+end

data/lib/dev_system/dev/dev_box_test.rb

@@ -0,0 +1,19 @@
+class DevSystem
+  class DevBoxTest < Liza::BoxTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::DevBox
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+    test :panels do
+      assert subject_class.commands.is_a? CommandPanel
+      assert subject_class.logs.is_a? LogPanel
+    end
+
+  end
+end

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

@@ -0,0 +1,10 @@
+class DevSystem
+  class CommandPanel < Liza::Panel
+
+    def call args
+      command_klass = Liza.const "#{args[0]}_command"
+      command_klass.call args[1..-1]
+    end
+
+  end
+end

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

@@ -0,0 +1,23 @@
+class DevSystem
+  class CommandPanelTest < Liza::PanelTest
+
+    test :subject_class do
+      assert subject_class == DevSystem::CommandPanel
+    end
+
+    test :settings do
+      assert subject_class.log_level == :normal
+      assert subject_class.log_color == :green
+    end
+
+    test :call do
+      begin
+        subject.call ["echo", 1, 2, 3]
+        assert false
+      rescue RuntimeError => e
+        assert e.message == "[1, 2, 3]"
+      end
+    end
+
+  end
+end

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

@@ -0,0 +1,10 @@
+class DevSystem
+  class LogPanel < Liza::Panel
+
+    # https://rubyapi.org/3.1/o/logger
+    def call string
+      puts string
+    end
+
+  end
+end

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

@@ -0,0 +1,18 @@
+class DevSystem
+  class 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
+end

data/lib/dev_system.rb

@@ -0,0 +1,8 @@
+class DevSystem < Liza::System
+  class Error < Liza::Error; end
+
+  #
+
+  set :log_color, :green
+
+end

data/lib/happy_system/dev/happy_command.rb

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

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

data/lib/happy_system/happy/happy_box.rb

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

data/lib/happy_system/happy/happy_box_test.rb

@@ -0,0 +1,18 @@
+class HappySystem
+  class 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? AxoPanel
+    end
+
+  end
+end

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

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

data/lib/{viral.rb → happy_system.rb}

@@ -1,8 +1,12 @@
 # frozen_string_literal: true
 
-require_relative "viral/version"
-
-module Viral
+class HappySystem < Liza::System
   class Error < StandardError; end
   # Your code goes here...
+
+  #
+
+  set :log_color, :magenta
+
+  #
 end

data/lib/liza/base/box.rb

@@ -0,0 +1,40 @@
+module Liza
+  class Box < 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._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
+  end
+end

data/lib/liza/base/box_test.rb

@@ -0,0 +1,12 @@
+module Liza
+  class BoxTest < 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
+end

data/lib/liza/base/controller.rb

@@ -0,0 +1,27 @@
+module Liza
+  class Controller < Unit
+    inherited_explicitly_sets_system
+
+    def self.on_connected box_klass, panel
+      set :box, box_klass
+      set :panel, panel
+    end
+
+    def self.box
+      get :box
+    end
+
+    def self.panel
+      get :panel
+    end
+
+    def box
+      self.class.box
+    end
+
+    def panel
+      self.class.panel
+    end
+
+  end
+end