lizarb 1.0.4 → 1.0.6

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,28 @@
+class LabSystem::LizaKrokiClientTest < LabSystem::KrokiClientTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::LizaKrokiClient
+  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,67 @@
+class LabSystem::DockerCommand < DevSystem::SimpleCommand
+
+  # liza docker
+
+  def call_default
+    log "args = #{args.inspect}"
+
+    log "not implemented"
+  end
+
+  # liza docker:install
+
+  def call_install
+    DockerInstallerShell.call(env)
+  end
+
+  # liza docker:kroki
+
+  def call_kroki
+    KrokiDockerShell.start_blocking_server
+  end
+
+  # liza docker:hello
+
+  def call_hello
+    t = Time.now
+    log "args = #{args.inspect}"
+
+    DockerShell.hello_alpine
+  ensure
+    log "#{t.diff} | done"
+  end
+
+  # liza docker:version
+
+  def call_version
+    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,7 @@
+class LabSystem::DockerCommandTest < DevSystem::SimpleCommandTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::DockerCommand
+  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

data/lib/lab_system/lab_system_test.rb

@@ -0,0 +1,3 @@
+class LabSystem::LabSystemTest < Liza::SystemTest
+
+end

data/lib/lab_system/requests/kroki_request.rb

@@ -0,0 +1,182 @@
+class LabSystem::KrokiRequest < WebSystem::SimpleRequest
+
+  def call_index
+    @kroki_clients = []
+
+    @kroki_clients << KrokiClient.new_plantuml(:ab, :svg)
+    @kroki_clients << KrokiClient.new_nomnoml(:ab, :svg)
+
+    @kroki_clients.map &:call
+  end
+  
+  #
+
+  def call_plantuml
+    @kroki_clients = []
+    
+    @kroki_clients << KrokiClient.new_plantuml(:ab, :svg)
+
+    @kroki_clients.map &:call
+  end
+  
+  #
+
+  def call_nomnoml
+    @kroki_clients = []
+
+    @kroki_clients << KrokiClient.new_nomnoml(:ab, :svg)
+
+    @kroki_clients.map &:call
+  end
+  
+  #
+  
+  def call_plantuml_liza
+    @kroki_clients = []
+
+    Lizarb.loaders.map &:eager_load
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = Unit.subclasses.sort { _1.name <=> _2.name }.reverse
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Liza::System]
+      @systems_in_objects = [DevSystem, NetSystem, WebSystem]
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Liza::System]
+      @systems_in_objects = [HappySystem, LabSystem]
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Liza::System]
+      @systems_in_objects = App.systems.values
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Box]
+      @boxes = [DevBox]
+      @subs = []
+      @objects = []
+      @systems = (@boxes+@subs+@objects).map(&:system).uniq
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Box]
+      @boxes = [DevBox, NetBox, WebBox]
+      @subs = []
+      @objects = []
+      @systems = (@boxes+@subs+@objects).map(&:system).uniq
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Panel, Controller]
+      @subs = [Command, Shell]
+      @objects = []
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = []
+      @objects = App.systems.values.map { _1.box.panels.values.map(&:division) }.flatten
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    # NetSystem
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = []
+      @objects = [Command, Database, Client, DatabaseCommand, *Database.descendants, *Client.descendants]
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    # WebSystem
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = [Command, WebSystem::Rack]
+      @objects = [RackCommand, MiddleRack, ServerRack, *MiddleRack.subclasses, *ServerRack.subclasses]
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    @kroki_clients << LizaKrokiClient.new_plantuml(:liza_1, :svg) {
+      @units = [Controller]
+      @subs = []
+      @objects = [Command, Request, RequestCommand, *Request.descendants]
+      @systems = (@subs+@objects).map(&:system).uniq
+    }
+
+    @kroki_clients.map &:call
+  end
+
+end
+
+__END__
+
+# view index.html.erb
+<%= render :shared %>
+
+# view plantuml.html.erb
+<%= render :shared %>
+
+# view plantuml_liza.html.erb
+<%= render :shared %>
+
+# view nomnoml.html.erb
+<%= render :shared %>
+
+# view shared.html.erb
+<%= render :header %>
+
+<style>
+td {
+  border: 1px dashed black;
+  vertical-align: top;
+}
+td svg {
+  text-align: center;
+}
+td code {
+  text-align: left;
+}
+</style>
+
+<h3>plantuml</h3>
+
+<table>
+<tr>
+  <td>
+    template
+  </td>
+  <td>
+    code
+  </td>
+  <td>
+    SVG
+  </td>
+</tr>
+
+<% @kroki_clients.each do |kroki| %>
+<tr>
+  <td>
+    <%= kroki.action %>
+  </td>
+  <td style="min-width: 700px">
+    <code>
+    <%= kroki.code.gsub "\n", "<br/>" %>
+    </code>
+  </td>
+  <td>
+    <%= kroki.result %>
+  </td>
+</tr>
+<% end %>
+
+</table>
+
+# view header.html.erb
+
+<h1>KrokiClient</h1>
+<a href="/kroki">/kroki</a> |
+
+<a href="/kroki/plantuml">/kroki/plantuml</a> |
+<a href="/kroki/plantuml_liza">/kroki/plantuml_liza</a> |
+<a href="/kroki/nomnoml">/kroki/nomnoml</a>
+<hr/>

data/lib/lab_system/requests/kroki_request_test.rb

@@ -0,0 +1,7 @@
+class LabSystem::KrokiRequestTest < WebSystem::SimpleRequestTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::KrokiRequest
+  end
+
+end

data/lib/lab_system/shells/docker_installer_shell.rb

@@ -0,0 +1,69 @@
+class LabSystem::DockerInstallerShell < DevSystem::Shell
+  
+  # LabSystem::DockerInstallerShell.call({})
+  # LabSystem::DockerInstallerShell.call(env)
+  
+  def self.call(env)
+    raise "Not implemented for #{ os }" unless linux?
+    super(env)
+
+    log stick system.color, "Install Docker ".ljust(80, "-")
+
+    if is_installed?
+      log "Docker is already installed"
+      return
+    else
+      log "Docker is not installed"
+    end
+    
+    docker_keyring_path = "/usr/share/keyrings/docker-archive-keyring.gpg"
+    docker_list_path = "/etc/apt/sources.list.d/docker.list"
+
+    if FileShell.exist? docker_keyring_path
+      log "The stable repository is already added"
+    else
+      log "Add Docker’s official GPG key"
+      sh "curl -fsSL https://download.docker.com/linux/ubuntu/gpg | sudo gpg --dearmor -o #{docker_keyring_path}"
+    end
+  
+    if FileShell.exist? docker_list_path
+      log "The stable repository is already added"
+    else
+      log "Add the stable repository"
+      sh "echo \"deb [arch=$(dpkg --print-architecture) signed-by=#{docker_keyring_path}] https://download.docker.com/linux/ubuntu $(lsb_release -cs) stable\" | sudo tee #{ docker_list_path } > /dev/null"
+    end
+
+    log "Update them packages"
+    sh "sudo apt-get update"
+
+    log "Install Docker"
+    sh "sudo apt install docker-ce docker-ce-cli containerd.io -y"
+
+    log "Add your user to the docker group"
+    sh "sudo usermod -aG docker $USER"
+
+    log "Start and enable the Docker service"
+    sh "sudo systemctl start docker"
+    sh "sudo systemctl enable docker"
+
+    if is_installed?
+      log "Docker is installed!"
+    else
+      log "Docker has not been installed"
+      return
+    end
+
+    log "testing docker with hello-world"
+    sh "sudo docker run hello-world"
+  end if linux?
+
+  def self.is_installed?
+    log "Checking Docker version"
+    sh "sudo docker --version"
+  end
+  
+  def self.sh(s)
+    KernelShell.call_system s
+  end
+
+end

data/lib/lab_system/shells/docker_installer_shell_test.rb

@@ -0,0 +1,12 @@
+class LabSystem::DockerInstallerShellTest < DevSystem::ShellTest
+  
+  # 
+
+  test :subject_class, :subject do
+    assert_equality LabSystem::DockerInstallerShell, subject_class
+    assert_equality LabSystem::DockerInstallerShell, subject.class
+  end
+  
+  # 
+
+end

data/lib/lab_system/shells/kroki_docker_shell.rb

@@ -0,0 +1,20 @@
+class LabSystem::KrokiDockerShell < DevSystem::Shell
+
+  #
+
+  set :port, 9001
+
+  def self.url
+    "http://localhost:#{get :port}"
+  end
+
+  def self.start_blocking_server
+    log "You can visit #{url} for your kroki server"
+
+    port = get :port
+    KernelShell.call_backticks "docker run -p#{port}:8000 yuzutech/kroki"
+
+    true
+  end
+
+end

data/lib/lab_system/shells/kroki_docker_shell_test.rb

@@ -0,0 +1,7 @@
+class LabSystem::KrokiDockerShellTest < DevSystem::ShellTest
+
+  test :subject_class do
+    assert_equality subject_class, LabSystem::KrokiDockerShell
+  end
+
+end

data/lib/lab_system/soft_shells/docker_soft_shell.rb

@@ -0,0 +1,60 @@
+class LabSystem::DockerSoftShell < DevSystem::SoftShell
+
+  #
+
+  def self.hello_world
+    KernelShell.call_system "sudo docker run hello-world"
+
+    true
+  end
+
+  # 
+
+  def self.hello_alpine
+    KernelShell.call_system "sudo docker run alpine echo 'hello world'"
+
+    true
+  end
+
+  # 
+
+  def self.version
+    output = KernelShell.call_backticks "sudo docker version"
+    parse_version output
+  end
+
+  def self.parse_version output
+    h = {}
+    current_section = current_sub = nil
+    
+    output.each_line do |line|
+      line = line.strip
+      next if line.empty?
+
+      if line.start_with?("Client:")
+
+        name = line.split(":", 2).last.strip
+        current_section = h["Client"] = {"Name" => name}
+        current_sub = current_section
+
+      elsif line.start_with?("Server:")
+        name = line.split(":", 2).last.strip
+        current_section = h["Server"] = {"Name" => name}
+
+      elsif current_section
+
+        if line.end_with?(":")
+          key = line.chomp(":")
+          current_sub = current_section[key] = {}
+        elsif line.include?(":")
+          key, value = line.split(":", 2).map(&:strip)
+          current_sub[key] = value
+        end
+
+      end
+    end
+
+    h
+  end
+
+end