1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/win32/mkexports.rb
usa ca25a970d6 Fixed link error with VC14.
* win32/mkexports.rb (Exports::Mswin#each_exports): should ignore `vsprintf_s_l`
  and the like just like `vsprintf_l`.
  [ruby-dev:49899] [Bug ]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@57079 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2016-12-14 17:49:26 +00:00

175 lines
4.4 KiB
Ruby
Executable file

#!./miniruby -sI.
$name = $library = $description = nil
module RbConfig
autoload :CONFIG, "./rbconfig"
end
class Exports
PrivateNames = /(?:Init_|ruby_static_id_|.*_threadptr_|DllMain\b)/
@@subclass = []
def self.inherited(klass)
@@subclass << [/#{klass.name.sub(/.*::/, '').downcase}/i, klass]
end
def self.create(*args, &block)
platform = RUBY_PLATFORM
pat, klass = @@subclass.find {|p, k| p =~ platform}
unless klass
raise ArgumentError, "unsupported platform: #{platform}"
end
klass.new(*args, &block)
end
def self.extract(objs, *rest)
create(objs).exports(*rest)
end
def self.output(output = $output, &block)
if output
open(output, 'wb', &block)
else
yield STDOUT
end
end
def initialize(objs)
syms = {}
winapis = {}
syms["ruby_sysinit_real"] = "ruby_sysinit"
each_export(objs) do |internal, export|
syms[internal] = export
winapis[$1] = internal if /^_?(rb_w32_\w+)(?:@\d+)?$/ =~ internal
end
incdir = File.join(File.dirname(File.dirname(__FILE__)), "include/ruby")
read_substitution(incdir+"/win32.h", syms, winapis)
read_substitution(incdir+"/subst.h", syms, winapis)
syms["rb_w32_vsnprintf"] ||= "ruby_vsnprintf"
syms["rb_w32_snprintf"] ||= "ruby_snprintf"
@syms = syms
end
def read_substitution(header, syms, winapis)
IO.foreach(header) do |line|
if /^#define (\w+)\((.*?)\)\s+(?:\(void\))?(rb_w32_\w+)\((.*?)\)\s*$/ =~ line and
$2.delete(" ") == $4.delete(" ")
export, internal = $1, $3
if syms[internal] or internal = winapis[internal]
syms[forwarding(internal, export)] = internal
end
end
end
end
def exports(name = $name, library = $library, description = $description)
exports = []
if name
exports << "Name " + name
elsif library
exports << "Library " + library
end
exports << "Description " + description.dump if description
exports << "VERSION #{RbConfig::CONFIG['MAJOR']}.#{RbConfig::CONFIG['MINOR']}"
exports << "EXPORTS" << symbols()
exports
end
private
def forwarding(internal, export)
internal.sub(/^[^@]+/, "\\1#{export}")
end
def each_export(objs)
end
def objdump(objs, &block)
if objs.empty?
$stdin.each_line(&block)
else
each_line(objs, &block)
end
end
def symbols()
@syms.sort.collect {|k, v| v ? v == true ? "#{k} DATA" : "#{k}=#{v}" : k}
end
end
class Exports::Mswin < Exports
def each_line(objs, &block)
IO.popen(%w"dumpbin -symbols -exports" + objs) do |f|
f.each(&block)
end
end
def each_export(objs)
noprefix = ($arch ||= nil and /^(sh|i\d86)/ !~ $arch)
objs = objs.collect {|s| s.tr('/', '\\')}
filetype = nil
objdump(objs) do |l|
if (filetype = l[/^File Type: (.+)/, 1])..(/^\f/ =~ l)
case filetype
when /OBJECT/, /LIBRARY/
next if /^[[:xdigit:]]+ 0+ UNDEF / =~ l
next unless /External/ =~ l
next if /(?:_local_stdio_printf_options|v(f|sn?)printf(_s)?_l)\Z/ =~ l
next unless l.sub!(/.*?\s(\(\)\s+)?External\s+\|\s+/, '')
is_data = !$1
if noprefix or /^[@_]/ =~ l
next if /(?!^)@.*@/ =~ l || /@[[:xdigit:]]{8,32}$/ =~ l ||
/^_?#{PrivateNames}/o =~ l
l.sub!(/^[@_]/, '') if /@\d+$/ !~ l
elsif !l.sub!(/^(\S+) \([^@?\`\']*\)$/, '\1')
next
end
when /DLL/
next unless l.sub!(/^\s*\d+\s+[[:xdigit:]]+\s+[[:xdigit:]]+\s+/, '')
else
next
end
yield l.strip, is_data
end
end
yield "strcasecmp", "msvcrt.stricmp"
yield "strncasecmp", "msvcrt.strnicmp"
end
end
class Exports::Cygwin < Exports
def self.nm
@@nm ||= RbConfig::CONFIG["NM"]
end
def exports(*)
super()
end
def each_line(objs, &block)
IO.foreach("|#{self.class.nm} --extern --defined #{objs.join(' ')}", &block)
end
def each_export(objs)
symprefix = RbConfig::CONFIG["SYMBOL_PREFIX"]
symprefix.strip! if symprefix
re = /\s(?:(T)|[[:upper:]])\s#{symprefix}((?!#{PrivateNames}).*)$/
objdump(objs) do |l|
next if /@.*@/ =~ l
yield $2, !$1 if re =~ l
end
end
end
class Exports::Mingw < Exports::Cygwin
def each_export(objs)
super
yield "strcasecmp", "_stricmp"
yield "strncasecmp", "_strnicmp"
end
end
END {
exports = Exports.extract(ARGV)
Exports.output {|f| f.puts(*exports)}
}