kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* win32/mkexports.rb (Exports#objdump, Exports#each_line): extracted.

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@16669 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2008-05-28 08:50:41 +00:00
parent 23c2cf545c
commit a9396fd580
2 changed files with 42 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
Wed May 28 17:50:32 2008 Nobuyoshi Nakada <nobu@ruby-lang.org>
* win32/mkexports.rb (Exports#objdump, Exports#each_line): extracted.
Wed May 28 17:41:43 2008 Nobuyoshi Nakada <nobu@ruby-lang.org> Wed May 28 17:41:43 2008 Nobuyoshi Nakada <nobu@ruby-lang.org>
* Makefile.in (MKPREP): appended $(RBCONFIG). * Makefile.in (MKPREP): appended $(RBCONFIG).

60
win32/mkexports.rb
View file

@ -27,7 +27,7 @@ class Exports
def self.output(output = $output, &block) def self.output(output = $output, &block)
if output if output
open(output, 'w', &block) open(output, 'wb', &block)
else else
yield STDOUT yield STDOUT
end end
@ -74,38 +74,50 @@ class Exports
def each_export(objs) def each_export(objs)
end end
def objdump(objs, &block)
if objs.empty?
$stdin.each_line(&block)
else
each_line(objs, &block)
end
end
def symbols() def symbols()
@syms.sort.collect {|k, v| v ? v == true ? "#{k} DATA" : "#{k}=#{v}" : k} @syms.sort.collect {|k, v| v ? v == true ? "#{k} DATA" : "#{k}=#{v}" : k}
end end
end end
class Exports::Mswin < Exports 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) def each_export(objs)
noprefix = ($arch ||= nil and /^(sh|i\d86)/ !~ $arch) noprefix = ($arch ||= nil and /^(sh|i\d86)/ !~ $arch)
objs = objs.collect {|s| s.tr('/', '\\')} objs = objs.collect {|s| s.tr('/', '\\')}
filetype = nil filetype = nil
IO.popen(%w"dumpbin -symbols -exports" + objs) do |f| objdump(objs) do |l|
f.each do |l| if (filetype = l[/^File Type: (.+)/, 1])..(/^\f/ =~ l)
if (filetype = l[/^File Type: (.+)/, 1])..(/^\f/ =~ l) case filetype
case filetype when /OBJECT/, /LIBRARY/
when /OBJECT/, /LIBRARY/ next if /^[[:xdigit:]]+ 0+ UNDEF / =~ l
next if /^[[:xdigit:]]+ 0+ UNDEF / =~ l next unless /External/ =~ l
next unless /External/ =~ l next unless l.sub!(/.*?\s(\(\)\s+)?External\s+\|\s+/, '')
next unless l.sub!(/.*?\s(\(\)\s+)?External\s+\|\s+/, '') is_data = !$1
is_data = !$1 if noprefix or /^[@_]/ =~ l
if noprefix or /^[@_]/ =~ l next if /(?!^)@.*@/ =~ l || /@[[:xdigit:]]{16}$/ =~ l
next if /(?!^)@.*@/ =~ l || /@[[:xdigit:]]{16}$/ =~ l l.sub!(/^[@_]/, '') if /@\d+$/ !~ l
l.sub!(/^[@_]/, '') if /@\d+$/ !~ l elsif !l.sub!(/^(\S+) \([^@?\`\']*\)$/, '\1')
elsif !l.sub!(/^(\S+) \([^@?\`\']*\)$/, '\1')
next
end
when /DLL/
next unless l.sub!(/^\s*\d+\s+[[:xdigit:]]+\s+[[:xdigit:]]+\s+/, '')
else
next next
end end
yield l.strip, is_data when /DLL/
next unless l.sub!(/^\s*\d+\s+[[:xdigit:]]+\s+[[:xdigit:]]+\s+/, '')
else
next
end end
yield l.strip, is_data
end end
end end
yield "strcasecmp", "msvcrt.stricmp" yield "strcasecmp", "msvcrt.stricmp"
@ -118,9 +130,13 @@ class Exports::Mingw < Exports
@@nm ||= RbConfig::CONFIG["NM"] @@nm ||= RbConfig::CONFIG["NM"]
end end
def each_line(objs, &block)
IO.foreach("|#{self.class.nm} --extern --defined #{objs.join(' ')}", &block)
end
def each_export(objs) def each_export(objs)
IO.popen([self.class.nm, "--extern", "--defined", *objs]) do |f| objdump(objs) do |l|
f.each {|l| yield $1 if / [[:upper:]] _(.*)$/ =~ l} yield $1 if / [[:upper:]] _(.*)$/ =~ l
end end
yield "strcasecmp", "_stricmp" yield "strcasecmp", "_stricmp"
yield "strncasecmp", "_strnicmp" yield "strncasecmp", "_strnicmp"