lizarb 1.0.4 → 1.0.6

data/lib/lizarb/ruby/class.rb

@@ -1,17 +0,0 @@
-# frozen_string_literal: true
-
-class Class
-  public :eval
-
-  def descendants
-    ObjectSpace.each_object(Class).select { |klass| klass < self }
-  end
-
-  def first_namespace
-    name.rpartition('::')[0]
-  end
-
-  def last_namespace
-    name.rpartition('::')[-1]
-  end
-end

data/lib/lizarb/ruby/module.rb

@@ -1,17 +0,0 @@
-# frozen_string_literal: true
-
-class Module
-
-  # /path/to/liza.rb
-  def source_location
-    Array Object.const_source_location name
-  end
-
-  # /path/to/liza
-  def source_location_radical
-    source_location[0][0..-4]
-  rescue
-    nil
-  end
-
-end

data/lib/lizarb/ruby/proc.rb

@@ -1,12 +0,0 @@
-# frozen_string_literal: true
-
-class Proc
-  def relative_source
-    absolute_source.gsub "#{Lizarb::APP_DIR}/", ""
-  end
-
-  def absolute_source
-    sl = source_location
-    "#{sl[0]}:#{sl[1]}"
-  end
-end

data/lib/lizarb/ruby/string.rb

@@ -1,33 +0,0 @@
-# frozen_string_literal: true
-
-class String
-  alias lpartition partition
-
-  def camelcase
-    split("_").map { |s| "#{s[0].to_s.upcase}#{s[1..-1]}" }.join("")
-  end
-
-  alias camelize camelcase
-
-  def snakecase
-    gsub(/[A-Z\s-]/) { |s, t| "_#{s}" }[1..-1].to_s.downcase
-  end
-  
-  alias snakefy snakecase
-
-  def rjust_blanks length
-    rjust length, " "
-  end
-
-  def rjust_zeroes length
-    rjust length, "0"
-  end
-
-  def ljust_blanks length
-    ljust length, " "
-  end
-
-  def ljust_zeroes length
-    ljust length, "0"
-  end
-end

data/lib/lizarb/ruby/time.rb

@@ -1,9 +0,0 @@
-# frozen_string_literal: true
-
-class Time
-  def diff digits = 4
-    f = (self.class.now.to_f - to_f).floor(digits)
-    u, d = f.to_s.split "."
-    "#{u}.#{d.ljust digits, "0"}"
-  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/controllers/client/redis_client.rb

@@ -1,26 +0,0 @@
-class NetSystem::RedisClient < NetSystem::Client
-
-  # https://redis.io/
-  # https://github.com/redis/redis-rb
-  def initialize *args
-    args = [url: NetBox[:client].get(:redis_url)] if args.empty?
-    log "Connecting to #{args}"
-    @conn = Redis.new(*args)
-  end
-
-  attr_reader :conn
-
-  def call cmd_name, *args
-    t = Time.now
-    result = @conn.send cmd_name, *args
-
-    result
-  ensure
-    log "#{t.diff}s | #{cmd_name} | #{args}"
-  end
-
-  def now
-    call :time
-  end
-
-end

data/lib/net_system/net/controllers/record.rb

@@ -1,29 +0,0 @@
-class NetSystem::Record < Liza::Controller
-
-  def self.inherited sub
-    super
-
-    return if sub.name.nil?
-    return if sub.name.end_with? "Record"
-    raise "please rename #{sub.name} to #{sub.name}Record"
-  end
-
-  def self.db database_id = nil
-    if database_id.nil?
-      db = get :db
-      if db
-        NetBox[:database].get(db)
-      else
-        raise "please set a db to record #{self}"
-      end
-    else
-      valid = NetBox[:database].settings.keys
-      if valid.include? database_id
-        set :db, database_id
-      else
-        raise "invalid db `#{database_id}`, valid options are #{valid}"
-      end
-    end
-  end
-
-end

data/lib/net_system/net/controllers/record_test.rb

@@ -1,12 +0,0 @@
-class NetSystem::RecordTest < Liza::ControllerTest
-
-  test :subject_class do
-    assert subject_class == NetSystem::Record
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :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

data/lib/net_system/net/panels/database_panel.rb

@@ -1,10 +0,0 @@
-class NetSystem::DatabasePanel < Liza::Panel
-
-  def define key, instance
-    set key, instance
-    define_singleton_method key do
-      get key
-    end
-  end
-
-end

data/lib/net_system/net/panels/database_panel_test.rb

@@ -1,16 +0,0 @@
-class NetSystem::DatabasePanelTest < Liza::PanelTest
-
-  test :subject_class do
-    assert subject_class == NetSystem::DatabasePanel
-  end
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :red
-  end
-
-  # test :call do
-  #   todo "write this"
-  # end
-
-end

data/lib/web_system/dev/request_command.rb

@@ -1,129 +0,0 @@
-class WebSystem::RequestCommand < Liza::Command
-
-  VALID_ACTIONS = %w[find get post]
-
-  def call(args)
-    log "args = #{args.inspect}"
-
-    @command = args.shift
-    @args = args
-    
-    return help unless VALID_ACTIONS.include? @command
-    perform
-  rescue StandardError => error
-    @error = error
-    handle
-  end
-
-  def perform
-    case @command
-    when "find"
-      find
-    when "get"
-      get_request
-    when "post"
-      post_request
-    end
-  end
-
-  def handle
-    log render "error.txt"
-  end
-
-  def help
-    log render "help.txt"
-  end
-
-  # actions
-
-  def find
-    path = @args.first
-
-    @env = {}
-    @env["REQUEST_PATH"] = path
-
-    request_panel.find @env
-
-    @request_class = @env["LIZA_REQUEST_CLASS"] || raise("No request class found")
-
-    puts render "find.txt"
-  end
-
-  def get_request
-    path = @args.first
-    
-    @env = {}
-    @env["REQUEST_METHOD"] = "GET"
-    @env["REQUEST_PATH"]   = path
-
-    @status, @headers, @body = request_panel.call @env
-    log "STATUS #{@status} with #{@headers.count} headers and a #{@body.first.size} byte body"
-    puts render "response.http"
-  end
-
-  def post_request
-    path = @args.first
-    
-    @env = {}
-    @env["REQUEST_METHOD"] = "POST"
-    @env["REQUEST_PATH"]   = path
-
-    @status, @headers, @body = request_panel.call @env
-    log "STATUS #{@status} with #{@headers.count} headers and a #{@body.first.size} byte body"
-    puts render "response.http"
-  end
-
-  # helpers
-
-  def request_panel
-    @request_panel ||= WebBox[:request]
-  end
-end
-
-__END__
-
-# view success.txt.erb
-
-RESULT:
-
-class      <%= @result.class %>
-value      <%= @result %>
-
-# view error.txt.erb
-
-ERROR:
-
-class      <%= @error.class %>
-message    <%= @error.message %>
-backtrace  <%= @error.backtrace.select { |s| @stop = true if s.include?("/exe/lizarb:"); !defined? @stop }.join "\n           " %>
-
-# view help.txt.erb
-
-USAGE:
-
-liza request find /path/to/action.format
-liza request get /path/to/action.format
-liza request post /path/to/action.format
-
-# view find.txt.erb
-
-ENV:
-<% @env.each do |k, v| %>
-env["<%= k %>"] = <%= v.inspect -%>
-<% end %>
-
-REQUEST CLASS:
-
-# <%= @request_class.source_location.join ":" %>
-class <%= @request_class %> < <%= @request_class.superclass %>
-  # ...
-end
-
-# view response.http.erb
-
-<%= @status %>
-<% @headers.each do |k, v| -%>
-<%= k %>: <%= v %>
-<% end -%>
-
-<%= @body.first %>

data/lib/web_system/dev/web_command.rb

@@ -1,9 +0,0 @@
-class WebSystem::WebCommand < Liza::Command
-
-  def self.call args
-    log "args #{args}"
-    log "DEPRECATED: please use `lizarb rack` instead"
-    RackCommand.call args
-  end
-
-end

data/lib/web_system/web/controllers/rack.rb

@@ -1,6 +0,0 @@
-class WebSystem::Rack < Liza::Controller
-
-  # def self.call rack_app, host, port
-  # end
-
-end

data/lib/web_system/web/panels/rack_panel.rb

@@ -1,42 +0,0 @@
-class WebSystem::RackPanel < Liza::Panel
-
-  def call strategy, host, port
-    puts
-    log({strategy:, host:, port:})
-
-    strategy ||= get :strategy
-    host ||= get :host
-    port ||= 3000
-    files ||= get :files
-
-    log({strategy:, host:, port:})
-
-    x = App.mode == :code ? "development" : "production"
-    ENV["RACK_ENV"] = x
-    rack_app = send "get_rack_app_#{x}"
-
-    rack_files = Object::Rack::Files.new files
-    rack_app = Object::Rack::Cascade.new [rack_files, rack_app]
-
-    # TODO: PumaRack
-    # handler = Liza.const(:"#{strategy}_rack")
-
-    require "rack/handler/puma"
-    handler = Object::Rack::Handler::Puma
-    handler.run rack_app, Host: host, Port: port
-  end
-
-  def get_rack_app_production()= WebBox[:request]
-
-  def get_rack_app_development
-    Proc.new do |env|
-      ret = nil
-      App.reload do
-        log "reloading"
-        ret = get_rack_app_production.call env
-      end
-      ret
-    end
-  end
-
-end

data/lib/web_system/web/panels/rack_panel_test.rb

@@ -1,12 +0,0 @@
-class WebSystem::RackPanelTest < Liza::PanelTest
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :blue
-  end
-
-  # test :call do
-  #   todo "write this"
-  # end
-
-end

data/lib/web_system/web/panels/request_panel.rb

@@ -1,70 +0,0 @@
-class WebSystem::RequestPanel < Liza::Panel
-
-  def call env
-    t = Time.now
-    request_klass = find env
-    ret = request_klass.call env
-    _html_beautify env, ret
-    ret
-  rescue => e
-    request_klass = WebSystem::ServerErrorRequest
-    env["LIZA_ERROR"] = e
-
-    ret = request_klass.call env
-  ensure
-    log "#{ret[0]} with #{ret[2].first.size} bytes in #{t.diff}s"
-    puts
-    ret
-  end
-
-  #
-
-  def find env
-    _prepare env
-
-    segments = env["LIZA_SEGMENTS"].dup
-    request = segments.shift || "root"
-    action  = segments.shift || "index"
-
-    env["LIZA_REQUEST"] = request
-    env["LIZA_ACTION"] = action
-    format = env["LIZA_FORMAT"]
-
-    log({request:, action:, format:})
-
-    env["LIZA_REQUEST_CLASS"] = _find_request_class request
-  end
-
-  def _find_request_class request
-    Liza.const "#{request}_request"
-  rescue NameError
-    WebSystem::NotFoundRequest
-  end
-
-  #
-
-  def _html_beautify env, ret
-    return unless defined? HtmlBeautifier
-    return unless env["LIZA_FORMAT"] == "html"
-
-    body = ret[2].first
-    body = HtmlBeautifier.beautify body
-    ret[2] = [body]
-  end
-
-  def _prepare env
-    log "#{env["REQUEST_METHOD"]} #{env["REQUEST_PATH"]}"
-
-    path = env["REQUEST_PATH"]
-
-    path, _sep, format = path.lpartition "."
-    format = "html" if format.empty?
-
-    segments = Array path.split("/")[1..-1]
-
-    env["LIZA_PATH"]     = path
-    env["LIZA_FORMAT"]   = format
-    env["LIZA_SEGMENTS"] = segments
-  end
-
-end

data/lib/web_system/web/panels/request_panel_test.rb

@@ -1,33 +0,0 @@
-class WebSystem::RequestPanelTest < Liza::PanelTest
-
-  test :settings do
-    assert subject_class.log_level == :normal
-    assert subject_class.log_color == :blue
-  end
-
-  #
-
-  test :_prepare do
-    subject = WebBox[:request]
-    env = {}
-    env["REQUEST_PATH"]   = "/foo/bar/baz"
-    subject._prepare env
-    assert_equality env, {
-      "REQUEST_PATH"=>"/foo/bar/baz",
-      "LIZA_PATH"=>"/foo/bar/baz",
-      "LIZA_FORMAT"=>"html",
-      "LIZA_SEGMENTS"=>["foo", "bar", "baz"]
-    }
-
-    env = {}
-    env["REQUEST_PATH"]   = "/"
-    subject._prepare env
-    assert_equality env, {
-      "REQUEST_PATH"=>"/",
-      "LIZA_PATH"=>"/",
-      "LIZA_FORMAT"=>"html",
-      "LIZA_SEGMENTS"=>[]
-    }
-  end
-
-end

data/lib/web_system/web/web_box.rb

@@ -1,18 +0,0 @@
-class WebSystem::WebBox < Liza::Box
-
-  # Configure your rack panel per the DSL in http://guides.lizarb.org/panels/rack.html
-  configure :rack do
-    # set :log_level, ENV["web.rack.log_level"]
-
-    set :files, App.root.join("web_files")
-    set :host, "localhost"
-    set :port, 3000
-  end
-
-  # Configure your request panel per the DSL in http://guides.lizarb.org/panels/request.html
-  configure :request do
-    # set :log_level, ENV["web.request.log_level"]
-
-  end
-
-end