diff options
| author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-10-03 11:20:31 +0000 |
|---|---|---|
| committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-10-03 11:20:31 +0000 |
| commit | 34e08faac40ffff9a36cf29f8a307654f7f495cd (patch) | |
| tree | 6670d9fc55dcd61ef25bd527f056fb47697633ae /bcc32 | |
| parent | 8e011248465bae7b06203bc2c260432454bcac21 (diff) | |
| download | ruby-34e08faac40ffff9a36cf29f8a307654f7f495cd.tar.gz ruby-34e08faac40ffff9a36cf29f8a307654f7f495cd.tar.xz ruby-34e08faac40ffff9a36cf29f8a307654f7f495cd.zip | |
* bcc32/mkexports.rb: to work on cygwin via telnet.
[ruby-win32:358]
* ext/tcltklib/tcltklib.c (ip_invoke): requires command name
argument. [ruby-dev:18438]
* eval.c (ruby_init, ruby_options): Init_stack() with local
location. (ruby-bugs-ja:PR#277)
* eval.c (rb_call0): disable trace call. [ruby-dev:18074]
* eval.c (eval, rb_load): enable trace call. [ruby-dev:18074]
* eval.c (rb_f_require): set source file name for extension
libraries. [ruby-dev:18445]
* ruby.c (translate_char): translate a character in a string;
DOSISH only. [ruby-dev:18274]
* ruby.c (ruby_init_loadpath): added argv[0] handling under
Human68K. [ruby-dev:18274]
* ruby.c (proc_options): translate directory separator in $0 to
'/'. [ruby-dev:18274]
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@2929 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'bcc32')
| -rw-r--r-- | bcc32/mkexports.rb | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/bcc32/mkexports.rb b/bcc32/mkexports.rb index 531ba3a00..e34b441e2 100644 --- a/bcc32/mkexports.rb +++ b/bcc32/mkexports.rb @@ -1,14 +1,13 @@ #!./miniruby -s SYM = {} -objs = ARGV.collect {|s| s.tr('/', '\\')} -system("tdump -oiPUBDEF -oiPUBD32 #{objs.join(' ')} > pub.def") -sleep(1) -IO.foreach('pub.def'){|l| - next unless /(PUBDEF|PUBD32)/ =~ l - /'(.*?)'/ =~ l - SYM[$1] = true -} +STDIN.reopen(open("nul")) +ARGV.each do |obj| + IO.foreach("|tdump -q -oiPUBDEF -oiPUBD32 #{obj.tr('/', '\\')}") do |l| + next unless /(?:PUBDEF|PUBD32)/ =~ l + SYM[$1] = true if /'(.*?)'/ =~ l + end +end exports = [] if $name |