lizarb 1.0.4 → 1.0.5

data/lib/dev_system/sub/log/log_panel_test.rb

@@ -0,0 +1,50 @@
+class DevSystem::LogPanelTest < Liza::PanelTest
+
+  test :subject_class do
+    assert_equality subject_class, DevSystem::LogPanel
+  end
+
+  test_methods_defined do
+    on_self
+    on_instance :call, :handler, :handlers, :method_name_for
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+  test :call, :unit_log_level, true do
+    handler_env = nil
+
+    assert_equality subject.handlers, {}
+    subject.handlers[:test] = -> env { handler_env = env }
+
+    input_env = {
+      caller: caller,
+      unit_log_level: :normal,
+      message_log_level: :normal
+    }
+    subject.call input_env
+
+    # it has passed the filter
+    assert_equality handler_env.object_id, input_env.object_id
+  end
+
+  test :call, :unit_log_level, false do
+    handler_env = nil
+
+    assert_equality subject.handlers, {}
+    subject.handlers[:test] = -> env { handler_env = env }
+
+    input_env = {
+      caller: caller,
+      unit_log_level: :normal,
+      message_log_level: :low
+    }
+    subject.call input_env
+
+    # it has not passed the filter
+    assert_equality handler_env, nil
+  end
+
+end

data/lib/dev_system/{dev/controllers → sub/log}/log_test.rb

@@ -4,9 +4,13 @@ class DevSystem::LogTest < Liza::ControllerTest
     assert subject_class == DevSystem::Log
   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/log/logs/output_log.rb

@@ -0,0 +1,74 @@
+class DevSystem::OutputLog < DevSystem::Log
+
+  SIDEBAR_LENGTH = 60
+  
+  def self.call(env)
+    env[:sidebar] ||= sidebar_for env
+
+    string = env[:object]
+    string = string.join("") if string.is_a? Array
+
+    unless $coding
+      pid = Process.pid
+      tid = Lizarb.thread_id.to_s.rjust_zeroes 3
+      env[:sidebar] = "#{pid} #{tid} #{env[:sidebar]}"
+    end
+
+    string = "#{env[:sidebar]} #{string}"
+    Kernel.puts string
+  end
+  
+  def self.sidebar_for env
+    sidebar = ""
+
+    source = env[:unit_class]
+    system_color = source.system.color
+    source_color = source.division.system.color
+    size = 0
+
+    # TODO: Figure out why RequestPanel is returning false when started from rack command but not from request command
+    # source_is_a_panel = source < Panel
+    # source_is_a_panel = source.ancestors.include? Panel
+    # source_is_a_panel = env[:unit].is_a? Panel
+    source_is_a_panel = source.to_s.end_with? "Panel"
+
+    if source_is_a_panel
+      key = env[:unit].key
+      source = source.box
+
+      namespace, _sep, classname = source.name.rpartition('::')
+      unless namespace.empty?
+        sidebar << stick(namespace, system_color, :b).to_s
+        sidebar << "::"
+        size += namespace.size + 2
+      end
+      sidebar << stick(classname, source_color).to_s
+      sidebar << "[:#{key}]."
+
+      size += classname.size + key.size + 4
+    else
+      method_sep = env[:instance] ? "#" : ":"
+
+      namespace, _sep, classname = env[:unit_class].name.rpartition('::')
+      unless namespace.empty?
+        sidebar << stick(namespace, system_color, :b).to_s
+        sidebar << "::"
+        size += namespace.size + 2
+      end
+      sidebar << stick(classname, source_color).to_s
+
+      sidebar << method_sep
+      size += classname.size + 1
+    end
+
+    sidebar << env[:method_name]
+    size += env[:method_name].size
+
+    size = SIDEBAR_LENGTH - size - 1
+    size = 0 if size < 0
+    sidebar << " " * size
+
+    sidebar
+  end
+
+end

data/lib/dev_system/sub/log/logs/output_log_test.rb

@@ -0,0 +1,47 @@
+class DevSystem::OutputLogTest < DevSystem::LogTest
+
+  test :subject_class do
+    assert subject_class == DevSystem::OutputLog
+  end
+
+  test_methods_defined do
+    on_self :call, :sidebar_for
+    on_instance
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+  
+  test :sidebar_for do
+    assert_equality "\e[1m\e[38;2;0;255;0mDevSystem\e[0m::\e[38;2;0;255;0mCommand\e[0m:call                                    ",
+      sidebar_for(
+        DevSystem::Command,
+        DevSystem::Command,
+        "call"
+      )
+    assert_equality "\e[1m\e[38;2;0;255;0mDevSystem\e[0m::\e[38;2;0;255;0mTestCommand\e[0m:call                                ",
+      sidebar_for(
+        DevSystem::TestCommand,
+        DevSystem::TestCommand,
+        "call"
+      )
+    assert_equality "\e[1m\e[38;2;0;255;0mDevSystem\e[0m::\e[38;2;0;255;0mDevBox\e[0m[:command].call                           ",
+      sidebar_for(
+        DevSystem::CommandPanel,
+        DevSystem::CommandPanel.new(:command),
+        "call"
+      )
+  end
+
+  def sidebar_for unit_class, unit, method_name
+    env = {
+      unit_class: unit_class,
+      unit: unit,
+      method_name: method_name
+    }
+    #
+    subject_class.sidebar_for env
+  end
+
+end

data/lib/dev_system/sub/log/logs/stick_log.rb

@@ -0,0 +1,79 @@
+class DevSystem::StickLog < DevSystem::Log
+  class Error < Error; end
+  class MissingText < Error; end
+  class UnknownArg < Error; end
+
+  FORE = [255, 255, 255]
+  STYLES = {
+    bold: :b,
+    italic: :i,
+    underlined: :u,
+  }
+
+  #
+
+  def self.bundle *args
+    index = args.index { _1.is_a? Array and _1[0].is_a? String } or raise "missing array"
+    common_args, arrays = args[0..index-1], args[index..-1]
+    space = new(" ", *common_args).to_s
+    
+    arrays.map { |array|
+      new *[*common_args, *array]
+    }.join space
+  end
+
+  #
+
+  attr_reader :text, :fore, :back, :bold, :italic, :underlined
+
+  def initialize *args
+    bold = nil
+    italic = nil
+    underlined = nil
+    fore = nil
+    back = nil
+    text = nil
+
+    args.each do |arg|
+      next text = arg if arg.is_a? String and text.nil?
+      
+      if arg.is_a? Symbol
+        x = STYLES[arg] || arg
+        next bold       = true if x == :b
+        next italic     = true if x == :i
+        next underlined = true if x == :u
+      end
+
+      next fore = arg unless fore
+      next back = arg unless back
+      raise UnknownArg, "unknown arg #{arg.inspect}"
+    end
+
+    raise MissingText, "missing a string as text", caller[3..] unless text
+    fore ||= FORE
+
+    fore = ColorShell.parse(fore) if fore and not fore.is_a? Array
+    back = ColorShell.parse(back) if back and not back.is_a? Array
+
+    # TODO: benchmark alternatives in regards to Object Shapes
+    @bold = bold
+    @italic = italic
+    @underlined = underlined
+    @fore = fore
+    @back = back
+    @text = text.to_s
+  end
+
+  def to_s
+    s = ""
+    s += "\e[1m" if @bold
+    s += "\e[3m" if @italic
+    s += "\e[4m" if @underlined
+    s += "\e[38;2;#{@fore[0]};#{@fore[1]};#{@fore[2]}m" if @fore
+    s += "\e[48;2;#{@back[0]};#{@back[1]};#{@back[2]}m" if @back
+    s += @text
+    s += "\e[0m"
+    s
+  end
+  
+end

data/lib/dev_system/sub/log/logs/stick_log_test.rb

@@ -0,0 +1,88 @@
+class DevSystem::StickLogTest < DevSystem::LogTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::StickLog, subject_class
+  end
+
+  #
+
+  test :subject_class, :bundle do
+    string = \
+      subject_class.
+        bundle :red, :white, :b,
+          ["I"],
+          ["LOVE", :u],
+          ["RUBY", :u, :i]
+
+    assert_equality string, "\e[1m\e[38;2;204;0;0m\e[48;2;248;248;248mI\e[0m\e[1m\e[38;2;204;0;0m\e[48;2;248;248;248m \e[0m\e[1m\e[4m\e[38;2;204;0;0m\e[48;2;248;248;248mLOVE\e[0m\e[1m\e[38;2;204;0;0m\e[48;2;248;248;248m \e[0m\e[1m\e[3m\e[4m\e[38;2;204;0;0m\e[48;2;248;248;248mRUBY\e[0m"
+  end
+
+  #
+
+  test :subject_class, :new do
+    s = subject_class.new "I LOVE RUBY"
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 255, 255]
+    assert_equality s.back, nil
+    assert_equality s.to_s, "\e[38;2;255;255;255mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :bold, :italic, :underlined
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 255, 255]
+    assert_equality s.back, nil
+    assert_equality s.bold, true
+    assert_equality s.italic, true
+    assert_equality s.underlined, true
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;255;255mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 255, 255]
+    assert_equality s.back, nil
+    assert_equality s.bold, true
+    assert_equality s.italic, true
+    assert_equality s.underlined, true
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;255;255mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, :red
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [204, 0, 0]
+    assert_equality s.back, nil
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;204;0;0mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, :red, :white
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [204, 0, 0]
+    assert_equality s.back, [248, 248, 248]
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;204;0;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, 0xff9900, :white
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 153, 0]
+    assert_equality s.back, [248, 248, 248]
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;153;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, "#ff9900", :white
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 153, 0]
+    assert_equality s.back, [248, 248, 248]
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;153;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+    
+    s = subject_class.new "I LOVE RUBY", :b, :i, :u, "ff9900", :white
+    assert_equality s.class, subject_class
+    assert_equality s.text, "I LOVE RUBY"
+    assert_equality s.fore, [255, 153, 0]
+    assert_equality s.back, [248, 248, 248]
+    assert_equality s.to_s, "\e[1m\e[3m\e[4m\e[38;2;255;153;0m\e[48;2;248;248;248mI LOVE RUBY\e[0m"
+  end
+
+end

data/lib/dev_system/sub/shell/commands/convert_command.rb

@@ -0,0 +1,27 @@
+class DevSystem::ConvertCommand < DevSystem::SimpleCommand
+  
+  # liza convert FORMAT FILENAME
+
+  def call_default
+    args = env[:args]
+    log :lower, "args = #{args.inspect}"
+
+    raise ArgumentError, "args[0] must be present" unless args[0]
+
+    format = args[0].to_sym
+    raise ArgumentError, "converter #{format.inspect} not found" unless DevBox.convert? format
+
+    fname = args[1]
+    raise ArgumentError, "fname must be present" unless FileShell.file? fname
+
+    content = TextShell.read fname
+
+    to_format = DevBox.converters[format][:to]
+    fname = "#{fname}.#{to_format}"
+    content = DevBox.convert format, content
+
+    TextShell.write fname, content
+  end
+
+  
+end

data/lib/dev_system/sub/shell/commands/convert_command_test.rb

@@ -0,0 +1,10 @@
+class DevSystem::ConvertCommandTest < DevSystem::SimpleCommandTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::ConvertCommand, subject_class
+    assert_equality DevSystem::ConvertCommand, subject.class
+  end
+  
+end

data/lib/dev_system/sub/shell/commands/format_command.rb

@@ -0,0 +1,25 @@
+class DevSystem::FormatCommand < DevSystem::SimpleCommand
+  
+  # liza format FORMAT FILENAME
+
+  def call_default
+    args = env[:args]
+    log :lower, "args = #{args.inspect}"
+
+    raise ArgumentError, "args[0] must be present" unless args[0]
+
+    format = args[0].to_sym
+    raise ArgumentError, "formatter #{format.inspect} not found" unless DevBox.format? format
+
+    fname = args[1]
+    raise ArgumentError, "fname must be present" unless FileShell.file? fname
+
+    content = TextShell.read fname
+
+    fname = "#{fname}.#{format}"
+    content = DevBox.format format, content
+
+    TextShell.write fname, content
+  end
+  
+end

data/lib/dev_system/sub/shell/commands/format_command_test.rb

@@ -0,0 +1,10 @@
+class DevSystem::FormatCommandTest < DevSystem::SimpleCommandTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::FormatCommand, subject_class
+    assert_equality DevSystem::FormatCommand, subject.class
+  end
+  
+end

data/lib/dev_system/sub/shell/commands/loc_command.rb

@@ -0,0 +1,211 @@
+# LocCommand is a custom LinesOfCode script using gem coderay
+
+class DevSystem::LocCommand < DevSystem::SimpleCommand
+  
+  # liza loc
+
+  def call_default
+    log "LINES OF CODE"
+    puts
+    log "TODO: write filters"
+    puts
+
+    print_top_level
+    print_liza
+    print_systems
+    print_app
+  end
+
+  # sub-methods
+  
+  def print_top_level
+    start_total
+    h1 "TOP LEVEL CONSTANTS OWNED BY LIZA"
+    h5 "lib/"
+    AppShell.consts[:top_level].each { print_class _1 }
+    print_total
+    puts
+  end
+
+  def print_liza
+    start_total
+    h1 "LIZA NAMESPACE"
+    h4 Liza
+    AppShell.consts[:liza].each do |category, klasses|
+      start_subtotal
+      h5 "lib/liza/#{category}/"
+      klasses.each { print_class _1 }
+      print_subtotal
+    end
+    print_total
+    puts
+  end
+
+  def print_systems
+    h1 "SYSTEMS"
+    AppShell.consts[:systems].each do |system_name, tree_system|
+      start_total
+      start_subtotal
+      system = tree_system["system"][0]
+
+      h4 system
+      h5 "lib/#{system_name}_system/", color: system.color
+
+      tree_system["system"].each { print_class _1 }
+      tree_system["box"].each { print_class _1 }
+      print_subtotal
+
+      if tree_system["controllers"].any?
+        start_subtotal
+        h3 "controllers"
+        tree_system["controllers"].each do |family, klasses|
+          h5 "lib/#{system_name}_system/#{family.plural}/", color: system.color
+          klasses.each { print_class _1 }
+        end
+        print_subtotal
+      end
+
+      h3 "subsystems" if tree_system["subsystems"].any?
+      print_system_sub system, system_name, tree_system
+
+      print_total
+    end
+    puts
+  end
+
+  def print_system_sub system, system_name, tree_system
+    tree_system["subsystems"].each do |subsystem, tree_subsystem|
+      h4 subsystem
+      h5 "lib/#{system_name}_system/sub/#{subsystem.singular}/", color: system.color
+
+      tree_subsystem["panel"].each { print_class _1 }
+      tree_subsystem["controller"].each { print_class _1 }
+      tree_subsystem["controllers"].each do |controller_class, klasses|
+        start_subtotal
+        h5 "lib/#{system_name}_system/sub/#{subsystem.singular}/#{controller_class.plural}/", color: system.color
+        klasses.each { print_class _1 }
+        print_subtotal
+      end
+    end
+  end
+
+  def print_app
+    if App.global?
+      h1 "TOP LEVEL CONSTANTS"
+    else
+      h1 "TOP LEVEL CONSTANTS OWNED BY THE TEAM"
+    end
+    start_total
+    AppShell.consts[:app].each do |system_name, tree_system|
+
+      system = Liza.const "#{system_name}_system"
+      h5 "app/#{system_name}_box.rb", color: system.color
+
+      tree_system["box"].each { print_class _1 }
+
+      tree_system["controllers"].each do |family, structure|
+        start_subtotal
+        structure.each do |division, klasses|
+          h5 "app/#{system_name}/#{division.plural}/", color: system.color
+          klasses.each { print_class _1 }
+        end
+        print_subtotal
+      end
+    end
+    print_total
+  end
+
+  # typography helpers
+
+  def h1 text
+    puts stick " #{ text } ".center(80, "="), :b
+  end
+
+  def h2 text, color: :white
+    puts stick " #{ text } ".center(80, "-"), :b, color
+  end
+
+  def h3 text, color: :white
+    puts
+    puts stick " #{ text } ".center(80, " "), :b, color
+  end
+
+  def h4 system
+    puts
+    s = system.to_s
+    s1 = s
+    s1 = "#{ color(system) }" if system < Liza::Unit
+    color = system.color rescue :white
+    t = s.rjust(80, " ")
+    t = "#{ stick t, :b, color }"
+    t = t.gsub(s, s1)
+    puts t
+  end
+
+  def h5 text, color: :white
+    puts
+    puts stick text.ljust(80, " "), color
+  end
+
+  # color helpers
+
+  def color klass
+    return klass unless klass < Liza::Unit
+
+    namespace, _sep, classname = klass.to_s.rpartition('::')
+
+    if namespace.empty?
+      return stick classname, Liza.const(classname).system.color
+    end
+
+    "#{
+      stick namespace, Liza.const(namespace).system.color
+    }::#{
+      stick classname, Liza.const(classname).color
+    }"
+  end
+
+  # total helpers
+
+  def start_total
+    @total_loc = 0
+  end
+
+  def start_subtotal
+    @subtotal_loc = 0
+  end
+
+  def print_subtotal
+    puts stick :b, :silver, "#{@subtotal_loc.to_s.rjust 5} TOTAL-ISH"
+    puts
+  end
+
+  def print_total
+    puts stick :b, :silver, "#{@total_loc.to_s.rjust 5} TOTAL"
+  end
+
+  # class helpers
+
+  def print_class klass
+    text, loc = read_loc klass
+    
+    @total_loc += loc
+    @subtotal_loc += loc if defined? @subtotal_loc
+
+    puts "#{loc.to_s.rjust 5} LINES #{ (color klass) rescue klass }"
+  end
+
+  # loc helpers
+  
+  def read_loc(klass)
+    require "coderay"
+
+    fname = klass.source_location[0]
+    fname = fname.sub "/version", "" if klass == Lizarb # this is a hack :)
+    text  = TextShell.read(fname, log_level: :lower)
+    loc   = CodeRay.scan(text, :ruby).loc
+
+    [text, loc]
+  end
+
+end

data/lib/dev_system/sub/shell/commands/loc_command_test.rb

@@ -0,0 +1,10 @@
+class DevSystem::LocCommandTest < DevSystem::SimpleCommandTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality DevSystem::LocCommand, subject_class
+    assert_equality DevSystem::LocCommand, subject.class
+  end
+  
+end

data/lib/dev_system/sub/shell/commands/shell_command.rb

@@ -0,0 +1,45 @@
+class DevSystem::ShellCommand < DevSystem::Command
+
+  def call args
+    puts
+    puts "Liza         #{ Liza.source_location[0] }"
+    puts "App.folder   #{ App.folder }"
+    puts "App.root     #{ App.root }/"
+    puts "App.path     #{ App.path }/"
+    puts
+
+    largest_system_name = AppShell.consts[:systems].keys.map(&:to_s).map(&:size).max
+
+    AppShell.consts[:systems].each do |system_name, tree_system|
+      system = tree_system["system"][0]
+      length = largest_system_name + 6
+
+      puts "#{ 
+        "#{system.to_s}"
+          .ljust(length)
+          .sub(system.to_s, color(system).to_s)
+       } #{ system.source_location[0] }"
+    end
+
+    puts
+  end
+
+  # color helpers
+
+  def color klass
+    return klass unless klass < Liza::Unit
+
+    namespace, _sep, classname = klass.to_s.rpartition('::')
+
+    if namespace.empty?
+      return stick classname, Liza.const(classname).system.color
+    end
+
+    "#{
+      stick namespace, Liza.const(namespace).system.color
+    }::#{
+      stick classname, Liza.const(classname).color
+    }"
+  end
+
+end