Module: GSL4r::Util

Included in:
Complex::Methods
Defined in:
lib/gsl4r/util.rb

Instance Method Summary collapse

Instance Method Details

#attach_gsl_function(method_name, args, return_var, args_type = nil, return_type = nil) ⇒ Object 



16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
# File 'lib/gsl4r/util.rb', line 16

def attach_gsl_function( method_name, args, return_var, args_type=nil, return_type=nil )

  # This function is attached to the extended ::FFI::Library
  # module from the calling namespace, e.g. ::GSL4r::Complex::Methods
  attach_function method_name, args, return_var

  if ( args_type != nil )
    # prepare c and ruby args code
	c_src = ""
	c_call_vars = []
	c_return_name = "c_r#{$c_var_num}"
	r_src = []
	if ( ! args_type.is_a?(Array) )
	  args_type = Array.new([args_type])
	end
    args_type.each { |a_t|
	  c_var_name = "v#{$c_var_num += 1}"
	  c_src << (a_t.respond_to?("c_type") ?
  "  #{a_t.c_type} #{c_var_name};\n" : "#{a_t.to_s} #{c_var_name} ")
	  c_src << (a_t.respond_to?("c_assignment") ?
  "  #{a_t.c_assignment("#{c_var_name}")}\n" : "= (#{a_t.to_s})2.0;\n")
	  c_call_vars << "#{c_var_name}"

	  r_src << (a_t.respond_to?("r_type") ?
  "  #{c_var_name} = #{a_t.r_type}.create" : "")
	  r_src << (a_t.respond_to?("r_assignment") ?
  "  #{a_t.r_assignment("#{c_var_name}")}" : "  #{c_var_name} = 2.0")
	} # args_type.each

	# prepare c return type
	c_src << (return_type.respond_to?("c_type") ?
"  #{return_type.c_type} #{c_return_name};\n" :
"  #{return_type.to_s} #{c_return_name};\n")

	# prepare c call
	c_src << "  #{c_return_name} = #{method_name}(#{c_call_vars.join(",")});\n"
	
	# now generate the ruby code for the unit test
	c_src << "  puts(" << %Q{\\"def test_#{method_name}()\\"} << ");\n"

	# TODO, Need to insert ruby object instantiation code here!
	#
	r_src.each { |v|
	  c_src << "  puts(" << %Q{\\"#{v}\\"} << ");\n"
	}

	r_r1 = "r_r1" # ruby result
	c_src << "  puts(" << %Q{\\"  #{r_r1} = ::#{self.to_s}::#{method_name}(#{c_call_vars.join(",")})\\"} << ");\n"
	if ( return_type.respond_to?("c_to_r_assignment") )
	  r_r2 = "r_r2" # ruby result comparitor
	  c_src << "  puts(" << %Q{\\"  #{r_r2} = #{return_type.r_type}.new\\"} << ");\n"
	  c_src << "  #{return_type.c_to_r_assignment(r_r2,c_return_name)}"
	  c_src << "  printf(" << %Q{\\"  assert r_r1.equals(r_r2)\\\\n\\"} << ");\n"
	else
	  c_src << "  printf(" << %Q{\\"  assert_in_delta r_r1, %.15g, EPSILON\\\\n\\"} << ", #{c_return_name});\n"
	end

	c_src << "  puts(" << %Q{\\"end\\"} << ");"


	eval <<-end_eval
    def c_test_#{method_name}
 # Build list of arguments and their values
	  "#{c_src}"
    end
	end_eval
  end
end