Class: MethodDefinition

Inherits:
Object
  • Object
show all
Defined in:
ext/kmat/auto_collect.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(name_arg, comment) ⇒ MethodDefinition

Returns a new instance of MethodDefinition.



3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
# File 'ext/kmat/auto_collect.rb', line 3

def initialize(name_arg, comment)
	comment = %r|//\s+(.*)|.match(comment)[1]
	@als = /\Aalias (.+)/.match(comment)&.[](1)&.split(/[,\s]\s*/)
	@meth = /\Akmm_/.match(name_arg)
	return unless @meth
	m = %r|\A(kmm_([^\(_]+)_([^\(]+))\((.+)\)\Z|.match(name_arg)
	raise "unknown name_arg pattern `#{name_arg}' found" unless m
	@funcname, @type, @name, arg =  m[1], type_trans(m[2]), m[3], m[4]
	if m = %r|(.+)_p\Z|.match(@name)
		@name = m[1]+'?'
	elsif m = %r|(.+)_dest\Z|.match(@name)
		@name = m[1]
		@dup_esc = true
	elsif m = %r|(.+)_destl\Z|.match(@name)
		@name = m[1]+'!'
	end
	if m = %r|(.+)_m2\Z|.match(@name)
		@name = m[1]
		@argc = -2
	elsif m = %r|\Aint argc|.match(arg)
		@argc = -1
	else
		@argc = arg.split(/,/).size-1
	end
end

Instance Attribute Details

#meth ⇒ Object (readonly)

Returns the value of attribute meth.



28
29
30
 
# File 'ext/kmat/auto_collect.rb', line 28

def meth
  @meth
end

Instance Method Details

#to_s(join = "\n\t") ⇒ Object 



49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
# File 'ext/kmat/auto_collect.rb', line 49

def to_s(join="\n\t")
	ret = []
	if @type.kind_of?(Array)
		ret << %Q|rb_define_module_function(#{@type[0]}, "#{@name}", #{@funcname}, #{@argc});|
	elsif %r|\A\_|.match(@name)
		ret << %Q|rb_define_private_method(#{@type}, "#{@name}", #{@funcname}, #{@argc});|
	elsif @dup_esc
		ret << %Q|rb_define_method(#{@type}, "#{@name}!", #{@funcname}, #{@argc});|
		ret << %Q|rb_funcall(km_cMat, id__define_dup_escaped_method, 1, rb_str_new_cstr("#{@name}"));|
	else
		ret << %Q|rb_define_method(#{@type}, "#{@name}", #{@funcname}, #{@argc});|
	end
	@als&.each do |a|
		if @type.kind_of?(Array)
			ret << %Q|rb_define_alias(#{@type[0]}, "#{a}", "#{@name}");|
			ret << %Q|rb_define_alias(#{@type[1]}, "#{a}", "#{@name}");|
		else
			ret << %Q|rb_define_alias(#{@type}, "#{a}", "#{@name}");|
			ret << %Q|rb_define_alias(#{@type}, "#{a}!", "#{@name}!");| if @dup_esc
		end
	end
	ret.join(join)
end

#type_trans(t) ⇒ Object 



30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
# File 'ext/kmat/auto_collect.rb', line 30

def type_trans(t)
	case t
	when 'obj'
		'rb_cObject'
	when 'mat'
		'km_cMat'
	when 'Mat'
		'km_sMat'
	when 'ary'
		'rb_cArray'
	when 'MATH'
		['rb_mMath', 'rb_sMath']
	when 'float'
		'rb_cFloat'
	else
		raise "unknown type `#{t}' found"
	end
end