Port Homebrew::DevCmd::Unpack

This commit is contained in:
Douglas Eichelberger 2024-03-21 22:04:10 -07:00
parent ba5f392d4c
commit bdf8fbc1ad
2 changed files with 61 additions and 56 deletions

View File

@ -1,74 +1,78 @@
# typed: true # typed: strict
# frozen_string_literal: true # frozen_string_literal: true
require "abstract_command"
require "fileutils"
require "stringio" require "stringio"
require "formula" require "formula"
require "cli/parser" require "cli/parser"
module Homebrew module Homebrew
sig { returns(CLI::Parser) } module DevCmd
def self.unpack_args class Unpack < AbstractCommand
Homebrew::CLI::Parser.new do include FileUtils
description <<~EOS
Unpack the source files for <formula> into subdirectories of the current
working directory.
EOS
flag "--destdir=",
description: "Create subdirectories in the directory named by <path> instead."
switch "--patch",
description: "Patches for <formula> will be applied to the unpacked source."
switch "-g", "--git",
description: "Initialise a Git repository in the unpacked source. This is useful for creating " \
"patches for the software."
switch "-f", "--force",
description: "Overwrite the destination directory if it already exists."
conflicts "--git", "--patch" cmd_args do
description <<~EOS
Unpack the source files for <formula> into subdirectories of the current
working directory.
EOS
flag "--destdir=",
description: "Create subdirectories in the directory named by <path> instead."
switch "--patch",
description: "Patches for <formula> will be applied to the unpacked source."
switch "-g", "--git",
description: "Initialise a Git repository in the unpacked source. This is useful for creating " \
"patches for the software."
switch "-f", "--force",
description: "Overwrite the destination directory if it already exists."
named_args :formula, min: 1 conflicts "--git", "--patch"
end
end
def self.unpack named_args :formula, min: 1
args = unpack_args.parse
formulae = args.named.to_formulae
if (dir = args.destdir)
unpack_dir = Pathname.new(dir).expand_path
unpack_dir.mkpath
else
unpack_dir = Pathname.pwd
end
odie "Cannot write to #{unpack_dir}" unless unpack_dir.writable_real?
formulae.each do |f|
stage_dir = unpack_dir/"#{f.name}-#{f.version}"
if stage_dir.exist?
odie "Destination #{stage_dir} already exists!" unless args.force?
rm_rf stage_dir
end end
oh1 "Unpacking #{Formatter.identifier(f.full_name)} to: #{stage_dir}" sig { override.void }
def run
formulae = args.named.to_formulae
# show messages about tar if (dir = args.destdir)
with_env VERBOSE: "1" do unpack_dir = Pathname.new(dir).expand_path
f.brew do unpack_dir.mkpath
f.patch if args.patch? else
cp_r getwd, stage_dir, preserve: true unpack_dir = Pathname.pwd
end end
end
next unless args.git? odie "Cannot write to #{unpack_dir}" unless unpack_dir.writable_real?
ohai "Setting up Git repository" formulae.each do |f|
cd(stage_dir) do stage_dir = unpack_dir/"#{f.name}-#{f.version}"
system "git", "init", "-q"
system "git", "add", "-A" if stage_dir.exist?
system "git", "commit", "-q", "-m", "brew-unpack" odie "Destination #{stage_dir} already exists!" unless args.force?
rm_rf stage_dir
end
oh1 "Unpacking #{Formatter.identifier(f.full_name)} to: #{stage_dir}"
# show messages about tar
with_env VERBOSE: "1" do
f.brew do
f.patch if args.patch?
cp_r getwd, stage_dir, preserve: true
end
end
next unless args.git?
ohai "Setting up Git repository"
cd(stage_dir) do
system "git", "init", "-q"
system "git", "add", "-A"
system "git", "commit", "-q", "-m", "brew-unpack"
end
end
end end
end end
end end

View File

@ -1,8 +1,9 @@
# frozen_string_literal: true # frozen_string_literal: true
require "cmd/shared_examples/args_parse" require "cmd/shared_examples/args_parse"
require "dev-cmd/unpack"
RSpec.describe "brew unpack" do RSpec.describe Homebrew::DevCmd::Unpack do
it_behaves_like "parseable arguments" it_behaves_like "parseable arguments"
it "unpacks a given Formula's archive", :integration_test do it "unpacks a given Formula's archive", :integration_test do