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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
import Op from require 'core'
unpack or= table.unpack
class BinOp extends Op
setup: (...) =>
@children = { ... }
assert #@children >= 2, "#{@} needs at least two parameters"
update: (dt) =>
for child in *@children
child\update dt
class add extends BinOp
@doc: "(+ a b [c]...)
(add a b [c]...) - add values"
update: (dt) =>
super\update dt
@value = 0
for child in *@children
@value += child\get!
class sub extends BinOp
@doc: "(- a b [c]...)
(sub a b [c]...) - subtract values
subtracts all other arguments from a"
update: (dt) =>
super\update dt
@value = @children[1]\get!
for child in *@children[2,]
@value -= child\get!
class mul extends BinOp
@doc: "(* a b [c]...)
(mul a b [c]...) - multiply values"
update: (dt) =>
super\update dt
@value = 1
for child in *@children
@value *= child\get!
class div extends BinOp
@doc: "(/ a b [c]...)
(div a b [c]...) - divide values
divides a by all other arguments"
update: (dt) =>
super\update dt
@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: (dt) =>
params = for param in *@params
param\update dt
param\get!
@value = func unpack params
k.__name = name
k
mod = func_op 'mod', 2, (a, b) -> a % b
module = {
:add, '+': add
:sub, '-': sub
:mul, '*': mul
:div, '/': div
:mod, '%': mod
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
|
