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
|
# 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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user