Port Homebrew::DevCmd::Unpack
This commit is contained in:
parent
ba5f392d4c
commit
bdf8fbc1ad
@ -1,74 +1,78 @@
|
||||
# typed: true
|
||||
# typed: strict
|
||||
# frozen_string_literal: true
|
||||
|
||||
require "abstract_command"
|
||||
require "fileutils"
|
||||
require "stringio"
|
||||
require "formula"
|
||||
require "cli/parser"
|
||||
|
||||
module Homebrew
|
||||
sig { returns(CLI::Parser) }
|
||||
def self.unpack_args
|
||||
Homebrew::CLI::Parser.new 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."
|
||||
module DevCmd
|
||||
class Unpack < AbstractCommand
|
||||
include FileUtils
|
||||
|
||||
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
|
||||
end
|
||||
end
|
||||
conflicts "--git", "--patch"
|
||||
|
||||
def self.unpack
|
||||
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
|
||||
named_args :formula, min: 1
|
||||
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
|
||||
with_env VERBOSE: "1" do
|
||||
f.brew do
|
||||
f.patch if args.patch?
|
||||
cp_r getwd, stage_dir, preserve: true
|
||||
if (dir = args.destdir)
|
||||
unpack_dir = Pathname.new(dir).expand_path
|
||||
unpack_dir.mkpath
|
||||
else
|
||||
unpack_dir = Pathname.pwd
|
||||
end
|
||||
end
|
||||
|
||||
next unless args.git?
|
||||
odie "Cannot write to #{unpack_dir}" unless unpack_dir.writable_real?
|
||||
|
||||
ohai "Setting up Git repository"
|
||||
cd(stage_dir) do
|
||||
system "git", "init", "-q"
|
||||
system "git", "add", "-A"
|
||||
system "git", "commit", "-q", "-m", "brew-unpack"
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
@ -1,8 +1,9 @@
|
||||
# frozen_string_literal: true
|
||||
|
||||
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 "unpacks a given Formula's archive", :integration_test do
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user