From ed4b5c4f21d50609d1e895449f50462c293b2a9d Mon Sep 17 00:00:00 2001
From: Nobuyoshi Nakada <nobu@ruby-lang.org>
Date: Sun, 27 Nov 2022 20:14:26 +0900
Subject: Extract outdate-bundled-gems.rb

---
 tool/outdate-bundled-gems.rb | 134 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 134 insertions(+)
 create mode 100755 tool/outdate-bundled-gems.rb

(limited to 'tool/outdate-bundled-gems.rb')

diff --git a/tool/outdate-bundled-gems.rb b/tool/outdate-bundled-gems.rb
new file mode 100755
index 0000000000..9dd19a71a1
--- /dev/null
+++ b/tool/outdate-bundled-gems.rb
@@ -0,0 +1,134 @@
+#!/usr/bin/ruby
+require 'fileutils'
+require 'rubygems'
+
+fu = FileUtils::Verbose
+until ARGV.empty?
+  case ARGV.first
+  when '--'
+    ARGV.shift
+    break
+  when '-n', '--dryrun'
+    fu = FileUtils::DryRun
+  when /\A--make=/
+    # just to run when `make -n`
+  when /\A--mflags=(.*)/
+    fu = FileUtils::DryRun if /\A-\S*n/ =~ $1
+  when /\A--basedir=(.*)/m
+    dir = $1
+  when /\A-/
+    raise "#{$0}: unknown option: #{ARGV.first}"
+  else
+    break
+  end
+  ARGV.shift
+end
+
+class Removal
+  def initialize(base = nil)
+    @base = (File.join(base, "/") if base)
+    @remove = {}
+  end
+
+  def prefixed(name)
+    @base ? File.join(@base, name) : name
+  end
+
+  def stripped(name)
+    if @base && name.start_with?(@base)
+      name[@base.size..-1]
+    else
+      name
+    end
+  end
+
+  def slash(name)
+    name.sub(%r[[^/]\K\z], '/')
+  end
+
+  def exist?(name)
+    !@remove.fetch(name) {|k| @remove[k] = !File.exist?(prefixed(name))}
+  end
+  def directory?(name)
+    !@remove.fetch(slash(name)) {|k| @remove[k] = !File.directory?(prefixed(name))}
+  end
+
+  def unlink(name)
+    @remove[stripped(name)] = :rm_f
+  end
+  def rmdir(name)
+    @remove[slash(stripped(name))] = :rm_rf
+  end
+
+  def glob(pattern, *rest)
+    Dir.glob(prefixed(pattern), *rest) {|n|
+      yield stripped(n)
+    }
+  end
+
+  def each_file
+    @remove.each {|k, v| yield prefixed(k) if v == :rm_f}
+  end
+
+  def each_directory
+    @remove.each {|k, v| yield prefixed(k) if v == :rm_rf}
+  end
+end
+
+srcdir = Removal.new(ARGV.shift)
+curdir = Removal.new
+
+srcdir.glob(".bundle/gems/*/") do |dir|
+  unless srcdir.exist?("gems/#{File.basename(dir)}.gem")
+    srcdir.rmdir(dir)
+  end
+end
+
+srcdir.glob(".bundle/specifications/*.gemspec") do |spec|
+  unless srcdir.directory?(".bundle/gems/#{File.basename(spec, '.gemspec')}/")
+    srcdir.unlink(spec)
+  end
+end
+
+curdir.glob(".bundle/specifications/*.gemspec") do |spec|
+  unless srcdir.directory?(".bundle/gems/#{File.basename(spec, '.gemspec')}")
+    curdir.unlink(spec)
+  end
+end
+
+curdir.glob(".bundle/gems/*/") do |dir|
+  unless curdir.exist?(".bundle/specifications/#{File.basename(dir)}.gemspec")
+    curdir.rmdir(dir)
+  end
+end
+
+platform = Gem::Platform.local.to_s
+curdir.glob(".bundle/{extensions,.timestamp}/*/") do |dir|
+  unless File.basename(dir) == platform
+    curdir.rmdir(dir)
+  end
+end
+
+version = RbConfig::CONFIG['ruby_version']
+curdir.glob(".bundle/{extensions,.timestamp}/#{platform}/*/") do |dir|
+  unless File.basename(dir) == version
+    curdir.rmdir(dir)
+  end
+end
+
+curdir.glob(".bundle/extensions/#{platform}/#{version}/*/") do |dir|
+  unless curdir.exist?(".bundle/specifications/#{File.basename(dir)}.gemspec")
+    curdir.rmdir(dir)
+  end
+end
+
+curdir.glob(".bundle/.timestamp/#{platform}/#{version}/.*.time") do |stamp|
+  unless curdir.directory?(File.join(".bundle", stamp[%r[/\.([^/]+)\.time\z], 1].gsub('.-.', '/')))
+    curdir.unlink(stamp)
+  end
+end
+
+srcdir.each_file {|f| fu.rm_f(f)}
+srcdir.each_directory {|d| fu.rm_rf(d)}
+curdir.each_file {|f| fu.rm_f(f)}
+curdir.each_directory {|d| fu.rm_rf(d)}
-- 
cgit v1.2.1