diff options
author | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-08-29 04:06:12 +0000 |
---|---|---|
committer | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-08-29 04:06:12 +0000 |
commit | 11dbedfaad4a9a9521ece2198a8dc491678b1902 (patch) | |
tree | 4806dc0ff0c3827ecc40921838c4507340cfdb3a /ruby_1_8_6/ext/dl/mkcall.rb | |
parent | 29e8d8b439b34c2a394407dc598fc01d14be0c20 (diff) |
add tag v1_8_6_5001v1_8_6_5001
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_6_5001@13304 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ruby_1_8_6/ext/dl/mkcall.rb')
-rw-r--r-- | ruby_1_8_6/ext/dl/mkcall.rb | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/ruby_1_8_6/ext/dl/mkcall.rb b/ruby_1_8_6/ext/dl/mkcall.rb new file mode 100644 index 0000000000..6a85570152 --- /dev/null +++ b/ruby_1_8_6/ext/dl/mkcall.rb @@ -0,0 +1,62 @@ +# -*- ruby -*- + +require 'mkmf' +$:.unshift File.dirname(__FILE__) +require 'type' +require 'dlconfig' + +def output_arg(x,i) + "args[#{i}].#{DLTYPE[x][:stmem]}" +end + +def output_args(types) + t = [] + types[1..-1].each_with_index{|x,i| t.push(output_arg(x,i))} + t.join(",") +end + +def output_callfunc(types) + t = types[0] + stmem = DLTYPE[t][:stmem] + ctypes = types2ctypes(types) + if( t == VOID ) + callstm = "(*f)(#{output_args(types)})" + else + callstm = "ret.#{stmem} = (*f)(#{output_args(types)})" + end + [ "{", + "#{ctypes[0]} (*f)(#{ctypes[1..-1].join(',')}) = func;", + "#{callstm};", + "}"].join(" ") +end + +def output_case(types) + num = types2num(types) + callfunc_stm = output_callfunc(types) +<<EOF + case #{num}: +#ifdef DEBUG + printf("#{callfunc_stm}\\n"); +#endif + #{callfunc_stm}; + break; +EOF +end + +def rec_output(types = [VOID]) + print output_case(types) + if( types.length <= MAX_ARG ) + DLTYPE.keys.sort.each{|t| + if( t != VOID && DLTYPE[t][:sym] ) + rec_output(types + [t]) + end + } + end +end + +DLTYPE.keys.sort.each{|t| + if( DLTYPE[t][:sym] ) + $stderr.printf(" #{DLTYPE[t][:ctype]}\n") + rec_output([t]) + end +} |