1
2
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
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
|
import Op from require 'base'
unpack or= table.unpack
class BinOp extends Op
setup: (...) =>
@children = { ... }
assert #@children >= 2, "#{@} needs at least two parameters"
class add extends BinOp
update: =>
@value = 0
for child in *@children
@value += child\get!
class sub extends BinOp
update: =>
@value = @children[1]\get!
for child in *@children[2,]
@value -= child\get!
class mul extends BinOp
update: =>
@value = 1
for child in *@children
@value *= child\get!
class div extends BinOp
update: =>
@value = @children[1]\get!
for child in *@children[2,]
@value /= child\get!
func_op = (name, arity, func) ->
k = class extends Op
setup: (...) =>
@params = { ... }
if arity != '*'
assert #@params == arity, "#{@} needs exactly #{arity} parameters"
update: =>
@value = func unpack [param\get! for param in *@params]
k.__name = name
k
module = {
:add, '+': add
:sub, '-': sub
:mul, '*': mul
:div, '/': div
mix: func_op 'mix', 3, (a, b, i) -> i*b + (1-i)*a
pi: math.pi, huge: math.huge
}
for name, arity in pairs {
exp: 1, log: 2, log10: 1, sqrt: 1
cos: 1, sin: 1, tan: 1
asin: 1, acos: 1, atan: 1, atan2: 2
sinh: 1, cosh: 1, tanh: 1
min: '*', max: '*'
floor: 1, ceil: 1, abs: 1
}
module[name] = func_op name, arity, math[name]
module
|
