Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 28 lines (23 sloc) 0.578 kb
0be6449 new platform [bccwin32] merged.
H_Konishi authored
1 #!./miniruby -s
2
0865b21 Nobuyoshi Nakada * Makefile.in, win32/Makefile.sub (MINIRUBY): append MINIRUBYOPT.
nobu authored
3 $name = $library = $description = nil
4
0be6449 new platform [bccwin32] merged.
H_Konishi authored
5 SYM = {}
34e08fa Nobuyoshi Nakada * bcc32/mkexports.rb: to work on cygwin via telnet.
nobu authored
6 STDIN.reopen(open("nul"))
7 ARGV.each do |obj|
8 IO.foreach("|tdump -q -oiPUBDEF -oiPUBD32 #{obj.tr('/', '\\')}") do |l|
9 next unless /(?:PUBDEF|PUBD32)/ =~ l
469d3e5 Nobuyoshi Nakada * win32/mkexports.rb: deal with __fastcall name decorations.
nobu authored
10 SYM[$1] = true if /'(.*?)'/ =~ l
34e08fa Nobuyoshi Nakada * bcc32/mkexports.rb: to work on cygwin via telnet.
nobu authored
11 end
12 end
0be6449 new platform [bccwin32] merged.
H_Konishi authored
13
14 exports = []
15 if $name
16 exports << "Name " + $name
17 elsif $library
18 exports << "Library " + $library
19 end
20 exports << "Description " + $description.dump if $description
469d3e5 Nobuyoshi Nakada * win32/mkexports.rb: deal with __fastcall name decorations.
nobu authored
21 exports << "EXPORTS" << SYM.keys.sort
0be6449 new platform [bccwin32] merged.
H_Konishi authored
22
23 if $output
24 open($output, 'w') {|f| f.puts exports.join("\n")}
25 else
26 puts exports.join("\n")
27 end
Something went wrong with that request. Please try again.