# typed: true
# frozen_string_literal: true

require "formula"
require "install"
require "system_config"
require "stringio"
require "socket"
require "cli/parser"

module Homebrew
  extend Install

  module_function

  sig { returns(CLI::Parser) }
  def gist_logs_args
    Homebrew::CLI::Parser.new do
      description <<~EOS
        Upload logs for a failed build of <formula> to a new Gist. Presents an
        error message if no logs are found.
      EOS
      switch "--with-hostname",
             description: "Include the hostname in the Gist."
      switch "-n", "--new-issue",
             description: "Automatically create a new issue in the appropriate GitHub repository " \
                          "after creating the Gist."
      switch "-p", "--private",
             description: "The Gist will be marked private and will not appear in listings but will " \
                          "be accessible with its link."

      named_args :formula, number: 1
    end
  end

  def gistify_logs(formula, args:)
    files = load_logs(formula.logs)
    build_time = formula.logs.ctime
    timestamp = build_time.strftime("%Y-%m-%d_%H-%M-%S")

    s = StringIO.new
    SystemConfig.dump_verbose_config s
    # Dummy summary file, asciibetically first, to control display title of gist
    files["# #{formula.name} - #{timestamp}.txt"] = {
      content: brief_build_info(formula, with_hostname: args.with_hostname?),
    }
    files["00.config.out"] = { content: s.string }
    files["00.doctor.out"] = { content: Utils.popen_read("#{HOMEBREW_PREFIX}/bin/brew", "doctor", err: :out) }
    unless formula.core_formula?
      tap = <<~EOS
        Formula: #{formula.name}
            Tap: #{formula.tap}
           Path: #{formula.path}
      EOS
      files["00.tap.out"] = { content: tap }
    end

    odie "`brew gist-logs` requires HOMEBREW_GITHUB_API_TOKEN to be set!" if GitHub::API.credentials_type == :none

    # Description formatted to work well as page title when viewing gist
    descr = if formula.core_formula?
      "#{formula.name} on #{OS_VERSION} - Homebrew build logs"
    else
      "#{formula.name} (#{formula.full_name}) on #{OS_VERSION} - Homebrew build logs"
    end

    begin
      url = GitHub.create_gist(files, descr, private: args.private?)
    rescue GitHub::API::HTTPNotFoundError
      odie <<~EOS
        Your GitHub API token likely doesn't have the `gist` scope.
        #{GitHub.pat_blurb(GitHub::CREATE_GIST_SCOPES)}
      EOS
    end

    if args.new_issue?
      url = GitHub.create_issue(formula.tap, "#{formula.name} failed to build on #{MacOS.full_version}", url)
    end

    puts url if url
  end

  def brief_build_info(formula, with_hostname:)
    build_time_string = formula.logs.ctime.strftime("%Y-%m-%d %H:%M:%S")
    string = +<<~EOS
      Homebrew build logs for #{formula.full_name} on #{OS_VERSION}
    EOS
    if with_hostname
      hostname = Socket.gethostname
      string << "Host: #{hostname}\n"
    end
    string << "Build date: #{build_time_string}\n"
    string.freeze
  end

  # Causes some terminals to display secure password entry indicators.
  def noecho_gets
    system "stty", "-echo"
    result = $stdin.gets
    system "stty", "echo"
    puts
    result
  end

  def load_logs(dir, basedir = dir)
    logs = {}
    if dir.exist?
      dir.children.sort.each do |file|
        if file.directory?
          logs.merge! load_logs(file, basedir)
        else
          contents = file.size? ? file.read : "empty log"
          # small enough to avoid GitHub "unicorn" page-load-timeout errors
          max_file_size = 1_000_000
          contents = truncate_text_to_approximate_size(contents, max_file_size, front_weight: 0.2)
          logs[file.relative_path_from(basedir).to_s.tr("/", ":")] = { content: contents }
        end
      end
    end
    odie "No logs." if logs.empty?

    logs
  end

  def gist_logs
    args = gist_logs_args.parse

    Install.perform_preinstall_checks(all_fatal: true)
    Install.perform_build_from_source_checks(all_fatal: true)
    gistify_logs(args.named.to_resolved_formulae.first, args: args)
  end
end
