From 7d711b817e62eb6c8dee01ea2283fcb1ad90f8ac Mon Sep 17 00:00:00 2001
From: ttate <ttate@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 2 Apr 2002 10:56:13 +0000
Subject: Add ruby-dl

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2324 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/dl/mkcbtable.rb | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 ext/dl/mkcbtable.rb

(limited to 'ext/dl/mkcbtable.rb')

diff --git a/ext/dl/mkcbtable.rb b/ext/dl/mkcbtable.rb
new file mode 100644
index 0000000000..f25f012e4c
--- /dev/null
+++ b/ext/dl/mkcbtable.rb
@@ -0,0 +1,42 @@
+# -*- ruby -*-
+
+require 'mkmf'
+$:.unshift File.dirname(__FILE__)
+require 'type'
+require 'dlconfig'
+
+$int_eq_long = try_run(<<EOF)
+int main() {
+  return sizeof(int) == sizeof(long) ? 0 : 1;
+}
+EOF
+
+def output_func(types, n = 0)
+  code =
+    "/* #{types2ctypes(types).inspect} */\n" +
+    "rb_dl_func_table[#{types2num(types)}][#{n}] " +
+    "= rb_dl_func#{types2num(types)}_#{n};\n"
+  if( n < MAX_CBENT - 1)
+    return code + output_func(types, n+1)
+  else
+    return code
+  end
+end
+
+
+def rec_output(types = [VOID])
+  print output_func(types)
+  if( types.length <= MAX_CBARG )
+    DLTYPE.keys.sort.each{|t|
+      if( t != VOID && DLTYPE[t][:cb] )
+	rec_output(types + [t])
+      end
+    }
+  end
+end
+
+DLTYPE.keys.sort.each{|t|
+  if( DLTYPE[t][:cb] )
+    rec_output([t])
+  end
+}
-- 
cgit v1.2.3