31 lines
695 B
Scilab
31 lines
695 B
Scilab
class Pifi
|
|
|
|
int self.ofthen(int n , ref m)
|
|
n = n + m.index
|
|
return n
|
|
end
|
|
end
|
|
-- -- --
|
|
s(:statements,
|
|
s(:class, :Pifi,
|
|
s(:derives, nil),
|
|
s(:statements,
|
|
s(:function, :int,
|
|
s(:name, :ofthen),
|
|
s(:parameters,
|
|
s(:parameter, :int, :n),
|
|
s(:parameter, :ref, :m)),
|
|
s(:statements,
|
|
s(:assignment,
|
|
s(:name, :n),
|
|
s(:operator_value, :+,
|
|
s(:name, :n),
|
|
s(:field_access,
|
|
s(:receiver,
|
|
s(:name, :m)),
|
|
s(:field,
|
|
s(:name, :index))))),
|
|
s(:return,
|
|
s(:name, :n))),
|
|
s(:receiver, :self)))))
|