From 4ae9132605dc7b0297bcda408ca7a2ad7de39d2f Mon Sep 17 00:00:00 2001 From: ttate Date: Fri, 4 Feb 2005 13:29:49 +0000 Subject: remove all files to replace ruby-dl with ruby-dl2. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7882 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/dl/mkcallback.rb | 53 ---------------------------------------------------- 1 file changed, 53 deletions(-) delete mode 100644 ext/dl/mkcallback.rb (limited to 'ext/dl/mkcallback.rb') diff --git a/ext/dl/mkcallback.rb b/ext/dl/mkcallback.rb deleted file mode 100644 index b7ea1718d0..0000000000 --- a/ext/dl/mkcallback.rb +++ /dev/null @@ -1,53 +0,0 @@ -# -*- ruby -*- - -require 'mkmf' -$:.unshift File.dirname(__FILE__) -require 'type' -require 'dlconfig' - -def mkfunc(rettype, fnum, argc) - args = (0..(argc-1)).collect{|i| "long arg#{i}"}.join(", ") - - subst_code = (0..(argc-1)).collect{|i| - " buff[#{i.to_s}] = arg#{i.to_s};" - }.join("\n") - - ret_code = - if( DLTYPE[rettype][:c2rb] ) - " return #{DLTYPE[rettype][:rb2c]['retval']};" - else - " /* no return value */" - end - - code = [ - "static #{DLTYPE[rettype][:ctype]}", - "rb_dl_callback_func_#{rettype.to_s}_#{fnum.to_s}(#{args})", - "{", - " VALUE retval, proto, proc, obj;", - " VALUE argv[#{argc.to_s}];", - " int argc;", - " long buff[#{argc.to_s}];", - "", - subst_code, - "", - " obj = rb_hash_aref(DLFuncTable, rb_assoc_new(INT2NUM(#{rettype.to_s}),INT2NUM(#{fnum.to_s})));", - " proto = rb_ary_entry(obj, 0);", - " proc = rb_ary_entry(obj, 1);", - " Check_Type(proto, T_STRING);", - " if( RSTRING(proto)->len >= #{argc.to_s} )", - " rb_raise(rb_eArgError, \"too many arguments\");", - " rb_dl_scan_callback_args(buff, RSTRING(proto)->ptr, &argc, argv);", - " retval = rb_funcall2(proc, id_call, argc, argv);", - "", - ret_code, - "}", - ].join("\n") - - return code -end - -DLTYPE.keys.sort.each{|t| - for n in 0..(MAX_CALLBACK - 1) - print(mkfunc(t, n, 15), "\n\n") - end -} -- cgit v1.2.3