mirror of
https://github.com/ivabus/pantry
synced 2024-09-20 16:50:50 +03:00
121 lines
2.8 KiB
Ruby
121 lines
2.8 KiB
Ruby
|
#!/usr/bin/env ruby
|
||
|
# ---
|
||
|
# dependencies:
|
||
|
# ruby-lang.org: 2
|
||
|
# bundler.io:
|
||
|
# version: 3
|
||
|
# with:
|
||
|
# gems: [ruby-macho: 3]
|
||
|
# ---
|
||
|
|
||
|
#TODO file.stat.ino where file is Pathname
|
||
|
|
||
|
require 'pathname'
|
||
|
require 'macho'
|
||
|
require 'find'
|
||
|
|
||
|
#TODO lazy & memoized
|
||
|
$tea_prefix = ENV['TEA_PREFIX'] || `tea --prefix`.chomp
|
||
|
abort "set TEA_PREFIX" if $tea_prefix.empty?
|
||
|
|
||
|
$pkg_prefix = ARGV.shift
|
||
|
abort "arg1 should be pkg-prefix" if $pkg_prefix.empty?
|
||
|
$pkg_prefix = Pathname.new($pkg_prefix).realpath.to_s
|
||
|
|
||
|
def fix_id file
|
||
|
if file.dylib_id != file.filename
|
||
|
# only do work if we must
|
||
|
file.change_dylib_id file.filename
|
||
|
file.write!
|
||
|
end
|
||
|
end
|
||
|
|
||
|
def links_to_other_tea_libs? file
|
||
|
file.linked_dylibs.each do |lib|
|
||
|
return true if lib.start_with? $tea_prefix
|
||
|
return true if lib.start_with? '@loader_path'
|
||
|
return true if lib.start_with? '@rpath'
|
||
|
return true if lib.start_with? '@executable_path'
|
||
|
end
|
||
|
end
|
||
|
|
||
|
def fix_rpaths file
|
||
|
#TODO remove spurious rpaths
|
||
|
|
||
|
rel_path = Pathname.new($tea_prefix).relative_path_from(Pathname.new(file.filename).parent)
|
||
|
rpath = "@loader_path/#{rel_path}"
|
||
|
|
||
|
return if file.rpaths.include? rpath
|
||
|
return unless links_to_other_tea_libs? file
|
||
|
|
||
|
file.add_rpath rpath
|
||
|
file.write!
|
||
|
end
|
||
|
|
||
|
def bad_install_names file
|
||
|
file.linked_dylibs.map do |lib|
|
||
|
if lib.start_with? '/'
|
||
|
if Pathname.new(lib).cleanpath.to_s.start_with? $tea_prefix
|
||
|
lib
|
||
|
end
|
||
|
elsif lib.start_with? '@'
|
||
|
puts "warn:#{file.filename}:#{lib}"
|
||
|
# noop
|
||
|
else
|
||
|
lib
|
||
|
end
|
||
|
end.compact
|
||
|
end
|
||
|
|
||
|
def fix_install_names file
|
||
|
bad_names = bad_install_names(file)
|
||
|
return if bad_names.empty?
|
||
|
bad_names.each do |old_name|
|
||
|
if old_name.start_with? $pkg_prefix
|
||
|
new_name = Pathname.new(old_name).relative_path_from(Pathname.new(file.filename).parent)
|
||
|
new_name = "@loader_path/#{new_name}"
|
||
|
elsif old_name.start_with? '/'
|
||
|
new_name = Pathname.new(old_name).relative_path_from(Pathname.new($tea_prefix))
|
||
|
new_name = new_name.sub(%r{/v(\d+)\.\d+\.\d+/}, '/v\1/')
|
||
|
new_name = "@rpath/#{new_name}"
|
||
|
else
|
||
|
new_name = Pathname.new(file.filename).parent.join(old_name).cleanpath = "@loader_path/#{new_name}"
|
||
|
new_name = "@loader_path/#{new_name}"
|
||
|
end
|
||
|
|
||
|
file.change_install_name old_name, new_name
|
||
|
end
|
||
|
|
||
|
file.write!
|
||
|
end
|
||
|
|
||
|
def fix file
|
||
|
file = MachO::MachOFile.new(file)
|
||
|
|
||
|
case file.filetype
|
||
|
when :dylib
|
||
|
fix_id file
|
||
|
fix_rpaths file
|
||
|
fix_install_names file
|
||
|
when :execute
|
||
|
fix_rpaths file
|
||
|
fix_install_names file
|
||
|
when :bundle
|
||
|
fix_rpaths file
|
||
|
fix_install_names file
|
||
|
else
|
||
|
abort "unknown filetype: #{file.filetype}: #{file.filename}"
|
||
|
end
|
||
|
|
||
|
rescue MachO::MagicError
|
||
|
#noop: not a Mach-O file
|
||
|
end
|
||
|
|
||
|
ARGV.each do |arg|
|
||
|
Find.find(arg) do |file|
|
||
|
next unless File.file? file and !File.symlink? file
|
||
|
abs = Pathname.getwd.join(file).to_s
|
||
|
fix abs
|
||
|
end
|
||
|
end
|