[ruby-dev:10391] Re: environment variables

なかだです。

At Tue, 25 Jul 2000 19:28:41 +0900
Katsuyuki Komatsu <[e-mail]> wrote:
> > > 言われてみると、"__cygwin_noncygwin_dll_entry@12"みたいな
> > > エントリも消えると悲しいか。
> > 
> >   mswin32 版ではそれはないような。
> 
> もちろんないですけど、万一__stdcallを指定するようなことがことが
> あっても、うまくいくようにしておきたいなと思ったのでした。

  そうですね。

> > > /^_real@\d+@/ (floatだと_real@4@……になります) だけはじく
> > > ようにしましょう。
> > 
> >   @ が二つ以上あるのははじくとか。
> 
> それだと、(ないと思うけど) C++で書いたものをexportしてあると、
> 使えなくなっちゃいま……あそうか、'_'で始まらないものは無視される
> からどのみち使えないか。

  C++ だとそういう風に mangle されるわけですか。実はわざわざフィルタじゃ
なくて dumpbin を内部から呼び出すようにしたりしたのは他のものにも使える
ようにしたかったからなので、C++ に使えないのはうれしくないかも。というこ
とで unmangle された名前があって、@ や ? を含まないときってのでどうでし
ょう。勝手な都合ですいませんが。

# ちょっとオプションも追加。


#!./miniruby -s

SYM = {}

objs = ARGV.collect {|s| s.tr('/', '\\')}
IO.foreach("|dumpbin -symbols " + objs.join(' ')) do |l|
  next if /^[0-9A-F]+ 0+ UNDEF / =~ l
  next unless l.sub!(/.*\sExternal\s+\|\s+/, '')
  if l.sub!(/^_/, '')
    next if /@.*@/ =~ l
  elsif !l.sub!(/^(\S+) \([^@?]*\)$/, '\1')
    next
  end
  SYM[l.strip] = true
end

exports = []
if $name
  exports << "Name " + $name
elsif $library
  exports << "Library " + $library
end
exports << "Description " + $description.dump if $description
exports << "EXPORTS" << SYM.keys.sort

if $output
  open($output, 'w') {|f| f.puts exports}
else
  puts exports
end

--- Makefile~	Mon Jul 24 21:09:27 2000
+++ Makefile	Tue Jul 25 20:23:16 2000
@@ -124,7 +124,7 @@
 !ENDIF
 
 $(RUBYDEF):	$(LIBRUBY_A) miniruby$(EXEEXT)
-		.\miniruby$(EXEEXT) $(srcdir)/win32/mkexports.rb $(LIBRUBY_A) $@
+		.\miniruby$(EXEEXT) $(srcdir)/win32/mkexports.rb -output=$@ $(LIBRUBY_A)
 
 
 install:	rbconfig.rb


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦