lizarb 1.0.3 → 1.0.5

data/lib/happy_system/sub/axo/generators/axo_generator.rb

@@ -0,0 +1,79 @@
+class HappySystem::AxoGenerator < DevSystem::SimpleGenerator
+
+  # liza g axo name place=app
+
+  def call_default
+    @controller_class = Axo
+
+    name!
+    place!
+
+    @description = TtyInputCommand.prompt.ask("Do you want to add a description?", default: "No description")
+
+    @args = command.simple_args[1..-1]
+
+    create_controller @name, @controller_class, @place, @path do |unit, test|
+      unit.section :controller_section_1, caption: ""
+      test.section :controller_test_section_1, caption: ""
+    end
+  end
+  
+end
+
+__END__
+
+# view controller_section_1.rb.erb
+
+  set :description, <%= @description.inspect %>
+
+  # liza axo <%= @name %> 2 2
+  def call(args)
+    cycles = args[0] || "3"
+    sleep_time = args[1] || "3"
+
+    cycles = cycles.to_i
+    sleep_time = sleep_time.to_f / 10
+
+    array = <<-HEREDOC.split("\n")
+              >(.___.)<
+               >(.__.)<
+               >(.___.)<    code
+                >(.__.)<    code to
+                >(.___.)<   code to the
+                 >(.__.)<   code to the right
+                 >(.___.)<  code to the right
+                 >(.__.)<
+code                >(.___.)<
+code to             >(.__.)<
+code to the        >(.___.)<
+code to the left   >(.__.)<
+code to the left  >(.___.)<
+              >(.__.)<
+HEREDOC
+
+    cycles.times do |i|
+      array.each_with_index do |s, j|
+        KernelShell.call_system "clear"
+
+        puts "Axo v0"
+        puts "frame: #{j}/#{array.size}"
+        puts "cycle: #{i}/#{cycles} (#{sleep_time}spf)"
+        puts
+        puts
+        puts "   #{stick s, :bold, :light_white}"
+        puts
+
+        sleep sleep_time
+      end
+    end
+
+    puts stick "That was actually quite a nice workout session!", :black, :white
+    puts stick "        We should do this again some time.     ", :black, :white
+
+  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/happy_system/sub/axo/generators/axo_generator_test.rb

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

data/lib/happy_system.rb

@@ -1,12 +1,14 @@
 # frozen_string_literal: true
 
 class HappySystem < Liza::System
-  class Error < StandardError; end
+  class Error < Error; end
   # Your code goes here...
 
   #
 
-  set :log_color, :magenta
+  color :coral
+
+  sub :axo
 
   #
 end

data/lib/lab_system/clients/kroki_client.rb

@@ -0,0 +1,134 @@
+class LabSystem::KrokiClient < NetSystem::Client
+
+  # 
+
+  def self.call(name, action, output_format, &block)
+    new(name, action, output_format, &block).call
+  end
+
+  # diagrams
+
+  def self.diagrams
+    fetch(:diagrams) { {} }
+  end
+
+  def self.diagram name, endpoint, *formats
+    diagrams[name] = {endpoint:, formats:}
+
+    define_singleton_method name do |action, format, &block|
+      call(name, action, format, &block)
+    end
+
+    define_singleton_method "new_#{name}" do |action, format, &block|
+      new(name, action, format, &block)
+    end
+  end
+
+  # define diagrams
+
+  # TODO: https://kroki.io/#support
+
+  # diagram :key, "/api", :png, :svg, :jpeg, :pdf, :txt, :base64
+  diagram :plantuml, "/plantuml", :svg
+  diagram :nomnoml, "/nomnoml", :svg
+
+  #
+
+  attr_reader :name, :action, :format, :result, :code, :cache_key
+
+  def initialize(name, action, format, &block)
+    @name = name
+    @render_format = name
+    @action = action
+    @format = format
+    @result = nil
+    instance_exec(&block) if block_given?
+  end
+
+  #
+
+  def call
+    t = Time.now
+    log "Calling #{endpoint} with #{action}.#{name}"
+
+    render_code!
+    read_cache!
+
+    return @result if @result
+
+    http_request!
+    write_cache!
+
+    @result
+  ensure
+    log "#{t.diff}s to render #{action.inspect}"
+    @result
+  end
+
+  #
+
+  def endpoint
+    self.class.diagrams[name][:endpoint]
+  end
+
+  def url
+    "#{KrokiDockerShell.url}#{endpoint}"
+  end
+
+  #
+
+  def render_code!
+    @code = render! @action
+    require "digest/md5"
+    @code_md5 = Digest::MD5.hexdigest(@code)
+  end
+
+  def read_cache!
+    raise "must be called after render_code!" unless @code_md5
+    @cache_key = "tmp/#{App.mode}/clients/kokri/#{action}_#{@code_md5}.#{format}"
+    log "cache_key = #{@cache_key.inspect}"
+    @result = TextShell.read @cache_key if TextShell.exist? @cache_key
+  end
+
+  def write_cache!
+    TextShell.write @cache_key, result
+    cache_key = "tmp/#{App.mode}/clients/kokri/#{action}_#{@code_md5}.#{name}"
+    TextShell.write cache_key, @code
+  end
+
+  def http_request!
+    require "net/http"
+    require "json"
+    t = Time.now
+    
+    request_uri = URI(url)
+    request_headers = {'Content-Type' => 'application/json'}
+    request_body = {diagram_source: code, output_format: format}.to_json
+    log "POST #{request_uri} #{request_headers.count} headers and #{request_body.size} bytes of data."
+    @response = Net::HTTP.post(request_uri, request_body, request_headers)
+
+    if @response.code == '200'
+      @result = @response.body
+    else
+      puts "---- HTTP #{@response.code} ----"
+      puts @response.body
+      puts "----"
+      raise "Error calling Kroki API. HTTP Status Code: #{@response.code}"
+    end
+  ensure
+    log "#{t.diff}s to request #{request_uri}"
+  end
+
+end
+
+__END__
+
+# view ab.plantuml.erb
+
+@startuml
+A <|.. B
+@enduml
+
+# view ab.nomnoml.erb
+
+[A]<:-[B]

data/lib/lab_system/clients/kroki_client_test.rb

@@ -0,0 +1,32 @@
+class LabSystem::KrokiClientTest < NetSystem::ClientTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::KrokiClient
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+  #
+
+  test :call do
+    result = subject_class.call(:nomnoml, :ab, :svg)
+    assert result.start_with? "<svg"
+  end
+
+  #
+
+  test :nomnoml do
+    result = subject_class.nomnoml(:ab, :svg)
+    assert result.start_with? "<svg"
+  end
+
+  test :plantuml do
+    result = subject_class.plantuml(:ab, :svg)
+    unless assert result.start_with? %|<?xml version="1.0" encoding="us-ascii" standalone="no"?><svg|
+      puts result
+    end
+  end
+
+end

data/lib/lab_system/clients/liza_kroki_client.rb

@@ -0,0 +1,176 @@
+class LabSystem::LizaKrokiClient < LabSystem::KrokiClient
+
+  def puml
+    @puml ||= PlantumlHelper.new
+  end
+
+  class PlantumlHelper
+    def unit_type_for klass
+      case klass.last_namespace
+      when "Test"
+        "safety"
+      when "Box", "Part", "System"
+        "meta"
+      when "Panel", "Controller"
+        "base"
+      else
+        "other"
+      end
+    end
+
+    def name_for klass
+      return "Liza.Unit" if klass == Liza::Unit
+      if klass.first_namespace == "Liza"
+        return "Liza.#{unit_type_for klass}.#{klass.last_namespace}"
+      end
+
+      klass = "Object::#{klass}" unless klass.to_s.include? "::"
+      klass.to_s.gsub "::", "."
+    end
+
+    def package_object
+      "package Object #ffffff;text:000000;line.bold;line:black"
+    end
+
+    def package_system_in_object system, color
+      "package #{ name_for system } #{ color };line.bold;line:black;text:black"
+    end
+
+    def package_system system, color
+      "package #{ system } #{ color };line.bold;line:black;text:black"
+    end
+
+    def package_box box, color
+      %|node #{ name_for box } as "#{ box.last_namespace }" #{ color };line.bold;line:black;text:black|
+    end
+
+    def rectangle_unit_type unit_type
+      %|rectangle Liza.#{ unit_type } as "#{ unit_type } units" #ffffff;text:000000;line.bold;line:black|
+    end
+
+    def inheritance klass
+      association klass.superclass, klass, "<|-down--"
+    end
+
+    def association a, b, arrow
+      %(#{ name_for a } #{arrow} #{ name_for b })
+    end
+  end
+
+end
+
+__END__
+
+# view liza_1.plantuml.erb
+
+@startuml
+top to bottom direction
+skinparam groupInheritance 2
+
+<style>
+document {
+  BackgroundColor white
+}
+package {
+  
+}
+componentDiagram {
+  
+}
+classDiagram {
+  rectangle {
+  }
+  package {
+  }
+  node {
+    FontStyle bold
+  }
+  hexagon {
+    FontStyle bold
+  }
+  class {
+      header {
+        FontSize 14
+        FontStyle bold
+      }
+  }
+}
+</style>
+
+<%= render! :units %>
+<%= render! :systems_in_objects %>
+<%= render! :systems %>
+<%= render! :boxes %>
+<%= render! :subs %>
+<%= render! :objects %>
+
+@enduml
+
+# view units.plantuml.erb
+<% unit_types = @units.map { puml.unit_type_for _1 }.uniq -%>
+'unit_type'
+<% unit_types.each do |unit_type| -%>
+<%= puml.rectangle_unit_type unit_type %> {
+}
+<% end -%>
+'units'
+<% @units.each do |unit| -%>
+<%= puml.inheritance unit %>
+<% end -%>
+
+# view systems_in_objects.plantuml.erb
+'systems in objects'
+<% Array(@systems_in_objects).each do |system| -%>
+<% color = ColorShell.rgb_to_str system.color -%>
+<%= puml.package_system_in_object system, color %> {
+}
+<% end.each do |system| -%>
+<%= puml.inheritance system %>
+<% end -%>
+
+# view systems.plantuml.erb
+'systems'
+<% Array(@systems).each do |system| -%>
+  <% color = ColorShell.rgb_to_str system.color -%>
+  <%= puml.package_system system, color %> {
+  }
+<% end -%>
+
+# view boxes.plantuml.erb
+'boxes'
+<% Array(@boxes).each do |box| -%>
+  <% color = ColorShell.rgb_to_str box.system.color -%>
+  <%= puml.package_box box.superclass, color %> {
+  }
+  <%= puml.package_box box, color %> {
+  }
+  <%= puml.inheritance box.superclass %>
+  <%= puml.inheritance box %>
+<% end -%>
+
+# view subs.plantuml.erb
+'subs'
+<% Array(@subs).each do |controller| -%>
+  <% color = ColorShell.rgb_to_str controller.division.system.color -%>
+  <% panel = controller.panel.class -%>
+  <%= puml.inheritance panel %>
+  <%= puml.inheritance controller %>
+
+  hexagon <%= puml.name_for panel %> <%= color %>;text:000000;line.bold; {
+  }
+  class <%= puml.name_for controller %> <%= color %>;text:000000;line.bold; {
+    a hierarchy of <%= controller.plural %>
+  }
+<% end -%>
+
+# view objects.plantuml.erb
+'objects'
+<%= puml.package_object %> {
+}
+<% Array(@objects).each do |controller| -%>
+  <% color = ColorShell.rgb_to_str controller.division.system.color %>
+  class <%= puml.name_for controller %> <%= color %>;text:000000;line.bold; {
+    <%= "division #{controller.plural}" if controller.division? %>
+  }
+  <%= puml.inheritance controller %>
+<% end -%>

data/lib/lab_system/clients/liza_kroki_client_test.rb

@@ -0,0 +1,32 @@
+class LabSystem::LizaKrokiClientTest < LabSystem::KrokiClientTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::LizaKrokiClient
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+  #
+
+  test :call do
+    result = subject_class.call(:nomnoml, :ab, :svg)
+    assert result.start_with? "<svg"
+  end
+
+  #
+
+  test :nomnoml do
+    result = subject_class.nomnoml(:ab, :svg)
+    assert result.start_with? "<svg"
+  end
+
+  test :plantuml do
+    result = subject_class.plantuml(:ab, :svg)
+    unless assert result.start_with? %|<?xml version="1.0" encoding="us-ascii" standalone="no"?><svg|
+      puts result
+    end
+  end
+
+end

data/lib/lab_system/commands/docker_command.rb

@@ -0,0 +1,61 @@
+class LabSystem::DockerCommand < DevSystem::Command
+
+  # liza docker
+
+  def self.call args
+    log "args = #{args.inspect}"
+
+    log "not implemented"
+  end
+
+  # liza docker:kroki
+
+  def self.kroki args
+    KrokiDockerShell.start_blocking_server
+  end
+
+  # liza docker:hello
+
+  def self.hello args
+    t = Time.now
+    log "args = #{args.inspect}"
+
+    DockerShell.alpine_hello
+  ensure
+    log "#{t.diff} | done"
+  end
+
+  # liza docker:version
+
+  def self.version args
+    log "args = #{args.inspect}"
+
+    h = DockerShell.version
+
+    log "h.keys = #{h.keys.inspect}"
+
+    puts
+
+    log "Client"
+
+    log_hash h["Client"]
+
+    puts
+
+    log "Server"
+    log "Name = #{h["Server"]["Name"]}"
+    puts
+    log "Engine"
+    log_hash h["Server"]["Engine"]
+    puts
+    log "containerd"
+    log_hash h["Server"]["containerd"]
+    puts
+    log "runc"
+    log_hash h["Server"]["runc"]
+    puts
+    log "docker-init"
+    log_hash h["Server"]["docker-init"]
+  end
+
+end

data/lib/lab_system/commands/docker_command_test.rb

@@ -0,0 +1,11 @@
+class LabSystem::DockerCommandTest < DevSystem::CommandTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::DockerCommand
+  end
+
+  test :settings do
+    assert_equality subject_class.log_level, 0
+  end
+
+end

data/lib/lab_system/lab_box.rb

@@ -0,0 +1,5 @@
+class LabSystem::LabBox < Liza::Box
+  
+  #
+
+end

data/lib/lab_system/lab_box_test.rb

@@ -0,0 +1,8 @@
+class LabSystem::LabBoxTest < Liza::BoxTest
+  
+  test :subject_class, :subject do
+    assert_equality LabSystem::LabBox, subject_class
+    assert_equality LabSystem::LabBox, subject.class
+  end
+
+end