Class: Opal::Nodes::CallNode

19
20
21
22

# File 'opal/lib/opal/nodes/call.rb', line 19
def self.add_special(name, options = {}, &handler)
 SPECIALS [name] = options
 define_method("handle_#{name}", &handler)
end

92
93
94

# File 'opal/lib/opal/nodes/call.rb', line 92
def attr_assignment?
 @assignment ||= meth.to_s =~ /^[\da-z]+\=$/i
end

24
25
26
27
28
29
30
31
32
33
34
35
36
37

# File 'opal/lib/opal/nodes/call.rb', line 24
def compile
 # handle some methods specially
 handle_special
 # some special methods need to skip compilation
 return unless compile_default?
 compiler.method_calls << meth.to_sym
 # if trying to access an lvar in irb mode
 return compile_irb_var if using_irb?
 default_compile
end

105
106
107
108
109
110
111
112
113
114
115
116

# File 'opal/lib/opal/nodes/call.rb', line 105
def compile_assignment
 with_temp do |args_tmp|
 with_temp do |recv_tmp|
 args = expr(arglist)
 mid = mid_to_jsid meth.to_s
 push "((#{args_tmp} = [", args, "]), "+
 "#{recv_tmp} = ", recv(recv_sexp), ", ",
 recv_tmp, mid, ".apply(#{recv_tmp}, #{args_tmp}), "+
 "#{args_tmp}[#{args_tmp}.length-1])"
 end
 end
end

139
140
141

# File 'opal/lib/opal/nodes/call.rb', line 139
def compile_default!
 @compile_default = true
end

143
144
145

# File 'opal/lib/opal/nodes/call.rb', line 143
def compile_default?
 @compile_default
end

97
98
99
100
101
102
103

# File 'opal/lib/opal/nodes/call.rb', line 97
def compile_irb_var
 with_temp do |tmp|
 lvar = variable(meth)
 call = s(:call, s(:self), meth.intern, s(:arglist))
 push "((#{tmp} = Opal.irb_vars.#{lvar}) == null ? ", expr(call), " : #{tmp})"
 end
end

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
84
85
86

# File 'opal/lib/opal/nodes/call.rb', line 39
def default_compile
 mid = mid_to_jsid meth.to_s
 splat = arglist[1..-1].any? { |a| a.first == :splat }
 if Sexp  === arglist.last and arglist.last.type == :block_pass
 block = arglist.pop
 elsif iter
 block = iter
 end
 blktmp = scope.new_temp if block
 tmprecv = scope.new_temp if splat || blktmp
 # must do this after assigning temp variables
 block = expr(block) if block
 recv_code = recv(recv_sexp)
 call_recv = s(:js_tmp, tmprecv || recv_code)
 if blktmp and !splat
 arglist.insert 1, call_recv
 end
 args = expr(arglist)
 if tmprecv
 push "(#{tmprecv} = ", recv_code, ")#{mid}"
 else
 push recv_code, mid
 end
 if blktmp
 unshift "(#{blktmp} = "
 push ", #{blktmp}.$$p = ", block, ", #{blktmp})"
 end
 if splat
 push ".apply(", (tmprecv || recv_code), ", ", args, ")"
 elsif blktmp
 push ".call(", args, ")"
 else
 push "(", args, ")"
 end
 scope.queue_temp blktmp if blktmp
end

127
128
129
130
131
132
133
134
135
136
137

# File 'opal/lib/opal/nodes/call.rb', line 127
def handle_special
 @compile_default = true
 if SPECIALS .include? meth
 @compile_default = false
 __send__("handle_#{meth}")
 elsif RuntimeHelpers .compatible? (recvr, meth, arglist)
 @compile_default = false
 push(RuntimeHelpers .new (@sexp, @level, @compiler).compile )
 end
end

88
89
90

# File 'opal/lib/opal/nodes/call.rb', line 88
def recv_sexp
 recvr || s(:self)
end

120
121
122

# File 'opal/lib/opal/nodes/call.rb', line 120
def using_irb?
 @compiler.irb? and scope.top? and arglist == s(:arglist) and recvr.nil? and iter.nil?
end