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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
UnaryOpFunctionProxy : UnaryOpFunction {
valueFuncProxy { arg args;
^this.reduceFuncProxy(args)
}
reduceFuncProxy { arg args;
^a.reduceFuncProxy(args).perform(selector)
}
value { arg ... args;
^this.reduceFuncProxy(args)
}
valueArray { arg args;
^this.reduceFuncProxy(args)
}
composeUnaryOp { arg aSelector;
^UnaryOpFunctionProxy.new(aSelector, this)
}
composeBinaryOp { arg aSelector, something, adverb;
^BinaryOpFunctionProxy.new(aSelector, this, something, adverb);
}
reverseComposeBinaryOp { arg aSelector, something, adverb;
^BinaryOpFunctionProxy.new(aSelector, something, this, adverb);
}
composeNAryOp { arg aSelector, anArgList;
^NAryOpFunctionProxy.new(aSelector, this, anArgList)
}
// behave like a pattern
embedInStream { arg inval;
^this.value.embedInStream(inval)
}
}
BinaryOpFunctionProxy : BinaryOpFunction {
valueFuncProxy { arg args;
^this.reduceFuncProxy(args)
}
reduceFuncProxy { arg args;
^a.reduceFuncProxy(args)
.perform(selector, b.reduceFuncProxy(args), adverb)
}
value { arg ... args;
^this.reduceFuncProxy(args)
}
valueArray { arg args;
^this.reduceFuncProxy(args)
}
composeUnaryOp { arg aSelector;
^UnaryOpFunctionProxy.new(aSelector, this)
}
composeBinaryOp { arg aSelector, something, adverb;
^BinaryOpFunctionProxy.new(aSelector, this, something, adverb);
}
reverseComposeBinaryOp { arg aSelector, something, adverb;
^BinaryOpFunctionProxy.new(aSelector, something, this, adverb);
}
composeNAryOp { arg aSelector, anArgList;
^NAryOpFunctionProxy.new(aSelector, this, anArgList)
}
// behave like a pattern
embedInStream { arg inval;
^this.value.embedInStream(inval)
}
}
NAryOpFunctionProxy : NAryOpFunction {
reduceFuncProxy { arg args;
^a.reduceFuncProxy(args).performList(selector, arglist.collect(_.reduceFuncProxy(args)))
}
valueFuncProxy { arg args;
^this.reduceFuncProxy(args)
}
value { arg ... args;
^this.reduceFuncProxy(args)
}
valueArray { arg args;
^this.reduceFuncProxy(args)
}
composeUnaryOp { arg aSelector;
^UnaryOpFunctionProxy.new(aSelector, this)
}
composeBinaryOp { arg aSelector, something, adverb;
^BinaryOpFunctionProxy.new(aSelector, this, something, adverb);
}
reverseComposeBinaryOp { arg aSelector, something, adverb;
^BinaryOpFunctionProxy.new(aSelector, something, this, adverb);
}
composeNAryOp { arg aSelector, anArgList;
^NAryOpFunctionProxy.new(aSelector, this, anArgList)
}
// behave like a pattern
embedInStream { arg inval;
^this.value.embedInStream(inval)
}
}
// maybe make it an abstract function object.
NAryValueProxy : NAryOpFunctionProxy {
*new { arg receiver, args;
^super.new(nil, receiver, args ? [])
}
reduceFuncProxy { arg args;
^a.reduceFuncProxy(arglist.collect(_.reduceFuncProxy(args)))
}
storeOn { arg stream;
stream << "o(" <<< a << "," <<<* arglist << ")" // is it always so?
}
}
|
